hedgewars/uLand.pas
changeset 2619 bc2786a00fb8
parent 2604 ae5b19308e79
child 2647 0e1208e92dfe
--- a/hedgewars/uLand.pas	Fri Nov 13 23:04:23 2009 +0000
+++ b/hedgewars/uLand.pas	Sat Nov 14 02:53:04 2009 +0000
@@ -688,7 +688,7 @@
                 Land[cpY + y, cpX + x]:= 0
             else if p^[x] = (AMask or RMask) then
                 Land[cpY + y, cpX + x]:= COLOR_INDESTRUCTIBLE
-            else if p^[x] = (AMask or RMask or GMask or BMask) then
+            else if p^[x] = cWhiteColor then
                 Land[cpY + y, cpX + x]:= COLOR_LAND;
 
             end;
@@ -788,7 +788,7 @@
 			if (y + w) mod 32 < 16 then
 				c:= AMask
 			else
-				c:= AMask or RMask or GMask;
+				c:= AMask or RMask or GMask; // FF00FFFF
 			LandPixels[y, leftX + w]:= c;
 			LandPixels[y, rightX - w]:= c;
 			end;
@@ -799,7 +799,7 @@
 			if (x + w) mod 32 < 16 then
 				c:= AMask
 			else
-				c:= AMask or RMask or GMask;
+				c:= AMask or RMask or GMask; // FF00FFFF
 			LandPixels[topY + w, x]:= c;
 			end;
 		end;