equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uAmmos; |
21 unit uAmmos; |
22 interface |
22 interface |
23 uses uConsts, uTeams, uTypes; |
23 uses uConsts, uTypes; |
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 procedure AddAmmoStore; |
28 procedure AddAmmoStore; |
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, uVariables; |
50 uses uMisc, 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; |