call bounce sound less often
authornemo
Sat, 19 Oct 2013 23:44:40 -0400
changeset 9561 aab34634a17b
parent 9559 b03ade7ed721
child 9563 225dfd449480
call bounce sound less often
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