717 		SDL_FreeSurface(tmpsurf);

   717 		SDL_FreeSurface(tmpsurf);

   718 end;

   718 end;

   719 

   719 

   720 procedure LoadMap;

   720 procedure LoadMap;

   721 var tmpsurf: PSDL_Surface;

   721 var tmpsurf: PSDL_Surface;

   723 	f: textfile;

   723 	f: textfile;

   724 begin

   724 begin

   725 WriteLnToConsole('Loading land from file...');

   725 WriteLnToConsole('Loading land from file...');

   726 AddProgress;

   726 AddProgress;

   727 tmpsurf:= LoadImage(Pathz[ptMapCurrent] + '/map', ifAlpha or ifCritical or ifTransparent or ifIgnoreCaps);

   727 tmpsurf:= LoadImage(Pathz[ptMapCurrent] + '/map', ifAlpha or ifCritical or ifTransparent or ifIgnoreCaps);