25 procedure doStepHedgehog(Gear: PGear); |
25 procedure doStepHedgehog(Gear: PGear); |
26 procedure AfterAttack; |
26 procedure AfterAttack; |
27 procedure HedgehogStep(Gear: PGear); |
27 procedure HedgehogStep(Gear: PGear); |
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 |
31 |
31 implementation |
32 implementation |
32 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, uMisc, |
33 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, uMisc, |
33 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript, |
34 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript, |
34 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, |
35 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, |