hedgewars/uAIAmmoTests.pas
changeset 6769 44ad49a3a126
parent 6767 ccbf07b38a43
child 6770 7d2c6cdb816a
--- a/hedgewars/uAIAmmoTests.pas	Sun Mar 11 23:31:32 2012 +0400
+++ b/hedgewars/uAIAmmoTests.pas	Sun Mar 11 18:28:32 2012 -0400
@@ -173,7 +173,7 @@
         valueResult:= value
         end;
     end
-until (rTime > 4250);
+until (value > 204800) or (rTime > 4250);
 TestBazooka:= valueResult
 end;
 
@@ -310,7 +310,9 @@
     EX:= hwRound(x);
     EY:= hwRound(y);
     if t < 50 then 
-        Score:= RateExplosion(Me, EX, EY, 101)
+        if Me^.Hedgehog^.BotLevel = 1 then
+            Score:= RateExplosion(Me, EX, EY, 101, 3)
+        else Score:= RateExplosion(Me, EX, EY, 101)
     else 
         Score:= BadTurn;
 
@@ -325,7 +327,7 @@
         valueResult:= Score
         end;
     end
-until (TestTime = 4000);
+until (Score > 204800) or (TestTime > 4000);
 TestGrenade:= valueResult
 end;