7 

     7 

     8 function ammoByName(s: shortstring): PAmmo;

     8 function ammoByName(s: shortstring): PAmmo;

     9 procedure sendAmmoConfig(var ammo: TAmmo);

     9 procedure sendAmmoConfig(var ammo: TAmmo);

    10 

    10 

    11 implementation

    11 implementation

    13 

    13 

    14 const MAX_AMMO_NAMES = 64;

    14 const MAX_AMMO_NAMES = 64;

    15 type

    15 type

    16     TAmmoArray = array [0..0] of TAmmo;

    16     TAmmoArray = array [0..0] of TAmmo;

    17     PAmmoArray = ^TAmmoArray;

    17     PAmmoArray = ^TAmmoArray;