hedgewars/uGearsHandlersMess.pas
changeset 14026 31bdb759d98b
parent 14019 23fb123bd70c
child 14027 105793e575d6
--- a/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 03:36:25 2018 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 05:17:46 2018 +0300
@@ -2823,6 +2823,7 @@
     if not (HHGear^.dY.isNegative) or (Gear^.Timer = 0) then
         begin
         HHGear^.State := HHGear^.State or gstMoving;
+        ClearHitOrder();
         DeleteGear(Gear);
         AfterAttack;
         exit
@@ -2845,6 +2846,8 @@
 
     HHGear^.dY := - _0_3;
 
+    ClearHitOrder();
+
     Gear^.X := HHGear^.X;
     Gear^.dX := SignAs(_0_45, Gear^.dX);
     Gear^.dY := - _0_9;