hedgewars/uAIAmmoTests.pas
changeset 743 6b314e907f6d
parent 556 49675457d76e
child 744 7a9663194767
--- a/hedgewars/uAIAmmoTests.pas	Sun Jan 20 22:07:27 2008 +0000
+++ b/hedgewars/uAIAmmoTests.pas	Sun Jan 20 22:17:03 2008 +0000
@@ -123,6 +123,7 @@
         begin
         ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random((Level - 1) * 9));
         ap.Power:= hwRound(r * cMaxPower) - random((Level - 1) * 17 + 1);
+AddFilelog('r = '+floattostr(r)+' power = '+ inttostr(hwRound(r * cMaxPower))+' ==> '+inttostr(ap.Power));
         ap.ExplR:= 100;
         ap.ExplX:= EX;
         ap.ExplY:= EY;