hedgewars/uAIAmmoTests.pas
changeset 74 42257fee61ae
parent 71 5f56c6979496
child 75 d2b737858ff7
equal deleted inserted replaced
73:fe1c62875a19 74:42257fee61ae
   106      if Result <= Score then
   106      if Result <= Score then
   107         begin
   107         begin
   108         r:= sqrt(r);
   108         r:= sqrt(r);
   109         Angle:= DxDy2AttackAngle(Vx, Vy);
   109         Angle:= DxDy2AttackAngle(Vx, Vy);
   110         Power:= round(r * cMaxPower);
   110         Power:= round(r * cMaxPower);
   111         ExplR:= 50;
   111         ExplR:= 100;
   112         ExplX:= EX;
   112         ExplX:= EX;
   113         ExplY:= EY;
   113         ExplY:= EY;
   114         Result:= Score
   114         Result:= Score
   115         end;
   115         end;
   116      end
   116      end
   159         begin
   159         begin
   160         r:= sqrt(r);
   160         r:= sqrt(r);
   161         Angle:= DxDy2AttackAngle(Vx, Vy);
   161         Angle:= DxDy2AttackAngle(Vx, Vy);
   162         Power:= round(r * cMaxPower);
   162         Power:= round(r * cMaxPower);
   163         Time:= TestTime;
   163         Time:= TestTime;
   164         ExplR:= 50;
   164         ExplR:= 100;
   165         ExplX:= EX;
   165         ExplX:= EX;
   166         ExplY:= EY;
   166         ExplY:= EY;
   167         Result:= Score
   167         Result:= Score
   168         end;
   168         end;
   169      end
   169      end