hedgewars/uLand.pas
changeset 827 ee4fa9ff2a7b
parent 797 e7fa1a1b9791
child 840 3c0028245ff3
--- a/hedgewars/uLand.pas	Tue Mar 25 22:39:26 2008 +0000
+++ b/hedgewars/uLand.pas	Sat Mar 29 21:13:54 2008 +0000
@@ -586,7 +586,7 @@
      4: for y:= 0 to 1023 do
             begin
             for x:= 0 to 2047 do
-                if PLongword(@(p^[x * 4]))^ <> 0 then Land[y, x]:= COLOR_LAND;
+                if (PLongword(@(p^[x * 4]))^ and $FF000000) <> 0 then Land[y, x]:= COLOR_LAND;
             p:= @(p^[LandSurface^.pitch]);
             end;
      end;