# HG changeset patch
# User nemo
# Date 1290354830 18000
# Node ID b190572290a02aa8de9f99e0dc149257b41a401c
# Parent  87bc4a9e6ef0bde0790c7eff5099ee0616421179
fix rope test

diff -r 87bc4a9e6ef0 -r b190572290a0 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Nov 21 16:48:44 2010 +0100
+++ b/hedgewars/GSHandlers.inc	Sun Nov 21 10:53:50 2010 -0500
@@ -1397,7 +1397,7 @@
         ty := _0;
         while tt > _20 do
             begin
-            if ((hwRound(ty) and LAND_HEIGHT_MASK) = 0) and ((hwRound(tx) and LAND_WIDTH_MASK) = 0) and ((Land[hwRound(ty), hwRound(tx)] and $F0) <> 0) then
+            if ((hwRound(Gear^.Y+ty) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X+tx) and LAND_WIDTH_MASK) = 0) and ((Land[hwRound(Gear^.Y+ty), hwRound(Gear^.X+tx)] and $FF00) <> 0) then
                 begin
                 Gear^.X := Gear^.X + tx;
                 Gear^.Y := Gear^.Y + ty;