28     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));

    28     SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));

    29     // 0.5 is already approaching on unplayable

    29     // 0.5 is already approaching on unplayable

    30     if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= cMaxZoomLevel/2;

    30     if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= cMaxZoomLevel/2;

    31     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel

    31     cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel

    32     end;

    32     end;

    33 end;

    34 end;

    34 

    35 

    35 procedure InitWorldEdges();

    36 procedure InitWorldEdges();

    36 var cy, cx, lx, ly: LongInt;

    37 var cy, cx, lx, ly: LongInt;

    37     found: boolean;

    38     found: boolean;