24 function TestGrenade(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
24 function TestGrenade(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
25 function TestShotgun(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
25 function TestShotgun(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
26 function TestDesertEagle(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
26 function TestDesertEagle(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
27 function TestBaseballBat(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
27 function TestBaseballBat(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
28 function TestFirePunch(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
28 function TestFirePunch(Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
29 |
29 *) |
30 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; Level: Integer; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer; |
30 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; Level: Integer; var Time: Longword; var Angle, Power: integer; var ExplX, ExplY, ExplR: integer): integer; |
31 const AmmoTests: array[TAmmoType] of TAmmoTestProc = |
31 const AmmoTests: array[TAmmoType] of TAmmoTestProc = |
32 ( |
32 ( |
33 {amGrenade} TestGrenade, |
33 {amGrenade} nil,//TestGrenade, |
34 {amClusterBomb} nil, |
34 {amClusterBomb} nil, |
35 {amBazooka} TestBazooka, |
35 {amBazooka} nil,//TestBazooka, |
36 {amUFO} nil, |
36 {amUFO} nil, |
37 {amShotgun} TestShotgun, |
37 {amShotgun} nil,//TestShotgun, |
38 {amPickHammer} nil, |
38 {amPickHammer} nil, |
39 {amSkip} nil, |
39 {amSkip} nil, |
40 {amRope} nil, |
40 {amRope} nil, |
41 {amMine} nil, |
41 {amMine} nil, |
42 {amDEagle} TestDesertEagle, |
42 {amDEagle} nil,//TestDesertEagle, |
43 {amDynamite} nil, |
43 {amDynamite} nil, |
44 {amFirePunch} TestFirePunch, |
44 {amFirePunch} nil,//TestFirePunch, |
45 {amBaseballBat} TestBaseballBat, |
45 {amBaseballBat} nil,//TestBaseballBat, |
46 {amParachute} nil, |
46 {amParachute} nil, |
47 {amAirAttack} nil, |
47 {amAirAttack} nil, |
48 {amMineStrike} nil, |
48 {amMineStrike} nil, |
49 {amBlowTorch} nil |
49 {amBlowTorch} nil |
50 ); |
50 ); |
51 |
51 |
52 const BadTurn = Low(integer); |
52 const BadTurn = Low(integer); |
53 *) |
53 |
54 |
54 |
55 implementation |
55 implementation |
56 uses uMisc, uAIMisc, uLand; |
56 uses uMisc, uAIMisc, uLand; |
57 { |
57 { |
58 function Metric(x1, y1, x2, y2: integer): integer; |
58 function Metric(x1, y1, x2, y2: integer): integer; |