3297         begin

  3297         begin

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

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

  3299         Gear^.Karma := 0;

  3299         Gear^.Karma := 0;

  3300         end;

  3300         end;

  3301 

  3301 

  3302 end;

  3305 end;

  3303 

  3306 

  3304 ////////////////////////////////////////////////////////////////////////////////

  3307 ////////////////////////////////////////////////////////////////////////////////

  3305 

  3308 

  3306 procedure doStepAirBomb(Gear: PGear);

  3309 procedure doStepAirBomb(Gear: PGear);