Make sure to have gstMoving flag cleared
authorunC0Rr
Tue, 26 May 2015 11:59:46 +0300
changeset 10964 493bd837dc2e
parent 10963 e061da85f32d
child 10966 a8749503c130
Make sure to have gstMoving flag cleared
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;