hedgewars/uLandGraphics.pas
changeset 6097 db10abae541f
parent 6096 a00dbbf49d6c
child 6130 026fd01a5e2c
--- a/hedgewars/uLandGraphics.pas	Fri Oct 07 23:57:14 2011 -0400
+++ b/hedgewars/uLandGraphics.pas	Sat Oct 08 00:34:41 2011 -0400
@@ -591,7 +591,8 @@
             if ((Land[ty, tx] and lfBasic) <> 0) and (((LandPixels[by,bx] and AMask) shr AShift) = 255) and not disableLandBack then
                 LandPixels[by, bx]:= LandBackPixel(tx, ty)
             else if ((Land[ty, tx] and lfObject) <> 0) or (((LandPixels[by,bx] and AMask) shr AShift) < 255) then
-                LandPixels[by, bx]:= 0
+                LandPixels[by, bx]:= 0;
+            Land[ty, tx]:= 0;
             end
         end;
     for t:= 0 to 7 do