hedgewars/uAIAmmoTests.pas
changeset 1176 2969efb7050f
parent 1089 24e9e1ca0394
child 1221 51e3f3cfdca5
--- a/hedgewars/uAIAmmoTests.pas	Thu Aug 07 19:01:32 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Fri Aug 08 12:59:34 2008 +0000
@@ -213,7 +213,7 @@
 			EY:= hwRound(y);
 		until TestColl(EX, EY, 5) or (EY > 1000);
 		
-		if EY < 1000 then
+		if (EY < 1000) and not dY.isNegative then
 			begin
 			Result:= RateExplosion(Me, EX, EY, 91);
 			if (Result = 0) then