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^.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;