hedgewars/uGearsList.pas
changeset 14758 168be33c099a
parent 14757 56098968df90
child 14770 ba8dd081359d
equal deleted inserted replaced
14757:56098968df90 14758: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;