hedgewars/uAIAmmoTests.pas
changeset 744 7a9663194767
parent 743 6b314e907f6d
child 883 07a568ba44e0
equal deleted inserted replaced
743:6b314e907f6d 744:7a9663194767
   121      Score:= CheckTrace;
   121      Score:= CheckTrace;
   122      if Result <= Score then
   122      if Result <= Score then
   123         begin
   123         begin
   124         ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random((Level - 1) * 9));
   124         ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random((Level - 1) * 9));
   125         ap.Power:= hwRound(r * cMaxPower) - random((Level - 1) * 17 + 1);
   125         ap.Power:= hwRound(r * cMaxPower) - random((Level - 1) * 17 + 1);
   126 AddFilelog('r = '+floattostr(r)+' power = '+ inttostr(hwRound(r * cMaxPower))+' ==> '+inttostr(ap.Power));
       
   127         ap.ExplR:= 100;
   126         ap.ExplR:= 100;
   128         ap.ExplX:= EX;
   127         ap.ExplX:= EX;
   129         ap.ExplY:= EY;
   128         ap.ExplY:= EY;
   130         Result:= Score
   129         Result:= Score
   131         end;
   130         end;