hedgewars/uAIAmmoTests.pas
changeset 141 ac3680be1f4b
parent 136 89970b70b076
child 143 3dacbd83209b
equal deleted inserted replaced
140:50ccde437ea1 141:ac3680be1f4b
   110      begin
   110      begin
   111      Score:= CheckTrace;
   111      Score:= CheckTrace;
   112      if Result <= Score then
   112      if Result <= Score then
   113         begin
   113         begin
   114         r:= sqrt(r);
   114         r:= sqrt(r);
   115         Angle:= DxDy2AttackAngle(Vx, Vy) + rndSign(random((Level - 1) * 8) + 1);
   115         Angle:= DxDy2AttackAngle(Vx, Vy) + rndSign(random((Level - 1) * 8));
   116         Power:= round(r * cMaxPower) - random((Level - 1) * 15 + 1);
   116         Power:= round(r * cMaxPower) - random((Level - 1) * 15 + 1);
   117         ExplR:= 100;
   117         ExplR:= 100;
   118         ExplX:= EX;
   118         ExplX:= EX;
   119         ExplY:= EY;
   119         ExplY:= EY;
   120         Result:= Score - random((Level - 1) * 2500)
   120         Result:= Score - random((Level - 1) * 2500)