Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix rope test
authornemo
Sun, 21 Nov 2010 10:53:50 -0500
changeset 4400 b190572290a0
parent 4399 87bc4a9e6ef0
child 4401 9cb6990af584
fix rope test
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions 
--- 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;
hedgewars