27      LandSurface: PSDL_Surface;

    27      LandSurface: PSDL_Surface;

    28 

    28 

    29 procedure GenMap;

    29 procedure GenMap;

    30 function GenPreview: TPreview;

    30 function GenPreview: TPreview;

    31 procedure CheckLandDigest(s: shortstring);

    31 procedure CheckLandDigest(s: shortstring);

    33 

    32 

    34 implementation

    33 implementation

    35 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uLandObjects, uSHA, uIO;

    34 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uLandObjects, uSHA, uIO;

    36 

    35 

    37 type TPixAr = record

    36 type TPixAr = record

    63 AddFileLog('CheckLandDigest: ' + s);

    62 AddFileLog('CheckLandDigest: ' + s);

    64 {$ENDIF}

    63 {$ENDIF}

    65 if digest = '' then

    64 if digest = '' then

    66    digest:= s

    65    digest:= s

    67 else

    66 else

    69 end;

    68 end;

    70 

    69 

    71 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword);

    70 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword);

    72 var

    71 var

    73   eX, eY, dX, dY: LongInt;

    72   eX, eY, dX, dY: LongInt;