hedgewars/uAIAmmoTests.pas
changeset 7525 5c840e221993
parent 7501 1763dc3bc9b7
child 7620 fa3bc79dc0b8
--- a/hedgewars/uAIAmmoTests.pas	Mon Aug 06 00:44:32 2012 +0400
+++ b/hedgewars/uAIAmmoTests.pas	Thu Aug 09 01:01:06 2012 +0400
@@ -1096,7 +1096,8 @@
     x, y, trackFall: LongInt;
     cake: TGear;
 begin
-    Level:= Level; // avoid compiler hint
+    if (Level > 2) then
+        exit(BadTurn);
     ap.ExplR:= 0;
     ap.Time:= 0;
     ap.Power:= BadTurn; // use it as max score value in checkCakeWalk