prevent damage colouring of indestructible terrain
authornemo
Mon, 25 May 2015 14:31:06 -0400 (2015-05-25)
changeset 10957 f3fcba306da9
parent 10955 a60cad2e0d26
child 10959 1225f42f61e2
prevent damage colouring of indestructible terrain
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Sun May 24 15:44:21 2015 -0400
+++ b/hedgewars/uLandGraphics.pas	Mon May 25 14:31:06 2015 -0400
@@ -89,7 +89,8 @@
 
 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline;
 begin
-if ((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0) then
+if (Land[landY, landX] and lfIndestructible = 0) and 
+    (((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0)) then
     begin
     LandPixels[pixelY, pixelX]:= ExplosionBorderColor;
     Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and (not lfIce);