init timer to 0
authornemo
Mon, 08 Dec 2014 10:30:20 -0500
changeset 10637 13a5dd92ebf9
parent 10636 aba9ae27ead0
child 10638 99975e1860d2
init timer to 0
hedgewars/uAIAmmoTests.pas
--- a/hedgewars/uAIAmmoTests.pas	Mon Dec 08 10:24:06 2014 -0500
+++ b/hedgewars/uAIAmmoTests.pas	Mon Dec 08 10:30:20 2014 -0500
@@ -211,6 +211,7 @@
     rTime:= 350;
     ap.ExplR:= 0;
     valueResult:= BadTurn;
+    timer:= 0;
     repeat
         rTime:= rTime + 300 + Level * 50 + random(300);
         Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
@@ -253,7 +254,7 @@
             EX:= trunc(x);
             EY:= trunc(y);
             // Try to prevent AI from thinking firing into water will cause a drowning
-            if (EY < cWaterLine-5) and (Timer > 0) and (Abs(Targ.Point.X - trunc(x)) + Abs(Targ.Point.Y - trunc(y)) > 21) then exit(BadTurn);
+            if (EY < cWaterLine-5) and (timer > 0) and (Abs(Targ.Point.X - trunc(x)) + Abs(Targ.Point.Y - trunc(y)) > 21) then exit(BadTurn);
             if Level = 1 then
                 value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand)
             else value:= RateExplosion(Me, EX, EY, 101);