hedgewars/uLandGraphics.pas
changeset 10490 b30b8d39d662
parent 10378 c2b976d6c4f1
child 10510 9329dab04490
--- a/hedgewars/uLandGraphics.pas	Tue Nov 11 21:55:38 2014 +0100
+++ b/hedgewars/uLandGraphics.pas	Tue Nov 11 23:57:46 2014 +0300
@@ -907,7 +907,7 @@
         else Land[y,x]:= lfBasic
         end
     end
-else if ((cReducedQuality and rqBlurryLand) = 0) and (LandPixels[Y, X] and AMask = 255)
+else if ((cReducedQuality and rqBlurryLand) = 0) and ((LandPixels[Y, X] and AMask) = AMask)
 and (Land[Y, X] and (lfDamaged or lfBasic) = lfBasic)
 and (Y > LongInt(topY) + 1) and (Y < LAND_HEIGHT-2) and (X > LongInt(leftX) + 1) and (X < LongInt(rightX) - 1) then
     begin