hedgewars/uGearsHandlersRope.pas
changeset 7674 aead327f1e1a
parent 7662 35d895dcd6f7
child 8397 5b273af3ac95
--- a/hedgewars/uGearsHandlersRope.pas	Wed Sep 05 12:36:47 2012 +0200
+++ b/hedgewars/uGearsHandlersRope.pas	Thu Sep 06 15:47:52 2012 +0200
@@ -323,9 +323,8 @@
 
     HHGear^.dX.QWordValue:= HHGear^.dX.QWordValue shr 2;
     HHGear^.dY.QWordValue:= HHGear^.dY.QWordValue shr 2;
-    if not haveCollision then
+    if (not haveCollision) and ((Gear^.State and gsttmpFlag) <> 0) then
         begin
-        if (Gear^.State and gsttmpFlag) <> 0 then
             begin
             PlaySound(sndRopeRelease);
             if Gear^.Hedgehog^.CurAmmoType <> amParachute then