branch | transitional_engine |
changeset 16026 | ce4b50823a95 |
parent 15905 | 022ec6b916b7 |
child 16029 | 9cbd18220eb7 |
16025:274a5afc2aec | 16026:ce4b50823a95 |
---|---|
791 end |
791 end |
792 else |
792 else |
793 begin |
793 begin |
794 WriteLnToConsole('Generating land...'); |
794 WriteLnToConsole('Generating land...'); |
795 case cMapGen of |
795 case cMapGen of |
796 mgRandom: GenerateTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
796 mgRandom: GenerateOutlineTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
797 mgMaze : begin ResizeLand(4096,2048); GenMaze; end; |
797 mgMaze : begin ResizeLand(4096,2048); GenMaze; end; |
798 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
798 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
799 mgDrawn : GenDrawnMap; |
799 mgDrawn : GenDrawnMap; |
800 mgForts : begin GameFlags:= (GameFlags or gfDivideTeams); MakeFortsMap(); end; |
800 mgForts : begin GameFlags:= (GameFlags or gfDivideTeams); MakeFortsMap(); end; |
801 mgWfc: GenerateWfcTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
|
801 else |
802 else |
802 OutError('Unknown mapgen', true); |
803 OutError('Unknown mapgen', true); |
803 end; |
804 end; |
804 if (cMapGen <> mgForts) then |
805 if (cMapGen <> mgForts) then |
805 GenLandSurface |
806 GenLandSurface |
946 procedure GenPreview(out Preview: TPreview); |
947 procedure GenPreview(out Preview: TPreview); |
947 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt; |
948 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt; |
948 begin |
949 begin |
949 WriteLnToConsole('Generating preview...'); |
950 WriteLnToConsole('Generating preview...'); |
950 case cMapGen of |
951 case cMapGen of |
951 mgRandom: GenerateTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
952 mgRandom: GenerateOutlineTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
952 mgMaze: begin ResizeLand(4096,2048); GenMaze; end; |
953 mgMaze: begin ResizeLand(4096,2048); GenMaze; end; |
953 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
954 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
954 mgDrawn: begin GenDrawnMap; end; |
955 mgDrawn: begin GenDrawnMap; end; |
955 mgForts: MakeFortsPreview(); |
956 mgForts: MakeFortsPreview(); |
957 mgWfc: GenerateWfcTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
|
956 else |
958 else |
957 OutError('Unknown mapgen', true); |
959 OutError('Unknown mapgen', true); |
958 end; |
960 end; |
959 |
961 |
960 ScriptSetMapGlobals; |
962 ScriptSetMapGlobals; |
1005 procedure GenPreviewAlpha(out Preview: TPreviewAlpha); |
1007 procedure GenPreviewAlpha(out Preview: TPreviewAlpha); |
1006 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt; |
1008 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt; |
1007 begin |
1009 begin |
1008 WriteLnToConsole('Generating preview...'); |
1010 WriteLnToConsole('Generating preview...'); |
1009 case cMapGen of |
1011 case cMapGen of |
1010 mgRandom: GenerateTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
1012 mgRandom: GenerateOutlineTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
1011 mgMaze: begin ResizeLand(4096,2048); GenMaze; end; |
1013 mgMaze: begin ResizeLand(4096,2048); GenMaze; end; |
1012 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
1014 mgPerlin: begin ResizeLand(4096,2048); GenPerlin; end; |
1013 mgDrawn: begin GenDrawnMap; end; |
1015 mgDrawn: begin GenDrawnMap; end; |
1014 mgForts: MakeFortsPreview; |
1016 mgForts: MakeFortsPreview; |
1017 mgWfc: GenerateWfcTemplatedLand(cFeatureSize, cSeed, SelectTemplate, PathPrefix); |
|
1015 else |
1018 else |
1016 OutError('Unknown mapgen', true); |
1019 OutError('Unknown mapgen', true); |
1017 end; |
1020 end; |
1018 |
1021 |
1019 ScriptSetMapGlobals; |
1022 ScriptSetMapGlobals; |