equal
deleted
inserted
replaced
726 procedure chSendLandDigest(var s: shortstring); |
726 procedure chSendLandDigest(var s: shortstring); |
727 var adler, i: LongInt; |
727 var adler, i: LongInt; |
728 begin |
728 begin |
729 adler:= 1; |
729 adler:= 1; |
730 for i:= 0 to LAND_HEIGHT-1 do |
730 for i:= 0 to LAND_HEIGHT-1 do |
731 Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
731 adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
732 s:= 'M' + IntToStr(adler) + cScriptName; |
732 s:= 'M' + IntToStr(adler) + cScriptName; |
733 |
733 |
734 chLandCheck(s); |
734 chLandCheck(s); |
735 SendIPCRaw(@s[0], Length(s) + 1) |
735 SendIPCRaw(@s[0], Length(s) + 1) |
736 end; |
736 end; |