hedgewars/uGearsHandlersMess.pas
changeset 14013 967ed77d6aef
parent 14012 cfbea054754c
child 14014 d203bb36225f
--- a/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 07:39:44 2018 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 07:53:27 2018 +0300
@@ -2596,13 +2596,17 @@
     HHGear^.State := HHGear^.State or gstNoDamage;
     DeleteCI(HHGear);
 
+    ClearHitOrder();
+    RefillProximityCache(Gear, 100);
     for i:= 0 to 3 do
         begin
         AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust);
-        AmmoShove(Gear, Gear^.Boom, 25);
+        AmmoShoveCache(Gear, Gear^.Boom, 25);
         Gear^.X := Gear^.X + Gear^.dX * 5
         end;
 
+    ClearHitOrder();
+    ClearProximityCache();
     HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;
 
     Gear^.Timer := 250;