hedgewars/uGears.pas
changeset 5493 49769489af37
parent 5490 18c6049b5ae3
child 5501 0ba2dca673e6
--- a/hedgewars/uGears.pas	Tue Aug 02 00:28:49 2011 +0200
+++ b/hedgewars/uGears.pas	Fri Aug 05 12:19:01 2011 +0100
@@ -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,7 +330,9 @@
                 RopePoints.Count:= 0;
                 end;
         gtMine: begin
-                gear^.Health:= 10;
+                gear^.ImpactSound:= sndMineImpact;
+                gear^.nImpactSounds:= 1;
+		        gear^.Health:= 10;
                 gear^.State:= gear^.State or gstMoving;
                 gear^.Radius:= 2;
                 gear^.Elasticity:= _0_55;