hedgewars/uAIAmmoTests.pas
changeset 7375 16ae2e1c9005
parent 7348 2a69f2ed9273
child 7398 2b7b939014b5
--- a/hedgewars/uAIAmmoTests.pas	Mon Jul 09 23:28:02 2012 -0400
+++ b/hedgewars/uAIAmmoTests.pas	Wed Jul 11 22:18:43 2012 -0400
@@ -599,6 +599,7 @@
     d: Longword;
     fallDmg, valueResult: LongInt;
 begin
+if Me^.Hedgehog^.BotLevel > 3 then exit(BadTurn);
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
 Level:= Level; // avoid compiler hint
 ap.ExplR:= 0;
@@ -648,6 +649,7 @@
     d: Longword;
     fallDmg, valueResult: LongInt;
 begin
+if Me^.Hedgehog^.BotLevel > 3 then exit(BadTurn);
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
 Level:= Level; // avoid compiler hint
 ap.ExplR:= 0;