# HG changeset patch
# User unC0Rr
# Date 1432630786 -10800
# Node ID 493bd837dc2e869926b8b6f354e4dd978ae4cabf
# Parent  e061da85f32d7d864da1129693e0fc245ad7b084
Make sure to have gstMoving flag cleared

diff -r e061da85f32d -r 493bd837dc2e hedgewars/uGearsHandlersMess.pas
--- 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;