hedgewars/uGearsHandlersMess.pas
changeset 14291 7a7c090f96f6
parent 14289 a3531b520efb
child 14341 9e8e64b2bb9e
--- a/hedgewars/uGearsHandlersMess.pas	Fri Nov 23 16:38:47 2018 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Nov 23 21:38:34 2018 -0500
@@ -6615,7 +6615,7 @@
 if (Gear^.State and gstTmpFlag <> 0) or (GameTicks and $7 = 0) then
     begin
     doStepFallingGear(Gear);
-    if (Gear^.Tag = 1) and (GameTicks and $FF = 0) and (hwRound(Gear^.X) < leftX) or (hwRound(Gear^.X) > rightX) or (hwRound(Gear^.Y) < LongInt(topY)) then
+    if (Gear^.Tag = 1) and (GameTicks and $FF = 0) and (hwRound(Gear^.X) < leftX) or (hwRound(Gear^.X) > rightX) or (hwRound(Gear^.Y) < topY) then
         begin
         Gear^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
         Gear^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);