equal
deleted
inserted
replaced
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 ResizeLand(4096,2048); |
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; |