hedgewars/uLandGraphics.pas
changeset 10878 963bc20f511c
parent 10877 baad1cc9b749
child 10897 8ea636ce120a
--- a/hedgewars/uLandGraphics.pas	Tue Mar 31 02:30:29 2015 +0200
+++ b/hedgewars/uLandGraphics.pas	Tue Mar 31 03:41:36 2015 +0200
@@ -82,7 +82,7 @@
             inc(drawPixelBG);
         end
         else if ((Land[landY, landX] and lfObject) <> 0) or (((LandPixels[pixelY, pixelX] and AMask) shr AShift) < 255) then
-            LandPixels[pixelY, pixelX]:= LandPixels[pixelY, pixelX] and (not AMASK)
+            LandPixels[pixelY, pixelX]:= ExplosionBorderColorNoA
     end;
 end;
 
@@ -199,7 +199,7 @@
             begin
             calculatePixelsCoordinates(i, y, px, py);
             if ((Land[y, i] and lfIndestructible) = 0) and (not disableLandBack or (Land[y, i] > 255))  then
-                LandPixels[py, px]:= LandPixels[py, px] and (not AMASK);
+                LandPixels[py, px]:= ExplosionBorderColorNoA;
             end;
     icePixel:
         for i:= fromPix to toPix do