Seamless Scrolling Maps & Paperdolling.

[JohnY]

Variable not defined:

For a = 0 To 7

The a is highlighted.

and:

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

Array already dimensioned?

Code:

Sub LoadSurroundingMaps()
    Dim MapNum As Long
    Dim BlankMap As MapRec
    Dim i As Byte
    ReDim SMaps(7)
  
    ReDim BlankMap.Tile(0 To MAX_MAPX, 0 To MAX_MAPY)

    MapNum = Map.Up
    If MapNum > 0 Then
        Call iLoadMap(MapNum, 0)
    Else
        etc etc..