31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord); |
31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord); |
32 procedure CheckIce(Gear: PGear); inline; |
32 procedure CheckIce(Gear: PGear); inline; |
33 |
33 |
34 implementation |
34 implementation |
35 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, |
35 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, |
36 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript, |
36 uCommands, uLocale, uUtils, uStats, uIO, uScript, |
37 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, |
37 uGearsList, uCollisions, uRandom, uStore, uTeams, |
38 uGearsUtils, uVisualGearsList; |
38 uGearsUtils, uVisualGearsList; |
39 |
39 |
40 var GHStepTicks: LongWord = 0; |
40 var GHStepTicks: LongWord = 0; |
41 |
41 |
42 // Shouldn't more of this ammo switching stuff be moved to uAmmos ? |
42 // Shouldn't more of this ammo switching stuff be moved to uAmmos ? |