hedgewars/uGearsHandlersRope.pas
changeset 7608 94d071054a23
parent 7607 0cae2a3e562c
child 7609 7663a5c614cb
--- a/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 21:14:07 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 21:35:25 2012 -0400
@@ -89,7 +89,7 @@
         HHGear^.Y:= HHGear^.Y-int2hwFloat(pred(i));
         // experiment in simulating something the shoppa players apparently expect
         if Gear^.Message and gmDown <> 0 then
-            HHGear^.dY.QWordValue:= _0_0002.QWordValue;
+            HHGear^.dY:= HHGear^.dY / 8;
         if Gear^.Message and gmRight <> 0 then
             HHGear^.dX.isNegative:= false
         else if Gear^.Message and gmLeft <> 0 then
@@ -106,7 +106,7 @@
         until (i = -8) or not stuck;
         HHGear^.Y:= HHGear^.Y-int2hwFloat(succ(i));
         if Gear^.Message and gmDown <> 0 then
-            HHGear^.dY.QWordValue:= _0_0002.QWordValue;
+            HHGear^.dY:= HHGear^.dY / 8;
         if Gear^.Message and gmRight <> 0 then
             HHGear^.dX.isNegative:= false
         else if Gear^.Message and gmLeft <> 0 then