28 procedure GenMap; |
28 procedure GenMap; |
29 procedure GenPreview(out Preview: TPreview); |
29 procedure GenPreview(out Preview: TPreview); |
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, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
34 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
35 uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin, |
35 uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin, |
36 uLandGenTemplateBased, uLandUtils, uRenderUtils; |
36 uLandGenTemplateBased, uLandUtils, uRenderUtils; |
37 |
37 |
38 var digest: shortstring; |
38 var digest: shortstring; |