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 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 

    34 

    34 implementation

    35 implementation

    35 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,

    36 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,

    36     uCommands, uLocale, uUtils, uStats, uIO, uScript,

    37     uCommands, uLocale, uUtils, uStats, uIO, uScript,

    37     uGearsList, uCollisions, uRandom, uStore, uTeams,

    38     uGearsList, uCollisions, uRandom, uStore, uTeams,

  1549         else

  1550         else

  1550             doStepHedgehogDriven(Gear)

  1551             doStepHedgehogDriven(Gear)

  1551     end;

  1552     end;

  1552 end;

  1553 end;

  1553 

  1554 

  1554 end.

  1566 end.