hedgewars/uLandObjects.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8330 aaefa587e277
parent 8751 4609823efc94
child 9127 e350500c4edb
--- a/hedgewars/uLandObjects.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/uLandObjects.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -107,7 +107,7 @@
                 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then
                     LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x];
 
-            if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then
+            if (Land[cpY + y, cpX + x] <= lfAllObjMask) and ((p^[x] and AMask) <> 0) then
                 begin
                 Land[cpY + y, cpX + x]:= lfObject;
                 Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags