285                   

   285                   

   286         if valueResult < Score then

   286         if valueResult < Score then

   287             begin

   287             begin

   288             ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level));

   288             ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level));

   289             ap.Power:= trunc(sqrt(r) * cMaxPower) + AIrndSign(random(Level) * 15);

   289             ap.Power:= trunc(sqrt(r) * cMaxPower) + AIrndSign(random(Level) * 15);

   291             ap.ExplR:= 100;

   290             ap.ExplR:= 100;

   292             ap.ExplX:= EX;

   291             ap.ExplX:= EX;

   293             ap.ExplY:= EY;

   292             ap.ExplY:= EY;

   294             valueResult:= Score

   293             valueResult:= Score

   295             end;

   294             end;

   494     TestTime: Longword;

   493     TestTime: Longword;

   495     x, y, dY, meX, meY: real;

   494     x, y, dY, meX, meY: real;

   496 begin

   495 begin

   497     TestMortar:= BadTurn;

   496     TestMortar:= BadTurn;

   498     ap.ExplR:= 0;

   497     ap.ExplR:= 0;

   499     meX:= hwFloat2Float(Me^.X);

   499     meX:= hwFloat2Float(Me^.X);

   500     meY:= hwFloat2Float(Me^.Y);

   500     meY:= hwFloat2Float(Me^.Y);

   501 

   501 

   502     if (Level > 2) then

   502     if (Level > 2) then

   503         exit(BadTurn);

   503         exit(BadTurn);