equal
deleted
inserted
replaced
702 gtMine, |
702 gtMine, |
703 gtCase: begin |
703 gtCase: begin |
704 inc(t^.Damage, dmg); |
704 inc(t^.Damage, dmg); |
705 if t^.Kind = gtHedgehog then |
705 if t^.Kind = gtHedgehog then |
706 begin |
706 begin |
707 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear); |
707 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t); |
708 inc(hh^.DamageGiven, dmg) |
708 inc(hh^.DamageGiven, dmg) |
709 end; |
709 end; |
710 DeleteCI(t); |
710 DeleteCI(t); |
711 t^.dX:= t^.dX + SignAs(Gear^.dX * dmg * _0_01 + cHHKick, t^.X - Gear^.X); |
711 t^.dX:= t^.dX + SignAs(Gear^.dX * dmg * _0_01 + cHHKick, t^.X - Gear^.X); |
712 t^.dY:= t^.dY + Gear^.dY * dmg * _0_01; |
712 t^.dY:= t^.dY + Gear^.dY * dmg * _0_01; |