2716     // calcs for regular falling gears

  2716     // calcs for regular falling gears

  2717     else if (int2hwFloat(Gear^.Target.Y) - Gear^.Y > _0) then

  2717     else if (int2hwFloat(Gear^.Target.Y) - Gear^.Y > _0) then

  2718             Gear^.dX := Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(Gear^.Target.Y) - Gear^.Y) * 2 /

  2718             Gear^.dX := Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(Gear^.Target.Y) - Gear^.Y) * 2 /

  2719                 cGravity) * Gear^.Tag;

  2719                 cGravity) * Gear^.Tag;

  2720 

  2720 

  2722     Gear^.doStep := @doStepAirAttackWork;

  2721     Gear^.doStep := @doStepAirAttackWork;

  2723     Gear^.SoundChannel := LoopSound(sndPlane, 4000);

  2722     Gear^.SoundChannel := LoopSound(sndPlane, 4000);

  2724 

  2723 

  2725 end;

  2724 end;

  2726 

  2725