# HG changeset patch
# User unc0rr
# Date 1331494292 -14400
# Node ID a142cf8dbbd38a2b3cf6176f76c86484217ac55b
# Parent  ccbf07b38a4396b2de3a961ed6af41f69ef5e917
Fix silliness

diff -r ccbf07b38a43 -r a142cf8dbbd3 hedgewars/uAIMisc.pas
--- 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);