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

Map = GetPlayerMap(Player)
X = GetPlayerX(Player)
Y = GetPlayerY(Player)



End Sub