Seemless Scrolling

[Matt]

Add this in Sub Main:

Code:

ReDim SMaps(7)

For a = 0 To 7
ReDim SMaps(a).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)
Next a

In iLoadMap, make sure you have this line after the filename = line..

Code:

ReDim SMaps(Size).Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

In the LoadSurroundingMaps sub, make sure you have this code after the dims:

Code:

ReDim SMaps(7)
    
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

That should be it. I think.