hedgewars/uGearsHedgehog.pas
changeset 8003 7d8bce524daf
parent 7956 61da79e83330
child 8026 4a4f21070479
child 8030 165aeaaaf445
--- a/hedgewars/uGearsHedgehog.pas	Wed Nov 07 13:24:01 2012 -0500
+++ b/hedgewars/uGearsHedgehog.pas	Wed Nov 07 14:02:10 2012 -0500
@@ -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);