P3D-Legacy/P3D/Content/Data/Scripts/elmlab/elm.dat

<EFBFBD><EFBFBD>version=2

:if:<register.registered(elm_police)>=true
	@text.show(Elm: <player.name>, this~is terrible...*Oh, yes, what was~Mr. Pok<00>mon's big~discovery?*)
	@item.remove(69,1)

    :select:<player.position>
        :when:5,0,2
            @npc.move(0,-1)
            @text.show(Elm: This?)
            @npc.move(0,1)
        :when:4,0,1
            @npc.move(0,-2)
            @text.show(Elm: This?)
            @npc.move(0,2)
        :when:5,0,0
            @npc.move(0,-2)
            @text.show(Elm: This?)
            @npc.move(0,2)
    :endwhen

	@text.show(But... Is it a~Pok<00>mon Egg?*If it is, it is a~great discovery!*Elm: What?!?*Prof. Oak gave you~a Pok<00>dex?*<player.name>, is that~true? Th-that's~incredible!*He is superb at~seeing the potential~of people as~trainers.*Wow, <player.name>. You~may have what it~takes to become~the Champion.*You seem to be~getting on great~with Pok<00>mon too.*You should take~the Pok<00>mon GYM~challenge.*The closest Gym~would be the one~in Violet City.*...<player.name>. The~road to the~championship will~be a long one.*Before you leave,~make sure that you~talk to your mom.)
	@register.unregister(mom_adventure1)
	@register.unregister(elm_police)
	@register.register(mom_talk)
	@register.register(elm5)
	@npc.register(route30.dat|1|remove|1)
	@npc.register(route30.dat|2|remove|1)
	@npc.register(route30.dat|3|remove|1)
	@npc.register(route30.dat|5|position|8,0,31)
    :end
:endif

:if:<register.registered(Elm_Post_e4_call)>=True
    @text.show(Elm: <player.name>!~There you are!*I called because I have~something for you.*See? It's an S.S. Ticket.*Now you can catch~Pok<00>mon in Kanto.)
    @item.messagegive(41,1)
    @item.give(41,1)
    @text.show(The ship departs~from Olivine City.*But you know that~already, <player.name>.*After all, you've traveled~all over with your Pok<00>mon.*Give my regards to~Prof. Oak in Kanto)
    @Register.register(elmticketget)
    @Register.register(elm6)
    @Register.unregister(elm4)
    @Register.unregister(Elm_Post_e4_call)
    @Register.register(firsttimessaqua)
    :end
:endif

:if:<register.registered(Elm_Post_red_call)>=True
    @text.show(Elm: <player.name>!~There you are!*I called because I have~something for you.*See? It's a Sea Plane Ticket.*Now you can challenge~the Battle Frontier.)
    @item.messagegive(655,1)
    @item.give(655,1)
    @text.show(The plane departs from~the end of Route 50.*But you know that~already, <player.name>.*After all, you've traveled~all over with your Pok<00>mon.*Good luck with your~battles.)
    @Register.register(elmspticketget)
    @Register.unregister(Elm_Post_red_call)
    :end
:endif

:if:<register.registered(elmcallblackthorn)>=True <and> <register.registered(elmmasterballget)>=False
    @Text.show(Elm: Hi, <player.name>!~Thanks to you, my~research is going great!*Take this as a~token of my appreciation.)
    @item.messagegive(1,1)
    @item.give(1,1)
    @text.show(The Masterball is~the best!*It's the ultimate Ball!*It'll catch any~Pok<00>mon without fail.*It's given only to~recognized Pok<00>mon~researchers.*I think you can~make much better*use of it than I~can, <player.name>!)
    @Register.register(elmmasterballget)
    :end
:endif

:if:<register.registered(elm1)>=True
    @Text.show(If a wild Pok<00>mon~appears, let your~Pok<00>mon battle it!)
    :end
:endif

:if:<register.registered(elm2)>=True <or> <register.registered(elm3)>=True
    @Text.show(Mr. Pok<00>mon goes~everywhere and finds~rarities.*Too bad they're just~rare and not very~useful...*<player.name>, I'm counting~on you!)
    :end
:endif

:if:<register.registered(elm4)>=True
    @Text.show(Elm: Don't give~up! I'll call if*I learn anything~about that Egg!)
    :end
:endif

:if:<register.registered(elm6)>=True
    @Text.show(Good luck in Kanto.)
    :end
:endif

:end