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

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

    71 procedure SpawnBoxOfSmth; forward;

    71 procedure SpawnBoxOfSmth; forward;

    72 procedure AfterAttack; forward;

    72 procedure AfterAttack; forward;

    73 procedure HedgehogStep(Gear: PGear); forward;

    73 procedure HedgehogStep(Gear: PGear); forward;

    74 procedure doStepHedgehogMoving(Gear: PGear); forward;

    74 procedure doStepHedgehogMoving(Gear: PGear); forward;

    75 procedure HedgehogChAngle(HHGear: PGear); forward;

    76 procedure HedgehogChAngle(HHGear: PGear); forward;

    76 procedure ShotgunShot(Gear: PGear); forward;

    77 procedure ShotgunShot(Gear: PGear); forward;

    77 procedure PickUp(HH, Gear: PGear); forward;

    78 procedure PickUp(HH, Gear: PGear); forward;

    78 procedure HHSetWeapon(HHGear: PGear); forward;

    79 procedure HHSetWeapon(HHGear: PGear); forward;

    79 procedure doStepCase(Gear: PGear); forward;

    80 procedure doStepCase(Gear: PGear); forward;

   145             @doStepResurrector,

   146             @doStepResurrector,

   146             @doStepNapalmBomb,

   147             @doStepNapalmBomb,

   147             @doStepSnowball,

   148             @doStepSnowball,

   148             @doStepSnowflake,

   149             @doStepSnowflake,

   149             @doStepPlaceStructure,

   150             @doStepPlaceStructure,

   152 

   153 

   153 procedure InsertGearToList(Gear: PGear);

   154 procedure InsertGearToList(Gear: PGear);

   154 var tmp, ptmp: PGear;

   155 var tmp, ptmp: PGear;

   155 begin

   156 begin

   156     tmp:= GearsList;

   157     tmp:= GearsList;