607 procedure MakeFortsMap;

   607 procedure MakeFortsMap;

   608 var tmpsurf: PSDL_Surface;

   608 var tmpsurf: PSDL_Surface;

   609 begin

   609 begin

   610 // For now, defining a fort's playable area as 3072x1200 - there are no tall forts.  The extra height is to avoid triggering border with current code, also if user turns on a border, it'll give a bit more maneuvering room.

   610 // For now, defining a fort's playable area as 3072x1200 - there are no tall forts.  The extra height is to avoid triggering border with current code, also if user turns on a border, it'll give a bit more maneuvering room.

   611 playHeight:= 1200;

   611 playHeight:= 1200;

   613 leftX:= (LAND_WIDTH - playWidth) div 2;

   613 leftX:= (LAND_WIDTH - playWidth) div 2;

   614 rightX:= ((playWidth + (LAND_WIDTH - playWidth) div 2) - 1);

   614 rightX:= ((playWidth + (LAND_WIDTH - playWidth) div 2) - 1);

   615 topY:= LAND_HEIGHT - playHeight;

   615 topY:= LAND_HEIGHT - playHeight;

   616 

   616 

   617 WriteLnToConsole('Generating forts land...');

   617 WriteLnToConsole('Generating forts land...');