hedgewars/uGearsHandlersRope.pas
changeset 7607 0cae2a3e562c
parent 7606 adb1198ade36
child 7608 94d071054a23
--- a/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 21:05:27 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sat Aug 25 21:14:07 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;
+            HHGear^.dY.QWordValue:= _0_0002.QWordValue;
         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;
+            HHGear^.dY.QWordValue:= _0_0002.QWordValue;
         if Gear^.Message and gmRight <> 0 then
             HHGear^.dX.isNegative:= false
         else if Gear^.Message and gmLeft <> 0 then