431                     begin

   431                     begin

   432                     if cMinesTime < 0 then

   432                     if cMinesTime < 0 then

   433                         gear^.Timer:= getrandom(51)*100

   433                         gear^.Timer:= getrandom(51)*100

   434                     else

   434                     else

   435                         gear^.Timer:= cMinesTime

   435                         gear^.Timer:= cMinesTime

   437                 end;

   438                 end;

   438      gtAirMine: begin

   439      gtAirMine: begin

   439                 gear^.AdvBounce:= 1;

   440                 gear^.AdvBounce:= 1;

   440                 gear^.ImpactSound:= sndAirMineImpact;

   441                 gear^.ImpactSound:= sndAirMineImpact;

   441                 gear^.nImpactSounds:= 1;

   442                 gear^.nImpactSounds:= 1;

   447                 gear^.Density:= _1;

   448                 gear^.Density:= _1;

   448                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.

   449                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.

   449                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.

   450                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.

   450                 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff

   451                 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff

   451                 gear^.Tag:= 0;

   452                 gear^.Tag:= 0;

   452                 if gear^.Timer = 0 then

   454                 if gear^.Timer = 0 then

   453                     begin

   455                     begin

   454                     if cMinesTime < 0 then

   456                     if cMinesTime < 0 then

   455                         gear^.Timer:= getrandom(13)*100

   457                         gear^.Timer:= getrandom(13)*100

   456                     else

   458                     else

   466                 gear^.Friction:= _0_995;

   468                 gear^.Friction:= _0_995;

   467                 gear^.Density:= _1_6;

   469                 gear^.Density:= _1_6;

   468                 gear^.AdvBounce:= 1;

   470                 gear^.AdvBounce:= 1;

   469                 gear^.Sticky:= true;

   471                 gear^.Sticky:= true;

   470                 if gear^.Timer = 0 then gear^.Timer:= 500;

   472                 if gear^.Timer = 0 then gear^.Timer:= 500;

   471                 end;

   474                 end;

   472        gtKnife: begin

   475        gtKnife: begin

   473                 gear^.ImpactSound:= sndKnifeImpact;

   476                 gear^.ImpactSound:= sndKnifeImpact;

   474                 gear^.AdvBounce:= 1;

   477                 gear^.AdvBounce:= 1;

   475                 gear^.Elasticity:= _0_8;

   478                 gear^.Elasticity:= _0_8;