Sub Main(Player as Long, X as Long, Y as Long)
Dim Map as Long

Map = GetPlayerMap(Player)

End Sub