hedgewars/uLandGraphics.pas
changeset 5349 ce527b35d063
parent 5332 b29d60c7cac7
child 5364 30752b2e99b3
--- a/hedgewars/uLandGraphics.pas	Tue Jun 28 21:31:02 2011 +0200
+++ b/hedgewars/uLandGraphics.pas	Tue Jun 28 19:16:42 2011 -0400
@@ -715,7 +715,9 @@
    yy:= Y div 2;
    end;
 pixelsweep:= ((Land[Y, X] and $FF00) = 0) and (LandPixels[yy, xx] <> 0);
-if (((Land[Y, X] and lfDamaged) <> 0) and ((Land[Y, X] and lfIndestructible) = 0)) or pixelsweep then
+if ((((Land[Y, X] and lfDamaged) <> 0) or 
+    (((Land[Y, X] and lfBasic) <> 0) and (LandPixels[yy,xx] <> 0) and ((LandPixels[yy,xx] and AMask) shl AShift < 255)))
+    and ((Land[Y, X] and lfIndestructible) = 0)) or pixelsweep then
     begin
     c:= 0;
     for i:= -1 to 1 do