28 procedure doStepHedgehogMoving(Gear: PGear); |
28 procedure doStepHedgehogMoving(Gear: PGear); |
29 procedure HedgehogChAngle(HHGear: PGear); |
29 procedure HedgehogChAngle(HHGear: PGear); |
30 procedure PickUp(HH, Gear: PGear); |
30 procedure PickUp(HH, Gear: PGear); |
31 |
31 |
32 implementation |
32 implementation |
33 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, uMisc, |
33 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, |
34 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript, |
34 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript, |
35 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, |
35 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, |
36 uGearsUtils; |
36 uGearsUtils; |
37 |
37 |
38 // Shouldn't more of this ammo switching stuff be moved to uAmmos ? |
38 // Shouldn't more of this ammo switching stuff be moved to uAmmos ? |