hedgewars/uLand.pas
changeset 6254 e90fb60cb46d
parent 6096 a00dbbf49d6c
child 6303 3edb3c857995
--- a/hedgewars/uLand.pas	Mon Oct 31 19:40:39 2011 +0200
+++ b/hedgewars/uLand.pas	Mon Oct 31 14:08:10 2011 -0400
@@ -1439,7 +1439,7 @@
     adler:= 1;
     for i:= 0 to LAND_HEIGHT-1 do
         Adler32Update(adler, @Land[i,0], LAND_WIDTH);
-    s:= 'M' + IntToStr(adler);
+    s:= 'M' + IntToStr(adler) + cScriptName;
 
     chLandCheck(s);
     SendIPCRaw(@s[0], Length(s) + 1)