432                     else

   432                     else

   433                         gear^.Timer:= cMinesTime

   433                         gear^.Timer:= cMinesTime

   434                     end

   434                     end

   435                 end;

   435                 end;

   436      gtAirMine: begin

   436      gtAirMine: begin

   437                 gear^.ImpactSound:= sndAirMineImpact;

   438                 gear^.ImpactSound:= sndAirMineImpact;

   438                 gear^.nImpactSounds:= 1;

   439                 gear^.nImpactSounds:= 1;

   439                 gear^.Health:= 30;

   440                 gear^.Health:= 30;

   440                 gear^.State:= gear^.State or gstMoving or gstNoGravity or gstSubmersible;

   441                 gear^.State:= gear^.State or gstMoving or gstNoGravity or gstSubmersible;

   441                 gear^.Radius:= 8;

   442                 gear^.Radius:= 8;