changeset 2376 | ece7b87f1334 |
parent 2357 | babe1a55e284 |
child 2457 | ecf0c7e7995b |
--- a/hedgewars/uAIAmmoTests.pas Thu Sep 10 15:22:34 2009 +0000 +++ b/hedgewars/uAIAmmoTests.pas Thu Sep 10 15:29:28 2009 +0000 @@ -220,7 +220,7 @@ x:= Me^.X; y:= Me^.Y; dY:= -Vy; - + repeat x:= x + Vx; y:= y + dY; @@ -228,7 +228,7 @@ EX:= hwRound(x); EY:= hwRound(y); until TestColl(EX, EY, 5) or (EY > 1000); - + if (EY < 1000) and not dY.isNegative then begin Result:= RateExplosion(Me, EX, EY, 91);