31 implementation

    31 implementation

    32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils,

    32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, sysutils,

    33      uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,

    33      uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures,

    34      uLandGenMaze, uLandOutline;

    34      uLandGenMaze, uLandOutline;

    35 

    35 

    36 

    37 

    37 procedure ColorizeLand(Surface: PSDL_Surface);

    38 procedure ColorizeLand(Surface: PSDL_Surface);

    38 var tmpsurf: PSDL_Surface;

    39 var tmpsurf: PSDL_Surface;

    39     r, rr: TSDL_Rect;

    40     r, rr: TSDL_Rect;

    40     x, yd, yu: LongInt;

    41     x, yd, yu: LongInt;

   471 var tmpsurf: PSDL_Surface;

   472 var tmpsurf: PSDL_Surface;

   472     s: shortstring;

   473     s: shortstring;

   473     f: textfile;

   474     f: textfile;

   474     mapName: shortstring = '';

   475     mapName: shortstring = '';

   475 begin

   476 begin

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

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

   478 AddProgress;

   478 AddProgress;

   479 tmpsurf:= LoadImage(UserPathz[ptMapCurrent] + '/map', ifAlpha or ifTransparent or ifIgnoreCaps);

   479 tmpsurf:= LoadImage(UserPathz[ptMapCurrent] + '/map', ifAlpha or ifTransparent or ifIgnoreCaps);

   480 if tmpsurf = nil then

   480 if tmpsurf = nil then

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

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

   551 var x, y, w, c: Longword;

   551 var x, y, w, c: Longword;

   552 begin

   552 begin

   553     hasBorder:= false;

   553     hasBorder:= false;

   554 

   554 

   555     LoadThemeConfig;

   555     LoadThemeConfig;

   557 

   556 

   558     // is this not needed any more? lets hope setlength sets also 0s

   557     // is this not needed any more? lets hope setlength sets also 0s

   559     //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then

   558     //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then

   560     //    FillChar(Land,SizeOf(TCollisionArray),0);*)

   559     //    FillChar(Land,SizeOf(TCollisionArray),0);*)

   561 

   560