hedgewars/uGearsList.pas
changeset 15609 61f2ffcd5652
parent 15508 d668fcb9307e
child 15661 afeffdb4a712
equal deleted inserted replaced
15608:19c85b010144 15609:61f2ffcd5652
   565   gtSniperRifleShot: begin
   565   gtSniperRifleShot: begin
   566                 gear^.Radius:= 1;
   566                 gear^.Radius:= 1;
   567                 gear^.Health:= 50
   567                 gear^.Health:= 50
   568                 end;
   568                 end;
   569     gtDynamite: begin
   569     gtDynamite: begin
       
   570                 gear^.ImpactSound:= sndDynamiteImpact;
       
   571                 gear^.nImpactSounds:= 1;
   570                 gear^.Radius:= 3;
   572                 gear^.Radius:= 3;
   571                 gear^.Elasticity:= _0_55;
   573                 gear^.Elasticity:= _0_55;
   572                 gear^.Friction:= _0_03;
   574                 gear^.Friction:= _0_03;
   573                 gear^.Density:= _2;
   575                 gear^.Density:= _2;
   574                 if gear^.Timer = 0 then gear^.Timer:= 5000;
   576                 if gear^.Timer = 0 then gear^.Timer:= 5000;