# HG changeset patch
# User nemo
# Date 1315889462 14400
# Node ID 7d69b76ce923711f588c35e726197bc0c064e9f2
# Parent  a4a620f68b2217f75dd20e67ac7cd4d67aa46bb4
Don't set lfDamaged for small tunnels

diff -r a4a620f68b22 -r 7d69b76ce923 hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Tue Sep 13 00:32:41 2011 -0400
+++ b/hedgewars/uLandGraphics.pas	Tue Sep 13 00:51:02 2011 -0400
@@ -528,8 +528,11 @@
        (((Land[ty, tx] and lfBasic) <> 0) or
        ((Land[ty, tx] and lfObject) <> 0)) then
         begin
-        Land[ty, tx]:= Land[ty, tx] or lfDamaged;
-        if despeckle then LandDirty[ty div 32, tx div 32]:= 1;
+        if despeckle then 
+            begin
+            Land[ty, tx]:= Land[ty, tx] or lfDamaged;
+            LandDirty[ty div 32, tx div 32]:= 1
+            end;
         if (cReducedQuality and rqBlurryLand) = 0 then
             LandPixels[ty, tx]:= cExplosionBorderColor
         else LandPixels[ty div 2, tx div 2]:= cExplosionBorderColor