Old Bug

[William]

So, I checked it out. This was the problem when you changed it to 1:

Code:

Function GetPlayerMap(ByVal Index As Long) As Long
        GetPlayerMap = Player(Index).Char(Player(Index).CharNum).Map
End Function

supscript out of range 9

So it should work by changing that function to:

Code:

Function GetPlayerMap(ByVal Index As Long) As Long
    If Player(Index).CharNum > 0 And Player(Index).CharNum < MAX_CHARS + 1 Then
        GetPlayerMap = Player(Index).Char(Player(Index).CharNum).Map
    End If
End Function

Have not done much testing thought. Seems to work fine.