hedgewars/uAIAmmoTests.pas
changeset 198 6f00e0f4cb88
parent 183 57c2ef19f719
child 211 558476056205
equal deleted inserted replaced
197:8a7123b84d1b 198:6f00e0f4cb88
    86 Time:= 0;
    86 Time:= 0;
    87 rTime:= 50;
    87 rTime:= 50;
    88 ExplR:= 0;
    88 ExplR:= 0;
    89 Result:= BadTurn;
    89 Result:= BadTurn;
    90 repeat
    90 repeat
    91   rTime:= rTime + 150 + Level * 25 + random * 250;
    91   rTime:= rTime + 300 + Level * 50 + random * 200;
    92   Vx:= - cWindSpeed * rTime / 2 + (Targ.X - Me.X) / rTime;
    92   Vx:= - cWindSpeed * rTime / 2 + (Targ.X - Me.X) / rTime;
    93   Vy:= cGravity * rTime / 2 - (Targ.Y - Me.Y) / rTime;
    93   Vy:= cGravity * rTime / 2 - (Targ.Y - Me.Y) / rTime;
    94   r:= sqr(Vx) + sqr(Vy);
    94   r:= sqr(Vx) + sqr(Vy);
    95   if r <= 1 then
    95   if r <= 1 then
    96      begin
    96      begin