equal
deleted
inserted
replaced
296 else |
296 else |
297 MaxHedgehogs:= cMaxHHs; |
297 MaxHedgehogs:= cMaxHHs; |
298 |
298 |
299 if GameType = gmtLandPreview then |
299 if GameType = gmtLandPreview then |
300 cFeatureSize:= 3; |
300 cFeatureSize:= 3; |
301 ResizeLand((4096 * max(min(cFeatureSize,24),3)) div 12, (2048 * max(min(cFeatureSize,24),3)) div 12); |
301 playWidth:= (4096 * max(min(cFeatureSize,24),3)) div 12; |
302 uLandPainted.Draw; |
302 playHeight:= (2048 * max(min(cFeatureSize,24),3)) div 12; |
|
303 ResizeLand(playWidth, playHeight); |
303 |
304 |
304 hasGirders:= true; |
305 hasGirders:= true; |
305 playHeight:= LAND_HEIGHT; |
|
306 playWidth:= LAND_WIDTH; |
|
307 leftX:= ((LAND_WIDTH - playWidth) div 2); |
306 leftX:= ((LAND_WIDTH - playWidth) div 2); |
308 rightX:= (playWidth + ((LAND_WIDTH - playWidth) div 2)) - 1; |
307 rightX:= (playWidth + ((LAND_WIDTH - playWidth) div 2)) - 1; |
309 topY:= LAND_HEIGHT - playHeight; |
308 topY:= LAND_HEIGHT - playHeight; |
|
309 |
|
310 uLandPainted.Draw; |
310 end; |
311 end; |
311 |
312 |
312 function SelectTemplate: LongInt; |
313 function SelectTemplate: LongInt; |
313 var l: LongInt; |
314 var l: LongInt; |
314 begin |
315 begin |