hedgewars/uGearsList.pas
changeset 14750 ab7bf5036314
parent 14749 533ac9774279
child 14752 56098968df90
equal deleted inserted replaced
14749:533ac9774279 14750:ab7bf5036314
   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
   436                     end
   436                     end;
       
   437                 gear^.RenderTimer:= true;
   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;
       
   453                 gear^.RenderTimer:= true;
   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;
       
   473                 gear^.RenderTimer:= true;
   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;