hedgewars/uAIAmmoTests.pas
changeset 3697 d5b30d6373fc
parent 3677 7d917b587547
child 3710 411f5c2b5292
--- a/hedgewars/uAIAmmoTests.pas	Sat Jul 31 10:52:43 2010 +0200
+++ b/hedgewars/uAIAmmoTests.pas	Sat Jul 31 11:24:53 2010 +0200
@@ -689,7 +689,7 @@
     FillBonuses(true, [gtCase]);
     if bonuses.Count = 0 then begin
         if Me^.Health <= 100  then begin
-            maxTop := Targ.Y - cHHRadius * 2; 
+            maxTop := Targ.Y - cHHRadius * 2;
             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
@@ -701,7 +701,7 @@
     end
     else begin
         failNum := 0;
-        repeat 
+        repeat
             i := random(bonuses.Count);
             inc(failNum);
         until not TestColl(bonuses.ar[i].X, bonuses.ar[i].Y - cHHRadius - bonuses.ar[i].Radius, cHHRadius) or (failNum = bonuses.Count*2);