hedgewars/uLand.pas
changeset 10421 87e47843018e
parent 10391 ce3ccc45d790
child 10490 b30b8d39d662
equal deleted inserted replaced
10419:e19a864e2fab 10421:87e47843018e
   543             end
   543             end
   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                 mgRandom: GenTemplated(EdgeTemplates[SelectTemplate]);
   549                 1: begin ResizeLand(4096,2048); GenMaze; end;
   549                 mgMaze  : begin ResizeLand(4096,2048); GenMaze; end;
   550                 2: begin ResizeLand(4096,2048); GenPerlin; end;
   550                 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end;
   551                 3: GenDrawnMap;
   551                 mgDrawn : 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