Function Main(Monster as Long, MonsterIndex as Long, Player 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