405 end;

   405 end;

   406 

   406 

   407 procedure MakeFortsMap;

   407 procedure MakeFortsMap;

   408 var tmpsurf: PSDL_Surface;

   408 var tmpsurf: PSDL_Surface;

   409 begin

   409 begin

   410 MaxHedgehogs:= 32;

   411 MaxHedgehogs:= 32;

   411 // 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.

   412 // 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.

   412 playHeight:= 1200;

   413 playHeight:= 1200;

   413 playWidth:= 2560;

   414 playWidth:= 2560;

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

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