hedgewars/uAIAmmoTests.pas
branchwebgl
changeset 8026 4a4f21070479
parent 8013 5cbf6e4361f4
child 8096 453917e94e55
--- a/hedgewars/uAIAmmoTests.pas	Sun Nov 11 16:53:16 2012 +0100
+++ b/hedgewars/uAIAmmoTests.pas	Sun Nov 11 17:15:19 2012 +0100
@@ -704,7 +704,7 @@
     Targ:= Targ; // avoid compiler hint
 
     if Level < 3 then trackFall:= afTrackFall
-    else trackFall:= 0;
+        else trackFall:= 0;
 
     ap.ExplR:= 0;
     ap.Time:= 0;
@@ -1047,7 +1047,7 @@
             begin
             maxTop := Targ.Y - cHHRadius * 2;
             
-            while not TestColl(Targ.X, maxTop, cHHRadius) and (maxTop > topY + cHHRadius * 2 + 1) do
+            while (not TestColl(Targ.X, maxTop, cHHRadius)) and (maxTop > topY + cHHRadius * 2 + 1) do
                 dec(maxTop, cHHRadius*2);
             if not TestColl(Targ.X, maxTop + cHHRadius, cHHRadius) then
                 begin