hedgewars/uGearsList.pas
changeset 14753 168be33c099a
parent 14752 56098968df90
child 14765 ba8dd081359d
equal deleted inserted replaced
14752:56098968df90 14753:168be33c099a
   494                 gear^.Elasticity:= _0_3;
   494                 gear^.Elasticity:= _0_3;
   495                 if gear^.Timer = 0 then gear^.Timer:= 500
   495                 if gear^.Timer = 0 then gear^.Timer:= 500
   496                 end;
   496                 end;
   497   gtExplosives: begin
   497   gtExplosives: begin
   498                 gear^.AdvBounce:= 1;
   498                 gear^.AdvBounce:= 1;
   499                 if GameType in [gmtDemo, gmtSave, gmtRecord] then
   499                 if GameType in [gmtDemo, gmtRecord] then
   500                     gear^.RenderHealth:= true;
   500                     gear^.RenderHealth:= true;
   501                 gear^.ImpactSound:= sndGrenadeImpact;
   501                 gear^.ImpactSound:= sndGrenadeImpact;
   502                 gear^.nImpactSounds:= 1;
   502                 gear^.nImpactSounds:= 1;
   503                 gear^.Radius:= 16;
   503                 gear^.Radius:= 16;
   504                 gear^.Elasticity:= _0_4;
   504                 gear^.Elasticity:= _0_4;