hedgewars/uAIAmmoTests.pas
changeset 3847 771562124b16
parent 3820 bc3efe1c71ab
child 3928 2560731c860d
equal deleted inserted replaced
3846:c6b62c7f3668 3847:771562124b16
   367      begin
   367      begin
   368      Score:= CheckTrace;
   368      Score:= CheckTrace;
   369      if valueResult < Score then
   369      if valueResult < Score then
   370         begin
   370         begin
   371         ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
   371         ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
   372         ap.Power:= hwRound(r * cMaxPower) + AIrndSign(random(Level) * 15);
   372         ap.Power:= hwRound(r * cMaxPower * _0_9) + AIrndSign(random(Level) * 15);
   373         ap.Time:= TestTime;
   373         ap.Time:= TestTime;
   374         ap.ExplR:= 300;
   374         ap.ExplR:= 300;
   375         ap.ExplX:= EX;
   375         ap.ExplX:= EX;
   376         ap.ExplY:= EY;
   376         ap.ExplY:= EY;
   377         valueResult:= Score
   377         valueResult:= Score