27 implementation

    27 implementation

    28 uses uConsts, uFloat, uCollisions, uVariables, uGearsList, uSound, uGearsUtils,

    28 uses uConsts, uFloat, uCollisions, uVariables, uGearsList, uSound, uGearsUtils,

    29     uAmmos, uDebug, uUtils, uGearsHedgehog, uGearsRender;

    29     uAmmos, uDebug, uUtils, uGearsHedgehog, uGearsRender;

    30 

    30 

    31 const

    31 const

    33 

    33 

    34 procedure doStepRopeAfterAttack(Gear: PGear);

    34 procedure doStepRopeAfterAttack(Gear: PGear);

    35 var

    35 var

    36     HHGear: PGear;

    36     HHGear: PGear;

    37     tX:     hwFloat;

    37     tX:     hwFloat;