hedgewars/uLandUtils.pas
changeset 12311 1b5a4807f8f4
parent 11704 1694b379c83f
child 15143 794dc7237ca1
equal deleted inserted replaced
12310:a2049a645e29 12311:1b5a4807f8f4
    40 playHeight:= LAND_HEIGHT;
    40 playHeight:= LAND_HEIGHT;
    41 topY:= 0;
    41 topY:= 0;
    42 
    42 
    43 lx:= LongInt(LAND_WIDTH) - 1;
    43 lx:= LongInt(LAND_WIDTH) - 1;
    44 
    44 
       
    45 // use maximum available map width if there is no special world edge
    45 if WorldEdge = weNone then
    46 if WorldEdge = weNone then
    46     begin
    47     begin
    47     playWidth:= LAND_WIDTH;
    48     playWidth:= LAND_WIDTH;
    48     leftX := 0;
    49     leftX := 0;
    49     rightX:= lx;
    50     rightX:= lx;
       
    51     EXIT;
       
    52     end;
       
    53 
       
    54 // keep fort distance consistent if we're in wrap mode on fort map
       
    55 if (cMapGen = mgForts) and (WorldEdge = weWrap) then
       
    56     begin
       
    57     // edges were adjusted already in MakeFortsMap() in uLand
    50     EXIT;
    58     EXIT;
    51     end;
    59     end;
    52 
    60 
    53 ly:= LongInt(LAND_HEIGHT) - 1;
    61 ly:= LongInt(LAND_HEIGHT) - 1;
    54 
    62