hedgewars/uLand.pas
changeset 6927 ee000959d645
parent 6898 344b0dbd9690
child 6982 8d41d22a291d
--- a/hedgewars/uLand.pas	Tue Apr 24 16:58:19 2012 -0400
+++ b/hedgewars/uLand.pas	Tue Apr 24 17:16:18 2012 -0400
@@ -728,7 +728,7 @@
 begin
     adler:= 1;
     for i:= 0 to LAND_HEIGHT-1 do
-        Adler32Update(adler, @Land[i,0], LAND_WIDTH);
+        adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH);
     s:= 'M' + IntToStr(adler) + cScriptName;
 
     chLandCheck(s);