hedgewars/uGearsList.pas
changeset 7276 e570bc0df33c
parent 7272 71df899c4163
child 7337 c224cd2d32f3
equal deleted inserted replaced
7274:a07777b818f1 7276:e570bc0df33c
   244         gtCase: begin
   244         gtCase: begin
   245                 gear^.ImpactSound:= sndGraveImpact;
   245                 gear^.ImpactSound:= sndGraveImpact;
   246                 gear^.nImpactSounds:= 1;
   246                 gear^.nImpactSounds:= 1;
   247                 gear^.Radius:= 16;
   247                 gear^.Radius:= 16;
   248                 gear^.Elasticity:= _0_3;
   248                 gear^.Elasticity:= _0_3;
   249                 gear^.Timer:= 0
   249                 gear^.Timer:= 500
   250                 end;
   250                 end;
   251   gtExplosives: begin
   251   gtExplosives: begin
   252                 gear^.ImpactSound:= sndGrenadeImpact;
   252                 gear^.ImpactSound:= sndGrenadeImpact;
   253                 gear^.nImpactSounds:= 1;
   253                 gear^.nImpactSounds:= 1;
   254                 gear^.Radius:= 16;
   254                 gear^.Radius:= 16;