equal
deleted
inserted
replaced
47 function GetAmmoEntry(var Hedgehog: THedgehog; am: TAmmoType): PAmmo; |
47 function GetAmmoEntry(var Hedgehog: THedgehog; am: TAmmoType): PAmmo; |
48 |
48 |
49 var StoreCnt: Longword; |
49 var StoreCnt: Longword; |
50 |
50 |
51 implementation |
51 implementation |
52 uses uLocale, uMobile, uVariables, uCommands, uUtils, uCaptions, uDebug; |
52 uses uLocale, uVariables, uCommands, uUtils, uCaptions, uDebug; |
53 |
53 |
54 type TAmmoCounts = array[TAmmoType] of Longword; |
54 type TAmmoCounts = array[TAmmoType] of Longword; |
55 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo; |
55 var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo; |
56 ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring; |
56 ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring; |
57 InitialCounts: array[0..Pred(cMaxHHs)] of TAmmoCounts; |
57 InitialCounts: array[0..Pred(cMaxHHs)] of TAmmoCounts; |
271 //SwitchNotHeldAmmo(Hedgehog); |
271 //SwitchNotHeldAmmo(Hedgehog); |
272 CurAmmoType:= amNothing |
272 CurAmmoType:= amNothing |
273 end |
273 end |
274 end |
274 end |
275 end; |
275 end; |
276 uMobile.AmmoUpdate; |
|
277 end; |
276 end; |
278 |
277 |
279 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
278 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
280 var slot, ami: LongInt; |
279 var slot, ami: LongInt; |
281 begin |
280 begin |