hedgewars/uLandGraphics.pas
changeset 5887 7d69b76ce923
parent 5885 ae257409bcff
child 5895 212d3b459658
--- 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