changeset 10181 | 4708343d5963 |
parent 10165 | e84f9b928ad3 |
child 10189 | 875607ce793d |
10180:8d4bb51bf5cb | 10181:4708343d5963 |
---|---|
30 procedure GenPreviewAlpha(out Preview: TPreviewAlpha); |
30 procedure GenPreviewAlpha(out Preview: TPreviewAlpha); |
31 |
31 |
32 implementation |
32 implementation |
33 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
33 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
35 uLandGenMaze, uLandOutline, uPhysFSLayer, uScript; |
35 uLandGenMaze, uLandOutline, uPhysFSLayer, uScript, uLandGenPerlin; |
36 |
36 |
37 var digest: shortstring; |
37 var digest: shortstring; |
38 |
38 |
39 procedure ResizeLand(width, height: LongWord); |
39 procedure ResizeLand(width, height: LongWord); |
40 var potW, potH: LongInt; |
40 var potW, potH: LongInt; |
699 else |
699 else |
700 begin |
700 begin |
701 WriteLnToConsole('Generating land...'); |
701 WriteLnToConsole('Generating land...'); |
702 case cMapGen of |
702 case cMapGen of |
703 0: GenBlank(EdgeTemplates[SelectTemplate]); |
703 0: GenBlank(EdgeTemplates[SelectTemplate]); |
704 1: begin ResizeLand(4096,2048); GenMaze; end; |
704 //1: begin ResizeLand(4096,2048); GenMaze; end; |
705 1: begin ResizeLand(4096,2048); GenPerlin; end; |
|
705 2: GenDrawnMap; |
706 2: GenDrawnMap; |
706 else |
707 else |
707 OutError('Unknown mapgen', true); |
708 OutError('Unknown mapgen', true); |
708 end; |
709 end; |
709 GenLandSurface |
710 GenLandSurface |
827 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt; |
828 var rh, rw, ox, oy, x, y, xx, yy, t, bit, cbit, lh, lw: LongInt; |
828 begin |
829 begin |
829 WriteLnToConsole('Generating preview...'); |
830 WriteLnToConsole('Generating preview...'); |
830 case cMapGen of |
831 case cMapGen of |
831 0: GenBlank(EdgeTemplates[SelectTemplate]); |
832 0: GenBlank(EdgeTemplates[SelectTemplate]); |
832 1: begin ResizeLand(4096,2048); GenMaze; end; |
833 //1: begin ResizeLand(4096,2048); GenMaze; end; |
834 1: begin ResizeLand(4096,2048); GenPerlin; end; |
|
833 2: GenDrawnMap; |
835 2: GenDrawnMap; |
834 else |
836 else |
835 OutError('Unknown mapgen', true); |
837 OutError('Unknown mapgen', true); |
836 end; |
838 end; |
837 |
839 |
874 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt; |
876 var rh, rw, ox, oy, x, y, xx, yy, t, lh, lw: LongInt; |
875 begin |
877 begin |
876 WriteLnToConsole('Generating preview...'); |
878 WriteLnToConsole('Generating preview...'); |
877 case cMapGen of |
879 case cMapGen of |
878 0: GenBlank(EdgeTemplates[SelectTemplate]); |
880 0: GenBlank(EdgeTemplates[SelectTemplate]); |
879 1: begin ResizeLand(4096,2048); GenMaze; end; |
881 //1: begin ResizeLand(4096,2048); GenMaze; end; |
882 1: begin ResizeLand(4096,2048); GenPerlin; end; |
|
880 2: GenDrawnMap; |
883 2: GenDrawnMap; |
881 else |
884 else |
882 OutError('Unknown mapgen', true); |
885 OutError('Unknown mapgen', true); |
883 end; |
886 end; |
884 |
887 |