Oops
authorunc0rr
Sun, 02 Sep 2012 09:36:06 +0400
changeset 7648 796ff8debbbc
parent 7647 e496587db93e
child 7649 df90970ae81a
Oops
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;