hedgewars/uGears.pas
changeset 5501 0ba2dca673e6
parent 5498 fac3c15707d2
parent 5493 49769489af37
child 5507 1040c0946ef8
--- a/hedgewars/uGears.pas	Fri Aug 05 14:13:06 2011 -0400
+++ b/hedgewars/uGears.pas	Fri Aug 05 14:15:19 2011 -0400
@@ -275,6 +275,8 @@
                 gear^.Density:= _1;
                 end;
        gtSnowball: begin
+                gear^.ImpactSound:= sndMudballImpact;
+                gear^.nImpactSounds:= 1;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _1;
                 gear^.Friction:= _1;
@@ -328,6 +330,8 @@
                 RopePoints.Count:= 0;
                 end;
         gtMine: begin
+                gear^.ImpactSound:= sndMineImpact;
+                gear^.nImpactSounds:= 1;
                 gear^.Health:= 10;
                 gear^.State:= gear^.State or gstMoving;
                 gear^.Radius:= 2;