Seamless Scrolling Maps & Paperdolling.

[JohnY]

Well you see that's the problem, I can't find any other SMaps wich is Dimed or ReDimed:

The things I could find with SMaps in it

Code:

' Public structure variables
Public Map As MapRec
Public SMaps() As MapRec

S

Code:

ub Main()
Call MultiClient
Dim i As Long
Dim a As Long

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)

and in the loadsurroundingmap sub:

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