--- a/hedgewars/uLandGraphics.pas	Mon Feb 03 13:52:47 2014 +0400
+++ b/hedgewars/uLandGraphics.pas	Mon Feb 03 14:06:11 2014 +0100
@@ -364,7 +364,10 @@
         if Land[j, i] = 0 then
             begin
             Land[j, i] := lfIce;
-            fillPixelFromIceSprite(i, j);
+            if (cReducedQuality and rqBlurryLand) = 0 then
+                fillPixelFromIceSprite(i, j)
+            else
+                fillPixelFromIceSprite(i div 2, j div 2);
             end;
         end;
     end;