# HG changeset patch
# User unc0rr
# Date 1346564166 -14400
# Node ID 796ff8debbbc882eb9de8ed9ba5e23c3a26acdf3
# Parent  e496587db93e0c61e04749a9cef9d97f633f92ab
Oops

diff -r e496587db93e -r 796ff8debbbc hedgewars/uGearsHandlersRope.pas
--- a/hedgewars/uGearsHandlersRope.pas	Sat Sep 01 17:11:39 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sun Sep 02 09:36:06 2012 +0400
@@ -108,9 +108,6 @@
 
     HHGear := Gear^.Hedgehog^.Gear;
 
-    HHGear^.dX.QWordValue:= HHGear^.dX.QWordValue shl 3;
-    HHGear^.dY.QWordValue:= HHGear^.dY.QWordValue shl 3;
-
     if ((HHGear^.State and gstHHDriven) = 0)
        or (CheckGearDrowning(HHGear)) or (Gear^.PortalCounter <> 0) then
         begin
@@ -119,6 +116,9 @@
         exit
         end;
 
+    HHGear^.dX.QWordValue:= HHGear^.dX.QWordValue shl 3;
+    HHGear^.dY.QWordValue:= HHGear^.dY.QWordValue shl 3;
+
     if (Gear^.Message and gmLeft  <> 0) and (not TestCollisionXwithGear(HHGear, -1)) then
         HHGear^.dX := HHGear^.dX - _0_0128;