hedgewars/uLandObjects.pas
changeset 8751 4609823efc94
parent 8145 6408c0ba4ba1
child 8833 c13ebed437cb
child 8848 e9ebd63f8a03
--- a/hedgewars/uLandObjects.pas	Sun Mar 17 22:02:57 2013 +0100
+++ b/hedgewars/uLandObjects.pas	Mon Mar 18 12:13:46 2013 -0400
@@ -105,7 +105,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