17  *)

    17  *)

    18 

    18 

    19 unit uAmmos;

    19 unit uAmmos;

    20 interface

    20 interface

    21 uses uConsts, uTeams;

    21 uses uConsts, uTeams;

    23 

    23 

    24 procedure AddAmmoStore(s: shortstring);

    24 procedure AddAmmoStore(s: shortstring);

    25 procedure AssignStores;

    25 procedure AssignStores;

    26 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);

    26 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);

    27 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;

    27 function  HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean;