hedgewars/uAIMisc.pas
changeset 6768 a142cf8dbbd3
parent 6767 ccbf07b38a43
child 6769 44ad49a3a126
--- a/hedgewars/uAIMisc.pas	Sun Mar 11 14:43:36 2012 -0400
+++ b/hedgewars/uAIMisc.pas	Sun Mar 11 23:31:32 2012 +0400
@@ -263,7 +263,8 @@
     while true do
         begin
         x:= x + dX;
-        y:= y + dY + cGravityf;
+        y:= y + dY;
+        dY:= dY + cGravityf;
         skipLandCheck:= (r <> 0) and (abs(eX-x) + abs(eY-y) < r) and ((abs(eX-x) < rCorner) or (abs(eY-y) < rCorner));
         if not skipLandCheck and TestCollWithLand(trunc(x), trunc(y), cHHRadius) then exit(false);
         if (y > cWaterLine) or (x > 4096) or (x < 0) then exit(true);