Behold.
//---------------
#org 0x8013E8
lock
checkflag 0x201
if 0x1 goto 0x8801BC2
msgbox 0x8803110 MSG_FACE //"[black_fr][player]? What are you d..."
setflag 0x201
release
end
//---------------
#org 0x801BC2
checkflag 0x828
if 0x1 goto 0x8801BD6
msgbox 0x8803620 MSG_FACE //"[black_fr]Well, what are you waiti..."
release
end
//---------------
#org 0x801BD6
checkflag 0x820
if 0x1 goto 0x8801BEA
msgbox 0x8803A20 MSG_FACE //"[black_fr]You have a Pokémon? Wher..."
release
end
//---------------
#org 0x801BEA
checkflag 0x821
if 0x1 goto 0x88022E8
msgbox 0x8803D1C MSG_FACE //"[black_fr]Oho! Now that's a fine b..."
release
end
//---------------
#org 0x8022E8
checkflag 0x822
if 0x1 goto 0x8802608
msgbox 0x8803E20 MSG_FACE //"[black_fr]Two badges already? That..."
release
end
//---------------
#org 0x802608
checkflag 0x823
if 0x1 goto 0x880261C
msgbox 0x8804220 MSG_FACE //"[black_fr]Three badges already? Th..."
release
end
//---------------
#org 0x80261C
checkflag 0x824
if 0x1 goto 0x8802630
msgbox 0x8804564 MSG_FACE //"[black_fr]Four badges already? Wow..."
release
end
//---------------
#org 0x802630
checkflag 0x825
if 0x1 goto 0x8802644
msgbox 0x8804624 MSG_FACE //"[black_fr]You have five badges now..."
release
end
//---------------
#org 0x802644
checkflag 0x826
if 0x1 goto 0x8802658
msgbox 0x8804692 MSG_FACE //"[black_fr]You have six badges now?..."
release
end
//---------------
#org 0x802658
checkflag 0x827
if 0x1 goto 0x880266C
msgbox 0x880B804 MSG_FACE //"[black_fr]Oh, you've beaten the [r..."
release
end
//---------------
#org 0x80266C
checkflag 0x203
if 0x1 goto 0x88026AC
checkflag 0x202
if 0x1 goto 0x8802698
msgbox 0x880B928 MSG_FACE //"[black_fr]That's the Majesty Badge..."
giveitem 0xC5 0x1 MSG_OBTAIN
setflag 0x202
release
end
//---------------
#org 0x8026AC
checkflag 0x202
if 0x1 goto 0x88026CF
msgbox 0x880C028 MSG_FACE //"Oh good lord you actually beat the..."
giveitem 0xC5 0x1 MSG_OBTAIN
setflag 0x202
release
end
//---------------
#org 0x802698
checkflag 0x203
if 0x1 goto 0x88026CF
msgbox 0x880BF60 MSG_FACE //"[black_fr]That's the Majesty Badge..."
release
end
//---------------
#org 0x8026CF
msgbox 0x880C40C MSG_FACE //"Oh good lord you actually beat the..."
release
end
//---------
// Strings
//---------
#org 0x803110
= [black_fr][player]? What are you doing here?\pOh, that's right, I forgot my lunch\nagain, didn't I?\p[grey_fr]Your father takes his lunchbox from\nyou.\p[black_fr]Thanks, [player]. You should head on\nback home - technically only\lemployees are allowed in the mines.
#org 0x803620
= [black_fr]Well, what are you waiting for? Go\non, your mother probably has some\lhousework she wants help with.
#org 0x803A20
= [black_fr]You have a Pokémon? Where'd you get\nthat?\p...never mind, it doesn't matter. I\nsuppose you're off to challenge the\lgyms now?\pBe sure to visit home once in a\nwhile, okay? Your mother will love\lto see your badges.
#org 0x803D1C
= [black_fr]Oho! Now that's a fine badge! Looks\nlike you're an even better trainer\lthan your old man. I still can't\lbeat [blue_fr]Mr. Hoovestone[black_fr].
#org 0x803E20
= [black_fr]Two badges already? That's pretty\nimpressive. Keep it up and you'll be\lat [red_fr]Harmony Island[black_fr] in no time!
#org 0x804220
= [black_fr]Three badges already? That's pretty\nimpressive. Keep it up and you'll be\lat [red_fr]Harmony Island[black_fr] in no time!
#org 0x804564
= [black_fr]Four badges already? Wow, you've\nalready beaten half the league!\l Keep it up and you'll be at [red_fr]Harmony\lIsland[black_fr] in no time!
#org 0x804624
= [black_fr]You have five badges now? You're\ndoing great! At this rate you might\leven get to challenge the Champion!
#org 0x804692
= [black_fr]You have six badges now? You're\ndoing great! At this rate you might\leven get to challenge the Champion!
#org 0x80B804
= [black_fr]Oh, you've beaten the [red_fr]Tidebourne[black_fr]\ngym? Your mother and I went there on\lour honeymoon, you know.\pListen, if you can beat the gym on\n[red_fr]Empyrean Island[black_fr], I'll see about\lfinding something to reward you for\lyour efforts. How's that sound?
#org 0x80B928
= [black_fr]That's the Majesty Badge! You beat\nall eight gyms? Oh, I'm so proud of\lyou!\pHere you go! A little something to\ncelebrate your success.
#org 0x80C028
= Oh good lord you actually beat the\nChampion. I have never been more\lproud of anyone in my LIFE! Oh,\lwow, the guys are never going to\lbelieve this.\pHere you go! A little something to\ncelebrate your success.
#org 0x80BF60
= [black_fr]That's the Majesty Badge! You beat\nall eight gyms? Oh, I'm so proud of\lyou!
#org 0x80C40C
= Oh good lord you actually beat the\nChampion. I have never been more\lproud of anyone in my LIFE! Oh,\lwow, the guys are never going to\lbelieve this.
Bottom line is, talk to your dad after beating the eighth gym and he'll give you a Lucky Egg. Your dad's a cool guy.