hedgewars/uGearsHedgehog.pas
changeset 8005 6d47a4f47e10
parent 8003 7d8bce524daf
child 8026 4a4f21070479
child 8030 165aeaaaf445
--- a/hedgewars/uGearsHedgehog.pas	Wed Nov 07 23:02:18 2012 +0400
+++ b/hedgewars/uGearsHedgehog.pas	Wed Nov 07 23:08:02 2012 +0400
@@ -971,7 +971,7 @@
 if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
     begin
     inc(Gear^.FlightTime);
-    if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < leftX-250) or (hwRound(Gear^.X) > rightX+250))  then
+    if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250))  then
         begin
         Gear^.FlightTime:= 0;
         AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);