hedgewars/uLand.pas
changeset 12711 20dbb3a03e61
parent 12592 00b539e6115d
child 12758 49c31d8cc740
--- a/hedgewars/uLand.pas	Wed Oct 18 05:28:22 2017 +0200
+++ b/hedgewars/uLand.pas	Wed Oct 18 20:33:20 2017 -0400
@@ -978,16 +978,15 @@
     if digest = '' then
         digest:= s
     else
-        checkFails(s = digest, 'Different maps generated, sorry', true);
+        checkFails(s = digest, 'Different map or critical resources loaded, sorry', true);
 end;
 
 procedure chSendLandDigest(var s: shortstring);
-var adler, i: LongInt;
+var i: LongInt;
 begin
-    adler:= 1;
     for i:= 0 to LAND_HEIGHT-1 do
-        adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH);
-    s:= 'M' + IntToStr(adler) + cScriptName;
+        syncedPixelDigest:= Adler32Update(syncedPixelDigest, @Land[i,0], LAND_WIDTH);
+    s:= 'M' + IntToStr(syncedPixelDigest); // + cScriptName; script name is no longer needed. scripts are hashed
 
     ScriptSetString('LandDigest', s);