Mercurial Mercurial > hedgewars / 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 10387 cb17b79844b5
parent 10249 b47ac2c19de3
child 10391 ce3ccc45d790
equal deleted inserted replaced
10386:c9e38f8d4f94 10387:cb17b79844b5 
   544         else
 
   544         else
 
   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                 //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   551                 2: GenDrawnMap;
 
   551                 2: GenDrawnMap;
 
   552             else
 
   552             else
 
   553                 OutError('Unknown mapgen', true);
 
   553                 OutError('Unknown mapgen', true);
 
   554             end;
 
   554             end;
 
   555             GenLandSurface
 
   555             GenLandSurface
 
   673 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
 
   673 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
 
   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         //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   680         2: GenDrawnMap;
 
   680         2: GenDrawnMap;
 
   681     else
 
   681     else
 
   682         OutError('Unknown mapgen', true);
 
   682         OutError('Unknown mapgen', true);
 
   683     end;
 
   683     end;
 
   684 
   684 
   721 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt;
 
   721 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt;
 
   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         //1: begin ResizeLand(4096,2048); GenPerlin; end;
 
   728         2: GenDrawnMap;
 
   728         2: GenDrawnMap;
 
   729     else
 
   729     else
 
   730         OutError('Unknown mapgen', true);
 
   730         OutError('Unknown mapgen', true);
 
   731     end;
 
   731     end;
 
   732 
   732
hedgewars