P3D-Legacy/P3D/Content/Data/Scripts/alph/alph_oldman.dat

<EFBFBD><EFBFBD>Version=2
:if:<register.registered(alph_unown_show_up)>=False

	@Register.register(alph_unown_show_up)
	@Text.show(Help! Help me...)
	@pokemon.Cry(201)
	@Level.wait(15)
	@text.SetFont(Unown)
	@Text.show(Help~Help me)
	@pokemon.Cry(201)
	@NPC.Turn(9,2)

	:select:<player.position>
		:when:9,0,30
			@Player.TurnTo(3)
			@Player.Move(1)
			@Player.TurnTo(0)
			@Player.Move(4)
			@Player.TurnTo(1)
			@Player.Move(1)
			@Player.TurnTo(2)

		:when:9,0,28
			@Player.TurnTo(0)
			@Player.Move(2)
			@Player.TurnTo(2)

		:when:10,0,29
			@Player.TurnTo(0)
			@Player.Move(3)
			@Player.TurnTo(1)
			@Player.Move(1)
			@Player.TurnTo(2)

		:when:8,0,29
			@Player.TurnTo(0)
			@Player.Move(3)
			@Player.TurnTo(3)
			@Player.Move(1)
			@Player.TurnTo(2)
	:endwhen
	@Script.start(alph\alph_appear)
	:end
:endif

:if:<register.registered(alph_faint_unown1)>=False <or> <register.registered(alph_faint_unown2)>=False <or> <register.registered(alph_faint_unown3)>=False <or> <register.registered(alph_faint_unown4)>=False <or> <register.registered(alph_faint_unown5)>=False <or> <register.registered(alph_faint_unown6)>=False <or> <register.registered(alph_faint_unown7)>=False <or> <register.registered(alph_faint_unown8)>=False 
	@text.SetFont(Unown)
	@Text.show(Help...~me...)
	:end
:endif

@Text.show(You saved me!~Thank you very much!*Take this.~It will lead you to~grand new adventures.)
@item.give(286,1)
@item.messagegive(286,1)
@NPC.WearSkin(9,[Pok<00>mon|N]201)
@Pokemon.Cry(201)
@Level.wait(15)
@NPC.WearSkin(9,5)
@text.SetFont(unown)
@Text.show(Thank you...)
@player.AchieveEmblem(alph)
@Pokemon.Cry(201)
@NPC.WearSkin(9,[Pok<00>mon|N]201)
@Level.wait(50)
@NPC.Warp(9,9,-2,29)
@NPC.Register(alph\alph03.dat|9|position|9,-2,29)

:end