equal
deleted
inserted
replaced
1437 var adler, i: LongInt; |
1437 var adler, i: LongInt; |
1438 begin |
1438 begin |
1439 adler:= 1; |
1439 adler:= 1; |
1440 for i:= 0 to LAND_HEIGHT-1 do |
1440 for i:= 0 to LAND_HEIGHT-1 do |
1441 Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
1441 Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
1442 s:= 'M' + IntToStr(adler); |
1442 s:= 'M' + IntToStr(adler) + cScriptName; |
1443 |
1443 |
1444 chLandCheck(s); |
1444 chLandCheck(s); |
1445 SendIPCRaw(@s[0], Length(s) + 1) |
1445 SendIPCRaw(@s[0], Length(s) + 1) |
1446 end; |
1446 end; |
1447 |
1447 |