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,

    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;

    39     r, rr: TSDL_Rect;

    39     r, rr: TSDL_Rect;