tweak. constrain to full opacity
authornemo
Sun, 16 Oct 2011 15:09:26 -0400
changeset 6132 6384c502795f
parent 6131 4e8816cf9459
child 6133 5a11b54a1a29
tweak. constrain to full opacity
hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Sun Oct 16 21:03:30 2011 +0200
+++ b/hedgewars/uLandGraphics.pas	Sun Oct 16 15:09:26 2011 -0400
@@ -840,7 +840,7 @@
         else Land[y,x]:= lfBasic
         end
     end
-else if ((cReducedQuality and rqBlurryLand) = 0) and 
+else if ((cReducedQuality and rqBlurryLand) = 0) and (LandPixels[Y, X] and AMask = 255) and
     ((Land[Y, X] and (lfDamaged or lfBasic) = lfBasic) or (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