hedgewars/uLand.pas
changeset 7028 0f60591f3a16
parent 6982 8d41d22a291d
child 7051 db17476d7a37
--- a/hedgewars/uLand.pas	Sat May 05 18:10:41 2012 +0100
+++ b/hedgewars/uLand.pas	Sat May 05 19:04:59 2012 +0100
@@ -33,6 +33,7 @@
      uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,
      uLandGenMaze, uLandOutline;
 
+var digest: shortstring;
 
 procedure ColorizeLand(Surface: PSDL_Surface);
 var tmpsurf: PSDL_Surface;
@@ -473,7 +474,6 @@
     f: textfile;
     mapName: shortstring = '';
 begin
-isMap:= true;
 WriteLnToConsole('Loading land from file...');
 AddProgress;
 tmpsurf:= LoadImage(UserPathz[ptMapCurrent] + '/map', ifAlpha or ifTransparent or ifIgnoreCaps);
@@ -553,7 +553,6 @@
     hasBorder:= false;
 
     LoadThemeConfig;
-    isMap:= false;
 
     // is this not needed any more? lets hope setlength sets also 0s
     //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then