Seamless Scrolling Maps & Paperdolling.

[JohnY]

Array already dimension in:

Code:

Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte
    Dim a As Variant
    ReDim SMaps(7)
    
    For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a
ReDim Map.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To is highlighted.