# HG changeset patch
# User nemo
# Date 1345943647 14400
# Node ID 0cae2a3e562c8540132bd4625314ed5a2de5746f
# Parent  adb1198ade36e4ea4e1aabd855b6eaf6593b5749
shoppa hack guesses. continued. let's assume there's a small Y component.

diff -r adb1198ade36 -r 0cae2a3e562c hedgewars/uGearsHandlersRope.pas
--- 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