64               ar: array[0..Pred(cMaxEdgePoints)] of TPoint;

    64               ar: array[0..Pred(cMaxEdgePoints)] of TPoint;

    65               end;

    65               end;

    66 

    66 

    67 procedure LogLandDigest;

    67 procedure LogLandDigest;

    68 var s: shortstring;

    68 var s: shortstring;

    70 begin

    70 begin

    71 adler:= 1;

    71 adler:= 1;

    72 for i:= 0 to LAND_HEIGHT-1 do

    72 for i:= 0 to LAND_HEIGHT-1 do

    73     Adler32Update(adler, @Land[i,0], LAND_WIDTH);

    73     Adler32Update(adler, @Land[i,0], LAND_WIDTH);

    74 s:= 'M'+inttostr(adler);

    74 s:= 'M'+inttostr(adler);