#org 0x8169571
'-----------------------------------
lock
faceplayer
checkflag 0x2
if true jump 0x81695DC ' Flag is set
compare 0x4055 0x9
if == jump 0x81698DF ' Equal To
compare 0x4055 0x8
if == jump 0x8169A4A ' Equal To
checkflag 0x82C
if true jump 0x81699AA ' Flag is set
compare 0x4052 0x1
if == jump 0x81698DF ' Equal To
compare 0x4055 0x6
if == jump 0x81698B2 ' Equal To
compare 0x4057 0x1
if >= jump 0x81695FA ' Larger Than or Equal To
compare 0x4055 0x4
if == jump 0x81695F0 ' Equal To
compare 0x4055 0x3
if == jump 0x81695E6 ' Equal To
msgbox 0x818E0F2 ' OAK: Now, \v\h01.\pI...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x81695DC
'-----------------------------------
msgbox 0x81A7289 ' Thank you, \v\h01!\n...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x81698DF
'-----------------------------------
call 0x81A7357
checkflag 0x2F4
if true jump 0x81698EF ' Flag is set
release
end
#org 0x81A7357
'-----------------------------------
special INIT_STEPCOUNT
compare LASTRESULT 0x2
if == jump 0x81A7ABC ' Equal To
special GET_STEPCOUNT
checkflag 0x2F4
if true call 0x81A7380 ' Flag is set
checkflag 0x2F4
if false call 0x81A7389 ' Flag is unset
call 0x81A73BC
return
#org 0x81A7ABC
'-----------------------------------
release
end
#org 0x81698EF
'-----------------------------------
closemsg
pause 0x28
message 0x81A726D ' Wroooooooaaaaaarrrr!
showmsg
compare PLAYERFACING UP
if == call 0x8169940 ' Equal To
compare PLAYERFACING DOWN
if == call 0x816994B ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169956 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169961 ' Equal To
applymovement 0x4 0x81A75BD ' faceplayer end
pauseevent 0x0
closemsg
pause 0x46
msgbox 0x81A7289 ' Thank you, \v\h01!\n...
callstd MSG_NOCLOSE ' Non-closing message
setflag 0x2
release
end
#org 0x8169940
'-----------------------------------
applymovement 0x4 0x816996C ' onspot_down onspot_d...
pauseevent 0x0
return
#org 0x816994B
'-----------------------------------
applymovement 0x4 0x8169973 ' onspot_up onspot_up_...
pauseevent 0x0
return
#org 0x8169A4A
'-----------------------------------
msgbox 0x818E84D ' POK\eMON around the ...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x81699AA
'-----------------------------------
call 0x81A7357
closemsg
compare 0x8009 0x3C
if < jump 0x81699D5 ' Smaller Than
checkflag 0x89B
if false jump 0x81699D5 ' Flag is unset
pause 0x1E
msgbox 0x818EDD1 ' Ah, now this is exce...
callstd MSG_NOCLOSE ' Non-closing message
jump 0x8169011
#org 0x81699D5
'-----------------------------------
release
end
#org 0x8169011
'-----------------------------------
msgbox 0x818EE3C ' Recently, there have...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
compare PLAYERFACING UP
if == call 0x8169150 ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169197 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169170 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169170 ' Equal To
msgbox 0x818EF35 ' \v\h06: Hey, I heard...
callstd MSG_NOCLOSE ' Non-closing message
fadedefault
msgbox 0x818EFE0 ' OAK: I know, I know....
callstd MSG_NOCLOSE ' Non-closing message
compare PLAYERFACING UP
if == call 0x81691B7 ' Equal To
compare PLAYERFACING LEFT
if == call 0x81691C2 ' Equal To
textcolor GRAY
msgbox 0x818F03E ' PROF. OAK took both ...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
call 0x81A6651
compare PLAYERFACING UP
if == call 0x81691CD ' Equal To
compare PLAYERFACING DOWN
if == call 0x81691D8 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x81691F1 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169203 ' Equal To
reappear 0x9
reappear 0xA
pause 0x1E
msgbox 0x818F061 ' [.] [.] [.] [.] [.]...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
disappear 0x9
disappear 0xA
pause 0x1E
compare PLAYERFACING UP
if == call 0x8169821 ' Equal To
compare PLAYERFACING DOWN
if == call 0x816982C ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169837 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169849 ' Equal To
textcolor GRAY
fanfare 0x13E
message 0x818F0C4 ' \v\h01's POK\eDEX wa...
showmsg
waitfanfare
call 0x81A6651
special FR_NATIONAL_DEX
msgbox 0x818F0DF ' Now, \v\h01 and \v\h...
callstd MSG_NOCLOSE ' Non-closing message
msgbox 0x818F1B7 ' \v\h06: Gramps, calm...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
playsound 0x13C 0x0
compare PLAYERFACING UP
if == call 0x8169B45 ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169B57 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169B57 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169B57 ' Equal To
disappear 0x8
fadedefault
setvar 0x4055 0x8
releaseall
end
#org 0x8169150
'-----------------------------------
movesprite2 0x8 0x5 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement PLAYER 0x8169B70 ' look_down_delayed pa...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x8169197
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x8169170
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
playsound 0x13B 0x0
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
applymovement PLAYER 0x8169B6D ' pause_short look_dow...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x81698B2
'-----------------------------------
setvar 0x8004 0x0
special2 LASTRESULT 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
storevar 0x0 0x8008
storevar 0x1 0x8009
compare 0x8009 0x1
if == jump 0x81699D7 ' Equal To
jump 0x81698DF
#org 0x81699D7
'-----------------------------------
special INIT_STEPCOUNT
compare LASTRESULT 0x2
if == jump 0x81A7ABC ' Equal To
special GET_STEPCOUNT
checkflag 0x24F
if true jump 0x8169A4A ' Flag is set
checkflag 0x247
if true jump 0x8169A54 ' Flag is set
checkitem POKEBALL 1
compare LASTRESULT 0x0
if == jump 0x8169A10 ' Equal To
jump 0x8169A4A
#org 0x8169A54
'-----------------------------------
msgbox 0x818E96A ' OAK: Come see me som...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x8169A10
'-----------------------------------
compare 0x4054 0x2
if >= jump 0x8169A21 ' Larger Than or Equal To
jump 0x8169A4A
#org 0x8169A21
'-----------------------------------
msgbox 0x818E878 ' Ah, \v\h01!\nHow is ...
callstd MSG_NOCLOSE ' Non-closing message
additem POKEBALL 5
msgbox 0x818E68F ' \v\h01 received five...
copyvarifnotzero 0x8000 POKEBALL
copyvarifnotzero 0x8001 0x5
copyvarifnotzero 0x8002 0x101
callstd MSG_ITEM ' Shows a message, then... 'Player put the yyy in the zzz!'
setflag 0x247
release
end
#org 0x81695FA
'-----------------------------------
msgbox 0x818E3E1 ' OAK: Oh, \v\h01!\nHo...
callstd MSG_NOCLOSE ' Non-closing message
textcolor GRAY
fanfare 0x105
message 0x818E48B ' \v\h01 delivered OAK...
showmsg
waitfanfare
call 0x81A6651
removeitem OAKSPARCEL 1
msgbox 0x818E4A6 ' Ah! \nIt's the custo...
callstd MSG_NOCLOSE ' Non-closing message
playsound 0x13B 0x0
msgbox 0x818DE69 ' \v\h06: Gramps!
callstd MSG_NOCLOSE ' Non-closing message
closemsg
compare PLAYERFACING UP
if == call 0x8169A5E ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169A9D ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169A7A ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169A7A ' Equal To
fadedefault
msgbox 0x818DE75 ' \v\h06: I almost for...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
pause 0x1E
sound 0x15
applymovement 0x4 0x81A75B7 ' say_! end
pauseevent 0x0
applymovement 0x4 0x81A75B9 ' pause_long pause_lon...
pauseevent 0x0
compare PLAYERFACING DOWN
if == call 0x8169AB9 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169AF0 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169AD1 ' Equal To
compare PLAYERFACING UP
if == call 0x8169B62 ' Equal To
msgbox 0x818E4E4 ' OAK: Oh, right!\nI h...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
compare PLAYERFACING UP
if == call 0x816985E ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169869 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169882 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169894 ' Equal To
msgbox 0x818E512 ' On the desk there is...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
pause 0x28
msgbox 0x818E5A1 ' OAK: \v\h01 and \v\h...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
applymovement 0x4 0x81A75C5 ' look_up_delayed end
pauseevent 0x0
disappear 0x9
pause 0xA
disappear 0xA
pause 0x19
compare PLAYERFACING UP
if == call 0x8169821 ' Equal To
compare PLAYERFACING DOWN
if == call 0x816982C ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169837 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169849 ' Equal To
pause 0xA
textcolor GRAY
fanfare 0x13E
message 0x818E5C6 ' \v\h01 received the ...
showmsg
waitfanfare
call 0x81A6651
setflag FR_POKEDEX
special 0x181
setvar 0x407C 0x1
msgbox 0x818E5EE ' OAK: You can't get d...
callstd MSG_NOCLOSE ' Non-closing message
additem POKEBALL 5
msgbox 0x818E68F ' \v\h01 received five...
copyvarifnotzero 0x8000 POKEBALL
copyvarifnotzero 0x8001 0x5
copyvarifnotzero 0x8002 0x101
callstd MSG_ITEM ' Shows a message, then... 'Player put the yyy in the zzz!'
msgbox 0x818E6AC ' When a wild POK\eMON...
callstd MSG_NOCLOSE ' Non-closing message
setvar 0x8004 0x0
setvar 0x8005 0x1
special FAME_CHECKER
msgbox 0x818E760 ' To make a complete g...
callstd MSG_NOCLOSE ' Non-closing message
msgbox 0x818DEA4 ' \v\h06: All right, G...
callstd MSG_NOCLOSE ' Non-closing message
compare PLAYERFACING UP
if == call 0x8169B0F ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169B21 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169B33 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169B33 ' Equal To
msgbox 0x818DECF ' \v\h01, I hate to sa...
callstd MSG_NOCLOSE ' Non-closing message
closemsg
playsound 0x13C 0x0
compare PLAYERFACING UP
if == call 0x8169B45 ' Equal To
compare PLAYERFACING DOWN
if == call 0x8169B57 ' Equal To
compare PLAYERFACING RIGHT
if == call 0x8169B57 ' Equal To
compare PLAYERFACING LEFT
if == call 0x8169B57 ' Equal To
disappear 0x8
fadedefault
setvar 0x4055 0x6
setvar 0x4057 0x2
setvar 0x4051 0x1
setvar 0x4058 0x1
setvar 0x4054 0x1
release
end
#org 0x81A6651
'-----------------------------------
copyvar 0x8012 0x8013
return
#org 0x8169A5E
'-----------------------------------
movesprite2 0x8 0x5 0xA
reappear 0x8
applymovement PLAYER 0x8169B70 ' look_down_delayed pa...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x8169A9D
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x8169A7A
'-----------------------------------
movesprite2 0x8 0x6 0xA
reappear 0x8
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
applymovement PLAYER 0x8169B6D ' pause_short look_dow...
applymovement 0x8 0x8169B79 ' walk_up walk_up walk...
pauseevent 0x0
return
#org 0x81695F0
'-----------------------------------
msgbox 0x818E389 ' OAK: \v\h01, raise y...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x81695E6
'-----------------------------------
msgbox 0x818E30C ' OAK: If a wild POK\e...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end
#org 0x81A7380
'-----------------------------------
msgbox 0x81A72CE ' OAK: Ah, welcome!\pT...
callstd MSG_NOCLOSE ' Non-closing message
return
#org 0x81A7389
'-----------------------------------
msgbox 0x81A6C2D ' OAK: Good to see you...
callstd MSG_NOCLOSE ' Non-closing message
return
#org 0x81A73BC
'-----------------------------------
setvar 0x8004 0x1F
special 0x17E
special 0x17D
setvar 0x8004 0x0
special2 LASTRESULT 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
copyvar 0x800A LASTRESULT
storevar 0x0 0x8008
storevar 0x1 0x8009
msgbox 0x81A6C7F ' The amount of progre...
callstd MSG_NOCLOSE ' Non-closing message
checkflag 0x2FF
if false call 0x81A7449 ' Flag is unset
call 0x81A7392
compare 0x800A 0x0
if == jump 0x81A746B ' Equal To
setvar 0x8004 0x1
special2 LASTRESULT 0xD4
copyvar 0x8008 0x8005
copyvar 0x8009 0x8006
storevar 0x0 0x8008
storevar 0x1 0x8009
msgbox 0x81A7186 ' And your NATIONAL PO...
callstd MSG_NOCLOSE ' Non-closing message
special2 LASTRESULT 0x1B0
compare LASTRESULT 0x0
if == jump 0x81A744C ' Equal To
compare LASTRESULT 0x1
if == jump 0x81A745A ' Equal To
end
#org 0x81A7449
'-----------------------------------
textcolor BLUE
return
#org 0x81A7392
'-----------------------------------
copyvar 0x8004 0x8009
special 0xD5
showmsg
compare LASTRESULT 0x0
if == call 0x81A73B4 ' Equal To
compare LASTRESULT 0x1
if == call 0x81A73B8 ' Equal To
waitfanfare
waitbutton
return
#org 0x81A73B4
'-----------------------------------
fanfare 0x13D
return
#org 0x81A73B8
'-----------------------------------
fanfare 0x103
return
#org 0x81A746B
'-----------------------------------
special 0x17F
return
#org 0x81A744C
'-----------------------------------
msgbox 0x81A71CA ' I'll be looking forw...
callstd MSG_NOCLOSE ' Non-closing message
jump 0x81A746B
#org 0x81A745A
'-----------------------------------
setflag 0x2F4
msgbox 0x81A720B ' Finally[.]\pYou've f...
callstd MSG_NOCLOSE ' Non-closing message
jump 0x81A746B
#org 0x8169956
'-----------------------------------
applymovement 0x4 0x816997A ' onspot_left onspot_l...
pauseevent 0x0
return
#org 0x8169961
'-----------------------------------
applymovement 0x4 0x8169981 ' onspot_right onspot_...
pauseevent 0x0
return
#org 0x81691B7
'-----------------------------------
applymovement PLAYER 0x81A75C5 ' look_up_delayed end
pauseevent 0x0
return
#org 0x81691C2
'-----------------------------------
applymovement PLAYER 0x81A75C3 ' look_left_delayed en...
pauseevent 0x0
return
#org 0x81691CD
'-----------------------------------
applymovement 0x4 0x816920E ' walk_up walk_left lo...
pauseevent 0x0
return
#org 0x81691D8
'-----------------------------------
applymovement 0x4 0x8169214 ' walk_left walk_left ...
applymovement PLAYER 0x81698A3 ' pause_long pause loo...
applymovement 0x8 0x81698A3 ' pause_long pause loo...
pauseevent 0x4
return
#org 0x81691F1
'-----------------------------------
applymovement 0x4 0x816920E ' walk_up walk_left lo...
applymovement PLAYER 0x816989F ' pause_long pause loo...
pauseevent 0x4
return
#org 0x8169203
'-----------------------------------
applymovement 0x4 0x816920E ' walk_up walk_left lo...
pauseevent 0x0
return
#org 0x8169821
'-----------------------------------
applymovement 0x4 0x8169858 ' walk_right walk_down...
pauseevent 0x0
return
#org 0x816982C
'-----------------------------------
applymovement 0x4 0x816985B ' walk_down walk_right...
pauseevent 0x0
return
#org 0x8169837
'-----------------------------------
applymovement 0x4 0x8169858 ' walk_right walk_down...
applymovement PLAYER 0x8169854 ' pause_long pause loo...
pauseevent 0x0
return
#org 0x8169849
'-----------------------------------
applymovement 0x4 0x8169858 ' walk_right walk_down...
pauseevent 0x0
return
#org 0x8169B45
'-----------------------------------
applymovement PLAYER 0x8169B6D ' pause_short look_dow...
applymovement 0x8 0x8169B80 ' walk_down walk_down ...
pauseevent 0x0
return
#org 0x8169B57
'-----------------------------------
applymovement 0x8 0x8169B80 ' walk_down walk_down ...
pauseevent 0x0
return
#org 0x8169AB9
'-----------------------------------
applymovement 0x4 0x81A75BD ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
pauseevent 0x0
return
#org 0x8169AF0
'-----------------------------------
applymovement 0x4 0x81A75BD ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement PLAYER 0x81A75C7 ' look_right_delayed e...
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
pauseevent 0x0
return
#org 0x8169AD1
'-----------------------------------
applymovement 0x4 0x81A75BD ' faceplayer end
pauseevent 0x0
pause 0xF
applymovement PLAYER 0x81A75C3 ' look_left_delayed en...
applymovement 0x4 0x81A75C9 ' look_down_delayed en...
pauseevent 0x0
return
#org 0x8169B62
'-----------------------------------
applymovement PLAYER 0x81A75C5 ' look_up_delayed end
pauseevent 0x0
return
#org 0x816985E
'-----------------------------------
applymovement 0x4 0x81698A7 ' walk_up walk_left pa...
pauseevent 0x0
return
#org 0x8169869
'-----------------------------------
applymovement 0x4 0x81698AC ' walk_left walk_left ...
applymovement PLAYER 0x81698A3 ' pause_long pause loo...
applymovement 0x8 0x81698A3 ' pause_long pause loo...
pauseevent 0x4
return
#org 0x8169882
'-----------------------------------
applymovement 0x4 0x81698A7 ' walk_up walk_left pa...
applymovement PLAYER 0x816989F ' pause_long pause loo...
pauseevent 0x4
return
#org 0x8169894
'-----------------------------------
applymovement 0x4 0x81698A7 ' walk_up walk_left pa...
pauseevent 0x0
return
#org 0x8169B0F
'-----------------------------------
applymovement 0x8 0x81A75BD ' faceplayer end
applymovement PLAYER 0x81A75C3 ' look_left_delayed en...
pauseevent 0x0
return
#org 0x8169B21
'-----------------------------------
applymovement 0x8 0x81A75C5 ' look_up_delayed end
applymovement PLAYER 0x81A75C9 ' look_down_delayed en...
pauseevent 0x0
return
#org 0x8169B33
'-----------------------------------
applymovement 0x8 0x81A75BD ' faceplayer end
applymovement PLAYER 0x81A75C9 ' look_down_delayed en...
pauseevent 0x0
return
#org 0x818E0F2
= OAK: Now, \v\h01.\pInside those three POK\e BALLS are\nPOK\eMON.\pWhich one will you choose for\nyourself?
#org 0x81A7289
= Thank you, \v\h01!\nSincerely, thank you!\lYou've made my dream a reality!
#org 0x81A726D
= Wroooooooaaaaaarrrr!
#org 0x818E84D
= POK\eMON around the world wait for\nyou, \v\h01!
#org 0x818EDD1
= Ah, now this is excellent!\p\v\h01, I have another important\nfavor to ask of you.\pI need you to listen closely.
#org 0x818EE3C
= Recently, there have been sightings\nof many rare POK\eMON species.\pI'm talking about POK\eMON 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 0x818EF35
= \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\eMON,\nand faster, too.\pYou should just let me handle\neverything.
#org 0x818EFE0
= OAK: I know, I know.\nOf course I need your help, too.\pNow, I need to see both your\nPOK\eDEXES.
#org 0x818F03E
= PROF. OAK took both POK\eDEX\nunits.
#org 0x818F061
= [.] [.] [.] [.] [.] [.]\p[.] [.] [.] [.] [.] [.]\p[.]And that's done!\pNow these units can record data on\na lot more POK\eMON.
#org 0x818F0C4
= \v\h01's POK\eDEX was upgraded!
#org 0x818F0DF
= Now, \v\h01 and \v\h06!\pThis time, you really must work\ntowards filling your POK\eDEXES.\pI urge you to make them the best\nand the most complete of all time!\pTruly, this is a monumentally great\nundertaking in POK\eMON history!
#org 0x818F1B7
= \v\h06: Gramps, calm down.\nDon't get so excited.\pI'll get the POK\eDEX completed,\ndon't you worry about a thing.\pI think I'll try looking around\nONE ISLAND first[.]\pAnyways, I'm outta here!
#org 0x818E96A
= OAK: Come see me sometime.\pAfter all, I want to know how your\nPOK\eDEX is coming along.
#org 0x818E878
= Ah, \v\h01!\nHow is your POK\eDEX shaping up?\p\v\h06 has already caught some\nPOK\eMON and added to the data.\pSo, \v\h01, let's have a look at\nyour POK\eDEX.\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 0x818E68F
= \v\h01 received five POK\e BALLS.
#org 0x818E3E1
= OAK: Oh, \v\h01!\nHow is my old POK\eMON?\pWell, it seems to be growing more\nattached to you.\pYou must be talented as a POK\eMON\nTRAINER.\pWhat's that?\nYou have something for me?
#org 0x818E48B
= \v\h01 delivered OAK'S PARCEL.
#org 0x818E4A6
= Ah! \nIt's the custom POK\e BALL!\pI had it on order.\nThank you!
#org 0x818DE69
= \v\h06: Gramps!
#org 0x818DE75
= \v\h06: I almost forgot!\nWhat did you call me for?
#org 0x818E4E4
= OAK: Oh, right!\nI have a request for you two.
#org 0x818E512
= On the desk there is my invention,\nthe POK\eDEX!\pIt automatically records data on\nPOK\eMON you've seen or caught.\pIt's a high-tech encyclopedia!
#org 0x818E5A1
= OAK: \v\h01 and \v\h06.\nTake these with you.
#org 0x818E5C6
= \v\h01 received the POK\eDEX\nfrom PROF. OAK.
#org 0x818E5EE
= OAK: You can't get detailed data\non POK\eMON by just seeing them.\pYou must catch them to obtain\ncomplete data.\pSo, here are some tools for\ncatching wild POK\eMON.
#org 0x818E6AC
= When a wild POK\eMON appears,\nit's fair game.\pJust throw a POK\e BALL at it and\ntry to catch it!\pThis won't always work, however.\pA healthy POK\eMON can escape.\nYou have to be lucky!
#org 0x818E760
= To make a complete guide on all\nthe POK\eMON 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\eMON history!
#org 0x818DEA4
= \v\h06: All right, Gramps!\nLeave it all to me!
#org 0x818DECF
= \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 0x818E389
= OAK: \v\h01, raise your young\nPOK\eMON by making it battle.\pIt has to battle for it to grow.
#org 0x818E30C
= OAK: If a wild POK\eMON appears,\nyour POK\eMON can battle it.\pWith it at your side, you should be\nable to reach the next town.
#org 0x81A72CE
= OAK: Ah, welcome!\pTell me, how is your POK\eDEX\ncoming along?\pWahaha!\pActually, I know how it is, but I\nlove seeing it anyway!\pLet's see[.]
#org 0x81A6C2D
= OAK: Good to see you!\nHow is your POK\eDEX coming along?\pHere, let me take a look.
#org 0x81A6C7F
= The amount of progress you've made\non your POK\eDEX is:\p\v\h02 POK\eMON seen and\n\v\h03 POK\eMON owned.\p\c\h06\h02PROF. OAK's rating:
#org 0x81A7186
= And your NATIONAL POK\eDEX is:\p\v\h02 POK\eMON seen and\n\v\h03 POK\eMON owned.
#org 0x81A71CA
= I'll be looking forward to seeing\nyou fill the NATIONAL POK\eDEX!
#org 0x81A720B
= Finally[.]\pYou've finally completed the\nPOK\eDEX!\pIt's magnificent!\nTruly, this is a fantastic feat!
#org 0x81A75BD
M faceplayer end
#org 0x816996C
M onspot_down onspot_down_fast onspot_down onspot_down onspot_down_fast onspot_down end
#org 0x8169973
M onspot_up onspot_up_fast onspot_up onspot_up onspot_up_fast onspot_up end
#org 0x8169B70
M look_down_delayed pause_long pause_long pause_long pause_long pause_long pause look_left_delayed end
#org 0x8169B79
M walk_up walk_up walk_up walk_up walk_up walk_up end
#org 0x81A75C9
M look_down_delayed end
#org 0x8169B6D
M pause_short look_down_delayed end
#org 0x81A75B7
M say_! end
#org 0x81A75B9
M pause_long pause_long pause_long end
#org 0x81A75C5
M look_up_delayed end
#org 0x816997A
M onspot_left onspot_left_fast onspot_left onspot_left onspot_left_fast onspot_left end
#org 0x8169981
M onspot_right onspot_right_fast onspot_right onspot_right onspot_right_fast onspot_right end
#org 0x81A75C3
M look_left_delayed end
#org 0x816920E
M walk_up walk_left look_up_delayed pause_long pause_short end
#org 0x8169214
M walk_left walk_left walk_up pause_long pause_short end
#org 0x81698A3
M pause_long pause look_left_delayed end
#org 0x816989F
M pause_long pause look_up_delayed end
#org 0x8169858
M walk_right walk_down end
#org 0x816985B
M walk_down walk_right end
#org 0x8169854
M pause_long pause look_right_delayed end
#org 0x8169B80
M walk_down walk_down walk_down walk_down walk_down walk_down end
#org 0x81A75C7
M look_right_delayed end
#org 0x81698A7
M walk_up walk_left pause_long look_down_delayed end
#org 0x81698AC
M walk_left walk_left walk_up pause_long look_right_delayed end