uses SDLh;

function TestBazooka(Me, Targ: TPoint; out Time: Longword; out Angle, Power: integer): integer;

uses uMisc, uAIMisc;

const cMyHHDamageScore = -3000;

function Metric(x1, y1, x2, y2: integer): integer;

Result:= abs(x1 - x2) + abs(y1 - y2)

function TestBazooka(Me, Targ: TPoint; out Time: Longword; out Angle, Power: integer): integer;

    Score: integer;

    function CheckTrace: integer;

    t:= trunc(rTime);

    until TestColl(round(x), round(y), 5) or (t <= 0);

    if NoMyHHNear(round(x), round(y), 110) then

         Result:= - Metric(round(x), round(y), Targ.x, Targ.y) div 16

    else Result:= cMyHHDamageScore;

Result:= Low(integer);

  rTime:= rTime + 70 + random*200;

  if r <= 1 then

     Score:= CheckTrace;

     if Result <= Score then

        begin

        r:= sqrt(r);

        Angle:= DxDy2AttackAngle(Vx, Vy);

        Power:= round(r * cMaxPower);

        Result:= Score

        end;

until (rTime >= 5000)