--- a/hedgewars/uGearsHandlersMess.pas	Thu Feb 27 12:48:27 2014 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Feb 28 13:55:16 2014 +0400
@@ -1740,11 +1740,13 @@
             PlaySound(sndRopeAttach);
             Gear^.dX:= _0;
             Gear^.dY:= _0;
+            Gear^.State:= Gear^.State and (not gstMoving);
             AddCI(Gear);
             end;
         end
     else
         begin
+        Gear^.State:= Gear^.State or gstMoving;
         DeleteCI(Gear);
         doStepFallingGear(Gear);
         AllInactive := false;