hedgewars/uAIAmmoTests.pas
changeset 7134 beb16926ae5c
parent 7132 baf3351646f4
child 7154 56e329edf4b8
--- a/hedgewars/uAIAmmoTests.pas	Fri May 25 15:35:48 2012 +0400
+++ b/hedgewars/uAIAmmoTests.pas	Mon May 28 17:54:23 2012 +0400
@@ -663,14 +663,15 @@
     x, y: real;
 begin
 Level:= Level; // avoid compiler hint
+TestFirePunch:= BadTurn;
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 ap.Angle:= hwSign(Me^.dX);
 x:= hwFloat2Float(Me^.X);
 y:= hwFloat2Float(Me^.Y);
-if (Abs(trunc(x) - Targ.X) > 25)
-or (Abs(trunc(y) - 50 - Targ.Y) > 50) then
+if (Abs(trunc(x) - Targ.X) < 25)
+    and (Abs(trunc(y) - 50 - Targ.Y) < 50) then
     begin
 // TODO - find out WTH this works.
     if TestColl(trunc(x), trunc(y) - 16, 6) and