diff -r 8d4bb51bf5cb -r 4708343d5963 hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Thu Mar 06 14:17:44 2014 +0400
+++ b/hedgewars/uLand.pas	Fri Mar 07 23:36:56 2014 +0400
@@ -32,7 +32,7 @@
 implementation
 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils,
      uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,
-     uLandGenMaze, uLandOutline, uPhysFSLayer, uScript;
+     uLandGenMaze, uLandOutline, uPhysFSLayer, uScript, uLandGenPerlin;
 
 var digest: shortstring;
 
@@ -701,7 +701,8 @@
             WriteLnToConsole('Generating land...');
             case cMapGen of
                 0: GenBlank(EdgeTemplates[SelectTemplate]);
-                1: begin ResizeLand(4096,2048); GenMaze; end;
+                //1: begin ResizeLand(4096,2048); GenMaze; end;
+                1: begin ResizeLand(4096,2048); GenPerlin; end;
                 2: GenDrawnMap;
             else
                 OutError('Unknown mapgen', true);
@@ -829,7 +830,8 @@
     WriteLnToConsole('Generating preview...');
     case cMapGen of
         0: GenBlank(EdgeTemplates[SelectTemplate]);
-        1: begin ResizeLand(4096,2048); GenMaze; end;
+        //1: begin ResizeLand(4096,2048); GenMaze; end;
+        1: begin ResizeLand(4096,2048); GenPerlin; end;
         2: GenDrawnMap;
     else
         OutError('Unknown mapgen', true);
@@ -876,7 +878,8 @@
     WriteLnToConsole('Generating preview...');
     case cMapGen of
         0: GenBlank(EdgeTemplates[SelectTemplate]);
-        1: begin ResizeLand(4096,2048); GenMaze; end;
+        //1: begin ResizeLand(4096,2048); GenMaze; end;
+        1: begin ResizeLand(4096,2048); GenPerlin; end;
         2: GenDrawnMap;
     else
         OutError('Unknown mapgen', true);