# HG changeset patch
# User nemo
# Date 1382240680 14400
# Node ID aab34634a17ba7b72ee93579d7aec602f8961a87
# Parent  b03ade7ed721b8ab7bf678fc4d4c5200a5c7e065
call bounce sound less often

diff -r b03ade7ed721 -r aab34634a17b hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Sat Oct 19 16:10:57 2013 -0400
+++ b/hedgewars/uGearsUtils.pas	Sat Oct 19 23:44:40 2013 -0400
@@ -1246,7 +1246,8 @@
             Gear^.dX.isNegative:= true;
             Gear^.X:= int2hwfloat(rightX-Gear^.Radius)
             end;
-        PlaySound(sndMelonImpact);
+        if (Gear^.Radius > 2) and (Gear^.dX.QWordValue > _0_001.QWordValue) then
+            PlaySound(sndMelonImpact)
         end
     else if WorldEdge = weSea then
         begin