hedgewars/uLand.pas
changeset 15162 af14c418c92f
parent 15160 adf6f9be8113
child 15165 59c595191eba
equal deleted inserted replaced
15161:53342ce3f0a6 15162:af14c418c92f
   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