equal
deleted
inserted
replaced
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 StoreCnt: Longword; |
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; |
54 StoreCnt: Longword; |
|
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; |