655 end;

   655 end;

   656 

   656 

   657 procedure MakeFortsMap;

   657 procedure MakeFortsMap;

   658 var tmpsurf: PSDL_Surface;

   658 var tmpsurf: PSDL_Surface;

   659 begin

   659 begin

   660 // For now, defining a fort is 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 will give a bit more maneuvering room.

   661 // For now, defining a fort is 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 will give a bit more maneuvering room.

   661 playHeight:= 1200;

   662 playHeight:= 1200;

   662 playWidth:= 2560;

   663 playWidth:= 2560;

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

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

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

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