hedgewars/uGearsHandlersMess.pas
changeset 10964 493bd837dc2e
parent 10952 8ad21fe5d062
child 10993 fd172f166de4
--- a/hedgewars/uGearsHandlersMess.pas	Mon May 25 16:53:52 2015 -0400
+++ b/hedgewars/uGearsHandlersMess.pas	Tue May 26 11:59:46 2015 +0300
@@ -1954,7 +1954,7 @@
     if land = 0 then land:= TestCollisionYwithGear(Gear, 2);
     if (land <> 0) and (land and lfBouncy = 0) then
         begin
-        if (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
+        if ((Gear^.State and gstMoving) <> 0) or (not isZero(Gear^.dX)) or (not isZero(Gear^.dY)) then
             begin
             PlaySound(sndRopeAttach);
             Gear^.dX:= _0;