hedgewars/uAmmos.pas
changeset 4393 883b979697e4
parent 4377 43945842da0c
child 4401 9cb6990af584
equal deleted inserted replaced
4392:95e27e12d0e9 4393:883b979697e4
    45 function  GetAmmoEntry(var Hedgehog: THedgehog): PAmmo;
    45 function  GetAmmoEntry(var Hedgehog: THedgehog): PAmmo;
    46 
    46 
    47 var StoreCnt: Longword;
    47 var StoreCnt: Longword;
    48 
    48 
    49 implementation
    49 implementation
    50 uses uWorld, uLocale, uMobile, uVariables, uCommands, uUtils, uIO;
    50 uses uLocale, uMobile, uVariables, uCommands, uUtils, uIO, uCaptions;
    51 
    51 
    52 type TAmmoCounts = array[TAmmoType] of Longword;
    52 type TAmmoCounts = array[TAmmoType] of Longword;
    53 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo;
    53 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo;
    54     ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring;
    54     ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring;
    55     InitialCounts: array[0..Pred(cMaxHHs)] of TAmmoCounts;
    55     InitialCounts: array[0..Pred(cMaxHHs)] of TAmmoCounts;