equal
deleted
inserted
replaced
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; |
69 adler: LongInt; |
69 adler, i, tmp: LongInt; |
70 begin |
70 begin |
71 adler:= 1; |
71 adler:= 1; |
72 Adler32Update(adler, @Land[0,0], sizeof(Land)); |
72 for i:= 0 to LAND_HEIGHT-1 do |
|
73 Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
73 s:= 'M'+inttostr(adler); |
74 s:= 'M'+inttostr(adler); |
74 |
75 |
75 CheckLandDigest(s); |
76 CheckLandDigest(s); |
76 SendIPCRaw(@s[0], Length(s) + 1) |
77 SendIPCRaw(@s[0], Length(s) + 1) |
77 end; |
78 end; |