93 function  CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear; forward;

    93 function  CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: LongInt): PGear; forward;

    94 procedure SpawnBoxOfSmth; forward;

    94 procedure SpawnBoxOfSmth; forward;

    95 procedure AfterAttack; forward;

    95 procedure AfterAttack; forward;

    96 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); forward;

    96 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); forward;

    97 procedure HedgehogStep(Gear: PGear); forward;

    97 procedure HedgehogStep(Gear: PGear); forward;

    98 procedure HedgehogChAngle(Gear: PGear); forward;

    99 procedure HedgehogChAngle(Gear: PGear); forward;

    99 procedure ShotgunShot(Gear: PGear); forward;

   100 procedure ShotgunShot(Gear: PGear); forward;

   100 

   101 

   101 {$INCLUDE GSHandlers.inc}

   102 {$INCLUDE GSHandlers.inc}

   102 {$INCLUDE HHHandlers.inc}

   103 {$INCLUDE HHHandlers.inc}