equal
deleted
inserted
replaced
28 procedure GenMap; |
28 procedure GenMap; |
29 function GenPreview: TPreview; |
29 function GenPreview: TPreview; |
30 |
30 |
31 implementation |
31 implementation |
32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils, |
32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils, |
33 uVariables, uUtils, uCommands, Adler32, uDebug, uLandPainted, uTextures, |
33 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
34 uLandGenMaze, uLandOutline; |
34 uLandGenMaze, uLandOutline; |
35 |
35 |
36 |
36 |
37 procedure ColorizeLand(Surface: PSDL_Surface); |
37 procedure ColorizeLand(Surface: PSDL_Surface); |
38 var tmpsurf: PSDL_Surface; |
38 var tmpsurf: PSDL_Surface; |