--- a/hedgewars/uGearsHandlersMess.pas	Thu Nov 29 01:23:14 2018 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Nov 29 01:34:58 2018 +0300
@@ -1852,14 +1852,9 @@
     prevX: LongInt;
 begin
     AllInactive := false;
+    WorldWrap(Gear);
     dec(Gear^.Timer);
 
-    if WorldWrap(Gear) or (((Gear^.Timer) mod 500) = 0) then
-    begin
-        ClearHitOrder();
-        RefillProximityCache(Gear, 100);
-    end;
-
     if Gear^.Hedgehog^.Gear = nil then
         begin
         StopSoundChan(Gear^.SoundChannel);
@@ -1923,7 +1918,7 @@
                 Gear^.Y := HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC);
                 end;
             HHGear^.State := HHGear^.State or gstNoDamage;
-            AmmoShoveCache(Gear, Gear^.Boom, 15);
+            AmmoShove(Gear, Gear^.Boom, 15);
             HHGear^.State := HHGear^.State and (not gstNoDamage)
             end;
         end;
@@ -1940,8 +1935,6 @@
     if (TurnTimeLeft = 0) or (Gear^.Timer = 0)
     or ((HHGear^.Message and gmAttack) <> 0) then
         begin
-        ClearHitOrder();
-        ClearProximityCache();
         StopSoundChan(Gear^.SoundChannel);
         HHGear^.Message := 0;
         HHGear^.State := HHGear^.State and (not gstNotKickable);
@@ -1968,10 +1961,7 @@
     HHGear^.Message := 0;
     HHGear^.State := HHGear^.State or gstNotKickable;
     Gear^.SoundChannel := LoopSound(sndBlowTorch);
-    Gear^.doStep := @doStepBlowTorchWork;
-
-    ClearHitOrder();
-    RefillProximityCache(Gear, 100);
+    Gear^.doStep := @doStepBlowTorchWork
 end;