hedgewars/uGearsHandlersMess.pas
changeset 15609 61f2ffcd5652
parent 15531 6ddfde71ba6a
child 15617 b988d3be7100
child 15619 3409433a236a
--- a/hedgewars/uGearsHandlersMess.pas	Wed May 27 01:58:27 2020 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed May 27 06:52:13 2020 +0200
@@ -564,7 +564,7 @@
         (((Gear^.Radius < 3) and (Gear^.dY < -_0_1)) or
             ((Gear^.Radius >= 3) and
                 ((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)))) then
-        PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true);
+        PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), Gear^.Kind <> gtDynamite);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////