hedgewars/uAIAmmoTests.pas
changeset 6767 ccbf07b38a43
parent 6700 e04da46ee43c
child 6769 44ad49a3a126
--- a/hedgewars/uAIAmmoTests.pas	Sun Mar 11 12:19:04 2012 -0400
+++ b/hedgewars/uAIAmmoTests.pas	Sun Mar 11 14:43:36 2012 -0400
@@ -158,7 +158,9 @@
         
         EX:= trunc(x);
         EY:= trunc(y);
-        value:= RateExplosion(Me, EX, EY, 101);
+        if Me^.Hedgehog^.BotLevel = 1 then
+            value:= RateExplosion(Me, EX, EY, 101, 3)
+        else value:= RateExplosion(Me, EX, EY, 101);
         if value = 0 then
             value:= - Metric(Targ.X, Targ.Y, EX, EY) div 64;
     if valueResult <= value then