hedgewars/uGearsHandlersRope.pas
changeset 7610 682e21112867
parent 7609 7663a5c614cb
child 7611 5013e11e13e5
--- a/hedgewars/uGearsHandlersRope.pas	Sun Aug 26 10:15:28 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Sun Aug 26 20:20:16 2012 -0400
@@ -137,9 +137,9 @@
             HHGear^.dY:= HHGear^.dY * 2
             end;
         if Gear^.Message and gmRight <> 0 then
-            HHGear^.dX.isNegative:= true
+            HHGear^.dY.isNegative:= true
         else if Gear^.Message and gmLeft <> 0 then
-            HHGear^.dX.isNegative:= false
+            HHGear^.dY.isNegative:= false
         end
     else if TestCollisionXwithGear(HHGear, -1) and not TestCollisionXwithGear(HHGear, 1) then
         begin
@@ -158,9 +158,9 @@
             HHGear^.dY:= HHGear^.dY * 2
             end;
         if Gear^.Message and gmRight <> 0 then
-            HHGear^.dX.isNegative:= false
+            HHGear^.dY.isNegative:= false
         else if Gear^.Message and gmLeft <> 0 then
-            HHGear^.dX.isNegative:= true
+            HHGear^.dY.isNegative:= true
         end
 end;