diff -r aeca3d8f1b29 -r 341e407e3754 hedgewars/uLandObjects.pas --- a/hedgewars/uLandObjects.pas Wed Jun 30 12:55:33 2010 +0200 +++ b/hedgewars/uLandObjects.pas Wed Jun 30 14:52:48 2010 +0200 @@ -85,13 +85,15 @@ begin for x:= 0 to Pred(Width) do begin -{$IFDEF DOWNSCALE} - if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then - LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; -{$ELSE} - if LandPixels[cpY + y, cpX + x] = 0 then - LandPixels[cpY + y, cpX + x]:= p^[x]; -{$ENDIF} + if (cReducedQuality and rqBlurryLand) = 0 then + begin + if LandPixels[cpY + y, cpX + x] = 0 then + LandPixels[cpY + y, cpX + x]:= p^[x]; + end + else + if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then + LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; + if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then Land[cpY + y, cpX + x]:= lfObject end;