hedgewars/uLandObjects.pas
changeset 6113 b3dfb796c3a5
parent 6112 7839a2ae90ae
child 6288 fcc50b96d20a
--- a/hedgewars/uLandObjects.pas	Sun Oct 09 19:36:09 2011 -0400
+++ b/hedgewars/uLandObjects.pas	Sun Oct 09 19:48:13 2011 -0400
@@ -96,11 +96,11 @@
                 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then 
                     LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x];
 
-        Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags;
 
         if ((Land[cpY + y, cpX + x] and $FF00) = 0) 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
             end;
         end;
     p:= @(p^[Image^.pitch shr 2])