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);

    32 

    33 

    33 implementation

    34 implementation

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

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

    35 

    36 

    36 type TPixAr = record

    37 type TPixAr = record

    49 s:='M{'+inttostr(dig[0])+':'

    50 s:='M{'+inttostr(dig[0])+':'

    50        +inttostr(dig[1])+':'

    51        +inttostr(dig[1])+':'

    51        +inttostr(dig[2])+':'

    52        +inttostr(dig[2])+':'

    52        +inttostr(dig[3])+':'

    53        +inttostr(dig[3])+':'

    53        +inttostr(dig[4])+'}';

    54        +inttostr(dig[4])+'}';

    55 SendIPCRaw(@s[0], Length(s) + 1)

    56 SendIPCRaw(@s[0], Length(s) + 1)

    56 end;

    57 end;

    57 

    58 

    58 procedure CheckLandDigest(s: shortstring);

    59 procedure CheckLandDigest(s: shortstring);

    59 const digest: shortstring = '';

    60 const digest: shortstring = '';