43 procedure ResetWeapons;

    43 procedure ResetWeapons;

    44 function  GetAmmoByNum(num: Longword): PHHAmmo;

    44 function  GetAmmoByNum(num: Longword): PHHAmmo;

    45 function  GetAmmoEntry(var Hedgehog: THedgehog): PAmmo;

    45 function  GetAmmoEntry(var Hedgehog: THedgehog): PAmmo;

    46 

    46 

    47 var shoppa: boolean;

    47 var shoppa: boolean;

    48 

    49 

    49 implementation

    50 implementation

    50 uses uMisc, uGears, uWorld, uLocale, uConsole, uMobile;

    51 uses uMisc, uGears, uWorld, uLocale, uConsole, uMobile;

    51 

    52 

    52 type TAmmoCounts = array[TAmmoType] of Longword;

    53 type TAmmoCounts = array[TAmmoType] of Longword;

    53 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo;

    54 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo;

    55     ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring;

    55     ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring;

    56 

    56 

    57 procedure FillAmmoStore(Ammo: PHHAmmo; var cnts: TAmmoCounts);

    57 procedure FillAmmoStore(Ammo: PHHAmmo; var cnts: TAmmoCounts);

    58 var mi: array[0..cMaxSlotIndex] of byte;

    58 var mi: array[0..cMaxSlotIndex] of byte;

    59     a: TAmmoType;

    59     a: TAmmoType;