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/uGearsUtils.pas
changeset 9561 aab34634a17b
parent 9557 a5005b7ca305
child 9685 7d925e82e572 
--- 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
hedgewars