--- a/hedgewars/uAIAmmoTests.pas	Sun Feb 11 15:33:19 2007 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Sun Feb 11 19:38:26 2007 +0000
@@ -262,7 +262,7 @@
 Result:= 0;
 for i:= 0 to 4 do
     Result:= Result + RateShove(Me, hwRound(Me^.X) + 10 * hwSign(Targ.X - Me^.X), hwRound(Me^.Y) - 20 * i - 5, 10, 30);
-if Result <= 0 then Result:= BadTurn;
+if Result <= 0 then Result:= BadTurn else inc(Result);
 TestFirePunch:= Result
 end;