Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLand.pas
changeset 10717 0810826cdf80
parent 10661 0da243c01bde
child 11006 cb06b7985261 
--- a/hedgewars/uLand.pas	Wed Dec 24 13:24:38 2014 -0500
+++ b/hedgewars/uLand.pas	Wed Dec 24 14:42:05 2014 -0500
@@ -56,18 +56,18 @@
     begin
         yd:= LAND_HEIGHT - 1;
         repeat
-            while (yd > 0) and (Land[yd, x] =  0) do dec(yd);
+            while (yd > 0) and (Land[yd, x] <> lfBasic) do dec(yd);
 
             if (yd < 0) then
                 yd:= 0;
 
-            while (yd < LAND_HEIGHT) and (Land[yd, x] <> 0) do
+            while (yd < LAND_HEIGHT) and (Land[yd, x] = lfBasic) do
                 inc(yd);
             dec(yd);
             yu:= yd;
 
-            while (yu > 0  ) and (Land[yu, x] <> 0) do dec(yu);
-            while (yu < yd ) and (Land[yu, x] =  0) do inc(yu);
+            while (yu > 0  ) and (Land[yu, x] = lfBasic) do dec(yu);
+            while (yu < yd ) and (Land[yu, x] <>  lfBasic) do inc(yu);
 
             if (yd < LAND_HEIGHT - 1) and ((yd - yu) >= 16) then
                 begin
hedgewars