403 end;

   403 end;

   404 

   404 

   405 procedure MakeFortsMap;

   405 procedure MakeFortsMap;

   406 var tmpsurf: PSDL_Surface;

   406 var tmpsurf: PSDL_Surface;

   407 begin

   407 begin

   408 MaxHedgehogs:= 32;

   409 MaxHedgehogs:= 32;

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

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

   410 playHeight:= 1200;

   411 playHeight:= 1200;

   411 playWidth:= 2560;

   412 playWidth:= 2560;

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

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