+
−(*
+
− * Hedgewars, a worms-like game
+
− * Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com>
+
− *
+
− * Distributed under the terms of the BSD-modified licence:
+
− *
+
− * Permission is hereby granted, free of charge, to any person obtaining a copy
+
− * of this software and associated documentation files (the "Software"), to deal
+
− * with the Software without restriction, including without limitation the
+
− * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+
− * sell copies of the Software, and to permit persons to whom the Software is
+
− * furnished to do so, subject to the following conditions:
+
− *
+
− * 1. Redistributions of source code must retain the above copyright notice,
+
− *    this list of conditions and the following disclaimer.
+
− * 2. Redistributions in binary form must reproduce the above copyright notice,
+
− *    this list of conditions and the following disclaimer in the documentation
+
− *    and/or other materials provided with the distribution.
+
− * 3. The name of the author may not be used to endorse or promote products
+
− *    derived from this software without specific prior written permission.
+
− *
+
− * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
+
− * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+
− * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+
− * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+
− * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+
− * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+
− * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+
− * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+
− * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+
− * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
− *)
+
−
+
−unit uAIAmmoTests;
+
−interface
+
−uses SDLh, uGears, uConsts;
+
−
+
−function TestBazooka(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−function TestGrenade(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−function TestShotgun(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−function TestDesertEagle(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−
+
−type TAmmoTestProc = function (Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−const AmmoTests: array[TAmmoType] of TAmmoTestProc =
+
−                 (
+
−{amGrenade}       TestGrenade,
+
−{amClusterBomb}   nil,
+
−{amBazooka}       TestBazooka,
+
−{amUFO}           nil,
+
−{amShotgun}       TestShotgun,
+
−{amPickHammer}    nil,
+
−{amSkip}          nil,
+
−{amRope}          nil,
+
−{amMine}          nil,
+
−{amDEagle}        TestDesertEagle,
+
−{amDynamite}      nil
+
−                  );
+
−
+
−implementation
+
−uses uMisc, uAIMisc, uLand;
+
−const BadTurn = Low(integer);
+
−
+
−function Metric(x1, y1, x2, y2: integer): integer;
+
−begin
+
−Result:= abs(x1 - x2) + abs(y1 - y2)
+
−end;
+
−
+
−function TestBazooka(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−var Vx, Vy, r: real;
+
−    rTime: real;
+
−    Score, EX, EY: integer;
+
−
+
−    function CheckTrace: integer;
+
−    var x, y, dX, dY: real;
+
−        t: integer;
+
−    begin
+
−    x:= Me.X;
+
−    y:= Me.Y;
+
−    dX:= Vx;
+
−    dY:= -Vy;
+
−    t:= trunc(rTime);
+
−    repeat
+
−      x:= x + dX;
+
−      y:= y + dY;
+
−      dX:= dX + cWindSpeed;
+
−      dY:= dY + cGravity;
+
−      dec(t)
+
−    until TestColl(round(x), round(y), 5) or (t <= 0);
+
−    EX:= round(x);
+
−    EY:= round(y);
+
−    Result:= RateExplosion(Me, round(x), round(y), 101);
+
−    if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, round(x), round(y)) div 64
+
−    end;
+
−
+
−begin
+
−Time:= 0;
+
−rTime:= 10;
+
−ExplR:= 0;
+
−Result:= BadTurn;
+
−repeat
+
−  rTime:= rTime + 100 + random*250;
+
−  Vx:= - cWindSpeed * rTime / 2 + (Targ.X - Me.X) / rTime;
+
−  Vy:= cGravity * rTime / 2 - (Targ.Y - Me.Y) / rTime;
+
−  r:= sqr(Vx) + sqr(Vy);
+
−  if r <= 1 then
+
−     begin
+
−     Score:= CheckTrace;
+
−     if Result <= Score then
+
−        begin
+
−        r:= sqrt(r);
+
−        Angle:= DxDy2AttackAngle(Vx, Vy);
+
−        Power:= round(r * cMaxPower);
+
−        ExplR:= 100;
+
−        ExplX:= EX;
+
−        ExplY:= EY;
+
−        Result:= Score
+
−        end;
+
−     end
+
−until (rTime >= 5000)
+
−end;
+
−
+
−function TestGrenade(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−const tDelta = 24;
+
−var Vx, Vy, r: real;
+
−    Score, EX, EY: integer;
+
−    TestTime: Longword;
+
−
+
−    function CheckTrace: integer;
+
−    var x, y, dY: real;
+
−        t: integer;
+
−    begin
+
−    x:= Me.X;
+
−    y:= Me.Y;
+
−    dY:= -Vy;
+
−    t:= TestTime;
+
−    repeat
+
−      x:= x + Vx;
+
−      y:= y + dY;
+
−      dY:= dY + cGravity;
+
−      dec(t)
+
−    until TestColl(round(x), round(y), 5) or (t = 0);
+
−    EX:= round(x);
+
−    EY:= round(y);
+
−    if t < 50 then Result:= RateExplosion(Me, round(x), round(y), 101)
+
−              else Result:= Low(integer)
+
−    end;
+
−
+
−begin
+
−Result:= BadTurn;
+
−TestTime:= 0;
+
−ExplR:= 0;
+
−repeat
+
−  inc(TestTime, 1000);
+
−  Vx:= (Targ.X - Me.X) / (TestTime + tDelta);
+
−  Vy:= cGravity*((TestTime + tDelta) div 2) - (Targ.Y - Me.Y) / (TestTime + tDelta);
+
−  r:= sqr(Vx) + sqr(Vy);
+
−  if r <= 1 then
+
−     begin
+
−     Score:= CheckTrace;
+
−     if Result < Score then
+
−        begin
+
−        r:= sqrt(r);
+
−        Angle:= DxDy2AttackAngle(Vx, Vy);
+
−        Power:= round(r * cMaxPower);
+
−        Time:= TestTime;
+
−        ExplR:= 100;
+
−        ExplX:= EX;
+
−        ExplY:= EY;
+
−        Result:= Score
+
−        end;
+
−     end
+
−until (TestTime = 5000)
+
−end;
+
−
+
−function TestShotgun(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−var Vx, Vy, x, y: real;
+
−begin
+
−if Metric(round(Me.X), round(Me.Y), Targ.X, Targ.Y) < 80 then
+
−   begin
+
−   Result:= BadTurn;
+
−   exit
+
−   end;
+
−Time:= 0;
+
−Power:= 1;
+
−ExplR:= 0;
+
−Vx:= (Targ.X - Me.X)/1024;
+
−Vy:= (Targ.Y - Me.Y)/1024;
+
−x:= Me.X;
+
−y:= Me.Y;
+
−Angle:= DxDy2AttackAngle(Vx, -Vy);
+
−repeat
+
−  x:= x + vX;
+
−  y:= y + vY;
+
−  if TestColl(round(x), round(y), 2) then
+
−     begin
+
−     Result:= RateExplosion(Me, round(x), round(y), 25) * 2;
+
−     if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, round(x), round(y)) div 64;
+
−     exit
+
−     end
+
−until (abs(Targ.X - x) + abs(Targ.Y - y) < 4) or (x < 0) or (y < 0) or (x > 2048) or (y > 1024);
+
−Result:= BadTurn
+
−end;
+
−
+
−function TestDesertEagle(Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;
+
−var Vx, Vy, x, y, t: real;
+
−    d: Longword;
+
−begin
+
−if abs(Me.X - Targ.X) + abs(Me.Y - Targ.Y) < 80 then
+
−   begin
+
−   Result:= BadTurn;
+
−   exit
+
−   end;
+
−Time:= 0;
+
−Power:= 1;
+
−ExplR:= 0;
+
−t:= sqrt(sqr(Targ.X - Me.X) + sqr(Targ.Y - Me.Y)) * 2;
+
−Vx:= (Targ.X - Me.X) / t;
+
−Vy:= (Targ.Y - Me.Y) / t;
+
−x:= Me.X;
+
−y:= Me.Y;
+
−Angle:= DxDy2AttackAngle(Vx, -Vy);
+
−d:= 0;
+
−repeat
+
−  x:= x + vX;
+
−  y:= y + vY;
+
−  if ((round(x) and $FFFFF800) = 0)and((round(y) and $FFFFFC00) = 0)
+
−     and (Land[round(y), round(x)] <> 0) then inc(d);
+
−until (abs(Targ.X - x) + abs(Targ.Y - y) < 2) or (x < 0) or (y < 0) or (x > 2048) or (y > 1024) or (d > 200);
+
−if abs(Targ.X - x) + abs(Targ.Y - y) < 2 then Result:= max(0, (4 - d div 50) * 7 * 1024)
+
−                                         else Result:= Low(integer)
+
−end;
+
−
+
−end.