version=2
:if:<register.registered(dstonefirst)>=false <and> <register.registered(lstonefirst)>=false
	@player.move(0)
	@player.move(1)
	@overworldpokemon.show
	@player.move(1)
	@npc.turn(0,2)
	@text.show(...?*Do you know anything about~this cave?*...*Your Pokémon...)
	
	@npc.wearskin(1,<overworldpokemon.skin>)
	@overworldpokemon.hide
	@npc.turn(1,0)
	@npc.warp(1,5,0,7)
	@npc.turn(0,1)
	@npc.move(0,1)
	@npc.turn(0,2)
	@player.turnto(1)
	@npc.move(0,2)
	@player.turnto(2)
	@npc.turn(0,3)
	@npc.turn(1,1)
	
	@text.show(Can't you hear it?~Your Pokémon is talking...)
	@pokemon.cry(<overworldpokemon.id>)
	@entity.showmessagebulb(3|5|1|7)
	@pokemon.cry(<overworldpokemon.id>)
	@entity.showmessagebulb(5|5|1|7)

	@npc.turn(1,0)
	@player.turnto(1)
	@npc.turn(0,0)
	@npc.move(0,2)
	@player.turnto(0)
	@npc.turn(0,3)
	@npc.move(0,1)
	@npc.turn(0,2)
	@overworldpokemon.show
	@npc.remove(1)
	
	@text.show(Haha.~Looks like your Pokémon isn't~used to being understood by~humans, but also seems very~healthy and pleased.*I'm a trainer too, and I'm here~on a very special quest to find~an ancient relic.)
	@npc.turn(0,0)
	@text.show(This cave should be the place~I'm looking for.*I must go now...)
	@npc.move(0,1)
	@npc.remove(0)
	@sound.play(destroy)
	@npc.unregister(mtember\exterior.dat|4|position|42,1,40)
	@register.register(dstonefirst)
	@npc.register(fortune\dot\end.dat|0|position|4,0,5)
	@npc.register(fortune\dot\ent.dat|0|remove|0)
	@register.register(taostart)
:endif
:end