hedgewars/uAIAmmoTests.pas
changeset 13670 fe20626ed80b
parent 13669 c6ee1b0b957f
child 13671 7a31a292fa84
equal deleted inserted replaced
13669:c6ee1b0b957f 13670:fe20626ed80b
   338              targXWrap:= Targ.Point.X + (RightX-LeftX)
   338              targXWrap:= Targ.Point.X + (RightX-LeftX)
   339         else targXWrap:= Targ.Point.X - (RightX-LeftX);
   339         else targXWrap:= Targ.Point.X - (RightX-LeftX);
   340     timer:= 0;
   340     timer:= 0;
   341     repeat
   341     repeat
   342         rTime:= rTime + 300 + Level * 50 + random(300);
   342         rTime:= rTime + 300 + Level * 50 + random(300);
   343         Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
       
   344         if (WorldEdge = weWrap) and (random(2)=0) then
   343         if (WorldEdge = weWrap) and (random(2)=0) then
   345              Vx:= - windSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) - mX) / rTime
   344              Vx:= - windSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) - mX) / rTime
   346         else Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
   345         else Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
   347         Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y - 35 - mY) / rTime;
   346         Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y - 35 - mY) / rTime;
   348         r:= sqr(Vx) + sqr(Vy);
   347         r:= sqr(Vx) + sqr(Vy);