hedgewars/uAmmos.pas
changeset 4403 0dfe26f48ec1
parent 4401 9cb6990af584
child 4807 180dbfb13903
equal deleted inserted replaced
4402:54a78ec6aac4 4403:0dfe26f48ec1
    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 uLocale, uMobile, uVariables, uCommands, uUtils, uIO, uCaptions;
    50 uses uLocale, uMobile, uVariables, uCommands, uUtils, uCaptions, uDebug;
    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;