hedgewars/uGearsHandlersMess.pas
changeset 15630 c9fec197335a
parent 15623 6c689729b745
child 15633 0bf5dda8fa43
--- a/hedgewars/uGearsHandlersMess.pas	Wed Jun 24 17:27:57 2020 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Jun 24 19:50:58 2020 +0300
@@ -1943,17 +1943,6 @@
         HHGear^.State := HHGear^.State and (not gstNoDamage);
         end;
 
-    if HHGear^.dX.isNegative <> (Gear^.Tag = -1) then
-    begin
-        inc(Gear^.WDTimer);
-        if Gear^.WDTimer > 150 then
-        begin
-            Gear^.WDTimer := 0;
-            Gear^.Tag := - Gear^.Tag;
-        end
-    end else
-        Gear^.WDTimer := 0;
-
     if (TurnTimeLeft = 0) or (Gear^.Timer = 0)
     or ((HHGear^.Message and gmAttack) <> 0) then
         begin
@@ -1985,13 +1974,6 @@
     HHGear^.State := HHGear^.State or gstNotKickable;
     RefillProximityCache(Gear, 200);
 
-    //Throttle counter for direction changes
-    Gear^.WDTimer := 0;
-    if HHGear^.dX.isNegative then
-        Gear^.Tag := -1
-    else
-        Gear^.Tag := 1;
-
     Gear^.SoundChannel := LoopSound(sndBlowTorch);
     Gear^.doStep := @doStepBlowTorchWork
 end;