Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsUtils.pas
changeset 10356 7d1044267b83
parent 10354 56bd029245fc
child 10363 fc3aa563ab01 
--- a/hedgewars/uGearsUtils.pas	Sat Jul 05 20:27:42 2014 +0200
+++ b/hedgewars/uGearsUtils.pas	Sat Jul 05 21:22:42 2014 +0200
@@ -468,7 +468,7 @@
                     ((Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.State and gstSubmersible = 0)) then
                 DrownGear(Gear);
 
-            isImpactRight:= isImpactH and (abs(X - leftX) > abs(rightX - X));
+            isImpactRight:= isImpactH and (abs(X - LongInt(leftX)) > abs(LongInt(rightX) - X));
             isLeaving:= (isSubmersible and (dist2Water = -2 * Gear^.Radius) and (Gear = CurAmmoGear) and (CurAmmoGear^.Pos = 0)
             and (((not isImpactH) and CurAmmoGear^.dY.isNegative) or (isImpactH and (isImpactRight = CurAmmoGear^.dX.isNegative))));
hedgewars