hedgewars/uAIAmmoTests.pas
changeset 53 0e27949850e3
parent 51 b6e3ae05857f
child 64 9df467527ae5
equal deleted inserted replaced
52:ae2950c5465c 53:0e27949850e3
   134 
   134 
   135     function CheckTrace: boolean;
   135     function CheckTrace: boolean;
   136     var x, y, dX, dY: real;
   136     var x, y, dX, dY: real;
   137         t: integer;
   137         t: integer;
   138     begin
   138     begin
   139     x:= Me.X + Vx*20;
   139     x:= Me.X;
   140     y:= Me.Y + Vy*20;
   140     y:= Me.Y;
   141     dX:= Vx;
   141     dX:= Vx;
   142     dY:= -Vy;
   142     dY:= -Vy;
   143     Result:= false;
   143     Result:= false;
   144     if (Flags and ctfNotFull) = 0 then t:= trunc(rTime)
   144     if (Flags and ctfNotFull) = 0 then t:= trunc(rTime)
   145                                   else t:= trunc(rTime) - 100;
   145                                   else t:= trunc(rTime) - 100;