首先,希望把俺的名字写对,是liuyanghejerry……
其次,粗略看了下游戏的原始脚本,认为:
storevar 0x0 0x8008
storevar 0x1 0x8009
是打开全国图鉴,不过目前还有待仔细看(无奈,平时在计算机上的时间太少- -),周末会给你个精准的答复。
顺便附上所有博士NPC的脚本供以参考(请54其中的个别文字辨认错误):
#org 0x8169595
'-----------------------------------
lock
faceplayer
checkflag 0x2
if 0x1 jump 0x8169600 ' Equal To
compare 0x4055 0x9
if 0x1 jump 0x8169903 ' Equal To
compare 0x4055 0x8
if 0x1 jump 0x8169A6E ' Equal To
checkflag 0x82C
if 0x1 jump 0x81699CE ' Equal To
compare 0x4052 0x1
if 0x1 jump 0x8169903 ' Equal To
compare 0x4055 0x6
if 0x1 jump 0x81698D6 ' Equal To
compare 0x4057 0x1
if 0x4 jump 0x816961E ' Larger Than or Equal To
compare 0x4055 0x4
if 0x1 jump 0x8169614 ' Equal To
compare 0x4055 0x3
if 0x1 jump 0x816960A ' Equal To
msgbox 0x818E116 ' OAK: Now, \v\h01.\pInside those three POK?BALLS are\nPOK镸ON.\pWhich one will you choose for\nyourself?
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x8169600
'-----------------------------------
msgbox 0x81A72AD ' Thank you, \v\h01!\nSincerely, thank you!\lYou've made my dream a reality!
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x8169903
'-----------------------------------
call 0x81A737B
checkflag 0x2F4
if 0x1 jump 0x8169913 ' Equal To
release
end
#org 0x81A737B
'-----------------------------------
special 0x187
compare LASTRESULT 0x2
if 0x1 jump 0x81A7AE0 ' Equal To
special 0x188
checkflag 0x2F4
if 0x1 call 0x81A73A4 ' Equal To
checkflag 0x2F4
if 0x0 call 0x81A73AD ' Smaller Than
call 0x81A73E0
return
#org 0x81A7AE0
'-----------------------------------
release
end
#org 0x8169913
'-----------------------------------
closemsg
pause 0x28
message 0x81A7291 ' Wroooooooaaaaaarrrr!
showmsg
compare PLAYERFACING 0x2
if 0x1 call 0x8169964 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x816996F ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x816997A ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169985 ' Equal To
applymovement 0x4 0x81A75E1 ' faceplayer end
pauseevent 0x0
closemsg
pause 0x46
msgbox 0x81A72AD ' Thank you, \v\h01!\nSincerely, thank you!\lYou've made my dream a reality!
callstd MSG_NOCLOSE ' Non-closing msg
setflag 0x2
release
end
#org 0x8169964
'-----------------------------------
applymovement 0x4 0x8169990 ' raw_25 raw_29 raw_25 raw_25 raw_29 raw_25 end
pauseevent 0x0
return
#org 0x816996F
'-----------------------------------
applymovement 0x4 0x8169997 ' raw_26 raw_2A raw_26 raw_26 raw_2A raw_26 end
pauseevent 0x0
return
#org 0x8169A6E
'-----------------------------------
msgbox 0x818E871 ' POK镸ON around the world wait for\nyou, \v\h01!
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x81699CE
'-----------------------------------
call 0x81A737B
closemsg
compare 0x8009 0x3C
if 0x0 jump 0x81699F9 ' Smaller Than
checkflag 0x89B
if 0x0 jump 0x81699F9 ' Smaller Than
pause 0x1E
msgbox 0x818EDF5 ' Ah, now this is excellent!\p\v\h01, I have another important\nfavor to ask of you.\pI need you to listen closely.
callstd MSG_NOCLOSE ' Non-closing msg
jump 0x8169035
#org 0x81699F9
'-----------------------------------
release
end
#org 0x8169035
'-----------------------------------
msgbox 0x818EE60 ' Recently, there have been sightings\nof many rare POK镸ON species.\pI'm talking about POK镸ON that\nhave never been seen in KANTO.\pI would love to go see things for\nmyself, but I'm much too old.\pSince I can't do it, \v\h01, I'd\nlike you to go in my place.
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
compare PLAYERFACING 0x2
if 0x1 call 0x8169174 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x81691BB ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169194 ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169194 ' Equal To
msgbox 0x818EF59 ' \v\h06: Hey, I heard that!\pGramps, what's with favoring\n\v\h01 over me all the time?\pI went and collected more POK镸ON,\nand faster, too.\pYou should just let me handle\neverything.
callstd MSG_NOCLOSE ' Non-closing msg
fadedefault
msgbox 0x818F004 ' OAK: I know, I know.\nOf course I need your help, too.\pNow, I need to see both your\nPOK镈EXES.
callstd MSG_NOCLOSE ' Non-closing msg
compare PLAYERFACING 0x2
if 0x1 call 0x81691DB ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x81691E6 ' Equal To
textcolor 0x3 'Sets text color (Fire Red).
msgbox 0x818F062 ' PROF. OAK took both POK镈EX\nunits.
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
call 0x81A6675
compare PLAYERFACING 0x2
if 0x1 call 0x81691F1 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x81691FC ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169215 ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169227 ' Equal To
reappear 0x9
reappear 0xA
pause 0x1E
msgbox 0x818F085 ' [.] [.] [.] [.] [.] [.]\p[.] [.] [.] [.] [.] [.]\p[.]And that's done!\pNow these units can record data on\na lot more POK镸ON.
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
disappear 0x9
disappear 0xA
pause 0x1E
compare PLAYERFACING 0x2
if 0x1 call 0x8169845 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169850 ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x816985B ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x816986D ' Equal To
textcolor 0x3 'Sets text color (Fire Red).
fanfare 0x13E
message 0x818F0E8 ' \v\h01's POK镈EX was upgraded!
showmsg
waitfanfare
call 0x81A6675
special 0x16F
msgbox 0x818F103 ' Now, \v\h01 and \v\h06!\pThis time, you really must work\ntowards filling your POK镈EXES.\pI urge you to make them the best\nand the most complete of all time!\pTruly, this is a monumentally great\nundertaking in POK镸ON history!
callstd MSG_NOCLOSE ' Non-closing msg
msgbox 0x818F1DB ' \v\h06: Gramps, calm down.\nDon't get so excited.\pI'll get the POK镈EX completed,\ndon't you worry about a thing.\pI think I'll try looking around\nONE ISLAND first[.]\pAnyways, I'm outta here!
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
playsound 0x13C 0x0
compare PLAYERFACING 0x2
if 0x1 call 0x8169B69 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169B7B ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169B7B ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169B7B ' Equal To
disappear 0x8
fadedefault
setvar 0x4055 0x8
releaseall
end
#org 0x8169174
'-----------------------------------
movesprite2 0x8 0x5 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement PLAYER 0x8169B94 ' raw_2D raw_1C raw_1C raw_1C raw_1C raw_1C raw_1B walk_to_player end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x81691BB
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement 0x4 0x81A75ED ' raw_2D end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x8169194
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement 0x4 0x81A75ED ' raw_2D end
applymovement PLAYER 0x8169B91 ' raw_1A raw_2D end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x81698D6
'-----------------------------------
setvar 0x8004 0x0
special2 0x800D 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
storevar 0x0 0x8008
storevar 0x1 0x8009
compare 0x8009 0x1
if 0x1 jump 0x81699FB ' Equal To
jump 0x8169903
#org 0x81699FB
'-----------------------------------
special 0x187
compare LASTRESULT 0x2
if 0x1 jump 0x81A7AE0 ' Equal To
special 0x188
checkflag 0x24F
if 0x1 jump 0x8169A6E ' Equal To
checkflag 0x247
if 0x1 jump 0x8169A78 ' Equal To
checkitem 0x4 0x1
compare LASTRESULT 0x0
if 0x1 jump 0x8169A34 ' Equal To
jump 0x8169A6E
#org 0x8169A78
'-----------------------------------
msgbox 0x818E98E ' OAK: Come see me sometime.\pAfter all, I want to know how your\nPOK镈EX is coming along.
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x8169A34
'-----------------------------------
compare 0x4054 0x2
if 0x4 jump 0x8169A45 ' Larger Than or Equal To
jump 0x8169A6E
#org 0x8169A45
'-----------------------------------
msgbox 0x818E89C ' Ah, \v\h01!\nHow is your POK镈EX shaping up?\p\v\h06 has already caught some\nPOK镸ON and added to the data.\pSo, \v\h01, let's have a look at\nyour POK镈EX.\p[.]What's the matter?\nYou've added no new data at all.\pI'll give you these, so do try a\nlittle harder.
callstd MSG_NOCLOSE ' Non-closing msg
additem 0x4 0x5
msgbox 0x818E6B3 ' \v\h01 received five POK?BALLS.
copyvarifnotzero 0x8000 0x4
copyvarifnotzero 0x8001 0x5
copyvarifnotzero 0x8002 0x101
callstd 0x9 '
setflag 0x247
release
end
#org 0x816961E
'-----------------------------------
msgbox 0x818E405 ' OAK: Oh, \v\h01!\nHow is my old POK镸ON?\pWell, it seems to be growing more\nattached to you.\pYou must be talented as a POK镸ON\nTRAINER.\pWhat's that?\nYou have something for me?
callstd MSG_NOCLOSE ' Non-closing msg
textcolor 0x3 'Sets text color (Fire Red).
fanfare 0x105
message 0x818E4AF ' \v\h01 delivered OAK'S PARCEL.
showmsg
waitfanfare
call 0x81A6675
removeitem 0x15D 0x1
msgbox 0x818E4CA ' Ah! \nIt's the custom POK?BALL!\pI had it on order.\nThank you!
callstd MSG_NOCLOSE ' Non-closing msg
playsound 0x13B 0x0
msgbox 0x818DE8D ' \v\h06: Gramps!
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
compare PLAYERFACING 0x2
if 0x1 call 0x8169A82 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169AC1 ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169A9E ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169A9E ' Equal To
fadedefault
msgbox 0x818DE99 ' \v\h06: I almost forgot!\nWhat did you call me for?
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
pause 0x1E
sound 0x15
applymovement 0x4 0x81A75DB ' say_! end
pauseevent 0x0
applymovement 0x4 0x81A75DD ' raw_1C raw_1C raw_1C end
pauseevent 0x0
compare PLAYERFACING 0x1
if 0x1 call 0x8169ADD ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169B14 ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169AF5 ' Equal To
compare PLAYERFACING 0x2
if 0x1 call 0x8169B86 ' Equal To
msgbox 0x818E508 ' OAK: Oh, right!\nI have a request for you two.
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
compare PLAYERFACING 0x2
if 0x1 call 0x8169882 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x816988D ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x81698A6 ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x81698B8 ' Equal To
msgbox 0x818E536 ' On the desk there is my invention,\nthe POK镈EX!\pIt automatically records data on\nPOK镸ON you've seen or caught.\pIt's a high-tech encyclopedia!
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
pause 0x28
msgbox 0x818E5C5 ' OAK: \v\h01 and \v\h06.\nTake these with you.
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
applymovement 0x4 0x81A75E9 ' walk_to_lasttalk end
pauseevent 0x0
disappear 0x9
pause 0xA
disappear 0xA
pause 0x19
compare PLAYERFACING 0x2
if 0x1 call 0x8169845 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169850 ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x816985B ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x816986D ' Equal To
pause 0xA
textcolor 0x3 'Sets text color (Fire Red).
fanfare 0x13E
message 0x818E5EA ' \v\h01 received the POK镈EX\nfrom PROF. OAK.
showmsg
waitfanfare
call 0x81A6675
setflag 0x829
special 0x181
setvar 0x407C 0x1
msgbox 0x818E612 ' OAK: You can't get detailed data\non POK镸ON by just seeing them.\pYou must catch them to obtain\ncomplete data.\pSo, here are some tools for\ncatching wild POK镸ON.
callstd MSG_NOCLOSE ' Non-closing msg
additem 0x4 0x5
msgbox 0x818E6B3 ' \v\h01 received five POK?BALLS.
copyvarifnotzero 0x8000 0x4
copyvarifnotzero 0x8001 0x5
copyvarifnotzero 0x8002 0x101
callstd 0x9 '
msgbox 0x818E6D0 ' When a wild POK镸ON appears,\nit's fair game.\pJust throw a POK?BALL at it and\ntry to catch it!\pThis won't always work, however.\pA healthy POK镸ON can escape.\nYou have to be lucky!
callstd MSG_NOCLOSE ' Non-closing msg
setvar 0x8004 0x0
setvar 0x8005 0x1
special 0x173
msgbox 0x818E784 ' To make a complete guide on all\nthe POK镸ON in the world[.]\pThat was my dream!\pBut, I'm too old.\nI can't get the job done.\pSo, I want you two to fulfill my\ndream for me.\pGet moving, you two.\pThis is a great undertaking in\nPOK镸ON history!
callstd MSG_NOCLOSE ' Non-closing msg
msgbox 0x818DEC8 ' \v\h06: All right, Gramps!\nLeave it all to me!
callstd MSG_NOCLOSE ' Non-closing msg
compare PLAYERFACING 0x2
if 0x1 call 0x8169B33 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169B45 ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169B57 ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169B57 ' Equal To
msgbox 0x818DEF3 ' \v\h01, I hate to say it, but you\nwon't be necessary for this.\pI know! I'll borrow a TOWN MAP\nfrom my sis!\pI'll tell her not to lend you one,\n\v\h01! Hahaha!\pDon't bother coming around to\nmy place after this!
callstd MSG_NOCLOSE ' Non-closing msg
closemsg
playsound 0x13C 0x0
compare PLAYERFACING 0x2
if 0x1 call 0x8169B69 ' Equal To
compare PLAYERFACING 0x1
if 0x1 call 0x8169B7B ' Equal To
compare PLAYERFACING 0x4
if 0x1 call 0x8169B7B ' Equal To
compare PLAYERFACING 0x3
if 0x1 call 0x8169B7B ' Equal To
disappear 0x8
fadedefault
setvar 0x4055 0x6
setvar 0x4057 0x2
setvar 0x4051 0x1
setvar 0x4058 0x1
setvar 0x4054 0x1
release
end
#org 0x81A6675
'-----------------------------------
copyvar 0x8012 0x8013
return
#org 0x8169A82
'-----------------------------------
movesprite2 0x8 0x5 0xA
reappear 0x8
applymovement PLAYER 0x8169B94 ' raw_2D raw_1C raw_1C raw_1C raw_1C raw_1C raw_1B walk_to_player end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x8169AC1
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
applymovement 0x4 0x81A75ED ' raw_2D end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x8169A9E
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
applymovement 0x4 0x81A75ED ' raw_2D end
applymovement PLAYER 0x8169B91 ' raw_1A raw_2D end
applymovement 0x8 0x8169B9D ' walk_up walk_up walk_up walk_up walk_up walk_up end
pauseevent 0x0
return
#org 0x8169614
'-----------------------------------
msgbox 0x818E3AD ' OAK: \v\h01, raise your young\nPOK镸ON by making it battle.\pIt has to battle for it to grow.
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x816960A
'-----------------------------------
msgbox 0x818E330 ' OAK: If a wild POK镸ON appears,\nyour POK镸ON can battle it.\pWith it at your side, you should be\nable to reach the next town.
callstd MSG_NOCLOSE ' Non-closing msg
release
end
#org 0x81A73A4
'-----------------------------------
msgbox 0x81A72F2 ' OAK: Ah, welcome!\pTell me, how is your POK镈EX\ncoming along?\pWahaha!\pActually, I know how it is, but I\nlove seeing it anyway!\pLet's see[.]
callstd MSG_NOCLOSE ' Non-closing msg
return
#org 0x81A73AD
'-----------------------------------
msgbox 0x81A6C51 ' OAK: Good to see you!\nHow is your POK镈EX coming along?\pHere, let me take a look.
callstd MSG_NOCLOSE ' Non-closing msg
return
#org 0x81A73E0
'-----------------------------------
setvar 0x8004 0x1F
special 0x17E
special 0x17D
setvar 0x8004 0x0
special2 0x800D 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
copyvar 0x800A LASTRESULT
storevar 0x0 0x8008
storevar 0x1 0x8009
msgbox 0x81A6CA3 ' The amount of progress you've made\non your POK镈EX is:\p\v\h02 POK镸ON seen and\n\v\h03 POK镸ON owned.\p\hFC\h06\h02PROF. OAK's rating:
callstd MSG_NOCLOSE ' Non-closing msg
checkflag 0x2FF
if 0x0 call 0x81A746D ' Smaller Than
call 0x81A73B6
compare 0x800A 0x0
if 0x1 jump 0x81A748F ' Equal To
setvar 0x8004 0x1
special2 0x800D 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
storevar 0x0 0x8008
storevar 0x1 0x8009
msgbox 0x81A71AA ' And your NATIONAL POK镈EX is:\p\v\h02 POK镸ON seen and\n\v\h03 POK镸ON owned.
callstd MSG_NOCLOSE ' Non-closing msg
special2 0x800D 0x1B0
compare LASTRESULT 0x0
if 0x1 jump 0x81A7470 ' Equal To
compare LASTRESULT 0x1
if 0x1 jump 0x81A747E ' Equal To
end
#org 0x81A746D
'-----------------------------------
textcolor 0x0 'Sets text color (Fire Red).
return
#org 0x81A73B6
'-----------------------------------
copyvar 0x8004 0x8009
special 0xD5
showmsg
compare LASTRESULT 0x0
if 0x1 call 0x81A73D8 ' Equal To
compare LASTRESULT 0x1
if 0x1 call 0x81A73DC ' Equal To
waitfanfare
waitbutton
return
#org 0x81A73D8
'-----------------------------------
fanfare 0x13D
return
#org 0x81A73DC
'-----------------------------------
fanfare 0x103
return
#org 0x81A748F
'-----------------------------------
special 0x17F
return
#org 0x81A7470
'-----------------------------------
msgbox 0x81A71EE ' I'll be looking forward to seeing\nyou fill the NATIONAL POK镈EX!
callstd MSG_NOCLOSE ' Non-closing msg
jump 0x81A748F
#org 0x81A747E
'-----------------------------------
setflag 0x2F4
msgbox 0x81A722F ' Finally[.]\pYou've finally completed the\nPOK镈EX!\pIt's magnificent!\nTruly, this is a fantastic feat!
callstd MSG_NOCLOSE ' Non-closing msg
jump 0x81A748F
#org 0x816997A
'-----------------------------------
applymovement 0x4 0x816999E ' raw_27 raw_2B raw_27 raw_27 raw_2B raw_27 end
pauseevent 0x0
return
#org 0x8169985
'-----------------------------------
applymovement 0x4 0x81699A5 ' raw_28 raw_2C raw_28 raw_28 raw_2C raw_28 end
pauseevent 0x0
return
#org 0x81691DB
'-----------------------------------
applymovement PLAYER 0x81A75E9 ' walk_to_lasttalk end
pauseevent 0x0
return
#org 0x81691E6
'-----------------------------------
applymovement PLAYER 0x81A75E7 ' walk_to_player end
pauseevent 0x0
return
#org 0x81691F1
'-----------------------------------
applymovement 0x4 0x8169232 ' walk_up walk_left walk_to_lasttalk raw_1C raw_1A end
pauseevent 0x0
return
#org 0x81691FC
'-----------------------------------
applymovement 0x4 0x8169238 ' walk_left walk_left walk_up raw_1C raw_1A end
applymovement PLAYER 0x81698C7 ' raw_1C raw_1B walk_to_player end
applymovement 0x8 0x81698C7 ' raw_1C raw_1B walk_to_player end
pauseevent 0x4
return
#org 0x8169215
'-----------------------------------
applymovement 0x4 0x8169232 ' walk_up walk_left walk_to_lasttalk raw_1C raw_1A end
applymovement PLAYER 0x81698C3 ' raw_1C raw_1B walk_to_lasttalk end
pauseevent 0x4
return
#org 0x8169227
'-----------------------------------
applymovement 0x4 0x8169232 ' walk_up walk_left walk_to_lasttalk raw_1C raw_1A end
pauseevent 0x0
return
#org 0x8169845
'-----------------------------------
applymovement 0x4 0x816987C ' walk_right walk_down end
pauseevent 0x0
return
#org 0x8169850
'-----------------------------------
applymovement 0x4 0x816987F ' walk_down walk_right end
pauseevent 0x0
return
#org 0x816985B
'-----------------------------------
applymovement 0x4 0x816987C ' walk_right walk_down end
applymovement PLAYER 0x8169878 ' raw_1C raw_1B raw_30 end
pauseevent 0x0
return
#org 0x816986D
'-----------------------------------
applymovement 0x4 0x816987C ' walk_right walk_down end
pauseevent 0x0
return
#org 0x8169B69
'-----------------------------------
applymovement PLAYER 0x8169B91 ' raw_1A raw_2D end
applymovement 0x8 0x8169BA4 ' walk_down walk_down walk_down walk_down walk_down walk_down end
pauseevent 0x0
return
#org 0x8169B7B
'-----------------------------------
applymovement 0x8 0x8169BA4 ' walk_down walk_down walk_down walk_down walk_down walk_down end
pauseevent 0x0
return
#org 0x8169ADD
'-----------------------------------
applymovement 0x4 0x81A75E1 ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement 0x4 0x81A75ED ' raw_2D end
pauseevent 0x0
return
#org 0x8169B14
'-----------------------------------
applymovement 0x4 0x81A75E1 ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement PLAYER 0x81A75EB ' raw_30 end
applymovement 0x4 0x81A75ED ' raw_2D end
pauseevent 0x0
return
#org 0x8169AF5
'-----------------------------------
applymovement 0x4 0x81A75E1 ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement PLAYER 0x81A75E7 ' walk_to_player end
applymovement 0x4 0x81A75ED ' raw_2D end
pauseevent 0x0
return
#org 0x8169B86
'-----------------------------------
applymovement PLAYER 0x81A75E9 ' walk_to_lasttalk end
pauseevent 0x0
return
#org 0x8169882
'-----------------------------------
applymovement 0x4 0x81698CB ' walk_up walk_left raw_1C raw_2D end
pauseevent 0x0
return
#org 0x816988D
'-----------------------------------
applymovement 0x4 0x81698D0 ' walk_left walk_left walk_up raw_1C raw_30 end
applymovement PLAYER 0x81698C7 ' raw_1C raw_1B walk_to_player end
applymovement 0x8 0x81698C7 ' raw_1C raw_1B walk_to_player end
pauseevent 0x4
return
#org 0x81698A6
'-----------------------------------
applymovement 0x4 0x81698CB ' walk_up walk_left raw_1C raw_2D end
applymovement PLAYER 0x81698C3 ' raw_1C raw_1B walk_to_lasttalk end
pauseevent 0x4
return
#org 0x81698B8
'-----------------------------------
applymovement 0x4 0x81698CB ' walk_up walk_left raw_1C raw_2D end
pauseevent 0x0
return
#org 0x8169B33
'-----------------------------------
applymovement 0x8 0x81A75E1 ' faceplayer end
applymovement PLAYER 0x81A75E7 ' walk_to_player end
pauseevent 0x0
return
#org 0x8169B45
'-----------------------------------
applymovement 0x8 0x81A75E9 ' walk_to_lasttalk end
applymovement PLAYER 0x81A75ED ' raw_2D end
pauseevent 0x0
return
#org 0x8169B57
'-----------------------------------
applymovement 0x8 0x81A75E1 ' faceplayer end
applymovement PLAYER 0x81A75ED ' raw_2D end
pauseevent 0x0
return
#org 0x818E116
= OAK: Now, \v\h01.\pInside those three POK?BALLS are\nPOK镸ON.\pWhich one will you choose for\nyourself?
#org 0x81A72AD
= Thank you, \v\h01!\nSincerely, thank you!\lYou've made my dream a reality!
#org 0x81A7291
= Wroooooooaaaaaarrrr!
#org 0x818E871
= POK镸ON around the world wait for\nyou, \v\h01!
#org 0x818EDF5
= Ah, now this is excellent!\p\v\h01, I have another important\nfavor to ask of you.\pI need you to listen closely.
#org 0x818EE60
= Recently, there have been sightings\nof many rare POK镸ON species.\pI'm talking about POK镸ON that\nhave never been seen in KANTO.\pI would love to go see things for\nmyself, but I'm much too old.\pSince I can't do it, \v\h01, I'd\nlike you to go in my place.
#org 0x818EF59
= \v\h06: Hey, I heard that!\pGramps, what's with favoring\n\v\h01 over me all the time?\pI went and collected more POK镸ON,\nand faster, too.\pYou should just let me handle\neverything.
#org 0x818F004
= OAK: I know, I know.\nOf course I need your help, too.\pNow, I need to see both your\nPOK镈EXES.
#org 0x818F062
= PROF. OAK took both POK镈EX\nunits.
#org 0x818F085
= [.] [.] [.] [.] [.] [.]\p[.] [.] [.] [.] [.] [.]\p[.]And that's done!\pNow these units can record data on\na lot more POK镸ON.
#org 0x818F0E8
= \v\h01's POK镈EX was upgraded!
#org 0x818F103
= Now, \v\h01 and \v\h06!\pThis time, you really must work\ntowards filling your POK镈EXES.\pI urge you to make them the best\nand the most complete of all time!\pTruly, this is a monumentally great\nundertaking in POK镸ON history!
#org 0x818F1DB
= \v\h06: Gramps, calm down.\nDon't get so excited.\pI'll get the POK镈EX completed,\ndon't you worry about a thing.\pI think I'll try looking around\nONE ISLAND first[.]\pAnyways, I'm outta here!
#org 0x818E98E
= OAK: Come see me sometime.\pAfter all, I want to know how your\nPOK镈EX is coming along.
#org 0x818E89C
= Ah, \v\h01!\nHow is your POK镈EX shaping up?\p\v\h06 has already caught some\nPOK镸ON and added to the data.\pSo, \v\h01, let's have a look at\nyour POK镈EX.\p[.]What's the matter?\nYou've added no new data at all.\pI'll give you these, so do try a\nlittle harder.
#org 0x818E6B3
= \v\h01 received five POK?BALLS.
#org 0x818E405
= OAK: Oh, \v\h01!\nHow is my old POK镸ON?\pWell, it seems to be growing more\nattached to you.\pYou must be talented as a POK镸ON\nTRAINER.\pWhat's that?\nYou have something for me?
#org 0x818E4AF
= \v\h01 delivered OAK'S PARCEL.
#org 0x818E4CA
= Ah! \nIt's the custom POK?BALL!\pI had it on order.\nThank you!
#org 0x818DE8D
= \v\h06: Gramps!
#org 0x818DE99
= \v\h06: I almost forgot!\nWhat did you call me for?
#org 0x818E508
= OAK: Oh, right!\nI have a request for you two.
#org 0x818E536
= On the desk there is my invention,\nthe POK镈EX!\pIt automatically records data on\nPOK镸ON you've seen or caught.\pIt's a high-tech encyclopedia!
#org 0x818E5C5
= OAK: \v\h01 and \v\h06.\nTake these with you.
#org 0x818E5EA
= \v\h01 received the POK镈EX\nfrom PROF. OAK.
#org 0x818E612
= OAK: You can't get detailed data\non POK镸ON by just seeing them.\pYou must catch them to obtain\ncomplete data.\pSo, here are some tools for\ncatching wild POK镸ON.
#org 0x818E6D0
= When a wild POK镸ON appears,\nit's fair game.\pJust throw a POK?BALL at it and\ntry to catch it!\pThis won't always work, however.\pA healthy POK镸ON can escape.\nYou have to be lucky!
#org 0x818E784
= To make a complete guide on all\nthe POK镸ON in the world[.]\pThat was my dream!\pBut, I'm too old.\nI can't get the job done.\pSo, I want you two to fulfill my\ndream for me.\pGet moving, you two.\pThis is a great undertaking in\nPOK镸ON history!
#org 0x818DEC8
= \v\h06: All right, Gramps!\nLeave it all to me!
#org 0x818DEF3
= \v\h01, I hate to say it, but you\nwon't be necessary for this.\pI know! I'll borrow a TOWN MAP\nfrom my sis!\pI'll tell her not to lend you one,\n\v\h01! Hahaha!\pDon't bother coming around to\nmy place after this!
#org 0x818E3AD
= OAK: \v\h01, raise your young\nPOK镸ON by making it battle.\pIt has to battle for it to grow.
#org 0x818E330
= OAK: If a wild POK镸ON appears,\nyour POK镸ON can battle it.\pWith it at your side, you should be\nable to reach the next town.
#org 0x81A72F2
= OAK: Ah, welcome!\pTell me, how is your POK镈EX\ncoming along?\pWahaha!\pActually, I know how it is, but I\nlove seeing it anyway!\pLet's see[.]
#org 0x81A6C51
= OAK: Good to see you!\nHow is your POK镈EX coming along?\pHere, let me take a look.
#org 0x81A6CA3
= The amount of progress you've made\non your POK镈EX is:\p\v\h02 POK镸ON seen and\n\v\h03 POK镸ON owned.\p\hFC\h06\h02PROF. OAK's rating:
#org 0x81A71AA
= And your NATIONAL POK镈EX is:\p\v\h02 POK镸ON seen and\n\v\h03 POK镸ON owned.
#org 0x81A71EE
= I'll be looking forward to seeing\nyou fill the NATIONAL POK镈EX!
#org 0x81A722F
= Finally[.]\pYou've finally completed the\nPOK镈EX!\pIt's magnificent!\nTruly, this is a fantastic feat!
#org 0x81A75E1
M faceplayer end
#org 0x8169990
M raw_25 raw_29 raw_25 raw_25 raw_29 raw_25 end
#org 0x8169997
M raw_26 raw_2A raw_26 raw_26 raw_2A raw_26 end
#org 0x8169B94
M raw_2D raw_1C raw_1C raw_1C raw_1C raw_1C raw_1B walk_to_player end
#org 0x8169B9D
M walk_up walk_up walk_up walk_up walk_up walk_up end
#org 0x81A75ED
M raw_2D end
#org 0x8169B91
M raw_1A raw_2D end
#org 0x81A75DB
M say_! end
#org 0x81A75DD
M raw_1C raw_1C raw_1C end
#org 0x81A75E9
M walk_to_lasttalk end
#org 0x816999E
M raw_27 raw_2B raw_27 raw_27 raw_2B raw_27 end
#org 0x81699A5
M raw_28 raw_2C raw_28 raw_28 raw_2C raw_28 end
#org 0x81A75E7
M walk_to_player end
#org 0x8169232
M walk_up walk_left walk_to_lasttalk raw_1C raw_1A end
#org 0x8169238
M walk_left walk_left walk_up raw_1C raw_1A end
#org 0x81698C7
M raw_1C raw_1B walk_to_player end
#org 0x81698C3
M raw_1C raw_1B walk_to_lasttalk end
#org 0x816987C
M walk_right walk_down end
#org 0x816987F
M walk_down walk_right end
#org 0x8169878
M raw_1C raw_1B raw_30 end
#org 0x8169BA4
M walk_down walk_down walk_down walk_down walk_down walk_down end
#org 0x81A75EB
M raw_30 end
#org 0x81698CB
M walk_up walk_left raw_1C raw_2D end
#org 0x81698D0
M walk_left walk_left walk_up raw_1C raw_30 end