18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uLand; |
21 unit uLand; |
22 interface |
22 interface |
23 uses SDLh, uLandTemplates, uFloat, uConsts, uTypes, uAILandMarks; |
23 uses SDLh, uLandTemplates, uConsts, uTypes, uAILandMarks; |
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 procedure DrawBottomBorder; |
27 procedure DrawBottomBorder; |
28 procedure GenMap; |
28 procedure GenMap; |
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, uLandGenPerlin, |
35 uLandGenMaze, uPhysFSLayer, uScript, uLandGenPerlin, |
36 uLandGenTemplateBased, uLandUtils; |
36 uLandGenTemplateBased, uLandUtils; |
37 |
37 |
38 var digest: shortstring; |
38 var digest: shortstring; |
39 |
39 |
40 |
40 |