42 

    42 

    43 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;

    43 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; out Time: Longword; out Angle, Power: integer; out ExplX, ExplY, ExplR: integer): integer;

    44 const AmmoTests: array[TAmmoType] of TAmmoTestProc =

    44 const AmmoTests: array[TAmmoType] of TAmmoTestProc =

    45                  (

    45                  (

    46 {amGrenade}       TestGrenade,

    46 {amGrenade}       TestGrenade,

    47 {amBazooka}       TestBazooka,

    48 {amBazooka}       TestBazooka,

    48 {amUFO}           nil,

    49 {amUFO}           nil,

    49 {amShotgun}       TestShotgun,

    50 {amShotgun}       TestShotgun,

    50 {amPickHammer}    nil,

    51 {amPickHammer}    nil,

    51 {amSkip}          nil,

    52 {amSkip}          nil,