Function Main(Player as Long, Object as Long) as Long
Dim Map as Long, X as Long, Y as Long

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


Main = Continue

End Function