hedgewars/uGearsHandlersMess.pas
changeset 15655 0bf5dda8fa43
parent 15652 c9fec197335a
child 15657 e229d0cacd37
--- a/hedgewars/uGearsHandlersMess.pas	Wed Jun 24 20:16:02 2020 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Jun 24 22:34:12 2020 +0300
@@ -1850,7 +1850,6 @@
 var
     HHGear: PGear;
     dig, hit: boolean;
-    prevX: LongInt;
 begin
     AllInactive := false;
     WorldWrap(Gear);
@@ -1902,14 +1901,9 @@
         if ((HHGear^.State and gstMoving) = 0) then
             begin
             HHGear^.State := HHGear^.State and (not gstAttacking);
-            prevX := hwRound(HHGear^.X);
 
             if CheckLandValue(hwRound(HHGear^.X + SignAs(_6, HHGear^.dX)), hwRound(HHGear^.Y),lfIndestructible) then
-                begin
                 HedgehogStep(HHGear);
-                if (prevX = hwRound(HHGear^.X)) then
-                    HHGear^.X := HHGear^.X + SignAs(_1, HHGear^.dX);
-                end;
 
             HHGear^.State := HHGear^.State or gstAttacking
             end;