P3D-Legacy/P3D/Content/Data/Scripts/route30/mrpokemon.dat

<EFBFBD><EFBFBD>version=2
:if:<register.registered(get_egg_mrpokemon)>=false
:then
@register.register(get_egg_mrpokemon)
@Player.move(1)
@NPC.Turn(0,2)
@Text.Show(Hello, hello! You~must be <player.name>.~Prof. Elm said that~you would visit.*This is what I want~Prof. Elm to examine.)
@item.give(69,1)
@item.messagegive(69,1)
@Text.show(I know a couple~who run a Pok<00>mon~Day-Care service.*They gave me that~Egg.*I was intrigued,~so I sent mail to~Prof. Elm.*For Pok<00>mon evolution,~Prof. Elm is the~authority.)
@npc.turn(0,3)
@Text.show(Even Prof. Oak here~recognizes that.)
@npc.turn(1,1)
@npc.turn(0,2)
@Text.show(If my assumption~is correct, Prof.~Elm will know it.)
@music.play(oak_encounter)
@npc.turn(1,2)
@npc.move(1,1)
@npc.turn(1,1)
@npc.move(1,2)
@player.turnto(3)
@text.show(Oak: Aha! So~you're <player.name>!*Im Oak! A Pok<00>mon~researcher.*I was just visiting my~old friend Mr. Pok<00>mon.*I heard you were~running an errand~for Prof. Elm, so I~waited here.*Oh! What's this?~A rare Pok<00>mon!*Let's see...)
@text.show(Hm, I see!*I understand why~Prof. Elm gave you~a Pok<00>mon for this~errand.*To researchers~like Prof. Elm and~I, Pok<00>mon are our~friends.*He saw that you~would treat your~Pok<00>mon with love~and care.*...Ah!)
@text.show(You seem to be~dependable.*How would you like~to help me out?*See? This is the~latest version of~Pok<00>dex.*It automatically~records data on*Pok<00>mon you've~seen or caught.*It's a hi-tech~encyclopedia!)
@sound.play(success,1)
@text.show(<player.name> received~Pok<00>dex!)
@player.receivepokedex
@text.show(Go meet many kinds~of Pok<00>mon and~complete that~Pok<00>dex!*But I've stayed too long.*I have to get to~Goldenrod for my~usual radio show.*<player.name>,~I'm counting on you!)
@npc.turn(1,2)
@npc.move(1,1)
@npc.turn(1,1)
@npc.move(1,1)
@npc.turn(1,2)
@npc.move(1,1)
@sound.play(enter)
@npc.remove(1)
@music.play(RouteMusic1)
@NPC.register(mrpokemonhouse.dat|1|remove|1)
@player.turnto(0)
@npc.turn(0,2)
@text.show(You are returning~to Prof. Elm?*Here. Your Pok<00>mon~should have some~rest.)
@screen.fadeout
@pokemon.heal
@sound.play(healing,1)
@level.wait(150)
@screen.fadein
@text.show(I'm depending on~you!)
@npc.turn(0,3)
@register.register(rival_encounter_cherrygrove)
:else

:if:<register.registered(trade_scale_expshare)>=true
:then
@text.show(Life is delightful!~Always, new*discoveries to be made!)
:else

:if:<inventory.countitem(66)>>0
:then
@text.show(Hm? That Scale!~What's that?~A red Gyarados?*That's rare! ~I, I want it...*<player.name>, would you~care to trade it?*I can offer this~Exp.Share I got~from Prof. Oak.)
@options.show(Yes,No)
:when:Yes
@item.give(57)
@item.messagegive(57,1)
@item.remove(66,1)
@register.register(trade_scale_expshare)
@text.show(Life is delightful!~Always, new*discoveries to be made!)
:when:No
@text.show(That's disappointing.~That happens to be very rare.)
:endwhen
:else
@text.show(I'm depending on you!)
:endif

:endif

:endif
:end