#dynamic 0x800000
'---------------
#org @start
lockall
bufferfirstpokemon 0x0
preparemsg
@String1 '"PROF. BIRCH: So, [player]\v\h05.\p..."
waitmsg
fanfare 0x172
waitfanfare
msgbox
@String2 MSG_YESNO '"PROF. BIRCH: While you're at it, w..."
compare LASTRESULT 0x1
if 0x1 goto @snippet1
compare LASTRESULT 0x0
if 0x1 goto @snippet2
end
'---------------
#org @snippet1
setvar 0x8004 0x0
call @snippet3
goto @snippet2
'---------------
#org @snippet2
msgbox
@String3 MSG_YESNO '"PROF. BIRCH: If you work at POKéMO..."
compare LASTRESULT 0x1
if 0x1 goto @snippet4
compare LASTRESULT 0x0
if 0x1 goto @snippet5
end
'---------------
#org @snippet3
fadescreen 0x1
special 0xA1
waitstate
return
'---------------
#org @snippet4
msgbox
@String4 MSG_KEEPOPEN '"PROF. BIRCH: Great!\n[rival] shoul..."
clearflag 0x3DF
setvar 0x4084 0x3
releaseall
end
'---------------
#org @snippet5
msgbox
@String5 MSG_YESNO '"PROF. BIRCH: Oh, don't be that way..."
compare LASTRESULT 0x1
if 0x1 goto @snippet4
compare LASTRESULT 0x0
if 0x1 goto @snippet5
end
'---------
' Strings
'---------
#org
@String1
= PROF. BIRCH: So, [player]\v\h05.\pI've heard so much about you from\nyour father.\pI've heard that you don't have your\nown POKéMON yet.\pBut the way you battled earlier,\nyou pulled it off with aplomb!\pI guess you have your father's blood\nin your veins after all!\pOh, yes. As thanks for rescuing me,\nI'd like you to have the POKéMON you\lused earlier.\p[player] received the [buffer1]!
#org
@String2
= PROF. BIRCH: While you're at it, why not\ngive a nickname to that [buffer1]?
#org
@String3
= PROF. BIRCH: If you work at POKéMON\nand gain experience, I think you'll make\lan extremely good TRAINER.\pMy kid, [rival], is also studying\nPOKéMON while helping me out.\p[player]\v\h05, don't you think it might be\na good idea to go see [rival]?
#org
@String4
= PROF. BIRCH: Great!\n[rival] should be happy, too.\pGet [rival] to teach you what it\nmeans to be a TRAINER.
#org
@String5
= PROF. BIRCH: Oh, don't be that way.\nYou should go meet my kid.