Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 15587 61f2ffcd5652
parent 15509 6ddfde71ba6a
child 15595 b988d3be7100
child 15596 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;
 
 ////////////////////////////////////////////////////////////////////////////////
hedgewars