equal
deleted
inserted
replaced
983 |
983 |
984 procedure chSendLandDigest(var s: shortstring); |
984 procedure chSendLandDigest(var s: shortstring); |
985 var i: LongInt; |
985 var i: LongInt; |
986 begin |
986 begin |
987 for i:= 0 to LAND_HEIGHT-1 do |
987 for i:= 0 to LAND_HEIGHT-1 do |
988 syncedPixelDigest:= Adler32Update(syncedPixelDigest, @Land[i,0], LAND_WIDTH); |
988 syncedPixelDigest:= Adler32Update(syncedPixelDigest, @Land[i,0], LAND_WIDTH*2); |
989 s:= 'M' + IntToStr(syncedPixelDigest); // + cScriptName; script name is no longer needed. scripts are hashed |
989 s:= 'M' + IntToStr(syncedPixelDigest); // + cScriptName; script name is no longer needed. scripts are hashed |
990 |
990 |
991 ScriptSetString('LandDigest', s); |
991 ScriptSetString('LandDigest', s); |
992 |
992 |
993 chLandCheck(s); |
993 chLandCheck(s); |