Mercurial Mercurial > hedgewars-draft / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLand.pas
changeset 10391 ce3ccc45d790
parent 10387 cb17b79844b5
child 10421 87e47843018e
equal deleted inserted replaced
10390:13bfbade06a5 10391:ce3ccc45d790 
   545             begin
 
   545             begin
 
   546             WriteLnToConsole('Generating land...');
 
   546             WriteLnToConsole('Generating land...');
 
   547             case cMapGen of
 
   547             case cMapGen of
 
   548                 0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   548                 0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   549                 1: begin ResizeLand(4096,2048); GenMaze; end;
 
   549                 1: begin ResizeLand(4096,2048); GenMaze; end;
 
   550                 //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   550                 2: begin ResizeLand(4096,2048); GenPerlin; end;
 
   551                 2: GenDrawnMap;
 
   551                 3: GenDrawnMap;
 
   552             else
 
   552             else
 
   553                 OutError('Unknown mapgen', true);
 
   553                 OutError('Unknown mapgen', true);
 
   554             end;
 
   554             end;
 
   555             GenLandSurface
 
   555             GenLandSurface
 
   556             end
 
   556             end
 
   674 begin
 
   674 begin
 
   675     WriteLnToConsole('Generating preview...');
 
   675     WriteLnToConsole('Generating preview...');
 
   676     case cMapGen of
 
   676     case cMapGen of
 
   677         0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   677         0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   678         1: begin ResizeLand(4096,2048); GenMaze; end;
 
   678         1: begin ResizeLand(4096,2048); GenMaze; end;
 
   679         //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   679         2: begin ResizeLand(4096,2048); GenPerlin; end;
 
   680         2: GenDrawnMap;
 
   680         3: GenDrawnMap;
 
   681     else
 
   681     else
 
   682         OutError('Unknown mapgen', true);
 
   682         OutError('Unknown mapgen', true);
 
   683     end;
 
   683     end;
 
   684 
   684 
   685     // strict scaling needed here since preview assumes a rectangle
 
   685     // strict scaling needed here since preview assumes a rectangle
 
   722 begin
 
   722 begin
 
   723     WriteLnToConsole('Generating preview...');
 
   723     WriteLnToConsole('Generating preview...');
 
   724     case cMapGen of
 
   724     case cMapGen of
 
   725         0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   725         0: GenTemplated(EdgeTemplates[SelectTemplate]);
 
   726         1: begin ResizeLand(4096,2048); GenMaze; end;
 
   726         1: begin ResizeLand(4096,2048); GenMaze; end;
 
   727         //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   727         2: begin ResizeLand(4096,2048); GenPerlin; end;
 
   728         2: GenDrawnMap;
 
   728         3: GenDrawnMap;
 
   729     else
 
   729     else
 
   730         OutError('Unknown mapgen', true);
 
   730         OutError('Unknown mapgen', true);
 
   731     end;
 
   731     end;
 
   732 
   732 
   733     // strict scaling needed here since preview assumes a rectangle
 
   733     // strict scaling needed here since preview assumes a rectangle
hedgewars-draft