hedgewars/uAmmos.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4368 b89235e401e5
equal deleted inserted replaced
4357:a1fcfc341a52 4359:83ef50815535
    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 uMisc, uGears, uWorld, uLocale, uConsole, uMobile;
    50 uses uMisc, uGears, uWorld, uLocale, uConsole, uMobile, uVariables;
    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;