hedgewars/uGears.pas
changeset 3118 1320933fd651
parent 3115 831bd0f7050d
child 3121 77cfee30b952
--- a/hedgewars/uGears.pas	Sat Mar 27 17:31:01 2010 +0000
+++ b/hedgewars/uGears.pas	Sat Mar 27 17:32:04 2010 +0000
@@ -411,7 +411,12 @@
                 if not dX.isNegative then gear^.Angle:= 1 else gear^.Angle:= 3
                 end;
  gtHellishBomb: begin
-                gear^.ImpactSound:= sndHellishImpact;
+                case random(4) of
+                    0: gear^.ImpactSound:= sndHellishImpact1;
+                    1: gear^.ImpactSound:= sndHellishImpact2;
+                    2: gear^.ImpactSound:= sndHellishImpact3;
+                    3: gear^.ImpactSound:= sndHellishImpact4
+                end;
                 gear^.AdvBounce:= 1;
                 gear^.Radius:= 4;
                 gear^.Elasticity:= _0_5;