hedgewars/uGearsHandlersRope.pas
changeset 9809 1e32628eb167
parent 9706 5178d2263521
child 9998 736015b847e3
--- a/hedgewars/uGearsHandlersRope.pas	Fri Dec 20 15:06:18 2013 +0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sat Dec 21 01:14:59 2013 +0400
@@ -39,7 +39,7 @@
        ((TestCollisionXwithGear(HHGear, 1) <> 0) or (TestCollisionXwithGear(HHGear, -1) <> 0))  then
         begin
         HHGear^.X:= tX;
-        HHGear^.dX.isNegative:= (hwRound(tX) > leftX+HHGear^.Radius*2)
+        HHGear^.dX.isNegative:= hwRound(tX) > LongInt(leftX) + HHGear^.Radius * 2
         end;
 
     if (HHGear^.Hedgehog^.CurAmmoType = amParachute) and (HHGear^.dY > _0_39) then
@@ -132,7 +132,7 @@
         PlaySound(sndRopeRelease);
         RopeDeleteMe(Gear, HHGear);
         HHGear^.X:= tX;
-        HHGear^.dX.isNegative:= (hwRound(tX) > leftX+HHGear^.Radius*2);
+        HHGear^.dX.isNegative:= hwRound(tX) > LongInt(leftX) + HHGear^.Radius * 2;
         exit
         end;