All scripts

lock ();
faceplayer ();
say ("Do you want the DOME FOSSIL?", 5);
if (0x800D == 0x0) goto (lbl_1607DE);
hidesprite (0x1);
giveitem (0x166, 0x1);
loadpointer (0, "Obtained the DOME FOSSIL!");
copyvarifnot0 (0x8000, 0x166);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x13E);
callstd (9);
closeonkeypress ();
special (0x188);
pause (0xA);
applymove (0x3, move_16077A);
waitformove (0x0);
moveoffscreen (0x3);
textcolor (0);
jingle (0x13E);
preparemsg ("All right.\nThen this fossil is mine!");
waitmsg ();
waitforjingle ();
hidesprite (0x2);
setflag (0x272);
setflag (0x232);
release ();
end ();

rawb (Walk.West, Walk.North, Walk.North, Walk.North, Move.End);

lock ();
faceplayer ();
say ("Do you want the HELIX FOSSIL?", 5);
if (0x800D == 0x0) goto (lbl_1607DE);
hidesprite (0x2);
giveitem (0x165, 0x1);
loadpointer (0, "Obtained the HELIX FOSSIL!");
copyvarifnot0 (0x8000, 0x165);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x13E);
callstd (9);
closeonkeypress ();
special (0x188);
pause (0xA);
applymove (0x3, move_1607E0);
waitformove (0x0);
moveoffscreen (0x3);
textcolor (0);
jingle (0x13E);
preparemsg ("All right.\nThen this fossil is mine!");
waitmsg ();
waitforjingle ();
hidesprite (0x1);
setflag (0x273);
setflag (0x232);
release ();
end ();

rawb (Walk.North, Walk.North, Walk.North, Move.End);

trainerbattle (0, 351, "We, TEAM ROCKET, shall find the\nfossils!\rReviving POKéMON from them will\nearn us huge riches!", "Urgh!\nNow I'm mad!");
say ("You made me mad!\nTEAM ROCKET will blacklist you!", 6);
end ();

trainerbattle (0, 352, "We, TEAM ROCKET, are POKéMON\ngangsters!\fWe strike fear with our strength!", "I blew it!");
say ("Darn it all!\nMy associates won't stand for this!", 6);
end ();

trainerbattle (0, 353, "We're pulling a big job here!\nGet lost, kid!", "So, you are good…");
say ("If you find a fossil, give it to me\nand scram!", 6);
end ();

trainerbattle (0, 354, "Little kids shouldn't be messing\naround with grown-ups!\rIt could be bad news!", "I'm steamed!");
say ("POKéMON lived here long before\npeople came.", 6);
end ();

setworldmapflag (0x8A6);
end ();

say ("Bonjour!\nI am le waiter on this ship!\rI will be happy to serve you\nanything you please!\r… … …\nAh! Le strong silent type!", 2);
end ();

say ("The passengers are restless from\nthis long voyage.\rYou might be challenged by the\nmore bored ones!", 2);
end ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_160903);
end ();

textcolor (0);
playsound (0x9);
pause (0x5);
playsong (0x13B, 0);
showsprite (0x1);
pause (0xA);
applymove (0x1, move_1A75ED);
waitformove (0x0);
pause (0x14);
if (0x4001 == 0x0) call (lbl_1609AD);
if (0x4001 == 0x1) call (lbl_1609B8);
if (0x4001 == 0x2) call (lbl_1609CA);
say ("{TERRY}: Bonjour!\n{RED}!\rImagine seeing you here!\n{RED}, were you really invited?\rSo how's your POKéDEX coming?\rI already caught 40 kinds, pal.\nDifferent kinds are everywhere.\rCrawl around in grassy areas, and\nlook hard for them.", 4);
setvar (0x800F, 0x1);
if (0x4031 == 0x2) call (lbl_1609DC);
if (0x4031 == 0x1) call (lbl_1609E7);
if (0x4031 == 0x0) call (lbl_1609F2);
say ("{TERRY}: I heard there was a CUT\nmaster on board.\rBut he was just a seasick old man!\rCUT itself is really useful.\nYup, it'll be handy.\rYou should go see him, too.\nSmell ya!", 4);
closeonkeypress ();
pause (0xA);
playsong (0x13C, 0);
if (0x4001 == 0x0) call (lbl_1609FD);
if (0x4001 == 0x1) call (lbl_160A08);
if (0x4001 == 0x2) call (lbl_160A13);
fadetodefault ();
hidesprite (0x1);
setvar (0x405B, 0x1);
releaseall ();
end ();

applymove (0x1, move_160A4C);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x1, move_160A44);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x1, move_160A3B);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

trainerbattle (3, 428, "Humph!\rAt least you're raising your\nPOKéMON!");
return ();

trainerbattle (3, 427, "Humph!\rAt least you're raising your\nPOKéMON!");
return ();

trainerbattle (3, 426, "Humph!\rAt least you're raising your\nPOKéMON!");
return ();

applymove (0xFF, move_160A1E);
applymove (0x1, move_160A34);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, 0x1A, Move.End);

rawb (0x1C, 0x1C, 0x1C, 0x1C, RealFastInPlace.East, Move.End);

applymove (0x1, move_160A2E);
applymove (0xFF, move_160A24);
waitformove (0x0);
return ();

rawb (0x1C, 0x1C, 0x1C, 0x1C, RealFastInPlace.East, Move.End);

rawb (Walk.South, Walk.South, Walk.South, Walk.South, RealFastInPlace.West, Move.End);

applymove (0x1, move_160A2A);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.South, Move.End);

rawb (RealFastInPlace.South, Move.End);

lockall ();
setvar (0x4001, 0x1);
jump (lbl_160903);
end ();

lockall ();
setvar (0x4001, 0x2);
jump (lbl_160903);
end ();

say ("This ship, she is a luxury liner for\nTRAINERS of the world!\rAt every port, we hold parties with\ninvited TRAINERS.", 2);
end ();

say ("Our CAPTAIN is a sword master.\nHe's awesome at using CUT.\rThey say he even teaches CUT\nto POKéMON!", 2);
end ();

say ("The party's over.\nThe ship will be departing soon.", 2);
end ();

say ("Urf… I feel ill…\rI got seasick, so I stepped out to\nget some air…", 2);
end ();

say ("Whew!\nScrubbing decks is hard work!", 2);
end ();

trainerbattle (0, 134, "Hey, matey!\rLet's do a little jig!", "You're impressive!");
say ("How many kinds of POKéMON do you\nthink there are in this big world?", 6);
end ();

trainerbattle (0, 135, "Ahoy, there!\nAre you seasick?", "I was just careless!");
say ("My pa said there are 100 kinds of\nPOKéMON. I think there are more.", 6);
end ();

say ("You, mon petit!\nWe're busy here!\fOut of the way!", 2);
end ();

say ("I saw an odd BERRY in the trash.\nI wonder what that was?", 2);
end ();

say ("I'm so busy I'm getting dizzy!\nYou have to give me room here!", 2);
end ();

lock ();
faceplayer ();
say ("Er-hem!\nIndeed I am le CHEF!\rLe main course is", 4);
getrandom (0x3);
copyvar (0x8008, 0x800D);
if (0x8008 == 0x0) call (lbl_160B03);
if (0x8008 == 0x1) call (lbl_160B0C);
if (0x8008 == 0x2) call (lbl_160B15);
release ();
end ();

say ("Prime Beefsteak!\rBut, have I enough fillets du\nbeef?", 4);
return ();

say ("Eels au Barbecue!\rLes guests will mutiny, I fear.", 4);
return ();

say ("Salmon du Salad!\rLes guests may gripe it's fish\nagain, however!", 4);
return ();

say ("Hum-de-hum-de-ho…\rI peel spuds every day!\nHum-hum…", 2);
end ();

say ("Did you hear about SNORLAX?\nIt's a glutton.\rNo other POKéMON eats and sleeps\nthe way SNORLAX can and does!", 2);
end ();

say ("Snivel… Sniff…\rI only get to peel onions…\nSnivel…", 2);
end ();

lock ();
if (0x237) goto (lbl_160BB5);
say ("CAPTAIN: Ooargh…\nI feel hideous…\fUrrp! Seasick…", 4);
textcolor (3);
preparemsg ("{RED} rubbed the CAPTAIN's\nback!\rRub-rub…\nRub-rub…");
waitmsg ();
jingle (0x100);
waitforjingle ();
call (lbl_1A6675);
pause (0x32);
applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("CAPTAIN: Whew! Thank you!\nI'm feeling much better now.\rYou want to see my hidden CUT\ntechnique?\rI could show you my prized CUT\ntechnique if I weren't so ill…\rI know! You can have this!\nThis HIDDEN MACHINE!\rTeach CUT to your POKéMON, and\nyou can see it CUT anytime!", 4);
giveitem (0x153, 0x1);
loadpointer (0, "{RED} obtained HM01\nfrom the CAPTAIN!");
copyvarifnot0 (0x8000, 0x153);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x13E);
callstd (9);
say ("Using CUT, you can chop down\nsmall trees.\rWhy not try it with the trees\naround VERMILION CITY?", 4);
setflag (0x237);
setvar (0x407E, 0x1);
release ();
end ();

rawb (0x4A, Move.End);

copyvar (0x8012, 0x8013);
return ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("CAPTAIN: …Whew!\rNow that I'm not sick anymore,\nI guess it's time.\rThe S.S. ANNE will set sail soon!\rFarewell, until our return to\nVERMILION CITY!", 4);
release ();
end ();

say ("Yuck!\nShouldn't have looked!", 3);
end ();

say ("How to Conquer Seasickness…\nThe CAPTAIN's reading this!", 3);
end ();

say ("Ssh…!\nI'm a GLOBAL POLICE agent.\rI'm on the trail of TEAM ROCKET.\nThey're up to nothing good!", 2);
end ();

say ("We are cruising around the world,\nmy children and I.", 2);
end ();

trainerbattle (0, 126, "I collected these POKéMON\nfrom all around the world!", "Oh, no!\nI went around the world for these!");
say ("You hurt my poor POKéMON!\rI demand that you heal them at a\nPOKéMON CENTER!", 6);
end ();

trainerbattle (0, 96, "I love POKéMON!\nDo you?", "Wow! \nYou're great!");
say ("Listen, listen!\nLet me be your friend, okay?\rThen we can trade POKéMON and\ndo stuff.", 6);
end ();

say ("I always travel with WIGGLYTUFF.\nI never leave home without it.", 2);
end ();

say ("A world cruise is so elegant yet\ncozy!", 2);
end ();

lock ();
faceplayer ();
checksound ();
cry (0x28, 0x0);
say ("WIGGLYTUFF: Puup pupuu!", 4);
waitforcry ();
release ();
end ();

lock ();
faceplayer ();
getgender ();
if (0x800D == 0x0) goto (lbl_160C5C);
say ("Waitress, I would like a cherry\npie, please!", 4);
release ();
end ();

say ("Waiter, I would like a cherry pie,\nplease!", 4);
release ();
end ();

trainerbattle (0, 422, "You insolent pup!\nHow dare you barge in!", "Humph! You rude child!\nYou have no sense of courtesy!");
say ("I wish to be left alone!\nGet out!", 6);
end ();

trainerbattle (0, 421, "I am but a solitary traveler…\rMy sole companions and friends are\nPOKéMON I caught on my journeys…", "My, my friends…");
say ("You should be nice to friends!", 6);
end ();

lock ();
faceplayer ();
preparemsg ("I've journeyed far and wide, but in\nall my travels I've never seen\fany POKéMON sleep like this one!\rIt was something like this!");
waitmsg ();
setvar (0x8004, 0x8F);
special (0x163);
showpokepic (0x8F, 10, 3);
waitkeypress ();
hidepokepic ();
release ();
end ();

trainerbattle (0, 223, "Check out what I fished up!", "I'm all out!");
say ("Party?\rThe cruise ship's party should be\nover by now.", 6);
end ();

trainerbattle (0, 482, "Competing against the young keeps\nme youthful.", "Good match!\nAh, I feel young again!");
say ("Fifteen years ago, I would\nhave won!", 6);
end ();

say ("Ah, yes, I have seen some POKéMON\nferry people across the water!", 2);
end ();

say ("Small trees can be chopped down\nusing the move CUT.\rBut remember this!\nCUT is an HM technique.\rOnce learned, it is not so easily\ndiscarded.", 2);
end ();

trainerbattle (0, 483, "Which do you find more worthy,\na strong or a rare POKéMON?", "I must salute you!");
say ("Personally, I prefer strong and\nrare POKéMON.", 6);
end ();

trainerbattle (0, 127, "I don't believe I saw you at the\nparty?", "Take it easy!");
say ("Oh, I adore your strong POKéMON!\nOh, how I envy you for them!", 6);
end ();

say ("Have you gone to the SAFARI ZONE\nin FUCHSIA CITY?\rThere are many kinds of rare\nPOKéMON.", 2);
end ();

say ("Me and my daddy think the SAFARI\nZONE is awesome!\fI wish we could go there again.", 2);
end ();

say ("The CAPTAIN said he's awfully sick.\nHe was all pale.", 2);
end ();

say ("I hear many people get seasick.", 2);
end ();

trainerbattle (0, 224, "Hello, stranger!\rI can't tell if you're from the seas\nor mountains, but stop and chat.\rAll my POKéMON are from the sea.", "Darn!\nI let that one get away!");
say ("I was going to make you my\nassistant, too!", 6);
end ();

trainerbattle (0, 140, "Matey, you're walking the plank if\nyou lose!", "Argh!\nBeaten by a kid!");
say ("When we're out at sea, jellyfish\nPOKéMON sometimes drift by.", 6);
end ();

trainerbattle (0, 138, "Even us sailors have POKéMON, too!", "Okay, you're not bad.");
say ("We caught all our POKéMON while\nwe were out at sea.", 6);
end ();

trainerbattle (0, 139, "I like feisty kids like you!", "Argh!\nLost it!");
say ("Sea POKéMON live in deep water.\nYou'll need a ROD to fish them up!", 6);
end ();

trainerbattle (0, 136, "You know what they say about\nsailors and battling!", "Right!\nGood battle, mate!");
say ("Hahaha!\nWant to be a sailor, mate?", 6);
end ();

trainerbattle (0, 137, "Come on, then!\nMy sailor's pride is at stake!", "Your spirit sank me!");
say ("Did you see the FISHING GURU in\nVERMILION CITY?", 6);
end ();

say ("My buddy MACHOKE is super strong!\rHe has enough STRENGTH to move\nbig rocks!", 2);
end ();

lock ();
faceplayer ();
checksound ();
cry (0x43, 0x0);
say ("MACHOKE: Gwoh! Goggoh!", 4);
waitforcry ();
release ();
end ();

lock ();
faceplayer ();
say ("You look tired. Would you like to\ntake a short rest?", 5);
if (0x800D == 0x0) goto (lbl_160E18);
closeonkeypress ();
call (lbl_1A6C26);
say ("I'm glad to see that everyone is\nlooking refreshed and chipper.", 4);
release ();
end ();

fade (1);
jingle (0x100);
waitforjingle ();
special (0x0);
fade (0);
return ();

getgender ();
if (0x800D == 0x0) goto (lbl_160E2E);
say ("Oh, I'm sorry for fussing over you.\nYou look like my little sister…", 4);
release ();
end ();

say ("Oh, I'm sorry for fussing over you.\nYou look like my little brother…", 4);
release ();
end ();

lock ();
faceplayer ();
setvar (0x8008, 0x2);
call (lbl_1A8CAD);
if (0x24B) goto (lbl_160EAB);
say ("Hi!\nDo you have a {var:2}?\rWant to trade it for my\n{var:3}?", 5);
if (0x800D == 0x0) goto (lbl_160E93);
call (lbl_1A8CBD);
if (0x8004 => 0x6) goto (lbl_160E93);
call (lbl_1A8CC9);
comparevars (0x800D, 0x8009);
ifgoto (5, lbl_160E9D);
call (lbl_1A8CD9);
say ("Thanks, you're a pal!", 4);
setflag (0x24B);
release ();
end ();

copyvar (0x8004, 0x8008);
copyvar (0x8005, 0x800A);
special (0xFD);
special (0xFE);
waitstate ();
lock ();
faceplayer ();
return ();

getpokemonname (0, 0x8009);
say ("…This is no {var:2}.\rIf you get one, trade it with me.", 4);
release ();
end ();

copyvar (0x8005, 0x800A);
special2 (0x800D, 0xFF);
copyvar (0x800B, 0x800D);
return ();

special (0x9F);
waitstate ();
lock ();
faceplayer ();
copyvar (0x800A, 0x8004);
return ();

say ("That's too bad.", 4);
release ();
end ();

say ("How is my old {var:3}?\nMy {var:2} is doing great!", 4);
release ();
end ();

copyvar (0x8004, 0x8008);
special2 (0x800D, 0xFC);
copyvar (0x8009, 0x800D);
return ();

setworldmapflag (0x8A7);
end ();

say ("People often lose things in the\ndarkness of the UNDERGROUND PATH.", 2);
end ();

say ("I heard a sleepy POKéMON appeared\nout near CELADON CITY, too.", 2);
end ();

setworldmapflag (0x8A8);
end ();

say ("The DEPARTMENT STORE in CELADON\nhas a great selection.\rDo you go there very often?", 2);
end ();

say ("I went inside ROCK TUNNEL, but it's\npitch-black and scary in there.\rIf I could get a POKéMON to use\nFLASH and light it up…", 2);
end ();

setworldmapflag (0x8A9);
end ();

say ("Well, isn't this a surprise!\nDIGLETT dug this long tunnel!\rIt goes right to VIRIDIAN CITY,\nthey tell me.", 2);
end ();

if (0x4064 != 0x64) call (lbl_160F1C);
end ();

setmaptile (0xC, 0xE, 0x307, 0x1);
setmaptile (0xC, 0xF, 0x317, 0x1);
return ();

setworldmapflag (0x8AA);
end ();

lockall ();
if (0x4064 == 0x64) goto (lbl_160F62);
setmaptile (0xC, 0xE, 0x2D1, 0x0);
setmaptile (0xC, 0xF, 0x2E1, 0x0);
playsound (0x23);
special (0x8E);
checksound ();
moveoffscreen (0x5);
setvar (0x4064, 0x64);
releaseall ();
end ();

releaseall ();
end ();

trainerbattle (0, 406, "I wonder if you are good enough\nfor me?", "I lost out…");
say ("I never wanted to lose to anybody,\nespecially to a younger kid…", 6);
end ();

trainerbattle (0, 396, "I can see you're good.\nLet me see exactly how good!", "I had a chance…");
say ("Tch!\nI concede, you are better than I!", 6);
end ();

if (0x4065 != 0x64) call (lbl_160FAF);
if (0x4066 != 0x64) call (lbl_160FC2);
end ();

setmaptile (0x21, 0x10, 0x307, 0x1);
setmaptile (0x21, 0x11, 0x317, 0x1);
return ();

setmaptile (0xD, 0xA, 0x307, 0x1);
setmaptile (0xD, 0xB, 0x317, 0x1);
return ();

lockall ();
if (0x4065 == 0x64) goto (lbl_161004);
setmaptile (0xD, 0xA, 0x2D1, 0x0);
setmaptile (0xD, 0xB, 0x2E1, 0x0);
playsound (0x23);
special (0x8E);
checksound ();
moveoffscreen (0xB);
setvar (0x4065, 0x64);
releaseall ();
end ();

releaseall ();
end ();

lockall ();
if (0x4066 == 0x64) goto (lbl_161035);
setmaptile (0x21, 0x10, 0x2D1, 0x0);
setmaptile (0x21, 0x11, 0x2E1, 0x0);
playsound (0x23);
special (0x8E);
checksound ();
moveoffscreen (0xC);
setvar (0x4066, 0x64);
releaseall ();
end ();

releaseall ();
end ();

trainerbattle (0, 167, "If you can get through here,\nyou can go meet the ELITE FOUR.", "No!\nUnbelievable!");
say ("I can beat you when it comes to\nknowledge about POKéMON!", 6);
end ();

trainerbattle (0, 325, "This here is VICTORY ROAD.\nIt's the final test for TRAINERS!", "Atcho!");
say ("If you get stuck, try moving some\nboulders around.", 6);
end ();

trainerbattle (0, 287, "Ah, so you wish to challenge the\nELITE FOUR?", "You got me!");
say ("{TERRY} also came through here.", 6);
end ();

trainerbattle (0, 290, "Is VICTORY ROAD too tough?", "Well done!");
say ("Many TRAINERS give up their\nchallenge here and go home.", 6);
end ();

trainerbattle (0, 298, "Come on!\nI'll whip you!", "I got whipped!");
say ("You earned the right to be on\nVICTORY ROAD…", 6);
end ();

if (0x4067 != 0x64) call (lbl_1610BC);
end ();

setmaptile (0xC, 0xC, 0x307, 0x1);
setmaptile (0xC, 0xD, 0x317, 0x1);
return ();

lockall ();
if (0x4067 == 0x64) goto (lbl_161101);
setmaptile (0xC, 0xC, 0x2D1, 0x0);
setmaptile (0xC, 0xD, 0x2E1, 0x0);
playsound (0x23);
special (0x8E);
checksound ();
moveoffscreen (0x7);
moveoffscreen (0xA);
setvar (0x4067, 0x64);
releaseall ();
end ();

releaseall ();
end ();

trainerbattle (0, 393, "I heard rumors of a child prodigy.", "The rumors were true!");
say ("So, it was you who beat GIOVANNI\nof TEAM ROCKET?", 6);
end ();

trainerbattle (0, 394, "Only the chosen can pass here!", "I don't believe it!");
say ("All TRAINERS here are headed to\nthe POKéMON LEAGUE.\rDon't let down your guard.", 6);
end ();

trainerbattle (0, 403, "I'll show you just how good you\nare. Not!", "I'm furious!");
say ("You showed me just how good\nI was…", 6);
end ();

trainerbattle (0, 404, "TRAINERS live to seek stronger\nopponents.", "Oh!\nSo strong!");
say ("By fighting tough battles, you get\nstronger.", 6);
end ();

trainerbattle (4, 485, "RAY: Together, the two of us are\ndestined for greatness!", "RAY: Ludicrous!\nThis can't be!", "RAY: Together, the two of us are\nstriving for the pinnacle.\rWe need you to bring two POKéMON\ninto battle with us.");
say ("RAY: You've beaten us.\nGreatness remains elusive…", 6);
end ();

trainerbattle (4, 485, "TYRA: We're trying to become\nchampions together.", "TYRA: Oh, but…", "TYRA: You can't battle with us if\nyou have only one POKéMON.");
say ("TYRA: You've taught me that power\ncan be infinite in shape and form.", 6);
end ();

checktrainer (0x16A);
ifgosub (0, lbl_161233);
end ();

setmaptile (0x14, 0x13, 0x2CE, 0x1);
setmaptile (0x15, 0x13, 0x2CF, 0x1);
setmaptile (0x14, 0x14, 0x2D6, 0x1);
setmaptile (0x15, 0x14, 0x2D7, 0x1);
setmaptile (0x14, 0x15, 0x282, 0x0);
setmaptile (0x15, 0x15, 0x282, 0x0);
return ();

setworldmapflag (0x8AB);
end ();

trainerbattle (0, 358, "Who are you?\nHow did you get here?", "Oww!\nBeaten!");
say ("Blast it… You're dissing TEAM\nROCKET, aren't you?", 6);
end ();

trainerbattle (0, 359, "You broke into TEAM ROCKET's\noperation? What nerve!", "Boom!");
say ("You're not going to get away with\nthis, brat!", 6);
end ();

trainerbattle (0, 360, "Intruder alert!", "I can't do it!");
say ("SILPH SCOPE? Humph!\nI don't know where it is.", 6);
end ();

trainerbattle (0, 361, "Why did you come here?", "This won't do!");
say ("Okay, I'll talk…\nTake the elevator to see my BOSS.", 6);
end ();

trainerbattle (2, 362, "Are you lost, you little mouse?", "Why…?", lbl_161225);
say ("Uh-oh, that ruckus somehow opened\nthe door!", 6);
end ();

call (lbl_16126A);
playsound (0x26);
special (0x8E);
checksound ();
release ();
end ();

setmaptile (0x14, 0x13, 0x282, 0x0);
setmaptile (0x15, 0x13, 0x281, 0x0);
setmaptile (0x14, 0x14, 0x282, 0x0);
setmaptile (0x15, 0x14, 0x281, 0x0);
setmaptile (0x14, 0x15, 0x282, 0x0);
setmaptile (0x15, 0x15, 0x281, 0x0);
return ();

trainerbattle (0, 363, "BOSS said you can see ghosts with\nthe SILPH SCOPE.", "I surrender!");
say ("The TEAM ROCKET HQ has four\nunderground floors.\rThink you can reach the BOSS?", 6);
end ();

trainerbattle (0, 364, "Stop meddling in TEAM ROCKET's\naffairs or else!", "Oof!\nTaken down!");
say ("SILPH SCOPE?\nOh, that machine the BOSS stole.\rIt's here somewhere.", 6);
end ();

trainerbattle (0, 365, "We got word from upstairs that you\nwere coming!", "What?\nI lost? No!");
say ("Go ahead and go!\rBut you can't run the elevator\nwithout the LIFT KEY.", 6);
end ();

setvar (0x4001, 0x0);
checktrainer (0x16E);
ifgosub (1, lbl_161311);
checktrainer (0x16F);
ifgosub (1, lbl_161311);
if (0x4001 != 0x2) call (lbl_16146A);
end ();

setmaptile (0x11, 0xC, 0x2CE, 0x1);
setmaptile (0x12, 0xC, 0x2CF, 0x1);
setmaptile (0x11, 0xD, 0x2D6, 0x1);
setmaptile (0x12, 0xD, 0x2D7, 0x1);
setmaptile (0x11, 0xE, 0x282, 0x0);
setmaptile (0x12, 0xE, 0x282, 0x0);
return ();

addvar (0x4001, 0x1);
return ();

lock ();
faceplayer ();
setvar (0x8004, 0xF);
setvar (0x8005, 0x0);
special (0x173);
preparemsg ("So! I must say, I am impressed you\ngot here.\rTEAM ROCKET captures POKéMON from\naround the world.\rThey're important tools for keeping\nour criminal enterprise going.\rI am the leader, GIOVANNI!\rFor your insolence, you will feel a\nworld of pain!");
waitmsg ();
playsong (0x11B, 0);
waitkeypress ();
trainerbattle (3, 348, "WHAT!\nThis can't be!");
say ("I see that you raise POKéMON with\nutmost care.\rA child like you would never\nunderstand what I hope to achieve.\rI shall step aside this time!\rI hope we meet again…", 4);
fade (1);
closeonkeypress ();
hidesprite (0x1);
showsprite (0x2);
clearflag (0x37);
setflag (0x5F);
setvar (0x8004, 0xF);
setvar (0x8005, 0x2);
special (0x174);
fade (0);
release ();
end ();

lock ();
faceplayer ();
hidesprite (0x2);
copyvarifnot0 (0x8000, 0x167);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
if (0x800D == 0x0) goto (lbl_1A6BF9);
release ();
end ();

textcolor (3);
say ("Too bad!\nThe BAG is full…", 4);
release ();
end ();

trainerbattle (2, 368, "The elevator doesn't work?\nWho has the LIFT KEY?", "No!", lbl_16139D);
say ("Oh, no!\nI dropped the LIFT KEY!", 4);
release ();
end ();

say ("Oh, no!\nI dropped the LIFT KEY!", 4);
showsprite (0x4);
clearflag (0x36);
release ();
end ();

lock ();
faceplayer ();
setflag (0x2A5);
hidesprite (0x4);
copyvarifnot0 (0x8000, 0x164);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
if (0x800D == 0x0) goto (lbl_1A6BF9);
release ();
end ();

trainerbattle (2, 366, "I know you!\nYou ruined our plans at MT. MOON!", "Burned again!", lbl_1613E9);
say ("Do you have something against TEAM\nROCKET?", 6);
end ();

setvar (0x4001, 0x0);
checktrainer (0x16E);
ifgosub (1, lbl_161311);
checktrainer (0x16F);
ifgosub (1, lbl_161311);
if (0x4001 == 0x2) call (lbl_1614A1);
if (0x4001 == 0x2) call (lbl_161462);
release ();
end ();

playsound (0x26);
special (0x8E);
checksound ();
return ();

setmaptile (0x11, 0xC, 0x282, 0x0);
setmaptile (0x12, 0xC, 0x281, 0x0);
setmaptile (0x11, 0xD, 0x282, 0x0);
setmaptile (0x12, 0xD, 0x281, 0x0);
setmaptile (0x11, 0xE, 0x282, 0x0);
setmaptile (0x12, 0xE, 0x281, 0x0);
return ();

trainerbattle (2, 367, "How can you not see the beauty of\nour evil?", "Ayaya!", lbl_161433);
say ("BOSS!\nI'm sorry I failed you!", 6);
end ();

lockall ();
if (not 0x2A5) goto (lbl_16161B);
setvar (0x8004, 0x2);
if (not 0x2) call (lbl_1A7AB9);
copyvar (0x8005, 0x403A);
special (0x132);
preparemsg ("Which floor do you want?");
waitmsg ();
setvar (0x8004, 0x2);
special2 (0x800D, 0x1B8);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_161530);
if (0x8000 == 0x1) goto (lbl_16153C);
if (0x8000 == 0x2) goto (lbl_161548);
end ();

multichoice2 (0, 0, 42, 2, 0);
jump (lbl_161554);
end ();

copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_161591);
if (0x8000 == 0x1) goto (lbl_1615B9);
if (0x8000 == 0x2) goto (lbl_1615E1);
if (0x8000 == 0x3) goto (lbl_161609);
if (0x8000 == 0x7F) goto (lbl_161609);
end ();

special (0x160);
releaseall ();
end ();

setvar (0x8006, 0x0);
setwarpplace (1, 45, 255, 0x14, 0x17);
if (0x403A == 0x0) goto (lbl_161609);
call (lbl_16160E);
setvar (0x403A, 0x0);
jump (lbl_161609);
end ();

special (0x160);
closeonkeypress ();
checksound ();
special (0x111);
waitstate ();
setflag (0x2);
return ();

setvar (0x8006, 0x2);
setwarpplace (1, 43, 255, 0x1C, 0x10);
if (0x403A == 0x2) goto (lbl_161609);
call (lbl_16160E);
setvar (0x403A, 0x2);
jump (lbl_161609);
end ();

setvar (0x8006, 0x3);
setwarpplace (1, 42, 255, 0x18, 0x19);
if (0x403A == 0x3) goto (lbl_161609);
call (lbl_16160E);
setvar (0x403A, 0x3);
jump (lbl_161609);
end ();

multichoice2 (0, 0, 42, 1, 0);
jump (lbl_161554);
end ();

multichoice2 (0, 0, 42, 0, 0);
jump (lbl_161554);
end ();

special (0xD8);
return ();

say ("It appears to need a key.", 4);
releaseall ();
end ();

setworldmapflag (0x8AC);
end ();

say ("Welcome.\rThe PRESIDENT is in the boardroom\non 11F.", 2);
end ();

say ("SILPH CO. HEAD OFFICE\n1F", 3);
end ();

if (not 0x27A) call (lbl_1A8149);
if (not 0x27B) call (lbl_1A8177);
end ();

setmaptile (0x5, 0xF, 0x3B0, 0x1);
setmaptile (0x6, 0xF, 0x3B1, 0x1);
setmaptile (0x5, 0x10, 0x3B8, 0x1);
setmaptile (0x6, 0x10, 0x3B9, 0x1);
setmaptile (0x6, 0x11, 0x335, 0x0);
return ();

setmaptile (0x5, 0x8, 0x3B0, 0x1);
setmaptile (0x6, 0x8, 0x3B1, 0x1);
setmaptile (0x5, 0x9, 0x3B8, 0x1);
setmaptile (0x6, 0x9, 0x3B9, 0x1);
setmaptile (0x6, 0xA, 0x335, 0x0);
return ();

jump (lbl_1C4816);
end ();

lock ();
faceplayer ();
if (0x2C1) goto (lbl_1C4874);
say ("Eeek!\nNo! Stop! Help!\rOh, you're not with TEAM ROCKET.\nI'm sorry, I thought…\rWill you forgive me if I teach\nyou the THUNDER WAVE technique?", 5);
if (0x800D == 0x0) goto (lbl_1C486A);
call (lbl_1C4F37);
if (0x800D == 0x0) goto (lbl_1C486A);
say ("Which POKéMON should I teach\nTHUNDER WAVE?", 4);
setvar (0x8005, 0xB);
call (lbl_1C4F30);
if (0x800D == 0x0) goto (lbl_1C486A);
setflag (0x2C1);
jump (lbl_1C4874);
end ();

special (0x18D);
waitstate ();
lock ();
faceplayer ();
return ();

textcolor (3);
special (0x171);
signmsg ();
say ("This move can be learned only\nonce. Is that okay?", 5);
normalmsg ();
call (lbl_1A6675);
return ();

say ("Oh…\nBut THUNDER WAVE is convenient…", 4);
release ();
end ();

say ("THUNDER WAVE causes paralysis in\nthe target POKéMON.\rA paralyzed POKéMON may be unable\nto move in battle.\rIt's an ELECTRIC-type move, so it\nwon't work on some POKéMON.", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n2F", 3);
end ();

trainerbattle (0, 336, "Help!\nI'm a SILPH employee.", "How did you know\nI was a ROCKET?");
say ("I work for both SILPH and TEAM\nROCKET.", 6);
end ();

trainerbattle (0, 337, "It's off-limits here!\nGo home!", "You're good.");
say ("Can you solve the maze in here?\nIt's not easy, I tell you!", 6);
end ();

trainerbattle (0, 373, "No kids are allowed in here!", "Tough!");
say ("Diamond-shaped tiles are teleport\nblocks.\rThey're transporters for this\nhigh-tech building.", 6);
end ();

trainerbattle (0, 374, "Hey, kid!\nWhat are you wandering here for?", "I goofed!");
say ("SILPH CO. will be associated with\nTEAM ROCKET!", 6);
end ();

if (not 0x27C) call (lbl_1A81A5);
if (not 0x27D) call (lbl_1A81DC);
end ();

setmaptile (0x14, 0xB, 0x3C0, 0x1);
setmaptile (0x15, 0xB, 0x3C1, 0x1);
setmaptile (0x14, 0xC, 0x3C2, 0x1);
setmaptile (0x15, 0xC, 0x3C3, 0x1);
setmaptile (0x14, 0xD, 0x3C4, 0x1);
setmaptile (0x15, 0xD, 0x3C5, 0x1);
return ();

setmaptile (0x9, 0xB, 0x3C0, 0x1);
setmaptile (0xA, 0xB, 0x3C1, 0x1);
setmaptile (0x9, 0xC, 0x3C2, 0x1);
setmaptile (0xA, 0xC, 0x3C3, 0x1);
setmaptile (0x9, 0xD, 0x3C4, 0x1);
setmaptile (0xA, 0xD, 0x3C5, 0x1);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_1616F5);
say ("I work for SILPH CO.\nWhat am I to do?", 4);
release ();
end ();

say ("{RED}!\nYou and your POKéMON saved us!", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n3F", 3);
end ();

trainerbattle (0, 338, "I support TEAM ROCKET more than\nI support SILPH CO.!", "You really got me!");
say ("Humph…\rTEAM ROCKET said that if I helped\nthem, they'd let me study POKéMON.", 6);
end ();

trainerbattle (0, 375, "Quit messing with us, kid!", "I give up!");
say ("A hint? You can open doors with\na CARD KEY!", 6);
end ();

if (not 0x27E) call (lbl_1A8213);
if (not 0x27F) call (lbl_1A8241);
end ();

setmaptile (0xE, 0xB, 0x3B0, 0x1);
setmaptile (0xF, 0xB, 0x3B1, 0x1);
setmaptile (0xE, 0xC, 0x3B8, 0x1);
setmaptile (0xF, 0xC, 0x3B9, 0x1);
setmaptile (0xF, 0xD, 0x335, 0x0);
return ();

setmaptile (0x3, 0x10, 0x3B0, 0x1);
setmaptile (0x4, 0x10, 0x3B1, 0x1);
setmaptile (0x3, 0x11, 0x3B8, 0x1);
setmaptile (0x4, 0x11, 0x3B9, 0x1);
setmaptile (0x4, 0x12, 0x335, 0x0);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161766);
say ("Sssh!\nCan't you see I'm hiding?", 4);
release ();
end ();

say ("Huh?\nTEAM ROCKET is gone?", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n4F", 3);
end ();

trainerbattle (0, 339, "My POKéMON is my loyal servant.", "Darn!\nYou weak POKéMON!");
say ("The doors are electronically\nlocked.\rIt takes a CARD KEY to open the\ndoors here.", 6);
end ();

trainerbattle (0, 376, "TEAM ROCKET has taken control\nof SILPH CO.!", "Arrgh!");
say ("Fwahahaha!\nMy BOSS has been after this place!", 6);
end ();

trainerbattle (0, 377, "Intruder spotted!", "Who are you?");
say ("I better tell the BOSS on 11F!", 6);
end ();

if (not 0x280) call (lbl_1A826F);
if (not 0x281) call (lbl_1A82A6);
if (not 0x282) call (lbl_1A82DD);
end ();

setmaptile (0x12, 0xC, 0x3C0, 0x1);
setmaptile (0x13, 0xC, 0x3C1, 0x1);
setmaptile (0x12, 0xD, 0x3C2, 0x1);
setmaptile (0x13, 0xD, 0x3C3, 0x1);
setmaptile (0x12, 0xE, 0x3C4, 0x1);
setmaptile (0x13, 0xE, 0x3C5, 0x1);
return ();

setmaptile (0x7, 0x11, 0x3C0, 0x1);
setmaptile (0x8, 0x11, 0x3C1, 0x1);
setmaptile (0x7, 0x12, 0x3C2, 0x1);
setmaptile (0x8, 0x12, 0x3C3, 0x1);
setmaptile (0x7, 0x13, 0x3C4, 0x1);
setmaptile (0x8, 0x13, 0x3C5, 0x1);
return ();

setmaptile (0x7, 0x8, 0x3C0, 0x1);
setmaptile (0x8, 0x8, 0x3C1, 0x1);
setmaptile (0x7, 0x9, 0x3C2, 0x1);
setmaptile (0x8, 0x9, 0x3C3, 0x1);
setmaptile (0x7, 0xA, 0x3C4, 0x1);
setmaptile (0x8, 0xA, 0x3C5, 0x1);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_1617F7);
say ("TEAM ROCKET is in an uproar over\nsome intruder.\rThat's you, right?", 4);
release ();
end ();

say ("TEAM ROCKET took off!\nYou're our hero! Thank you!", 4);
release ();
end ();

say ("It's a POKéMON REPORT!\rPOKéMON LAB created PORYGON,\nthe first virtual-reality POKéMON.", 3);
end ();

say ("It's a POKéMON REPORT!\rOver 350 POKéMON techniques have\nbeen confirmed.", 3);
end ();

say ("It's a POKéMON REPORT!\rSome POKéMON have been confirmed\nto evolve when they are traded.", 3);
end ();

say ("SILPH CO. HEAD OFFICE\n5F", 3);
end ();

trainerbattle (0, 340, "We study POKé BALL technology on\nthis floor.", "Dang!\nBlast it!");
say ("We worked on the ultimate POKé\nBALL which would catch anything.", 6);
end ();

trainerbattle (0, 378, "I heard a kid was wandering\naround.", "Boom!");
say ("It's not smart to pick a fight with\nTEAM ROCKET!", 6);
end ();

trainerbattle (0, 379, "Show TEAM ROCKET a little respect!", "Cough…\nCough…");
say ("Which reminds me.\rKOFFING evolves into WEEZING!", 6);
end ();

trainerbattle (0, 286, "Whaaat?\rThere shouldn't be any children\nhere!", "Oh, goodness!");
say ("You're only on 5F.\nIt's a long way to my BOSS!", 6);
end ();

if (not 0x283) call (lbl_1A8314);
end ();

setmaptile (0x5, 0xE, 0x3C0, 0x1);
setmaptile (0x6, 0xE, 0x3C1, 0x1);
setmaptile (0x5, 0xF, 0x3C2, 0x1);
setmaptile (0x6, 0xF, 0x3C3, 0x1);
setmaptile (0x5, 0x10, 0x3C4, 0x1);
setmaptile (0x6, 0x10, 0x3C5, 0x1);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_1618A8);
say ("They must have targeted SILPH for\nour POKéMON products.", 4);
release ();
end ();

say ("Come work for SILPH when you\nget older.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_1618C9);
say ("The ROCKETS came and took over\nthe building!", 4);
release ();
end ();

say ("Well, better get back to work.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_1618EA);
say ("Oh dear, oh dear.\nHelp me, please!", 4);
release ();
end ();

say ("We got engaged.\nHeheh!", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_16190B);
say ("That man next to me…\nHe's such a coward!", 4);
release ();
end ();

say ("He's so helpless, he needed\nsomeone like me to look after him.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_16192C);
say ("TEAM ROCKET is trying to conquer\nthe world with POKéMON.", 4);
release ();
end ();

say ("TEAM ROCKET ran away, and it's all\nbecause of you!", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n6F", 3);
end ();

trainerbattle (0, 341, "That rotten PRESIDENT!\rServes him right for shipping me\noff to the TIKSI BRANCH!\rThat's why TEAM ROCKET came after\nus, I'm sure of it!", "Shoot!");
say ("TIKSI BRANCH?\nIt's in Russian no-man's-land!", 6);
end ();

trainerbattle (0, 380, "I am one of the four ROCKET\nBROTHERS!", "Flame out!");
say ("No matter!\nMy brothers will avenge me!", 6);
end ();

trainerbattle (0, 381, "You dare betray TEAM ROCKET?", "You traitor!");
say ("If you stand for justice, you\nbetray us bad guys!", 6);
end ();

if (not 0x284) call (lbl_1A834B);
if (not 0x285) call (lbl_1A8379);
if (not 0x286) call (lbl_1A83A7);
end ();

setmaptile (0x19, 0xD, 0x3B0, 0x1);
setmaptile (0x1A, 0xD, 0x3B1, 0x1);
setmaptile (0x19, 0xE, 0x3B8, 0x1);
setmaptile (0x1A, 0xE, 0x3B9, 0x1);
setmaptile (0x1A, 0xF, 0x335, 0x0);
return ();

setmaptile (0x18, 0x7, 0x3B0, 0x1);
setmaptile (0x19, 0x7, 0x3B1, 0x1);
setmaptile (0x18, 0x8, 0x3B8, 0x1);
setmaptile (0x19, 0x8, 0x3B9, 0x1);
setmaptile (0x19, 0x9, 0x335, 0x0);
return ();

setmaptile (0xB, 0x8, 0x3B0, 0x1);
setmaptile (0xC, 0x8, 0x3B1, 0x1);
setmaptile (0xB, 0x9, 0x3B8, 0x1);
setmaptile (0xC, 0x9, 0x3B9, 0x1);
setmaptile (0xC, 0xA, 0x335, 0x0);
return ();

if (0x4060 => 0x1) call (lbl_1619B7);
end ();

spritebehave (0x8, 7);
return ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_1619D4);
end ();

textcolor (0);
playsong (0x13B, 0);
applymove (0x1, move_1A75DB);
waitformove (0x0);
applymove (0xFF, move_1A75ED);
applymove (0x1, move_1A75DD);
waitformove (0x0);
say ("{TERRY}: What kept you, {RED}?", 4);
if (0x4001 == 0x0) call (lbl_161A73);
if (0x4001 == 0x1) call (lbl_161A7F);
say ("{TERRY}: Hahaha! I thought you'd\nturn up if I waited here!\rI guess TEAM ROCKET slowed you\ndown! Not that I care!\rI saw you in SAFFRON, so I decided\nto see if you got better!", 4);
setvar (0x800F, 0x1);
if (0x4031 == 0x2) call (lbl_161A80);
if (0x4031 == 0x1) call (lbl_161A8B);
if (0x4031 == 0x0) call (lbl_161A96);
say ("Well, {RED}!\nI'm moving on up and ahead!\rBy checking my POKéDEX, I'm\nstarting to see what's strong and\fhow they evolve!\rAm I a genius or what?\rI'm going to the POKéMON LEAGUE to\nboot out the ELITE FOUR.\rI'll become the world's most\npowerful TRAINER!\r{RED}, well, good luck to you!\nDon't sweat it!\fSmell ya!", 4);
closeonkeypress ();
playsong (0x13C, 0);
if (0x4001 == 0x0) call (lbl_161AA1);
if (0x4001 == 0x1) call (lbl_161AAC);
playsound (0x27);
fadetodefault ();
hidesprite (0x1);
checksound ();
setvar (0x405C, 0x1);
releaseall ();
end ();

applymove (0x1, move_161ABF);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.North, Walk.North, Walk.West, Walk.West, Walk.West, Walk.West, 0x1C, Move.End);

applymove (0x1, move_161AB9);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.West, Walk.West, Walk.North, 0x1C, Move.End);

trainerbattle (3, 434, "Oh, man!\nSo, you are ready for BOSS\fROCKET!");
return ();

trainerbattle (3, 433, "Oh, man!\nSo, you are ready for BOSS\fROCKET!");
return ();

trainerbattle (3, 432, "Oh, man!\nSo, you are ready for BOSS\fROCKET!");
return ();

closeonkeypress ();
applymove (0x1, move_161AB7);
waitformove (0x0);
return ();

rawb (Walk.North, Move.End);

rawb (0x1C, 0x1C, 0x1C, Move.End);

rawb (Emote.Exclamation, Move.End);

lockall ();
setvar (0x4001, 0x1);
jump (lbl_1619D4);
end ();

lock ();
faceplayer ();
if (0x246) goto (lbl_161B8D);
say ("Oh! Hi! You're not a ROCKET!\nYou came to save us?\fWhy, thank you!\rI want you to have this POKéMON\nfor saving us.", 4);
setvar (0x4001, 0x83);
givepokemon (0x83, 0x19, 0x0, 0x0, 0, 0);
if (0x800D == 0x0) goto (lbl_161B12);
if (0x800D == 0x1) goto (lbl_161B45);
if (0x800D == 0x2) goto (lbl_1A927C);
release ();
end ();

textcolor (3);
say ("There's no more room for POKéMON!\rThe POKéMON BOXES are full and\ncan't accept any more!", 4);
release ();
end ();

textcolor (3);
jingle (0x101);
preparemsg ("{RED} obtained a LAPRAS from\nthe SILPH employee!");
waitmsg ();
waitforjingle ();
getpokemonname (0, 0x83);
say ("Do you want to give a nickname to\nthis {var:2}?", 5);
if (0x800D == 0x0) goto (lbl_161B73);
call (lbl_1A8C33);
jump (lbl_161B73);
end ();

fade (1);
special (0x166);
waitstate ();
lock ();
faceplayer ();
return ();

call (lbl_1A8C3C);
jump (lbl_161B7E);
end ();

textcolor (0);
say ("It's a LAPRAS.\nIt's a very intelligent POKéMON.\rWe kept it in our lab, but it will\nbe much better off with you.\rI think you will be a good TRAINER\nfor LAPRAS!\rIt's a good swimmer.\nIt'll give you a lift across water!", 4);
setflag (0x246);
release ();
end ();

getboxname (0, 0x4037);
getpokemonname (1, 0x4001);
if (not 0x834) call (lbl_1A8C57);
if (0x834) call (lbl_1A8C82);
return ();

special2 (0x800D, 0x165);
if (0x800D == 0x1) goto (lbl_1A8C9B);
say ("{var:3} was transferred to\nBILL'S PC.\rIt was placed in \nBOX “{var:2}.”", 4);
return ();

special2 (0x800D, 0x18A);
getboxname (2, 0x800D);
say ("BOX “{var:4}” on\nBILL'S PC was full.\r{var:3} was transferred to\nBOX “{var:2}.”", 4);
return ();

special2 (0x800D, 0x165);
if (0x800D == 0x1) goto (lbl_1A8C70);
say ("{var:3} was transferred to\nSomeone's PC.\rIt was placed in \nBOX “{var:2}.”", 4);
return ();

special2 (0x800D, 0x18A);
getboxname (2, 0x800D);
say ("BOX “{var:4}” on\nSomeone's PC was full.\r{var:3} was transferred to\nBOX “{var:2}.”", 4);
return ();

fade (1);
special (0x9E);
waitstate ();
return ();

getpartysize ();
subvar (0x800D, 0x1);
copyvar (0x8004, 0x800D);
return ();

say ("TEAM ROCKET's BOSS went to the\nboardroom!\rIs our PRESIDENT okay?\nI'm worried.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161BAE);
say ("TEAM ROCKET was after the MASTER\nBALL, which catches any POKéMON.", 4);
release ();
end ();

say ("We canceled the MASTER BALL\nproject because of TEAM ROCKET.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161BCF);
say ("It would be bad if TEAM ROCKET\ntook over SILPH or our POKéMON.", 4);
release ();
end ();

say ("Wow!\rYou chased off TEAM ROCKET all by\nyourself?", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161BF0);
say ("You!\nIt's really dangerous here!\rYou came to save me?\nYou can't!", 4);
release ();
end ();

say ("Thank you so much!", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n7F", 3);
end ();

trainerbattle (0, 342, "Heheh!\rYou mistook me for a SILPH worker?", "I'm done!");
say ("Despite your age, you are a\nskilled TRAINER!", 6);
end ();

trainerbattle (0, 383, "I am one of the four ROCKET\nBROTHERS!", "Aack!\nBrothers, I lost!");
say ("Doesn't matter.\nMy brothers will repay the favor!", 6);
end ();

trainerbattle (0, 384, "A child intruder?\nThat must be you!", "Fine!\nI lost!");
say ("Go on home before my BOSS gets\nticked off!", 6);
end ();

trainerbattle (0, 385, "Uh-oh!\nI smell a little mouse!", "Lights out!");
say ("You won't find my BOSS by just\nscurrying around!", 6);
end ();

if (not 0x287) call (lbl_1A83D5);
end ();

setmaptile (0x5, 0x9, 0x3C0, 0x1);
setmaptile (0x6, 0x9, 0x3C1, 0x1);
setmaptile (0x5, 0xA, 0x3C2, 0x1);
setmaptile (0x6, 0xA, 0x3C3, 0x1);
setmaptile (0x5, 0xB, 0x3C4, 0x1);
setmaptile (0x6, 0xB, 0x3C5, 0x1);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161C86);
say ("I wonder if SILPH is finished…", 4);
release ();
end ();

say ("Thanks for saving us!", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n8F", 3);
end ();

trainerbattle (0, 343, "You're causing us problems!", "Huh?\nI lost?");
say ("So, what do you think of SILPH\nBUILDING's maze?", 6);
end ();

trainerbattle (0, 382, "That's as far as you'll go!", "Not enough grit!");
say ("If you don't turn back…\nI'll call for backup!", 6);
end ();

trainerbattle (0, 386, "I am one of the four ROCKET\nBROTHERS!", "Whoo!\nOh, Brothers!");
say ("I'll leave you up to my brothers.", 6);
end ();

if (not 0x288) call (lbl_1A840C);
if (not 0x289) call (lbl_1A8443);
if (not 0x28A) call (lbl_1A847A);
if (not 0x28B) call (lbl_1A84A8);
end ();

setmaptile (0x15, 0xC, 0x3B0, 0x1);
setmaptile (0x16, 0xC, 0x3B1, 0x1);
setmaptile (0x15, 0xD, 0x3B8, 0x1);
setmaptile (0x16, 0xD, 0x3B9, 0x1);
setmaptile (0x16, 0xE, 0x335, 0x0);
return ();

setmaptile (0x15, 0x6, 0x3B0, 0x1);
setmaptile (0x16, 0x6, 0x3B1, 0x1);
setmaptile (0x15, 0x7, 0x3B8, 0x1);
setmaptile (0x16, 0x7, 0x3B9, 0x1);
setmaptile (0x16, 0x8, 0x335, 0x0);
return ();

setmaptile (0xC, 0xF, 0x3C0, 0x1);
setmaptile (0xD, 0xF, 0x3C1, 0x1);
setmaptile (0xC, 0x10, 0x3C2, 0x1);
setmaptile (0xD, 0x10, 0x3C3, 0x1);
setmaptile (0xC, 0x11, 0x3C4, 0x1);
setmaptile (0xD, 0x11, 0x3C5, 0x1);
return ();

setmaptile (0x2, 0x9, 0x3C0, 0x1);
setmaptile (0x3, 0x9, 0x3C1, 0x1);
setmaptile (0x2, 0xA, 0x3C2, 0x1);
setmaptile (0x3, 0xA, 0x3C3, 0x1);
setmaptile (0x2, 0xB, 0x3C4, 0x1);
setmaptile (0x3, 0xB, 0x3C5, 0x1);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161D2E);
say ("You look tired.\nYou should take a quick nap.", 4);
closeonkeypress ();
call (lbl_1A6C26);
say ("Don't give up!", 4);
release ();
end ();

say ("Thank you so much.", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n9F", 3);
end ();

trainerbattle (0, 344, "Your POKéMON have weak points!\nI can nail them!", "You hammered me!");
say ("Exploiting weak spots does work.\nThink about type advantages.", 6);
end ();

trainerbattle (0, 387, "Your POKéMON seem to adore you,\nkid!", "Ghaaah!");
say ("If I had started as a TRAINER at\nyour age…", 6);
end ();

trainerbattle (0, 388, "I am one of the four ROCKET\nBROTHERS!", "Warg!\nBrothers, I lost!");
say ("My brothers will avenge me!", 6);
end ();

if (not 0x28C) call (lbl_1A84D6);
end ();

setmaptile (0xC, 0xB, 0x3B0, 0x1);
setmaptile (0xD, 0xB, 0x3B1, 0x1);
setmaptile (0xC, 0xC, 0x3B8, 0x1);
setmaptile (0xD, 0xC, 0x3B9, 0x1);
setmaptile (0xD, 0xD, 0x335, 0x0);
return ();

lock ();
faceplayer ();
if (0x4060 => 0x1) goto (lbl_161DAD);
say ("Waaaaa!\nI'm scared!", 4);
release ();
end ();

say ("About me crying…\nPlease keep it a secret.", 4);
release ();
end ();

say ("SILPH CO. HEAD OFFICE\n10F", 3);
end ();

trainerbattle (0, 345, "Enough of your silly games!", "No continues left!");
say ("Are you satisfied with beating me?\nThen go on home!", 6);
end ();

trainerbattle (0, 389, "Welcome to 10F!\nSo good of you to join me!", "I'm stunned!");
say ("Nice try, but the boardroom is up\none more floor.", 6);
end ();

if (not 0x28D) call (lbl_1A8504);
end ();

setmaptile (0x5, 0x10, 0x3B0, 0x1);
setmaptile (0x6, 0x10, 0x3B1, 0x1);
setmaptile (0x5, 0x11, 0x3B8, 0x1);
setmaptile (0x6, 0x11, 0x3B9, 0x1);
setmaptile (0x6, 0x12, 0x335, 0x0);
return ();

lock ();
faceplayer ();
if (0x250) goto (lbl_161E75);
getgender ();
if (0x800D == 0x0) call (lbl_161E59);
if (0x800D == 0x1) call (lbl_161E62);
checkitemamount (0x1, 0x1);
if (0x800D == 0x0) goto (lbl_161E6B);
giveitem (0x1, 0x1);
loadpointer (0, "{RED} obtained a MASTER BALL\nfrom the PRESIDENT!");
copyvarifnot0 (0x8000, 0x1);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x13E);
callstd (9);
say ("PRESIDENT: You can't buy that\nanywhere.\rIt's our secret prototype MASTER\nBALL.\rIt will catch any POKéMON without\nfail!\rYou should be quiet about using it,\nthough.", 4);
setflag (0x250);
release ();
end ();

say ("You have no room for this.", 4);
release ();
end ();

say ("PRESIDENT: Oh, dear girl!\nThank you for saving SILPH.\rI will never forget you saved us in\nour moment of peril.\rI have to thank you in some way.\rBecause I am rich, I can give you\nanything.\rHere, maybe this will do.", 4);
return ();

say ("PRESIDENT: Oh, dear boy!\nThank you for saving SILPH.\rI will never forget you saved us in\nour moment of peril.\rI have to thank you in some way.\rBecause I am rich, I can give you\nanything.\rHere, maybe this will do.", 4);
return ();

say ("PRESIDENT: You can't buy that\nanywhere.\rIt's our secret prototype MASTER\nBALL.\rIt will catch any POKéMON without\nfail!\rYou should be quiet about using it,\nthough.", 4);
release ();
end ();

say ("SECRETARY: Thank you for rescuing\nall of us.\rWe, from the PRESIDENT down,\nare indebted to you.", 2);
end ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_161EA0);
end ();

textcolor (0);
applymove (0x3, move_1A75ED);
waitformove (0x0);
pause (0x19);
say ("Ah, {RED}!\nSo we meet again!\rThe PRESIDENT and I are discussing\na vital business proposition.\rKeep your nose out of grown-up\nmatters…\rOr, experience a world of pain!", 4);
closeonkeypress ();
if (0x4001 == 0x0) call (lbl_161F00);
if (0x4001 == 0x1) call (lbl_161F12);
setvar (0x800F, 0x3);
trainerbattle (3, 349, "Arrgh!!\nI lost again!?");
say ("Blast it all!\nYou ruined our plans for SILPH!\rBut, TEAM ROCKET will never fall!\r{RED}! Never forget that all\nPOKéMON exist for TEAM ROCKET!\rI must go, but I shall return!", 4);
closeonkeypress ();
fade (1);
hidesprite (0x3);
hidesprite (0x4);
hidesprite (0x6);
fade (0);
setvar (0x4060, 0x1);
setflag (0x3E);
clearflag (0x3F);
releaseall ();
end ();

applymove (0x3, move_161F23);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x3, move_161F1D);
applymove (0xFF, move_161F27);
waitformove (0x0);
return ();

rawb (0x1C, 0x1C, 0x1C, 0x1B, 0x1A, RealFastInPlace.West, Move.End);

rawb (Walk.South, Walk.South, Walk.South, Walk.South, RealFastInPlace.East, Move.End);

lockall ();
setvar (0x4001, 0x1);
jump (lbl_161EA0);
end ();

say ("SILPH CO. HEAD OFFICE\n11F", 3);
end ();

trainerbattle (0, 390, "Halt! Do you have an appointment\nwith my BOSS?", "Gaah!\nDemolished!");
say ("Watch your step…\nMy BOSS likes his POKéMON tough!", 6);
end ();

trainerbattle (0, 391, "Stop right there!\nDon't you move!", "Don't…\nPlease!");
say ("So, you want to see my BOSS?", 6);
end ();

lockall ();
setvar (0x8004, 0x1);
if (not 0x2) call (lbl_1A7AB9);
copyvar (0x8005, 0x403A);
special (0x132);
preparemsg ("Which floor do you want?");
waitmsg ();
setvar (0x8004, 0x1);
special2 (0x800D, 0x1B8);
special (0x158);
waitstate ();
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1621BF);
if (0x8000 == 0x1) goto (lbl_162197);
if (0x8000 == 0x2) goto (lbl_16216F);
if (0x8000 == 0x3) goto (lbl_162147);
if (0x8000 == 0x4) goto (lbl_16211F);
if (0x8000 == 0x5) goto (lbl_1620F7);
if (0x8000 == 0x6) goto (lbl_1620CF);
if (0x8000 == 0x7) goto (lbl_1620A7);
if (0x8000 == 0x8) goto (lbl_16207F);
if (0x8000 == 0x9) goto (lbl_162057);
if (0x8000 == 0xA) goto (lbl_16202F);
if (0x8000 == 0xB) goto (lbl_1621E7);
if (0x8000 == 0x7F) goto (lbl_1621E7);
end ();

special (0x160);
releaseall ();
end ();

setvar (0x8006, 0x4);
setwarpplace (1, 47, 255, 0x16, 0x3);
if (0x403A == 0x4) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x4);
jump (lbl_1621E7);
end ();

special (0x160);
closeonkeypress ();
checksound ();
special (0x111);
waitstate ();
setflag (0x2);
return ();

setvar (0x8006, 0x5);
setwarpplace (1, 48, 255, 0x16, 0x3);
if (0x403A == 0x5) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x5);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0x6);
setwarpplace (1, 49, 255, 0x16, 0x3);
if (0x403A == 0x6) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x6);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0x7);
setwarpplace (1, 50, 255, 0x16, 0x3);
if (0x403A == 0x7) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x7);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0x8);
setwarpplace (1, 51, 255, 0x16, 0x3);
if (0x403A == 0x8) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x8);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0x9);
setwarpplace (1, 52, 255, 0x14, 0x3);
if (0x403A == 0x9) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0x9);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0xA);
setwarpplace (1, 53, 255, 0x17, 0x3);
if (0x403A == 0xA) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0xA);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0xB);
setwarpplace (1, 54, 255, 0x16, 0x3);
if (0x403A == 0xB) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0xB);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0xC);
setwarpplace (1, 55, 255, 0x18, 0x3);
if (0x403A == 0xC) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0xC);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0xD);
setwarpplace (1, 56, 255, 0xD, 0x3);
if (0x403A == 0xD) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0xD);
jump (lbl_1621E7);
end ();

setvar (0x8006, 0xE);
setwarpplace (1, 57, 255, 0xD, 0x3);
if (0x403A == 0xE) goto (lbl_1621E7);
call (lbl_1621EC);
setvar (0x403A, 0xE);
jump (lbl_1621E7);
end ();

if (0x26C) call (lbl_1A7B7A);
end ();

setmaptile (0x16, 0xA, 0x285, 0x0);
setmaptile (0x17, 0xA, 0x284, 0x0);
setmaptile (0x18, 0xA, 0x284, 0x0);
setmaptile (0x16, 0xB, 0x285, 0x0);
setmaptile (0x17, 0xB, 0x284, 0x0);
setmaptile (0x18, 0xB, 0x284, 0x0);
setmaptile (0x1B, 0x19, 0x285, 0x0);
setmaptile (0x1C, 0x19, 0x284, 0x0);
setmaptile (0x1D, 0x19, 0x284, 0x0);
setmaptile (0x1B, 0x1A, 0x285, 0x0);
setmaptile (0x1C, 0x1A, 0x284, 0x0);
setmaptile (0x1D, 0x1A, 0x284, 0x0);
setmaptile (0x20, 0x19, 0x285, 0x0);
setmaptile (0x21, 0x19, 0x284, 0x0);
setmaptile (0x22, 0x19, 0x284, 0x0);
setmaptile (0x20, 0x1A, 0x285, 0x0);
setmaptile (0x21, 0x1A, 0x284, 0x0);
setmaptile (0x22, 0x1A, 0x284, 0x0);
setmaptile (0x1F, 0x12, 0x2F8, 0x1);
setmaptile (0x20, 0x12, 0x2F9, 0x1);
setmaptile (0x21, 0x12, 0x2FA, 0x1);
setmaptile (0x1F, 0x13, 0x300, 0x1);
setmaptile (0x20, 0x13, 0x301, 0x1);
setmaptile (0x21, 0x13, 0x302, 0x1);
setmaptile (0x5, 0x4, 0x34D, 0x0);
return ();

setworldmapflag (0x8AD);
end ();

lockall ();
setvar (0x8004, 0x0);
call (lbl_1A7AE2);
playsound (0x26);
special (0x8E);
checksound ();
releaseall ();
end ();

say ("A secret switch!\rPress it?", 5);
if (0x800D == 0x0) goto (lbl_1A7B70);
say ("Who wouldn't?", 4);
if (0x26C) goto (lbl_1A7B3B);
setflag (0x26C);
copyvar (0x8000, 0x8004);
if (0x8000 == 0x0) goto (lbl_1A7B7A);
if (0x8000 == 0x1) goto (lbl_1A7D3E);
if (0x8000 == 0x2) goto (lbl_1A7E72);
if (0x8000 == 0x3) goto (lbl_1A7F4C);
end ();

setmaptile (0x21, 0x14, 0x2F8, 0x1);
setmaptile (0x22, 0x14, 0x2F9, 0x1);
setmaptile (0x23, 0x14, 0x2FA, 0x1);
setmaptile (0x21, 0x15, 0x354, 0x1);
setmaptile (0x22, 0x15, 0x355, 0x1);
setmaptile (0x23, 0x15, 0x356, 0x1);
setmaptile (0x10, 0x1A, 0x350, 0x1);
setmaptile (0x10, 0x1B, 0x358, 0x1);
setmaptile (0x10, 0x1C, 0x362, 0x1);
setmaptile (0x10, 0x1D, 0x36A, 0x1);
setmaptile (0x10, 0x1E, 0x372, 0x1);
setmaptile (0xC, 0x8, 0x2A5, 0x1);
setmaptile (0xC, 0x9, 0x2AD, 0x1);
setmaptile (0xC, 0xA, 0x287, 0x0);
setmaptile (0xC, 0xB, 0x286, 0x0);
setmaptile (0xC, 0xC, 0x2B0, 0x0);
setmaptile (0x14, 0x16, 0x287, 0x0);
setmaptile (0x15, 0x16, 0x286, 0x0);
setmaptile (0x16, 0x16, 0x286, 0x0);
setmaptile (0x14, 0x17, 0x287, 0x0);
setmaptile (0x15, 0x17, 0x286, 0x0);
setmaptile (0x16, 0x17, 0x286, 0x0);
setmaptile (0x18, 0x1C, 0x34F, 0x0);
setmaptile (0x1B, 0x4, 0x34F, 0x0);
return ();

setmaptile (0x11, 0xB, 0x285, 0x0);
setmaptile (0x12, 0xB, 0x284, 0x0);
setmaptile (0x13, 0xB, 0x284, 0x0);
setmaptile (0x11, 0xC, 0x285, 0x0);
setmaptile (0x12, 0xC, 0x284, 0x0);
setmaptile (0x13, 0xC, 0x284, 0x0);
setmaptile (0x15, 0x4, 0x350, 0x1);
setmaptile (0x15, 0x5, 0x358, 0x1);
setmaptile (0x15, 0x6, 0x360, 0x1);
setmaptile (0x15, 0x7, 0x368, 0x1);
setmaptile (0x15, 0x8, 0x370, 0x1);
setmaptile (0xC, 0x4, 0x34D, 0x0);
return ();

setmaptile (0x18, 0xE, 0x285, 0x0);
setmaptile (0x19, 0xE, 0x284, 0x0);
setmaptile (0x1A, 0xE, 0x284, 0x0);
setmaptile (0x18, 0xF, 0x285, 0x0);
setmaptile (0x19, 0xF, 0x284, 0x0);
setmaptile (0x1A, 0xF, 0x284, 0x0);
setmaptile (0xA, 0x1C, 0x2A5, 0x1);
setmaptile (0xA, 0x1D, 0x2AD, 0x1);
setmaptile (0xA, 0x1E, 0x285, 0x0);
setmaptile (0xA, 0x1F, 0x284, 0x0);
setmaptile (0xA, 0x20, 0x2B5, 0x0);
setmaptile (0xC, 0x4, 0x350, 0x1);
setmaptile (0xC, 0x5, 0x358, 0x1);
setmaptile (0xC, 0x6, 0x360, 0x1);
setmaptile (0xC, 0x7, 0x368, 0x1);
setmaptile (0xC, 0x8, 0x370, 0x1);
setmaptile (0x2, 0xF, 0x34D, 0x0);
return ();

clearflag (0x26C);
copyvar (0x8000, 0x8004);
if (0x8000 == 0x0) goto (lbl_1A7C5C);
if (0x8000 == 0x1) goto (lbl_1A7DD8);
if (0x8000 == 0x2) goto (lbl_1A7EDF);
if (0x8000 == 0x3) goto (lbl_1A8025);
end ();

setmaptile (0x21, 0x14, 0x287, 0x0);
setmaptile (0x22, 0x14, 0x286, 0x0);
setmaptile (0x23, 0x14, 0x286, 0x0);
setmaptile (0x21, 0x15, 0x287, 0x0);
setmaptile (0x22, 0x15, 0x286, 0x0);
setmaptile (0x23, 0x15, 0x286, 0x0);
setmaptile (0x10, 0x1A, 0x2A5, 0x1);
setmaptile (0x10, 0x1B, 0x2AD, 0x1);
setmaptile (0x10, 0x1C, 0x287, 0x0);
setmaptile (0x10, 0x1D, 0x286, 0x0);
setmaptile (0x10, 0x1E, 0x2B0, 0x0);
setmaptile (0xC, 0x8, 0x350, 0x1);
setmaptile (0xC, 0x9, 0x358, 0x1);
setmaptile (0xC, 0xA, 0x362, 0x1);
setmaptile (0xC, 0xB, 0x36A, 0x1);
setmaptile (0xC, 0xC, 0x372, 0x1);
setmaptile (0x14, 0x16, 0x2F8, 0x1);
setmaptile (0x15, 0x16, 0x2F9, 0x1);
setmaptile (0x16, 0x16, 0x2FA, 0x1);
setmaptile (0x14, 0x17, 0x354, 0x1);
setmaptile (0x15, 0x17, 0x355, 0x1);
setmaptile (0x16, 0x17, 0x356, 0x1);
setmaptile (0x18, 0x1C, 0x316, 0x0);
setmaptile (0x1B, 0x4, 0x316, 0x0);
return ();

setmaptile (0x11, 0xB, 0x2F8, 0x1);
setmaptile (0x12, 0xB, 0x2F9, 0x1);
setmaptile (0x13, 0xB, 0x2FA, 0x1);
setmaptile (0x11, 0xC, 0x300, 0x1);
setmaptile (0x12, 0xC, 0x301, 0x1);
setmaptile (0x13, 0xC, 0x302, 0x1);
setmaptile (0x15, 0x4, 0x2A5, 0x1);
setmaptile (0x15, 0x5, 0x2AD, 0x1);
setmaptile (0x15, 0x6, 0x285, 0x0);
setmaptile (0x15, 0x7, 0x284, 0x0);
setmaptile (0x15, 0x8, 0x2B5, 0x0);
setmaptile (0xC, 0x4, 0x314, 0x0);
return ();

setmaptile (0x18, 0xE, 0x2F8, 0x1);
setmaptile (0x19, 0xE, 0x2F9, 0x1);
setmaptile (0x1A, 0xE, 0x2FA, 0x1);
setmaptile (0x18, 0xF, 0x300, 0x1);
setmaptile (0x19, 0xF, 0x301, 0x1);
setmaptile (0x1A, 0xF, 0x302, 0x1);
setmaptile (0xA, 0x1C, 0x350, 0x1);
setmaptile (0xA, 0x1D, 0x358, 0x1);
setmaptile (0xA, 0x1E, 0x360, 0x1);
setmaptile (0xA, 0x1F, 0x368, 0x1);
setmaptile (0xA, 0x20, 0x370, 0x1);
setmaptile (0xC, 0x4, 0x2A5, 0x1);
setmaptile (0xC, 0x5, 0x2AD, 0x1);
setmaptile (0xC, 0x6, 0x285, 0x0);
setmaptile (0xC, 0x7, 0x284, 0x0);
setmaptile (0xC, 0x8, 0x2B5, 0x0);
setmaptile (0x2, 0xF, 0x314, 0x0);
return ();

setmaptile (0x16, 0xA, 0x2F8, 0x1);
setmaptile (0x17, 0xA, 0x2F9, 0x1);
setmaptile (0x18, 0xA, 0x2FA, 0x1);
setmaptile (0x16, 0xB, 0x300, 0x1);
setmaptile (0x17, 0xB, 0x301, 0x1);
setmaptile (0x18, 0xB, 0x302, 0x1);
setmaptile (0x1B, 0x19, 0x2F8, 0x1);
setmaptile (0x1C, 0x19, 0x2F9, 0x1);
setmaptile (0x1D, 0x19, 0x2FA, 0x1);
setmaptile (0x1B, 0x1A, 0x300, 0x1);
setmaptile (0x1C, 0x1A, 0x301, 0x1);
setmaptile (0x1D, 0x1A, 0x302, 0x1);
setmaptile (0x20, 0x19, 0x2F8, 0x1);
setmaptile (0x21, 0x19, 0x2F9, 0x1);
setmaptile (0x22, 0x19, 0x2FA, 0x1);
setmaptile (0x20, 0x1A, 0x300, 0x1);
setmaptile (0x21, 0x1A, 0x301, 0x1);
setmaptile (0x22, 0x1A, 0x302, 0x1);
setmaptile (0x1F, 0x12, 0x285, 0x0);
setmaptile (0x20, 0x12, 0x284, 0x0);
setmaptile (0x21, 0x12, 0x284, 0x0);
setmaptile (0x1F, 0x13, 0x285, 0x0);
setmaptile (0x20, 0x13, 0x284, 0x0);
setmaptile (0x21, 0x13, 0x284, 0x0);
setmaptile (0x5, 0x4, 0x314, 0x0);
return ();

say ("Not quite yet!", 4);
releaseall ();
end ();

trainerbattle (0, 335, "Who are you?\nThere shouldn't be anyone here.", "Ouch!");
say ("A key? I don't know what you're\ntalking about.", 6);
end ();

trainerbattle (0, 534, "W-w-waah! You startled me!\nI thought you were a ghost.", "Tch!\nI can't get any wins.");
say ("I was exploring here by myself,\nbut I feel spooked.\rI ought to go soon.", 6);
end ();

if (0x26C) call (lbl_1A7D3E);
end ();

lockall ();
setvar (0x8004, 0x1);
call (lbl_1A7AE2);
playsound (0x26);
special (0x8E);
checksound ();
releaseall ();
end ();

say ("Diary: July 5\nGuyana, South America\rA new POKéMON was discovered deep\nin the jungle.", 3);
end ();

say ("Diary: July 10\nWe christened the newly discovered\fPOKéMON, MEW.", 3);
end ();

trainerbattle (0, 216, "I can't get out!\nThis old place is one big puzzle.", "Oh, no!\nMy bag of loot!");
say ("The switches here open and close\nalternating sets of doors.", 6);
end ();

if (0x26C) call (lbl_1A7E72);
end ();

lockall ();
setvar (0x8004, 0x2);
call (lbl_1A7AE2);
playsound (0x26);
special (0x8E);
checksound ();
releaseall ();
end ();

say ("Diary: Feb. 6\nMEW gave birth.\rWe named the newborn MEWTWO.", 3);
end ();

trainerbattle (0, 218, "This place is, like, huge!", "Ayah!");
say ("I wonder where my partner went.", 6);
end ();

trainerbattle (0, 346, "My mentor once lived here.", "Whew!\nOverwhelming!");
say ("So, you're stuck?\nTry jumping off over there!", 6);
end ();

if (0x26C) call (lbl_1A7F4C);
end ();

lockall ();
setvar (0x8004, 0x3);
call (lbl_1A7AE2);
playsound (0x26);
special (0x8E);
checksound ();
releaseall ();
end ();

say ("Diary: Sept. 1\nMEWTWO is far too powerful.\rWe have failed to curb its vicious\ntendencies…", 3);
end ();

trainerbattle (0, 219, "Uh-oh…\nWhere am I now?", "Awooh!");
say ("You can find stuff lying around.\nThe residents must've left them.", 6);
end ();

trainerbattle (0, 347, "This place is ideal for a lab.\nLook at all this space.", "What was that for?");
say ("I like it here.\nIt's conducive to my studies.", 6);
end ();

setworldmapflag (0x8AE);
end ();

say ("REST HOUSE", 3);
end ();

say ("TRAINER TIPS\rPress START to check\nremaining time.", 3);
end ();

say ("CENTER AREA", 3);
end ();

say ("REST HOUSE", 3);
end ();

say ("TRAINER TIPS\rThe remaining time declines only\nwhile you walk.", 3);
end ();

say ("AREA 1\nWEST: CENTER AREA", 3);
end ();

say ("REST HOUSE", 3);
end ();

say ("TRAINER TIPS\rThe SECRET HOUSE is still ahead.", 3);
end ();

say ("AREA 2", 3);
end ();

say ("TRAINER TIPS\rPOKéMON hide in tall grass.\rZigzag through grassy areas to\nflush them out.", 3);
end ();

say ("TRAINER TIPS\rWin a free HM for finding the\nSECRET HOUSE.", 3);
end ();

say ("REST HOUSE", 3);
end ();

say ("REQUEST NOTICE\rPlease find the SAFARI WARDEN's\nlost GOLD TEETH.\fThey're around here somewhere.\rReward offered!\nContact: WARDEN", 3);
end ();

say ("TRAINER TIPS\rZone Exploration Campaign!\nThe Search for the SECRET HOUSE!", 3);
end ();

say ("AREA 3\nEAST: CENTER AREA", 3);
end ();

say ("SARA: Where did my boyfriend,\nERIK, go?", 2);
end ();

say ("I'm catching POKéMON to take home\nas gifts.", 2);
end ();

say ("I caught a CHANSEY!\rThat makes this all worthwhile.", 2);
end ();

say ("How many did you catch?\nI'm bushed from the effort!", 2);
end ();

say ("Whew!\nI'm tired from all the fun!", 2);
end ();

say ("Go to the deepest part of the\nSAFARI ZONE. You will win a prize!", 2);
end ();

say ("You can keep any item you find in\nthe SAFARI ZONE.\rBut, you'll run out of time if you\ntry for all of them at once.", 2);
end ();

say ("My EEVEE evolved into FLAREON.\rBut, a friend's EEVEE turned into a\nVAPOREON. I wonder why?", 2);
end ();

say ("Using BAIT will make POKéMON more\nlikely to stick around if they get\fbusy eating.", 2);
end ();

say ("Tossing ROCKS at POKéMON might\nmake them run, but they'll be\feasier to catch.", 2);
end ();

say ("I hiked a lot, but I didn't see any\nPOKéMON I wanted.", 2);
end ();

lock ();
faceplayer ();
if (0x239) goto (lbl_1624A9);
say ("Ah! Finally!\rYou're the first person to reach\nthe SECRET HOUSE!\rAlthough I made a campaign\nfor our grand opening,\rI was getting worried that no one\nwould win our campaign prize.\rCongratulations!\nYou have won!", 4);
checkitemamount (0x155, 0x1);
if (0x800D == 0x0) goto (lbl_16249F);
giveitem (0x155, 0x1);
loadpointer (0, "{RED} received HM03\nfrom the attendant!");
copyvarifnot0 (0x8000, 0x155);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x101);
callstd (9);
say ("HM03 is SURF.\rPOKéMON will be able to ferry you\nacross water using it.\rAnd, this HM isn't disposable, so\nyou can use it over and over.\rYou're super lucky for winning this\nfabulous prize!", 4);
setflag (0x239);
release ();
end ();

say ("You don't have room for this\nfabulous prize!", 4);
release ();
end ();

say ("HM03 is SURF.\rPOKéMON will be able to ferry you\nacross water using it.\rAnd, this HM isn't disposable, so\nyou can use it over and over.\rYou're super lucky for winning this\nfabulous prize!", 4);
release ();
end ();

setworldmapflag (0x8B3);
end ();

if (0x807) call (lbl_1624D3);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x800F);
return ();

if (not 0x2BC) call (lbl_1624F1);
end ();

clearflag (0x81);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lock ();
faceplayer ();
checksound ();
cry (0x96, 0x2);
preparemsg ("Mew!");
waitmsg ();
waitforcry ();
pause (0x14);
playsong (0x156, 0);
waitkeypress ();
startwildbattle (0x96, 70, 0x0);
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_162558);
if (0x800D == 0x4) goto (lbl_162561);
if (0x800D == 0x5) goto (lbl_162561);
setflag (0x2BC);
release ();
end ();

setvar (0x8004, 0x96);
jump (lbl_1A9236);
end ();

fade (1);
hidesprite (0x800F);
fade (0);
getpokemonname (0, 0x8004);
say ("The {var:2} flew away!", 4);
release ();
end ();

setflag (0x2BC);
jump (lbl_1A922D);
end ();

fade (1);
hidesprite (0x800F);
fade (0);
release ();
end ();

setvar (0x8004, 0x0);
call (lbl_1A75D5);
end ();

special (0x1A1);
return ();

if (0x4B8) call (lbl_1625AC);
if (0x4068 == 0x1) call (lbl_1625A6);
end ();

call (lbl_1A759C);
return ();

setmaptile (0x5, 0xB, 0x29D, 0x1);
setmaptile (0x6, 0xB, 0x29E, 0x1);
setmaptile (0x7, 0xB, 0x29F, 0x1);
setmaptile (0x5, 0xC, 0x2A5, 0x1);
setmaptile (0x6, 0xC, 0x2A6, 0x1);
setmaptile (0x7, 0xC, 0x2A7, 0x1);
return ();

call (lbl_1A7538);
return ();

setmaptile (0x6, 0x1, 0x28E, 0x1);
setmaptile (0x6, 0x2, 0x296, 0x0);
return ();

setworldmapflag (0x8AF);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0x9);
setvar (0x8005, 0x2);
special (0x174);
if (0x4B8) goto (lbl_162669);
setvar (0x8004, 0x9);
setvar (0x8005, 0x0);
special (0x173);
setvar (0x8004, 0x9);
setvar (0x8005, 0x1);
special (0x173);
if (not 0x844) call (lbl_162641);
if (0x844) call (lbl_16264A);
setflag (0x3);
setflag (0x5);
if (not 0x844) call (lbl_162653);
if (0x844) call (lbl_16265E);
clearflag (0x5);
jump (lbl_162673);
end ();

setflag (0x4B8);
call (lbl_1A7506);
say ("You're better than I thought.\nGo on ahead.\rYou only got a taste of the\nPOKéMON LEAGUE's power.", 4);
release ();
end ();

applymove (0xFF, move_1A75FE);
waitformove (0x0);
playsound (0x8);
call (lbl_1A7538);
special (0x8E);
setflag (0x4);
return ();

rawb (0x1C, 0x1C, Move.End);

trainerbattle (3, 735, "…Things shouldn't be this way!");
return ();

trainerbattle (3, 410, "…Things shouldn't be this way!");
return ();

say ("Welcome to the POKéMON LEAGUE.\rI, LORELEI of the ELITE FOUR,\nhave returned!\rYou know how it goes.\nNo one can best me when it comes\fto icy POKéMON.\rFreezing moves are powerful.\rYour POKéMON will be at my mercy\nwhen they are frozen solid.\rHahaha!\nAre you ready?{snd1:342}", 4);
return ();

say ("Welcome to the POKéMON LEAGUE.\rI am LORELEI of the ELITE FOUR.\rNo one can best me when it comes\nto icy POKéMON.\rFreezing moves are powerful.\rYour POKéMON will be at my mercy\nwhen they are frozen solid.\rHahaha!\nAre you ready?{snd1:342}", 4);
return ();

say ("You're better than I thought.\nGo on ahead.\rYou only got a taste of the\nPOKéMON LEAGUE's power.", 4);
release ();
end ();

setvar (0x8004, 0x1);
call (lbl_1A75D5);
end ();

if (0x4B9) call (lbl_1626C0);
if (0x4068 == 0x2) call (lbl_1626BA);
end ();

call (lbl_1A759C);
return ();

call (lbl_1A7538);
return ();

lock ();
faceplayer ();
setvar (0x8004, 0xA);
setvar (0x8005, 0x2);
special (0x174);
if (0x4B9) goto (lbl_162779);
setvar (0x8004, 0xA);
setvar (0x8005, 0x0);
special (0x173);
setvar (0x8004, 0xA);
setvar (0x8005, 0x1);
special (0x173);
if (not 0x82C) call (lbl_162751);
if (0x82C) call (lbl_16275A);
setflag (0x3);
setflag (0x5);
if (not 0x844) call (lbl_162763);
if (0x844) call (lbl_16276E);
clearflag (0x5);
jump (lbl_1627B0);
end ();

setflag (0x4B9);
call (lbl_1A7506);
say ("My job is done.\nGo face your next challenge.", 4);
closeonkeypress ();
if (0x800C == 0x2) call (lbl_1627FA);
if (0x800C == 0x1) call (lbl_1627EF);
if (0x800C == 0x3) call (lbl_162805);
if (0x800C == 0x4) call (lbl_162805);
release ();
end ();

applymove (0x1, move_1A75ED);
waitformove (0x0);
return ();

applymove (0x1, move_1A75E7);
waitformove (0x0);
return ();

rawb (RealFastInPlace.East, Move.End);

applymove (0x1, move_1A75EB);
waitformove (0x0);
return ();

trainerbattle (3, 736, "Why?\nHow could I lose?");
return ();

trainerbattle (3, 411, "Why?\nHow could I lose?");
return ();

say ("I am BRUNO of the ELITE FOUR!\rThrough rigorous training, people\nand POKéMON can become stronger\fwithout limit.\rI've lived and trained with my\nfighting POKéMON!\fAnd that will never change!\r{RED}!\rWe will grind you down with our\nsuperior power!\rHoo hah!{snd1:342}", 4);
return ();

say ("My job is done.\nGo face your next challenge.", 4);
closeonkeypress ();
if (0x800C == 0x2) call (lbl_1627FA);
if (0x800C == 0x1) call (lbl_1627EF);
if (0x800C == 0x3) call (lbl_162805);
if (0x800C == 0x4) call (lbl_162805);
release ();
end ();

setvar (0x8004, 0x2);
call (lbl_1A75D5);
end ();

if (0x4BA) call (lbl_16284B);
if (0x4068 == 0x3) call (lbl_162845);
end ();

call (lbl_1A759C);
return ();

call (lbl_1A7538);
return ();

lock ();
faceplayer ();
setvar (0x8004, 0xB);
setvar (0x8005, 0x2);
special (0x174);
if (0x4BA) goto (lbl_162911);
setvar (0x8004, 0xB);
setvar (0x8005, 0x0);
special (0x173);
setvar (0x8004, 0xB);
setvar (0x8005, 0x4);
special (0x173);
setvar (0x8004, 0x0);
setvar (0x8005, 0x4);
special (0x173);
if (not 0x82C) call (lbl_1628E9);
if (0x82C) call (lbl_1628F2);
setflag (0x3);
setflag (0x5);
if (not 0x844) call (lbl_1628FB);
if (0x844) call (lbl_162906);
clearflag (0x5);
jump (lbl_16291B);
end ();

setflag (0x4BA);
call (lbl_1A7506);
say ("You win!\rI see what the old duff sees in\nyou now.\rI have nothing else to say.\nRun along now, child!", 4);
release ();
end ();

trainerbattle (3, 737, "Oh, my!\nYou're something special, child!");
return ();

trainerbattle (3, 412, "Oh, my!\nYou're something special, child!");
return ();

say ("I am AGATHA of the ELITE FOUR.\rYou're the child that OAK's taken\nunder his wing, aren't you?\rThat old duff was once tough and\nhandsome.\rBut that was decades ago.\nHe's a shadow of his former self.\rNow he just wants to fiddle with\nhis POKéDEX.\rHe's wrong.\nPOKéMON are for battling!\r{RED}! I'll show you how a real\nTRAINER battles!{snd1:342}", 4);
return ();

say ("I am AGATHA of the ELITE FOUR.\rI hear OAK's taken a lot of\ninterest in you, child.\rThat old duff was once tough and\nhandsome.\rBut that was decades ago.\nHe's a shadow of his former self.\rNow he just wants to fiddle with\nhis POKéDEX.\rHe's wrong.\nPOKéMON are for battling!\r{RED}! I'll show you how a real\nTRAINER battles!{snd1:342}", 4);
return ();

say ("You win!\rI see what the old duff sees in\nyou now.\rI have nothing else to say.\nRun along now, child!", 4);
release ();
end ();

setvar (0x8004, 0x3);
call (lbl_1A75D5);
end ();

if (0x4068 == 0x4) call (lbl_162962);
if (0x4BB) call (lbl_162968);
end ();

call (lbl_1A7589);
return ();

setmaptile (0x6, 0x4, 0x28E, 0x1);
setmaptile (0x6, 0x5, 0x296, 0x0);
return ();

call (lbl_1629A8);
return ();

setmaptile (0x5, 0xE, 0x29D, 0x1);
setmaptile (0x6, 0xE, 0x29E, 0x1);
setmaptile (0x7, 0xE, 0x29F, 0x1);
setmaptile (0x5, 0xF, 0x2A5, 0x1);
setmaptile (0x6, 0xF, 0x2A6, 0x1);
setmaptile (0x7, 0xF, 0x2A7, 0x1);
setmaptile (0x6, 0x10, 0x311, 0x0);
setmaptile (0x7, 0x10, 0x311, 0x0);
return ();

lock ();
faceplayer ();
setvar (0x8004, 0xC);
setvar (0x8005, 0x2);
special (0x174);
if (0x4BB) goto (lbl_162AA1);
setvar (0x8004, 0xC);
setvar (0x8005, 0x0);
special (0x173);
setvar (0x8004, 0xC);
setvar (0x8005, 0x1);
special (0x173);
if (not 0x82C) call (lbl_162A79);
if (0x82C) call (lbl_162A82);
setflag (0x3);
setflag (0x5);
if (not 0x844) call (lbl_162A8B);
if (0x844) call (lbl_162A96);
clearflag (0x5);
jump (lbl_162AAB);
end ();

setvar (0x8004, 0x0);
special (0xAA);
setflag (0x4BB);
call (lbl_1A7563);
say ("I still can't believe my dragons\nlost to you, {RED}.\rYou are now the POKéMON LEAGUE\nCHAMPION!\r…Or, you would have been, but\nyou have one more challenge left.\rThere is one more TRAINER to face!\nHis name is…\r{TERRY}!\rHe beat the ELITE FOUR before\nyou.\rHe is the real POKéMON LEAGUE\nCHAMPION.", 4);
closeonkeypress ();
release ();
end ();

applymove (0xFF, move_1A75FE);
waitformove (0x0);
playsound (0x8);
setmaptile (0x6, 0x4, 0x28E, 0x1);
setmaptile (0x6, 0x5, 0x296, 0x0);
special (0x8E);
setflag (0x4);
return ();

trainerbattle (3, 738, "That's it!\rI hate to admit it, but you are a\nPOKéMON master!");
return ();

trainerbattle (3, 413, "That's it!\rI hate to admit it, but you are a\nPOKéMON master!");
return ();

say ("Ah!\nSo, you've returned, {RED}!\rI lead the ELITE FOUR.\rYou can call me LANCE the dragon\nTRAINER.\rYou know that dragons are\nmythical POKéMON.\rThey're hard to catch and raise,\nbut their powers are superior.\rThey're virtually indestructible.\nThere's no being clever with them.\rWell, are you ready to lose?\rYour LEAGUE challenge ends with\nme, {RED}!{snd1:342}", 4);
return ();

say ("Ah! I've heard about you,\n{RED}!\rI lead the ELITE FOUR.\rYou can call me LANCE the dragon\nTRAINER.\rYou know that dragons are\nmythical POKéMON.\rThey're hard to catch and raise,\nbut their powers are superior.\rThey're virtually indestructible.\nThere's no being clever with them.\rWell, are you ready to lose?\rYour LEAGUE challenge ends with\nme, {RED}!{snd1:342}", 4);
return ();

say ("I still can't believe my dragons\nlost to you, {RED}.\rYou are now the POKéMON LEAGUE\nCHAMPION!\r…Or, you would have been, but\nyou have one more challenge left.\rThere is one more TRAINER to face!\nHis name is…\r{TERRY}!\rHe beat the ELITE FOUR before\nyou.\rHe is the real POKéMON LEAGUE\nCHAMPION.", 4);
release ();
end ();

setvar (0x8004, 0x4);
call (lbl_1A75D5);
if (0x4031 == 0x2) call (lbl_162B1E);
if (0x4031 == 0x1) call (lbl_162B31);
if (0x4031 == 0x0) call (lbl_162B44);
end ();

checktrainer (0x1B8);
ifgoto (1, lbl_162B57);
checktrainer (0x2E5);
ifgoto (1, lbl_162B57);
return ();

setvar (0x4001, 0x1);
return ();

checktrainer (0x1B7);
ifgoto (1, lbl_162B57);
checktrainer (0x2E4);
ifgoto (1, lbl_162B57);
return ();

checktrainer (0x1B6);
ifgoto (1, lbl_162B57);
checktrainer (0x2E3);
ifgoto (1, lbl_162B57);
return ();

setworldmapflag (0x8B0);
end ();

say ("ROCK TUNNEL\nCERULEAN CITY - LAVENDER TOWN", 3);
end ();

trainerbattle (0, 192, "This tunnel goes a long way, kid!", "Doh!\nYou win!");
say ("Watch for ONIX.\nThey appear only occasionally.\rHigh-level ones can put the\nsqueeze on you!", 6);
end ();

trainerbattle (0, 193, "Hmm.\nMaybe I'm lost in here…", "Ease up!\nWhat am I doing?\fWhich way is out?");
say ("That sleeping POKéMON on ROUTE 12\nforced me to take this detour.", 6);
end ();

trainerbattle (0, 194, "Outsiders like you need to show me\nsome respect!", "I give!");
say ("You're talented enough to hike!", 6);
end ();

trainerbattle (0, 168, "POKéMON fight!\nReady, go!", "Game over!");
say ("Oh well, I'll get a ZUBAT as I go!", 6);
end ();

trainerbattle (0, 476, "Eek!\rDon't try anything funny in the\ndark!", "It was too dark…");
say ("I saw a MACHOP in this tunnel.", 6);
end ();

trainerbattle (0, 475, "You have POKéMON!\nLet's start!", "You play hard!");
say ("Whew!\nI'm all sweaty now.", 6);
end ();

trainerbattle (0, 474, "I came this far looking for wild\nPOKéMON.", "I'm out of POKéMON!");
say ("You looked cute and harmless.\nWas I ever wrong!", 6);
end ();

trainerbattle (0, 158, "Do you know how you can avoid\ngetting lost in the mountains?\rYou can bend twigs as trail\nmarkers.", "Ohhh!\nI did my best!");
say ("I want to go home!", 6);
end ();

trainerbattle (0, 159, "I don't often come here, but I will\nbattle you.", "Oh!\nI lost!");
say ("I like tiny POKéMON.\nBig ones are too scary!", 6);
end ();

trainerbattle (0, 189, "Hahaha!\nCan you beat my power?", "Oops!\nOutmuscled!");
say ("I go for power because I hate\nthinking.", 6);
end ();

trainerbattle (0, 190, "My POKéMON techniques will leave\nyou crying!", "I give!\nYou're a better technician!");
say ("In mountains, you'll often find\nROCK-type POKéMON.", 6);
end ();

trainerbattle (0, 191, "Hit me with your best shot!", "Fired away!");
say ("I'll raise my POKéMON to beat\nyours, kid.", 6);
end ();

trainerbattle (0, 164, "You have a POKéDEX?\nI want one, too.", "Shoot!\nI am so jealous!");
say ("When you finish your POKéDEX,\ncan I have it?", 6);
end ();

trainerbattle (0, 165, "Um… Do you know about POKéMON\ncosplay?", "Well, that's that.");
say ("POKéMON cosplay is dressing up as\nPOKéMON for fun.\rCLEFAIRY is a favorite.", 6);
end ();

trainerbattle (0, 166, "I draw illustrations of POKéMON\nwhen I'm home.", "Whew…\nI'm exhausted…");
say ("I'm an artist, not a fighter.\nI'll go home to draw.", 6);
end ();

setworldmapflag (0x8B1);
end ();

if (not 0x2D2) call (lbl_162F6D);
if (0x2D2) call (lbl_162F94);
end ();

unknown_a7 (0x116);
return ();

setvar (0x4002, 0x0);
if (not 0x46) call (lbl_162FF0);
if (not 0x47) call (lbl_162FF0);
if (0x4002 == 0x2) call (lbl_162F90);
return ();

setflag (0x2D2);
return ();

addvar (0x4002, 0x1);
return ();

if (0x807) call (lbl_163052);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x800F);
return ();

if (not 0x2BE) call (lbl_1630AD);
if (not 0x2D3) call (lbl_163082);
if (0x2D3) call (lbl_1630A9);
end ();

unknown_a7 (0x117);
return ();

setvar (0x4002, 0x0);
if (not 0x4C) call (lbl_163169);
if (not 0x4D) call (lbl_163169);
if (0x4002 == 0x2) call (lbl_1630A5);
return ();

setflag (0x2D3);
return ();

addvar (0x4002, 0x1);
return ();

clearflag (0x82);
return ();

setvar (0x4002, 0x0);
if (not 0x4C) call (lbl_163169);
if (not 0x4D) call (lbl_163169);
if (0x4002 == 0x2) goto (lbl_1630D4);
end ();

setmaptile (0xC, 0xE, 0x12B, 0x0);
setmaptile (0xD, 0xE, 0x12B, 0x0);
end ();

lockall ();
applymove (0xFF, move_1631AA);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.North, Move.End);

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lock ();
faceplayer ();
startwildbattle (0x90, 50, 0x0);
checksound ();
cry (0x90, 0x2);
preparemsg ("Gyaoo!");
waitmsg ();
waitforcry ();
pause (0xA);
playsong (0x156, 0);
waitkeypress ();
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_16320F);
if (0x800D == 0x4) goto (lbl_163218);
if (0x800D == 0x5) goto (lbl_163218);
setflag (0x2BE);
release ();
end ();

setvar (0x8004, 0x90);
jump (lbl_1A9236);
end ();

setflag (0x2BE);
jump (lbl_1A922D);
end ();

say ("Hint: Boulders might change the\nflow of water.", 3);
end ();

say ("DANGER\nFast current!", 3);
end ();

setworldmapflag (0x8B2);
end ();

say ("I am a CHANNELER.\rThere are spirits up to mischief.\nI sense them high in the TOWER.", 2);
end ();

say ("My GROWLITHE…\nWhy did you die?", 2);
end ();

say ("I came to pray for my dearly\ndeparted CLEFAIRY.\rSniff!\nI'm awash in tears…", 2);
end ();

lock ();
faceplayer ();
getgender ();
if (0x800D == 0x0) goto (lbl_163272);
say ("Did you come to pay respects?\rBless your POKéMON-loving heart,\ngirl.", 4);
release ();
end ();

say ("Did you come to pay respects?\rBless your POKéMON-loving heart,\nson.", 4);
release ();
end ();

say ("POKéMON TOWER was erected in the\nmemory of POKéMON that died.", 2);
end ();

say ("Even we could not identify the\nwayward ghosts.\rA SILPH SCOPE might be able to\nunmask them.", 2);
end ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_1632A7);
end ();

textcolor (0);
playsong (0x13B, 0);
if (0x4001 == 0x0) call (lbl_163339);
if (0x4001 == 0x1) call (lbl_16334B);
applymove (0x1, move_1A75DB);
waitformove (0x0);
applymove (0x1, move_1A75DD);
waitformove (0x0);
say ("{TERRY}: Hey, {RED}!\nWhat brings you here?\fIs your POKéMON dead?\rHey! It's alive!\rI can at least make them faint!\nLet's go!", 4);
setvar (0x800F, 0x1);
if (0x4031 == 0x2) call (lbl_16335D);
if (0x4031 == 0x1) call (lbl_163368);
if (0x4031 == 0x0) call (lbl_163373);
say ("How's your POKéDEX coming?\nI just caught a CUBONE!\rI can't find the bigger MAROWAK.\nWhere could they be?\rI bet there aren't any left!\rWell, I better get going.\nI've got a lot to accomplish,\funlike you.\rSmell ya later!", 4);
closeonkeypress ();
playsong (0x13C, 0);
if (0x4001 == 0x0) call (lbl_16337E);
if (0x4001 == 0x1) call (lbl_163389);
playsound (0x9);
pause (0x19);
fadetodefault ();
hidesprite (0x1);
setvar (0x405D, 0x1);
releaseall ();
end ();

applymove (0x1, move_16339D);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, RealFastInPlace.West, Move.End);

applymove (0x1, move_163394);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.West, Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, RealFastInPlace.West, Move.End);

trainerbattle (3, 431, "What?\nYou stinker!\rI took it easy on you, too!");
return ();

trainerbattle (3, 430, "What?\nYou stinker!\rI took it easy on you, too!");
return ();

trainerbattle (3, 429, "What?\nYou stinker!\rI took it easy on you, too!");
return ();

applymove (0x1, move_1A75ED);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

rawb (RealFastInPlace.North, Move.End);

applymove (0x1, move_1A75EB);
applymove (0xFF, move_1A75E7);
waitformove (0x0);
return ();

lockall ();
setvar (0x4001, 0x1);
jump (lbl_1632A7);
end ();

trainerbattle (0, 441, "Be gone!\nMalevolent spirit!", "Whew!\nThe spirit left!");
say ("The others above…\nThey must have been possessed.", 6);
end ();

trainerbattle (0, 442, "Kekeke…\nKwaaah!", "Hmm?\nWhat am I doing?");
say ("Sorry!\nI was possessed!", 6);
end ();

trainerbattle (0, 443, "Urrg… Awaa…\nHuhu… Graa…", "Hwa!\nI'm saved!");
say ("The ghosts can be identified by\nthe SILPH SCOPE.", 6);
end ();

trainerbattle (0, 444, "Ghost! No!\nKwaaah!", "Where is the ghost?");
say ("I must have been dreaming…", 6);
end ();

trainerbattle (0, 445, "Be cursed with me!\nKwaaah!", "What!");
say ("We can't determine the identity of\nthe ghosts…", 6);
end ();

trainerbattle (0, 446, "Huhuhu…\nBeat me not!", "Huh?\nWho? What?");
say ("May the departed POKéMON rest in\npeace…", 6);
end ();

say ("Come, child!\nI have purified this space.\fYou can rest here.", 2);
end ();

lockall ();
fade (3);
special (0x0);
fade (2);
say ("Entered the purified and protected\nzone.\r{RED}'s POKéMON were fully\nhealed.", 4);
setvar (0x4001, 0x1);
releaseall ();
end ();

lockall ();
setvar (0x4001, 0x0);
releaseall ();
end ();

trainerbattle (0, 447, "Give…me…\nyour…all…", "Gasp!");
say ("I was under possession.", 6);
end ();

trainerbattle (0, 448, "You…shall…\njoin…us…", "What a nightmare!");
say ("I was possessed.", 6);
end ();

trainerbattle (0, 449, "Zombies!", "Ha?");
say ("I regained my senses.", 6);
end ();

trainerbattle (0, 450, "Urgah…\nUrff…", "Whoo!");
say ("I fell to evil spirits despite my\ntraining in the mountains…", 6);
end ();

lockall ();
textcolor (2);
say ("Be gone…\nIntruders…", 4);
special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
startwildbattle (0x69, 30, 0x0);
special (0x156);
waitstate ();
special (0x188);
if (0x800D == 0x0) goto (lbl_1634F5);
applymove (0xFF, move_163512);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.North, Move.End);

preparemsg ("The ghost was the restless spirit\nof CUBONE's mother!");
waitmsg ();
checksound ();
cry (0x69, 0x0);
waitkeypress ();
waitforcry ();
say ("The mother's spirit was calmed.\rIt departed to the afterlife…", 4);
setvar (0x4059, 0x1);
releaseall ();
end ();

trainerbattle (0, 451, "Give…me…\nblood…", "Groan!");
say ("I feel anemic and weak…", 6);
end ();

trainerbattle (0, 452, "Urff…\nKwaah!", "Something fell out!");
say ("My hair didn't fall out!\nIt was a malevolent spirit!", 6);
end ();

trainerbattle (0, 453, "Ke…ke…ke…\nke…ke…ke!", "Keee!");
say ("What's going on here?", 6);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0xE);
setvar (0x8005, 0x2);
special (0x174);
setflag (0x34);
clearflag (0x35);
setflag (0x23C);
say ("MR. FUJI: Heh?\nYou came to save me?\rThank you. But, I came here of my\nown free will.\rI came to calm the spirit of\nCUBONE's mother.\rI think MAROWAK's spirit has\nfinally left us.\rI must thank you for your kind\nconcern.\rFollow me to my home, POKéMON\nHOUSE, at the foot of this tower.", 4);
closeonkeypress ();
warp (8, 2, 255, 0x4, 0x7);
waitstate ();
release ();
end ();

trainerbattle (2, 369, "What do you want?\nWhy are you here?", "I give up!", lbl_1635A1);
say ("I'm not going to forget this!", 6);
end ();

say ("I'm not going to forget this!", 4);
closeonkeypress ();
getcamerapos (0x8004, 0x8005);
if (0x8004 == 0xA) goto (lbl_1635E0);
if (0x8004 == 0xB) goto (lbl_1635F0);
if (0x8004 == 0x9) goto (lbl_163600);
applymove (0x2, move_16362C);
waitformove (0x0);
jump (lbl_163616);
end ();

hidesprite (0x2);
release ();
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x2, move_163633);
waitformove (0x0);
playsound (0x9);
pause (0x19);
jump (lbl_163616);
end ();

rawb (Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.South, Walk.South, RealFastInPlace.East, Move.End);

applymove (0x2, move_163624);
waitformove (0x0);
jump (lbl_163616);
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.South, Walk.South, Move.End);

applymove (0x2, move_16361B);
waitformove (0x0);
jump (lbl_163616);
end ();

rawb (Walk.South, Walk.West, Walk.South, Walk.South, Walk.South, Walk.West, Walk.South, Walk.South, Move.End);

trainerbattle (2, 370, "This old guy marched right up to\nour HIDEOUT.\rThen, he starts ranting about how\nTEAM ROCKET's abusing POKéMON.\rSo, we're just talking it over as\nadults.", "Please!\nNo more!", lbl_163658);
say ("POKéMON are only good for making\nmoney. Why not use them?\rYou stay out of our business!", 6);
end ();

setvar (0x8004, 0xE);
setvar (0x8005, 0x1);
special (0x173);
say ("POKéMON are only good for making\nmoney. Why not use them?\rYou stay out of our business!", 4);
closeonkeypress ();
getcamerapos (0x8004, 0x8005);
if (0x8004 == 0xC) goto (lbl_163699);
if (0x8004 == 0xD) goto (lbl_1636A9);
applymove (0x3, move_1636C6);
waitformove (0x0);
jump (lbl_1636B9);
end ();

hidesprite (0x3);
release ();
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x3, move_1636CD);
waitformove (0x0);
jump (lbl_1636B9);
end ();

rawb (Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x3, move_1636BE);
waitformove (0x0);
jump (lbl_1636B9);
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.East, Walk.South, Walk.South, Walk.South, Move.End);

trainerbattle (2, 371, "You're not saving anyone, kid!", "Don't fight us ROCKETS!", lbl_1636F1);
say ("You're not getting away with this!", 6);
end ();

say ("You're not getting away with this!", 4);
closeonkeypress ();
getcamerapos (0x8004, 0x8005);
if (0x8004 == 0xA) goto (lbl_163725);
if (0x8004 == 0x9) goto (lbl_163735);
applymove (0x4, move_163754);
waitformove (0x0);
jump (lbl_163745);
end ();

hidesprite (0x4);
release ();
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x4, move_16375B);
waitformove (0x0);
jump (lbl_163745);
end ();

rawb (Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0x4, move_16374C);
waitformove (0x0);
jump (lbl_163745);
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.South, Move.End);

if (0x807) call (lbl_163779);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x800F);
return ();

setworldmapflag (0x8B4);
if (not 0x2BF) call (lbl_1637AC);
if (not 0x2D0) call (lbl_1637B0);
if (not 0x2D1) call (lbl_1637B4);
end ();

clearflag (0x86);
return ();

clearflag (0x85);
return ();

clearflag (0x5D);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lock ();
faceplayer ();
startwildbattle (0x91, 50, 0x0);
checksound ();
cry (0x91, 0x2);
preparemsg ("Gyaoo!");
waitmsg ();
waitforcry ();
pause (0xA);
playsong (0x156, 0);
waitkeypress ();
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_16381B);
if (0x800D == 0x4) goto (lbl_163824);
if (0x800D == 0x5) goto (lbl_163824);
setflag (0x2BF);
release ();
end ();

setvar (0x8004, 0x91);
jump (lbl_1A9236);
end ();

setflag (0x2BF);
jump (lbl_1A922D);
end ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
lock ();
faceplayer ();
startwildbattle (0x65, 34, 0x0);
checksound ();
cry (0x65, 0x2);
pause (0x28);
waitforcry ();
setflag (0x807);
repeatwildbattle ();
clearflag (0x807);
special (0x188);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_163884);
if (0x800D == 0x4) goto (lbl_163884);
if (0x800D == 0x5) goto (lbl_163884);
setflag (0x2D0);
release ();
end ();

setflag (0x2D0);
jump (lbl_1A922D);
end ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
lock ();
faceplayer ();
startwildbattle (0x65, 34, 0x0);
checksound ();
cry (0x65, 0x2);
pause (0x28);
waitforcry ();
setflag (0x807);
repeatwildbattle ();
clearflag (0x807);
special (0x188);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_1638E2);
if (0x800D == 0x4) goto (lbl_1638E2);
if (0x800D == 0x5) goto (lbl_1638E2);
setflag (0x2D1);
release ();
end ();

setflag (0x2D1);
jump (lbl_1A922D);
end ();

lockall ();
braille ("⠁⠃⠉");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠛⠓⠊");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠍⠝⠕");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠞⠥⠧");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠙⠑⠋");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠚⠅⠇");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠏⠟⠗⠎");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠺⠭⠽⠵");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠲");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠂");
waitkeypress ();
releaseall ();
end ();

setworldmapflag (0x8B6);
if (0x407F == 0x2) call (lbl_163960);
end ();

spritebehave (0x2, 8);
spritebehave (0x3, 8);
return ();

if (0x4076 => 0x4) call (lbl_163975);
end ();

setmaptile (0x2A, 0x27, 0x346, 0x0);
return ();

lock ();
checktrainer (0x219);
ifgoto (1, lbl_16399E);
if (0x4076 == 0x4) goto (lbl_1639A8);
say ("Over here.\nWe'll try digging here.\rThat treasure the ADMINS've been\ntalking about should be here.", 4);
release ();
end ();

applymove (0x2, move_1A75E1);
waitformove (0x0);
playsong (0x11B, 0);
say ("You've been eavesdropping on us,\nhaven't you?", 4);
trainerbattle (3, 537, "Huh, what?");
say ("Why'd you have to win?", 4);
checktrainer (0x21A);
ifgoto (1, lbl_1639DB);
release ();
end ();

say ("What a setback…\nWe'll have to regroup.\rYou! Don't even think about taking\na step inside here!\rIf you know what's good for you,\ndon't even think about this!", 4);
closeonkeypress ();
fade (1);
hidesprite (0x2);
hidesprite (0x3);
fade (0);
release ();
end ();

say ("Why'd you have to win?", 4);
release ();
end ();

lock ();
faceplayer ();
checktrainer (0x21A);
ifgoto (1, lbl_163A1B);
if (0x4076 == 0x4) goto (lbl_163A25);
say ("What the…?\nYou're in the way. Get lost.", 4);
closeonkeypress ();
applymove (0x3, move_1A75E5);
waitformove (0x0);
release ();
end ();

rawb (0x5A, Move.End);

playsong (0x11B, 0);
say ("Trying to horn in on our treasure?\nDon't bet on it!", 4);
trainerbattle (3, 538, "Wait!\nBut how?");
say ("Develop amnesia conveniently and\nforget everything you heard!", 4);
checktrainer (0x219);
ifgoto (1, lbl_1639DB);
release ();
end ();

say ("Develop amnesia conveniently and\nforget everything you heard!", 4);
release ();
end ();

lockall ();
textcolor (0);
say ("Whew, punched through at last.\nLet's go treasure hunting!", 4);
preparemsg ("Any treasure we find, we haul back\nto the WAREHOUSE, understood?\r…Oh, and what're the passwords?\nAt the ROCKET WAREHOUSE, I mean.");
waitmsg ();
playsound (0x15);
applymove (0x3, move_1A75D9);
waitformove (0x0);
waitkeypress ();
say ("What, you forgot the password?\nThere're actually two.\rThe first one's “GOLDEEN need\nlog.”\rAnd the second one is…", 4);
applymove (0x2, move_1A75ED);
waitformove (0x0);
playsound (0x15);
applymove (0x2, move_1A75DB);
waitformove (0x0);
applymove (0x2, move_1A75DD);
waitformove (0x0);
applymove (0x3, move_1A75ED);
waitformove (0x0);
call (lbl_163960);
say ("Hey!\nThis snoop's been listening in!", 4);
setvar (0x407F, 0x2);
releaseall ();
end ();

rawb (Emote.Question, Move.End);

trainerbattle (0, 595, "An active volcano is one that's\nerupting, or about to.", "Whew… That was hot!\nSweat's erupting from me!");
say ("They say there're over 1,500\nactive volcanoes in the world.\rJust thinking about them makes me\nfeel all hot and gooey inside!", 6);
end ();

trainerbattle (0, 597, "Do you know how caves form inside\nvolcanoes?", "Atchah!\nYou're shockingly good!");
say ("When lava at the surface of magma\nhardens, and the magma inside flows\fout, caverns are left behind.", 6);
end ();

trainerbattle (0, 592, "I've been in training so I can mend\nmy broken heart…\rIt toughened me up physically at\nleast! Hi-yah!", "I think I tried to overdo it…");
say ("The way you battle, it reminds me\nof the guy who dumped me…", 6);
end ();

if (0x807) call (lbl_163B11);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x800F);
return ();

if (not 0x2BD) call (lbl_163B2F);
end ();

clearflag (0x52);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lock ();
faceplayer ();
startwildbattle (0x92, 50, 0x0);
checksound ();
cry (0x92, 0x2);
preparemsg ("Gyaoo!");
waitmsg ();
waitforcry ();
pause (0xA);
playsong (0x156, 0);
waitkeypress ();
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_163B96);
if (0x800D == 0x4) goto (lbl_163B9F);
if (0x800D == 0x5) goto (lbl_163B9F);
setflag (0x2BD);
release ();
end ();

setvar (0x8004, 0x92);
jump (lbl_1A9236);
end ();

setflag (0x2BD);
jump (lbl_1A922D);
end ();

lockall ();
setvar (0x8005, 0x82);
setvar (0x8006, 0x0);
braille ("⠑⠧⠑⠗⠽⠞⠓⠊⠝⠛");
braille2 ("⠑⠧⠑⠗⠽⠞⠓⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
braille2 ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠑⠭⠊⠎⠞⠑⠝⠉⠑");
braille2 ("⠑⠭⠊⠎⠞⠑⠝⠉⠑");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
braille2 ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠃⠑⠊⠝⠛⠀⠁⠇⠊⠧⠑");
braille2 ("⠃⠑⠊⠝⠛⠀⠁⠇⠊⠧⠑");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
braille2 ("⠓⠁⠎⠀⠍⠑⠁⠝⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠓⠁⠧⠑⠀⠙⠗⠑⠁⠍⠎");
braille2 ("⠓⠁⠧⠑⠀⠙⠗⠑⠁⠍⠎");
call (lbl_1A926C);
braille ("⠥⠎⠑⠀⠏⠕⠺⠑⠗⠲");
waitkeypress ();
releaseall ();
end ();

special (0x1B2);
waitkeypress ();
playsound (0x5);
setvar (0x8006, 0x1);
special (0x1B2);
return ();

lock ();
faceplayer ();
setflag (0x2DD);
hidesprite (0x1);
giveitem (0x175, 0x1);
loadpointer (0, "{RED} found a RUBY!");
copyvarifnot0 (0x8000, 0x175);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x13E);
callstd (9);
release ();
end ();

setworldmapflag (0x8B7);
warp6 (3, 48, 255, 0xC, 0x6);
end ();

lock ();
faceplayer ();
say ("LOSTELLE: Whimper… Sniff…\nOh! Please, help!\rA scary POKéMON appeared there\na little while ago.\rIt kept scaring.\nIt made LOSTELLE scared.\rI'm too scared to move!\nBut I want to go home…", 4);
playsound (0x15);
applymove (0x1, move_1A75DB);
waitformove (0x0);
applymove (0x1, move_163D22);
waitformove (0x0);
say ("Oh! Here it comes again!\nNo! Go away! It's scaring me!\rWaaaaaaah!\nI want my daddy!", 4);
special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
checksound ();
cry (0x61, 0x2);
waitforcry ();
startwildbattle (0x61, 30, 0x0);
repeatwildbattle ();
special (0x188);
applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("Ohh! That was so scary!\nThank you!\rLOSTELLE came to pick some\nBERRIES.\rYou can have this!", 4);
copyvarifnot0 (0x8000, 0x93);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
if (0x800D == 0x0) call (lbl_163D19);
special (0x94);
say ("What's your name?\rLOSTELLE's scared, so can I go\nwith you to my daddy's house?\rOkay!\nLet's go home!", 4);
closeonkeypress ();
setflag (0x2A3);
setflag (0x7A);
setvar (0x4079, 0x2);
clearflag (0x75);
warp (33, 0, 255, 0x6, 0x6);
waitstate ();
release ();
end ();

say ("Your BERRY POUCH is full.\nI guess you don't want this.", 4);
return ();

rawb (RealFastInPlace.East, 0x1C, RealFastInPlace.West, 0x1B, RealFastInPlace.East, Move.End);

say ("Welcome to the BERRY FOREST\rBe friendly and share BERRIES with\nothers and POKéMON.", 3);
end ();

say ("Beware of wild, BERRY-loving\nPOKéMON!", 3);
end ();

setworldmapflag (0x8B8);
end ();

unknown_a6 (4);
end ();

special (0x135);
end ();

if (0x4080 == 0x1) call (lbl_163D94);
end ();

setflag (0x8B);
return ();

lockall ();
textcolor (1);
say ("LORELEI: Keep your filthy hands\noff the POKéMON in the cave!\rDo as I say, or you'll have me to\nanswer to!", 4);
applymove (0x1, move_163EE8);
waitformove (0x0);
textcolor (0);
say ("Aww, shut it, lady, and leave\nus be.\rDon't let your glasses get all\nsteamed up!", 4);
closeonkeypress ();
playsound (0x15);
applymove (0x3, move_1A75DB);
waitformove (0x0);
applymove (0x3, move_1A75ED);
waitformove (0x0);
applymove (0x3, move_1A75DD);
waitformove (0x0);
textcolor (1);
say ("LORELEI: {RED}?!\nWhat are you doing here?\rNo, we can catch up later.\nRight now, I need your help.\rHelp me kick these poachers out\nbefore they do anything else.\rThey've been catching POKéMON\nhere, then selling them off!\rAre you ready?\nYou take that one, please!", 4);
closeonkeypress ();
applymove (0x3, move_1A75EB);
waitformove (0x0);
pause (0x12);
applymove (0x3, move_1A75ED);
waitformove (0x0);
pause (0x23);
applymove (0x4, move_163F11);
applymove (0x3, move_163F18);
applymove (0xFF, move_163EDD);
waitformove (0x0);
applymove (0x2, move_163EE8);
waitformove (0x0);
playsong (0x11B, 0);
textcolor (0);
say ("W-what?!\rWho says we can't do what we want\nwith the POKéMON we catch?", 4);
setvar (0x800F, 0x4);
trainerbattle (3, 539, "We didn't plan on this!");
applymove (0x3, move_163F1B);
waitformove (0x0);
textcolor (1);
say ("LORELEI: Humph.\nSo despicably weak.\rYou!\nTell me!\rWhere have you taken the captured\nPOKéMON?\rI'm smashing your ring once and\nfor all!", 4);
textcolor (0);
say ("N-no way!\nI'm not telling you that!", 4);
textcolor (1);
preparemsg ("LORELEI: If you won't confess,\nwe'll deep-freeze you.\rMy LAPRAS is furious for what\nyou've done to its friends.\rGo, LAPRAS!\nICE BEAM…");
waitmsg ();
checksound ();
cry (0x83, 0x2);
waitkeypress ();
waitforcry ();
applymove (0x1, move_163EEE);
waitformove (0x0);
textcolor (0);
say ("Wawaah! Okay!\nI'll talk!\rThe POKéMON are in the ROCKET\nWAREHOUSE on FIVE ISLAND.\rThere! I said it!\nWe'll be going now!\r…But I doubt you'll ever make it\ninto the ROCKET WAREHOUSE!\rHeheheheh!", 4);
closeonkeypress ();
applymove (0x3, move_163F1D);
applymove (0xFF, move_163EE2);
applymove (0x1, move_163EF0);
applymove (0x2, move_163EFA);
applymove (0x4, move_163F05);
waitformove (0x0);
hidesprite (0x1);
hidesprite (0x2);
hidesprite (0x4);
pause (0x32);
applymove (0x3, move_163F23);
waitformove (0x0);
applymove (0xFF, move_1A75E7);
waitformove (0x0);
textcolor (1);
say ("{RED}, thank you.\nBut this is awful…\rI was born and raised here on\nthese islands.\rI had no idea that those horrible\ncriminals were loose here…", 4);
setflag (0x8E);
clearflag (0x8C);
setvar (0x4080, 0x1);
releaseall ();
end ();

rawb (Walk.West, Move.End);

rawb (0x1C, Walk.South, 0x1C, Walk.South, Sprint.West, Sprint.West, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Move.End);

rawb (0x1C, Walk.East, Walk.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Move.End);

rawb (Walk.West, Walk.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Sprint.South, Move.End);

rawb (0x1C, RealFastInPlace.East, 0x1C, 0x1C, RealFastInPlace.South, Move.End);

rawb (0x1B, RealFastInPlace.West, 0x1C, 0x1C, RealFastInPlace.South, Move.End);

rawb (FastInPlace.South, Move.End);

rawb (StepInPlace.North, Move.End);

rawb (Walk.North, Walk.North, Walk.West, Walk.North, Move.End);

rawb (Walk.East, Walk.North, Move.End);

rawb (0x1C, 0x1B, RealFastInPlace.West, Move.End);

rawb (StepInPlace.South, Move.End);

say ("{RED}, thank you.\nBut this is awful…\rI was born and raised here on\nthese islands.\rI had no idea that those horrible\ncriminals were loose here…", 2);
end ();

setworldmapflag (0x8B9);
end ();

checktrainer (0x21F);
ifgosub (1, lbl_163F47);
end ();

setmaptile (0x1A, 0x14, 0x2A0, 0x0);
setmaptile (0x1B, 0x14, 0x2A0, 0x0);
return ();

lockall ();
if (0x2D5) goto (lbl_163F6E);
say ("There are many POKéMON locked\naway in the pen…", 4);
releaseall ();
end ();

say ("The pen door is unlocked.\nThe POKéMON appear to have fled.", 4);
releaseall ();
end ();

say ("A report with graphs and text is on\nthe PC monitor.\r“The Influence of Magnetic Waves\non POKéMON Evolution”…\r… … … … … …\rIt's too difficult to understand…", 3);
end ();

lockall ();
applymove (0x4, move_1A75E7);
waitformove (0x0);
setvar (0x4088, 0x1);
releaseall ();
end ();

trainerbattle (2, 545, "I almost managed to sell the\nSAPPHIRE for huge money…\rThen, you just had to come along\nand blow the whole deal apart!\rFufu… Fufufufu…\nThere's no forgiveness for you!", "Gah! Darn!\nDarn! Darn!", lbl_163FCD);
if (0x844) goto (lbl_163FB7);
say ("What do you want now?\nGo on, get lost, leave me be.", 6);
end ();

setvar (0x8004, 0xF);
setvar (0x8005, 0x5);
special (0x173);
say ("What, you again?\rYou… You're not GIOVANNI's kid,\nare you?\rNo, that can't be right!\nGIOVANNI's kid has red hair.\rYou don't have any reasons for\nbugging me. Leave me alone!", 6);
end ();

say ("If I can't sell it, it's worthless!\nGo ahead, take it!", 4);
setflag (0x2DC);
copyvarifnot0 (0x8000, 0x176);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
release ();
end ();

trainerbattle (0, 541, "Did you come here knowing it's\nTEAM ROCKET's WAREHOUSE?", "What do you think you're doing?!");
say ("TEAM ROCKET broke up?\nWhat planet are you from?", 6);
end ();

trainerbattle (0, 542, "I got word about you from the\nothers.\rBut there's no way a kid like you'd\nknow our BOSS GIOVANNI!", "Don't…you…dare…laugh…");
say ("Don't mess in the doings of adults,\nyou jumped-up pip-squeak!", 6);
end ();

trainerbattle (2, 544, "That's quite enough of you \nplaying the hero, kid.\rSpreading lies about how TEAM\nROCKET has disbanded…\rIt's such an obvious attempt to\ncause confusion in our ranks.\rFortunately, we're not so ignorant\nto fall for the lies of a child!\rAnd now, I'll show you how scary\nan angry adult can be!", "Urgh…\nYou were too strong…\r…\nTh-that's GIOVANNI's BADGE!\rSo it's true?\nTEAM ROCKET really has disbanded?", lbl_16402F);
say ("We will abandon this WAREHOUSE…\rBut don't think this is over.\nI won't let this be the end.\rI will find GIOVANNI.\nAnd I will resurrect TEAM ROCKET!\fI will…\rUntil then, farewell!", 6);
end ();

getcamerapos (0x8004, 0x8005);
if (0x8004 <= 0x18) call (lbl_164065);
say ("We will abandon this WAREHOUSE…\rBut don't think this is over.\nI won't let this be the end.\rI will find GIOVANNI.\nAnd I will resurrect TEAM ROCKET!\fI will…\rUntil then, farewell!", 4);
closeonkeypress ();
fade (1);
hidesprite (0x1);
hidesprite (0x2);
hidesprite (0x4);
hidesprite (0x3);
setflag (0x88);
fade (0);
setvar (0x4088, 0x1);
setflag (0x2D5);
release ();
end ();

applymove (0xFF, move_1A75EB);
waitformove (0x0);
return ();

trainerbattle (0, 516, "Oh, now your POKéMON look strong.\nYou're willing to sell them?\rOh?\nYou wanted to battle?", "Oh, but…\nToo much!");
say ("We can give you a great price.\nSell us your POKéMON!", 6);
end ();

trainerbattle (2, 543, "I don't know or care if what I'm\ndoing is right or wrong…\rI just put my faith in GIOVANNI\nand do as I am told.", "I…\nI'm shattered…", lbl_1640A2);
say ("I've made it so you can come back\nin through there.\rWhy don't you go get rested and\nrefreshed for what lies ahead?\rThe ADMIN after me outranks me\nthoroughly as a TRAINER.\rYou'd better steel yourself for one\nharsh challenge.", 6);
end ();

getcamerapos (0x8004, 0x8005);
special2 (0x800D, 0x1AA);
if (0x800D == 0x2) call (lbl_16412E);
say ("You're doing things according to\nyour beliefs and morals.\rI understand now…", 4);
closeonkeypress ();
if (0x8004 <= 0x18) call (lbl_164144);
if (0x8004 == 0x19) call (lbl_16414F);
if (0x8004 == 0x1A) call (lbl_16415A);
if (0x8004 == 0x1B) call (lbl_16415A);
playsound (0x15);
call (lbl_163F47);
special (0x8E);
checksound ();
if (0x8004 <= 0x18) call (lbl_164165);
if (0x8004 == 0x19) call (lbl_164165);
if (0x8004 == 0x1A) call (lbl_164165);
if (0x8004 == 0x1B) call (lbl_164170);
say ("I've made it so you can come back\nin through there.\rWhy don't you go get rested and\nrefreshed for what lies ahead?\rThe ADMIN after me outranks me\nthoroughly as a TRAINER.\rYou'd better steel yourself for one\nharsh challenge.", 4);
release ();
end ();

applymove (0x3, move_1A75ED);
waitformove (0x0);
return ();

applymove (0x3, move_1A75E7);
waitformove (0x0);
return ();

applymove (0x3, move_1A75E9);
waitformove (0x0);
return ();

applymove (0x3, move_16417F);
waitformove (0x0);
return ();

rawb (Walk.West, RealFastInPlace.North, Move.End);

applymove (0x3, move_16417B);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.West, RealFastInPlace.North, Move.End);

if (0x8004 == 0x1B) goto (lbl_1A77A9);
applymove (0xFF, move_1A75EB);
waitformove (0x0);
return ();

setworldmapflag (0x8BB);
end ();

lockall ();
braille ("⠥⠏");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠙⠕⠺⠝");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠗⠊⠛⠓⠞");
waitkeypress ();
releaseall ();
end ();

lockall ();
braille ("⠇⠑⠋⠞");
waitkeypress ();
releaseall ();
end ();

lock ();
faceplayer ();
textcolor (3);
jingle (0x13E);
preparemsg ("{RED} found a SAPPHIRE!");
waitmsg ();
waitforjingle ();
closeonkeypress ();
movesprite2 (0x2, 0x5, 0x0);
showsprite (0x2);
playsound (0x25);
applymove (0x2, move_16440F);
waitformove (0x0);
playsound (0xCF);
if (0x800C == 0x2) call (lbl_16430F);
if (0x800C == 0x1) call (lbl_16430F);
if (0x800C == 0x4) call (lbl_16431A);
if (0x800C == 0x3) call (lbl_16431A);
setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
setvar (0x8006, 0xC);
setvar (0x8007, 0x3);
special (0x136);
pause (0x3C);
if (0x800C == 0x2) call (lbl_164325);
if (0x800C == 0x1) call (lbl_164330);
if (0x800C == 0x4) call (lbl_16433B);
if (0x800C == 0x3) call (lbl_164346);
textcolor (0);
say ("Fufu… Fufufufu…\nI guessed right.\rI was right in tailing you!", 4);
closeonkeypress ();
if (0x800C == 0x2) call (lbl_164351);
if (0x800C == 0x1) call (lbl_164366);
if (0x800C == 0x4) call (lbl_16437B);
if (0x800C == 0x3) call (lbl_164390);
hidesprite (0x1);
if (0x800C == 0x2) call (lbl_1642F9);
if (0x800C == 0x1) call (lbl_1642F9);
if (0x800C == 0x4) call (lbl_164304);
if (0x800C == 0x3) call (lbl_164304);
say ("I knew that there was a SAPPHIRE\nhere, so it belongs to me!\rI'll sell it to TEAM ROCKET for\nserious money.\r…D-don't glare at me like that!\rIf you want it back, why don't you\ngo get it after I sell it?\rI'll even tell you one of the\npasswords to TEAM ROCKET's\fWAREHOUSE.\rThe WAREHOUSE password I know is\n“Yes, nah, CHANSEY.”\rI'm done.\nDon't think badly of me!", 4);
closeonkeypress ();
if (0x800C == 0x2) call (lbl_1643A5);
if (0x800C == 0x1) call (lbl_1643B7);
if (0x800C == 0x4) call (lbl_1643C9);
if (0x800C == 0x3) call (lbl_1643DB);
playsound (0x9);
pause (0x23);
hidesprite (0x2);
setflag (0x2D8);
release ();
end ();

applymove (0xFF, move_16441C);
applymove (0x2, move_164409);
waitformove (0x0);
return ();

rawb (Sprint.West, Sprint.West, Sprint.West, Sprint.West, Sprint.North, Move.End);

rawb (0x1C, RealFastInPlace.West, Move.End);

applymove (0xFF, move_16441C);
applymove (0x2, move_164409);
waitformove (0x0);
return ();

applymove (0xFF, move_16441C);
applymove (0x2, move_164401);
waitformove (0x0);
return ();

rawb (Sprint.South, Sprint.West, Sprint.West, Sprint.West, Sprint.North, Sprint.West, Sprint.West, Move.End);

applymove (0xFF, move_16441C);
applymove (0x2, move_1643F9);
waitformove (0x0);
return ();

rawb (Sprint.North, Sprint.West, Sprint.West, Sprint.West, Sprint.South, Sprint.West, Sprint.West, Move.End);

applymove (0xFF, move_1A75ED);
waitformove (0x0);
return ();

applymove (0xFF, move_1A75E7);
waitformove (0x0);
return ();

applymove (0x2, move_1643F7);
waitformove (0x0);
applymove (0xFF, move_1A75E7);
waitformove (0x0);
return ();

rawb (Walk.North, Move.End);

applymove (0x2, move_1643F7);
waitformove (0x0);
applymove (0xFF, move_1A75EB);
waitformove (0x0);
return ();

applymove (0x2, move_1643F5);
waitformove (0x0);
applymove (0xFF, move_1A75ED);
waitformove (0x0);
return ();

rawb (Walk.West, Move.End);

applymove (0x2, move_1643F5);
waitformove (0x0);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

applymove (0x2, move_1643F1);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.West, RealFastInPlace.North, Move.End);

applymove (0x2, move_1643F1);
waitformove (0x0);
return ();

applymove (0x2, move_1643ED);
waitformove (0x0);
return ();

rawb (Walk.North, Walk.North, RealFastInPlace.West, Move.End);

applymove (0x2, move_1643ED);
waitformove (0x0);
return ();

applymove (0xFF, move_1A75ED);
waitformove (0x0);
return ();

applymove (0xFF, move_1A75E7);
waitformove (0x0);
return ();

rawb (Face.South, 0x5E, Zip.South, Zip.South, Zip.South, Zip.South, Zip.South, Zip.South, Zip.South, Zip.South, Zip.South, 0x5F, Move.End);

lockall ();
setvar (0x8005, 0x82);
setvar (0x8006, 0x0);
braille ("⠇⠑⠞⠀⠞⠓⠑⠀⠞⠺⠕");
braille2 ("⠇⠑⠞⠀⠞⠓⠑⠀⠞⠺⠕");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠛⠇⠊⠞⠞⠑⠗⠊⠝⠛");
braille2 ("⠛⠇⠊⠞⠞⠑⠗⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠎⠞⠕⠝⠑⠎");
braille2 ("⠎⠞⠕⠝⠑⠎");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠕⠝⠑⠀⠊⠝⠀⠗⠑⠙");
braille2 ("⠕⠝⠑⠀⠊⠝⠀⠗⠑⠙");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠕⠝⠑⠀⠊⠝⠀⠃⠇⠥⠑");
braille2 ("⠕⠝⠑⠀⠊⠝⠀⠃⠇⠥⠑");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠉⠕⠝⠝⠑⠉⠞⠀⠞⠓⠑");
braille2 ("⠉⠕⠝⠝⠑⠉⠞⠀⠞⠓⠑");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠏⠁⠎⠞⠲");
braille2 ("⠏⠁⠎⠞⠲");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠞⠺⠕⠀⠋⠗⠊⠑⠝⠙⠎");
braille2 ("⠞⠺⠕⠀⠋⠗⠊⠑⠝⠙⠎");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠎⠓⠁⠗⠊⠝⠛");
braille2 ("⠎⠓⠁⠗⠊⠝⠛");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠏⠕⠺⠑⠗⠀⠕⠏⠑⠝");
braille2 ("⠏⠕⠺⠑⠗⠀⠕⠏⠑⠝");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠁⠀⠺⠊⠝⠙⠕⠺⠀⠞⠕");
braille2 ("⠁⠀⠺⠊⠝⠙⠕⠺⠀⠞⠕");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠁⠀⠝⠑⠺⠀⠺⠕⠗⠇⠙");
braille2 ("⠁⠀⠝⠑⠺⠀⠺⠕⠗⠇⠙");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠞⠓⠁⠞⠀⠛⠇⠕⠺⠎⠲");
braille2 ("⠞⠓⠁⠞⠀⠛⠇⠕⠺⠎⠲");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠞⠓⠑⠀⠝⠑⠭⠞");
braille2 ("⠞⠓⠑⠀⠝⠑⠭⠞");
call (lbl_1A926C);
setvar (0x8006, 0x0);
braille ("⠺⠕⠗⠇⠙⠀⠺⠁⠊⠞⠎");
braille2 ("⠺⠕⠗⠇⠙⠀⠺⠁⠊⠞⠎");
call (lbl_1A926C);
braille ("⠋⠕⠗⠀⠽⠕⠥⠲");
waitkeypress ();
releaseall ();
end ();

setworldmapflag (0x8BD);
getcamerapos (0x4001, 0x4002);
if (0x4001 => 0x32) call (lbl_16457E);
if (0x4001 <= 0x31) call (lbl_164587);
end ();

warp6 (3, 59, 255, 0x2D, 0xA);
return ();

warp6 (3, 59, 255, 0x40, 0xA);
return ();

trainerbattle (0, 609, "I'm curious, how do you raise your\nPOKéMON?", "You raise your POKéMON with a\nwhole lot of love!");
say ("In the same way your mother raised\nyou full of love, you should raise\fyour POKéMON.", 6);
end ();

trainerbattle (0, 610, "I'm working to preserve the natural\necology of POKéMON here.", "Oh, for someone so young, you are\ntremendous!");
say ("I'm not saying that you shouldn't\ncatch POKéMON.\rI just want people to raise their\nPOKéMON responsibly.", 6);
end ();

trainerbattle (0, 611, "I caught a BUG POKéMON that lives\nonly around here!", "Heheh…\nIsn't my POKéMON awesome?");
say ("There's a girl near the BUSH who\nmeasures HERACROSS for TRAINERS.", 6);
end ();

trainerbattle (0, 612, "You know, it just doesn't feel right\nif I don't use BUG POKéMON.", "It's okay, losing is a fun part of\nPOKéMON's appeal, too.");
say ("By the way, “appeal” is a weird\nword, if you think about it.\rLike, is it like an orange peel?\nOr like a ringing bell?", 6);
end ();

trainerbattle (0, 613, "Yeah, yeah, yeah!\nLook at all the BUG POKéMON!", "I got beat while I was still busy\ncelebrating!");
say ("I'm going to bring my little brother\nhere next time.", 6);
end ();

trainerbattle (0, 614, "Look, look! There are funny\npatterns on the ground.", "Super awesome!");
say ("The funny patterns on the ground…\rThey look like the patterns on my\ngrandpa's clothes.", 6);
end ();

trainerbattle (0, 615, "I bet you think I'm just some guy,\ndon't you, eh?", "I bet you think I'm weak,\ndon't you, eh?");
say ("Ayup, you townies come around all\nso dandy with a hat that flashy…\rHow about giving me that?", 6);
end ();

trainerbattle (0, 616, "Take a deep breath.\nIsn't the air delicious?", "If you'd like, I can teach you how\nto breathe properly.");
say ("First, exhale.\nBlow everything out.\rWhen you can't exhale anymore,\ninhale the clean air!\rIsn't it refreshing?", 6);
end ();

trainerbattle (0, 617, "I love BUG POKéMON.\nThat's why I'm here all the time.\rAm I the only girl like that?", "I lost, but I'm still laughing.\nAm I the only girl like that?");
say ("I'm going to keep on collecting\nBUG POKéMON.\rAm I the only girl like that?", 6);
end ();

trainerbattle (0, 618, "This is a good spot.\nI'll pitch my tent here.", "Wimped out…");
say ("I'm going to observe the night sky\nhere.", 6);
end ();

trainerbattle (0, 619, "Oh, yuck!\nI think a bug stung me!", "It wasn't a bug.\nI cut my shin on some grass.");
say ("A little cut like that…\nA little spit's enough to cure it!", 6);
end ();

trainerbattle (0, 620, "Have you noticed something odd\nabout these parts?", "Have you taken a good look around\nyour feet?");
say ("There are places here in PATTERN\nBUSH where grass won't grow.\rWhat could be the cause of such\na phenomenon?", 6);
end ();

setworldmapflag (0x8BE);
end ();

setworldmapflag (0x8B5);
end ();

call (lbl_1C52F4);
end ();

setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C5327);
if (0x8000 == 0x1) goto (lbl_1C5327);
if (0x8000 == 0x2) goto (lbl_1C5331);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
jump (lbl_1C5391);
setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C536E);
if (0x8000 == 0x1) goto (lbl_1C536E);
if (0x8000 == 0x2) goto (lbl_1C5378);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

setvar (0x8006, 0x1);
jump (lbl_1C5391);
setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C536E);
if (0x8000 == 0x1) goto (lbl_1C536E);
if (0x8000 == 0x2) goto (lbl_1C5378);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
jump (lbl_1C5391);
setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C536E);
if (0x8000 == 0x1) goto (lbl_1C536E);
if (0x8000 == 0x2) goto (lbl_1C5378);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

call (lbl_1C533B);
end ();

setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C536E);
if (0x8000 == 0x1) goto (lbl_1C536E);
if (0x8000 == 0x2) goto (lbl_1C5378);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x2);
jump (lbl_1C5391);
setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

call (lbl_1C5382);
end ();

setvar (0x8006, 0x0);
jump (lbl_1C5391);
setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

call (lbl_1C538C);
end ();

setvar (0x8006, 0x1);
setvar (0x8004, 0x1);
setvar (0x8005, 0x5);
special (0x194);
lock ();
faceplayer ();
say (0x2021D18, 4);
release ();
return ();

call (lbl_1C53AA);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0x7);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C53DA);
if (0x8000 == 0x1) goto (lbl_1C53E2);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Hello…\rI am the owner of this TOWER…\rHow the sky soars above this\nrooftop…\rThe caress of the winds up here…\rIt's all so perfect…\rThe way you battled…\nIt, too, was perfection…", 4);
setvar (0x8004, 0x8);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C5410);
if (0x8000 == 0x1) goto (lbl_1C543A);
if (0x8000 == 0x2) goto (lbl_1C544F);
say ("This is for you…", 4);
textcolor (3);
jingle (0x101);
preparemsg ("Obtained the {var:3}!");
waitforjingle ();
waitmsg ();
getstandard (2, 0x18);
say ("{RED} put the {var:3}\nin the {var:4}.", 4);
call (lbl_1A6675);
jump (lbl_1C544F);
say ("This is for you…", 4);
say ("The BAG is full…", 4);
jump (lbl_1C544F);
setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("This is for you…", 4);
say ("The BAG is full…", 4);
jump (lbl_1C544F);
setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("This is for you…", 4);
textcolor (3);
jingle (0x101);
preparemsg ("Obtained the {var:3}!");
waitforjingle ();
waitmsg ();
getstandard (2, 0x18);
say ("{RED} put the {var:3}\nin the {var:4}.", 4);
call (lbl_1A6675);
jump (lbl_1C544F);
say ("This is for you…", 4);
say ("The BAG is full…", 4);
jump (lbl_1C544F);
setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

setvar (0x8004, 0x8);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C5410);
if (0x8000 == 0x1) goto (lbl_1C543A);
if (0x8000 == 0x2) goto (lbl_1C544F);
say ("This is for you…", 4);
textcolor (3);
jingle (0x101);
preparemsg ("Obtained the {var:3}!");
waitforjingle ();
waitmsg ();
getstandard (2, 0x18);
say ("{RED} put the {var:3}\nin the {var:4}.", 4);
call (lbl_1A6675);
jump (lbl_1C544F);
say ("This is for you…", 4);
say ("The BAG is full…", 4);
jump (lbl_1C544F);
setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

say ("Hello…\rI am the owner of this TOWER…\rHow the sky soars above this\nrooftop…\rThe caress of the winds up here…\rIt's all so perfect…\rThe way you battled…\nIt, too, was perfection…", 4);
setvar (0x8004, 0x8);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C5410);
if (0x8000 == 0x1) goto (lbl_1C543A);
if (0x8000 == 0x2) goto (lbl_1C544F);
say ("This is for you…", 4);
textcolor (3);
jingle (0x101);
preparemsg ("Obtained the {var:3}!");
waitforjingle ();
waitmsg ();
getstandard (2, 0x18);
say ("{RED} put the {var:3}\nin the {var:4}.", 4);
call (lbl_1A6675);
jump (lbl_1C544F);
say ("This is for you…", 4);
say ("The BAG is full…", 4);
jump (lbl_1C544F);
setvar (0x8004, 0x9);
special (0x194);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1C547D);
if (0x8000 == 0x1) goto (lbl_1C548A);
if (0x8000 == 0x2) goto (lbl_1C5492);
say ("Oh!\nStupendous!\rIt's marvelous how you've come up\nhere so quickly.\rThe fact is, you've done it in\nrecord time…\rI'll have your record posted at\nthe reception counter.", 4);
jump (lbl_1C5492);
say ("You seem to have taken your sweet\ntime getting here…", 4);
say ("What I would like to see is a\nbetter time out of you…\rI'm counting on you.\rUntil then, farewell…", 4);
release ();
return ();

setvar (0x4002, 0x0);
setvar (0x8004, 0xA);
special (0x194);
setvar (0x8004, 0x12);
special (0x194);
if (0x800D == 0x0) goto (lbl_164886);
setvar (0x4000, 0x0);
movesprite (0xFF, 0x9);
ifgosub (0, lbl_CC00FF4F);
checkpcitem (0x816);
end ();

showsprite (0x1);
showsprite (0x2);
showsprite (0x3);
showsprite (0x4);
showsprite (0x5);
end ();

if (0x400D == 0x11) call (lbl_1648A3);
end ();

setmaptile (0x11, 0xA, 0x287, 0x0);
return ();

setworldmapflag (0x8BA);
getcamerapos (0x400D, 0x800D);
end ();

lock ();
faceplayer ();
call (NurseJoy);
release ();
end ();

lock ();
faceplayer ();
setvar (0x8004, 0x14);
special (0x194);
if (0x800D == 0x1) goto (lbl_164988);
say ("I hope you give it your best.", 4);
jump (lbl_164990);
say ("Thank you for competing!", 4);
release ();
end ();

say ("Thank you for competing!", 4);
release ();
end ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
lock ();
faceplayer ();
preparemsg ("Hi, there!\nMay I help you?");
waitmsg ();
doshop (store_1649B8);
say ("Please come again!", 4);
release ();
end ();

raws (Item.UltraBall, Item.GreatBall, Item.FullRestore, Item.MaxPotion, Item.HyperPotion, Item.Revive, Item.FullHeal, Item.EscapeRope, Item.MaxRepel, 0);

lockall ();
applymove (0xFF, move_164AD4);
textcolor (1);
say ("Hello!\rWelcome to TRAINER TOWER where\nTRAINERS gather from all over!", 4);
setvar (0x8004, 0x11);
special (0x194);
if (0x800D == 0x0) goto (lbl_164A00);
say ("TRAINERS from all over the world\ngather here to battle.\rLet me see…\rRight now, there are TRAINERS only\nup to Floor {var:2}.", 4);
jump (lbl_164A08);
say ("TRAINERS are awaiting your\nchallenge up to the eighth floor.", 4);
preparemsg ("Would you like to challenge the\nwaiting TRAINERS?");
waitmsg ();
multichoice (18, 6, 16, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164A53);
if (0x8000 == 0x1) goto (lbl_164ABF);
if (0x8000 == 0x2) goto (lbl_164A45);
if (0x8000 == 0x7F) goto (lbl_164ABF);
end ();

say ("Here at TRAINER TOWER, there is an\nevent called TIME ATTACK.\rYou will be timed on how quickly\nyou can get from the reception\fcounter to the OWNER on the roof.\rThe best times will be recorded on\nthe Time Board.\rTry competing with friends to see\nwho can beat it the fastest.\rYou will not earn any EXP. Points\nor money by beating TRAINERS here.", 4);
jump (lbl_164A08);
end ();

say ("Please do visit us again!", 4);
closeonkeypress ();
applymove (0xFF, move_164AD6);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.South, Move.End);

multichoice (13, 3, 64, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164AA0);
if (0x8000 == 0x1) goto (lbl_164AA0);
if (0x8000 == 0x2) goto (lbl_164AA0);
if (0x8000 == 0x3) goto (lbl_164AA0);
if (0x8000 == 0x4) goto (lbl_164ABF);
if (0x8000 == 0x7F) goto (lbl_164ABF);
end ();

copyvar (0x8005, 0x800D);
setvar (0x4082, 0x1);
special (0x0);
say ("Okay, I'll get the clock started,\nso give it everything you have.\rOn your marks…\rGet set…\rGo!", 4);
setvar (0x8004, 0x6);
special (0x194);
releaseall ();
end ();

preparemsg ("Would you like to challenge the\nwaiting TRAINERS?");
waitmsg ();
multichoice (18, 6, 16, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164A53);
if (0x8000 == 0x1) goto (lbl_164ABF);
if (0x8000 == 0x2) goto (lbl_164A45);
if (0x8000 == 0x7F) goto (lbl_164ABF);
end ();

say ("TRAINERS are awaiting your\nchallenge up to the eighth floor.", 4);
preparemsg ("Would you like to challenge the\nwaiting TRAINERS?");
waitmsg ();
multichoice (18, 6, 16, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164A53);
if (0x8000 == 0x1) goto (lbl_164ABF);
if (0x8000 == 0x2) goto (lbl_164A45);
if (0x8000 == 0x7F) goto (lbl_164ABF);
end ();

rawb (Face.West, Move.End);

lockall ();
fade (1);
setvar (0x8004, 0x1);
special (0xC4);
waitstate ();
releaseall ();
end ();

say ("I'm here to see how good I am.\rI wonder what kinds of TRAINERS\nare waiting for me?\rIt's nerve-racking!", 2);
end ();

say ("Gasp, gasp…\nGasp…\rNever mind battling! These stairs…\nThey're tougher than any battle…", 2);
end ();

lockall ();
setvar (0x8004, 0x6);
if (not 0x2) call (lbl_1A7AB9);
copyvar (0x8005, 0x403A);
special (0x132);
preparemsg ("Which floor do you want?");
waitmsg ();
setvar (0x8004, 0x6);
special2 (0x800D, 0x1B8);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164B46);
if (0x8000 == 0x1) goto (lbl_164B52);
end ();

multichoice2 (0, 0, 20, 1, 0);
jump (lbl_164B5E);
end ();

copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_164BCD);
if (0x8000 == 0x1) goto (lbl_164B90);
if (0x8000 == 0x2) goto (lbl_164BD3);
if (0x8000 == 0x7F) goto (lbl_164BD3);
end ();

special (0x160);
releaseall ();
end ();

setvar (0x8006, 0x3);
setwarpplace (2, 10, 255, 0x11, 0x8);
if (0x403A == 0x3) goto (lbl_164BD3);
call (lbl_164BD8);
setvar (0x403A, 0x3);
special (0x160);
pause (0x19);
applymove (0xFF, move_164BE5);
waitformove (0x0);
warp (2, 10, 255, 0x11, 0x8);
waitstate ();
releaseall ();
end ();

rawb (RealFastInPlace.South, 0x1C, Walk.South, Walk.West, Walk.West, Walk.South, Move.End);

special (0x160);
closeonkeypress ();
checksound ();
special (0x111);
waitstate ();
setflag (0x2);
return ();

jump (lbl_164BD3);
end ();

multichoice2 (0, 0, 20, 0, 0);
jump (lbl_164B5E);
end ();

setworldmapflag (0x8BC);
end ();

trainerbattle (0, 607, "Aiyeeeeeh!\rI thought this was an ancient ruin.\nBut it's teeming with ghosts!", "Aiyeeeeeh!\nMercy!");
say ("I'm trying to get out of here, but\nI always end up at the same spot.\rMaybe the number of boulders is\na hint…", 6);
end ();

trainerbattle (0, 608, "I think there is a mysterious power\nat work in this cave.", "If you don't go into the right\ntunnel, you won't get ahead.");
say ("Earlier, a lady went into the caves\nahead.", 6);
end ();

checktrainer (0x25E);
ifgosub (1, lbl_164C42);
end ();

setvar (0x4083, 0x1);
return ();

setworldmapflag (0x8BF);
call (lbl_1A925E);
end ();

if (0x849) goto (lbl_1A77A9);
setweather (0xB);
doweather ();
return ();

call (lbl_1A925E);
end ();

setworldmapflag (0x8C0);
special2 (0x800D, 0x193);
copyvar (0x8008, 0x800D);
if (0x8008 == 0x1) call (lbl_164D50);
if (0x8008 == 0x0) call (lbl_164D54);
end ();

movesprite2 (0x1, 0x6, 0x3);
spritebehave (0x1, 10);
return ();

unknown_a7 (0x13F);
return ();

lock ();
faceplayer ();
if (0x2E2) goto (lbl_164DC2);
special2 (0x800D, 0x193);
if (0x800D == 0x1) goto (lbl_164D90);
say ("Hey, there!\nHow's it going?\rWhat am I doing here, you ask?\nWhy, I'm prospecting for gold!\rWhen I strike it rich, I'm buying\na house in KANTO.", 4);
closeonkeypress ();
applymove (0x1, move_1A75E5);
waitformove (0x0);
release ();
end ();

say ("Hey, there! How's it going?\nDid you hear? I've struck gold!\rYou remembered that I was\nprospecting, didn't you?\rYou can't begin to imagine just\nhow happy I am.\rSo, I'll show you!\nThis is for you!", 4);
copyvarifnot0 (0x8000, 0x6E);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
if (0x800D == 0x0) goto (lbl_164DB8);
setflag (0x2E2);
jump (lbl_164DC2);
end ();

say ("Whoops, your BAG is crammed full!\nI'll give this to you later.", 4);
release ();
end ();

say ("That's a NUGGET!\rI can't give you any nuggets of\nwisdom, so that'll have to do!", 4);
release ();
end ();

setworldmapflag (0x8C1);
if (0x849) call (lbl_164E07);
setvar (0x4001, 0x0);
setvar (0x4002, 0x0);
setvar (0x4003, 0x0);
setvar (0x4004, 0x0);
setvar (0x4005, 0x0);
setvar (0x4006, 0x0);
setvar (0x4007, 0x0);
setvar (0x4008, 0x0);
end ();

movesprite2 (0x1, 0x7, 0x2);
movesprite2 (0x2, 0x4, 0x4);
movesprite2 (0x3, 0xA, 0x4);
movesprite2 (0x4, 0x5, 0x6);
movesprite2 (0x5, 0x9, 0x6);
movesprite2 (0x6, 0x5, 0x8);
movesprite2 (0x7, 0x9, 0x8);
return ();

lockall ();
if (0x4001 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4001, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

call (lbl_164F51);
say ("A mysterious rumble echoed\nsomewhere far away.", 4);
setflag (0x849);
releaseall ();
end ();

setvar (0x8004, 0x2);
setvar (0x8005, 0x2);
setvar (0x8006, 0xA);
setvar (0x8007, 0x3);
special (0x136);
pause (0x3C);
setvar (0x8004, 0x3);
setvar (0x8005, 0x3);
setvar (0x8006, 0xC);
setvar (0x8007, 0x2);
special (0x136);
pause (0x3C);
playsound (0x21);
checksound ();
return ();

addvar (0x4008, 0x1);
playsound (0x2B);
setvar (0x8004, 0x1);
setvar (0x8005, 0x1);
setvar (0x8006, 0x8);
setvar (0x8007, 0x3);
special (0x136);
pause (0x3C);
return ();

releaseall ();
end ();

lockall ();
if (0x4002 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4002, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

lockall ();
if (0x4003 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4003, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

lockall ();
if (0x4004 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4004, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

lockall ();
if (0x4005 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4005, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

lockall ();
if (0x4006 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4006, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

lockall ();
if (0x4007 == 0x64) goto (lbl_164F8A);
call (lbl_164F2E);
setvar (0x4007, 0x64);
if (0x4008 == 0x7) goto (lbl_164F8C);
releaseall ();
end ();

if (0x2F3) call (lbl_164FBD);
if (not 0x2F3) call (lbl_164FC6);
end ();

setvar (0x4001, 0x1);
if (0x2F6) goto (lbl_1A77A9);
setvar (0x4001, 0x0);
clearflag (0x9C);
return ();

setvar (0x4001, 0x1);
setflag (0x9C);
return ();

if (0x807) call (lbl_164FE7);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x1);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lockall ();
setvar (0x4001, 0x1);
special (0x113);
setvar (0x8004, 0x3);
setvar (0x8005, 0x23);
special (0x1BA);
applymove (0x1, move_1650E0);
applymove (0x7F, move_1650CD);
waitformove (0x0);
pause (0x32);
setweather (0x0);
doweather ();
checksound ();
cry (0xFA, 0x2);
pause (0x1E);
waitforcry ();
pause (0x3C);
setvar (0x8004, 0x3);
setvar (0x8005, 0x23);
special (0x1BA);
applymove (0x7F, move_1650D1);
applymove (0x1, move_1650D7);
waitformove (0x0);
special (0x114);
setvar (0x8004, 0xFA);
setvar (0x8005, 0x46);
setvar (0x8006, 0x0);
special (0x1BB);
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
setvar (0x800F, 0x1);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_1650B4);
if (0x800D == 0x4) goto (lbl_1650C2);
if (0x800D == 0x5) goto (lbl_1650C2);
setflag (0x2F3);
releaseall ();
end ();

setvar (0x8004, 0xFA);
jump (lbl_1A9236);
end ();

setflag (0x2F6);
setvar (0x8004, 0xFA);
jump (lbl_1A9236);
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, StepInPlace.South, 0x1C, 0x1C, Move.End);

rawb (0x1C, 0x1C, Walk.South, Walk.South, Walk.South, Move.End);

rawb (Walk.North, Walk.North, Walk.North, Move.End);

rawb (0x1C, 0x1C, StepInPlace.South, StepInPlace.South, StepInPlace.South, StepInPlace.South, Move.End);

if (0x2F2) call (lbl_165105);
if (not 0x2F2) call (lbl_165109);
end ();

if (0x2F5) goto (lbl_1A77A9);
clearflag (0x9B);
return ();

setflag (0x9B);
return ();

if (0x807) call (lbl_165120);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x1);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
lock ();
faceplayer ();
checksound ();
pause (0x14);
playsound (0x4B);
setvar (0x8004, 0x0);
setvar (0x8005, 0x3);
setvar (0x8006, 0x4);
setvar (0x8007, 0x2);
special (0x136);
pause (0x1E);
playsound (0x4B);
setvar (0x8004, 0x0);
setvar (0x8005, 0x3);
setvar (0x8006, 0x4);
setvar (0x8007, 0x2);
special (0x136);
pause (0x1E);
pause (0x32);
checksound ();
cry (0xF9, 0x2);
waitforcry ();
pause (0x14);
setvar (0x8004, 0xF9);
setvar (0x8005, 0x46);
setvar (0x8006, 0x0);
special (0x1BB);
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_1651D9);
if (0x800D == 0x4) goto (lbl_1651E7);
if (0x800D == 0x5) goto (lbl_1651E7);
setflag (0x2F2);
release ();
end ();

setvar (0x8004, 0xF9);
jump (lbl_1A9236);
end ();

setflag (0x2F5);
setvar (0x8004, 0xF9);
jump (lbl_1A9236);
end ();

special (0x1AC);
end ();

setworldmapflag (0x8C2);
setvar (0x4010, 0x96);
setvar (0x4026, 0x0);
setvar (0x403E, 0x0);
if (0x2E4) call (lbl_16523C);
if (not 0x2E4) call (lbl_165243);
end ();

if (0x2F7) goto (lbl_1A77A9);
clearflag (0x9A);
clearflag (0x848);
return ();

setflag (0x99);
setflag (0x9A);
return ();

if (0x807) call (lbl_16525D);
end ();

special2 (0x800D, 0xB4);
if (0x800D != 0x7) goto (lbl_1A77A9);
hidesprite (0x2);
return ();

lock ();
faceplayer ();
special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
special (0x1AB);
waitstate ();
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1652BA);
if (0x8000 == 0x1) goto (lbl_1652BC);
if (0x8000 == 0x2) goto (lbl_1652C0);
if (0x8000 == 0x3) goto (lbl_1652BE);
end ();

showsprite (0x2);
checksound ();
setanimation (0, 0x1);
setanimation (1, 0x38);
setanimation (2, 0x2);
doanimation (0x44);
playsong (0x157, 0);
checkanimation (0x44);
applymove (0x2, move_165353);
waitformove (0x0);
checksound ();
cry (0x19A, 0x2);
pause (0x28);
waitforcry ();
setvar (0x800F, 0x2);
setvar (0x8004, 0x19A);
setvar (0x8005, 0x1E);
setvar (0x8006, 0x0);
special (0x1BB);
setflag (0x807);
special (0x138);
waitstate ();
clearflag (0x807);
special2 (0x800D, 0xB4);
if (0x800D == 0x1) goto (lbl_16533A);
if (0x800D == 0x4) goto (lbl_165348);
if (0x800D == 0x5) goto (lbl_165348);
setflag (0x2E4);
release ();
end ();

setvar (0x8004, 0x19A);
jump (lbl_1A9236);
end ();

setflag (0x2F7);
setvar (0x8004, 0x19A);
jump (lbl_1A9236);
end ();

rawb (Slow.South, Slow.South, Slow.South, Slow.South, Slow.South, Slow.South, Slow.South, Move.End);

say ("Hm!\nHaaaaaaaaaaah!\rAaaah! This is heavenly!\nThe water warms me to my core!\rYou should jump in, too.\rGo to the middle, relax, and get\ngood and warm!", 2);
end ();

say ("My favorite part of bathing comes\nup right after this.\rI enjoy a bowl of chowder to\nwarm me from the inside, too!", 2);
end ();

say ("Soaking in a hot spring pool is\ntherapeutic, people say.", 2);
end ();

say ("Have a look at my face.\nSee how smooth my skin is?\rThe hot spring's water keeps my\nskin younger than my age.", 2);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0xA);
setvar (0x8005, 0x3);
special (0x173);
say ("After an honest day of training,\nnothing beats a relaxing soak in\fthe hot spring pool.\rBRUNO, who's a senior ahead of me,\nvisits the SPA on occasion.\rHe comes to rehab injuries, both\nhis own and his POKéMON's.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x2EF) goto (lbl_1653C5);
say ("Hot springs go hand-in-hand with\nvolcanoes.\rThe EMBER SPA here, well,\nI made it years ago.\rI hewed the pool right out of a\ngigantic boulder by hand.\rI was using this at the time.\nI suppose I can part with it.", 4);
copyvarifnot0 (0x8000, 0x158);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
setflag (0x2EF);
say ("That shatters boulders as if they\nwere made of crackers.", 4);
release ();
end ();

say ("That shatters boulders as if they\nwere made of crackers.", 4);
release ();
end ();

lockall ();
fade (3);
special (0x0);
fade (2);
say ("The water is perfectly warm.\nIt feels exquisite…\r{RED} and the POKéMON were\nfully refreshed!", 4);
setvar (0x4001, 0x1);
releaseall ();
end ();

lock ();
faceplayer ();
preparemsg ("Ahoy, there!\nWhere do you want to sail?");
waitmsg ();
setvar (0x8004, 0xA);
multichoice (20, 8, 61, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A91D5);
if (0x8000 == 0x1) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

special2 (0x800D, 0x1AD);
if (0x800D == 0x1) goto (lbl_1A9108);
release ();
end ();

closeonkeypress ();
applymove (0x6, move_1A75E5);
applymove (0xFF, move_1A911C);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.North, Move.End);

setvar (0x8006, 0x0);
jump (lbl_1A909E);
end ();

special2 (0x800D, 0x1A9);
getnumber (0, 0x800D);
if (0x8004 == 0x0) goto (lbl_1A90BE);
if (0x8004 != 0x0) goto (lbl_1A90CC);
end ();

say ("All right!\nAll aboard SEAGALLOP HI-SPEED {var:2}!", 4);
jump (lbl_1A90DA);
end ();

closeonkeypress ();
pause (0x14);
special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
fade (1);
special (0x17B);
waitstate ();
end ();

say ("Okay, everything's in order.\rSEAGALLOP HI-SPEED 7 will be\ndeparting immediately.", 4);
jump (lbl_1A90DA);
end ();

lock ();
faceplayer ();
preparemsg ("Ahoy, there!\nWhere do you want to sail?");
waitmsg ();
setvar (0x8004, 0x9);
multichoice (20, 8, 61, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A91D5);
if (0x8000 == 0x1) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

setworldmapflag (0x890);
if (0x291) call (lbl_165488);
if (0x4070 == 0x0) call (lbl_1654A8);
if (0x4070 == 0x1) call (lbl_1654A2);
end ();

setvar (0x4070, 0x2);
return ();

if (0x291) goto (lbl_1654BD);
movesprite2 (0x1, 0x5, 0xF);
spritebehave (0x1, 7);
return ();

movesprite2 (0x1, 0xC, 0x2);
spritebehave (0x1, 8);
setvar (0x4002, 0x1);
return ();

if (not 0x83E) goto (lbl_1A77A9);
if (0x4070 => 0x1) goto (lbl_1A77A9);
setvar (0x4070, 0x1);
return ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_165605);
end ();

setvar (0x8004, 0x0);
setvar (0x8005, 0x2);
special (0x174);
textcolor (0);
pause (0x1E);
playsong (0x12E, 0);
preparemsg ("OAK: Hey! Wait!\nDon't go out!");
waitmsg ();
pause (0x55);
closeonkeypress ();
applymove (0xFF, move_1A75ED);
waitformove (0x0);
playsound (0x15);
applymove (0xFF, move_1A75DB);
waitformove (0x0);
pause (0x1E);
showsprite (0x3);
if (0x4001 == 0x0) call (lbl_1656B8);
if (0x4001 == 0x1) call (lbl_1656C3);
pause (0x1E);
say ("OAK: It's unsafe!\nWild POKéMON live in tall grass!\rYou need your own POKéMON for\nyour protection.\rI know!\nHere, come with me!", 4);
closeonkeypress ();
pause (0x1E);
if (0x4001 == 0x0) call (lbl_1656CE);
if (0x4001 == 0x1) call (lbl_1656E0);
setdooropened (0x10, 0xD);
doorchange ();
applymove (0x3, move_16572E);
applymove (0xFF, move_165758);
waitformove (0x0);
setdoorclosed (0x10, 0xD);
doorchange ();
setvar (0x4055, 0x1);
clearflag (0x2B);
setvar (0x4050, 0x1);
setflag (0x2C);
setflag (0x4001);
warp (4, 3, 255, 0x6, 0xC);
waitstate ();
releaseall ();
end ();

rawb (Walk.West, Walk.North, Viz.Disappear, Move.End);

rawb (Walk.North, Viz.Disappear, Move.End);

applymove (0x3, move_165719);
applymove (0xFF, move_165744);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Move.End);

rawb (Walk.South, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, RealFastInPlace.North, Move.End);

applymove (0x3, move_165705);
applymove (0xFF, move_165731);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.South, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Move.End);

rawb (Walk.South, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, RealFastInPlace.North, Move.End);

applymove (0x3, move_1656FB);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.North, Walk.North, Walk.West, Walk.North, Walk.North, Walk.West, Walk.North, Walk.North, Move.End);

applymove (0x3, move_1656F2);
waitformove (0x0);
return ();

rawb (Walk.North, Walk.North, Walk.West, Walk.North, Walk.North, Walk.West, Walk.North, Walk.North, Move.End);

lockall ();
setvar (0x4001, 0x1);
jump (lbl_165605);
end ();

lock ();
if (0x4070 == 0x2) goto (lbl_1657ED);
if (0x4070 == 0x1) goto (lbl_165815);
if (0x4002 == 0x1) goto (lbl_1658C2);
if (0x2) goto (lbl_165801);
say ("Hmm…\nIs that right…", 4);
applymove (0x1, move_1A75E1);
waitformove (0x0);
playsound (0x15);
applymove (0x1, move_1A75DB);
waitformove (0x0);
applymove (0x1, move_1A75DD);
waitformove (0x0);
say ("Oh!\nLook, look!", 4);
closeonkeypress ();
if (0x800C == 0x4) call (lbl_1657D7);
if (0x800C != 0x4) call (lbl_1657E2);
moveoffscreen (0x1);
setflag (0x2);
release ();
end ();

applymove (0x1, move_16582C);
waitformove (0x0);
return ();

rawb (Walk.East, RealFastInPlace.West, Move.End);

applymove (0x1, move_165829);
waitformove (0x0);
return ();

rawb (Walk.West, RealFastInPlace.East, Move.End);

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("Read it, read it!", 4);
release ();
end ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
call (lbl_165894);
release ();
end ();

textcolor (1);
say ("Look, look!\rI copied what it said on one of\nthose TRAINER TIPS signs!", 4);
closeonkeypress ();
pause (0x14);
textcolor (3);
setflag (0x83E);
setvar (0x4070, 0x1);
setvar (0x4002, 0x0);
special (0x170);
special (0x171);
signmsg ();
say ("TRAINER TIPS!\rPress START to open the MENU!", 4);
normalmsg ();
return ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("Signs are useful, aren't they?", 4);
release ();
end ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("I'm raising POKéMON, too.\rWhen they get strong, they can\nprotect me.", 4);
release ();
end ();

say ("Technology is incredible!\rYou can now store and recall items\nand POKéMON as data via PC.", 2);
end ();

lockall ();
setvar (0x8004, 0x0);
setvar (0x8005, 0x0);
special (0x173);
say ("OAK POKéMON RESEARCH LAB", 4);
releaseall ();
end ();

say ("{RED}'s house", 3);
end ();

say ("{TERRY}'s house", 3);
end ();

say ("PALLET TOWN\nShades of your journey await!", 3);
end ();

lockall ();
say ("TRAINER TIPS\rPress START to open the MENU!", 4);
setvar (0x4070, 0x1);
releaseall ();
end ();

lockall ();
applymove (0x1, move_1A75EB);
applymove (0xFF, move_1A75E7);
waitformove (0x0);
call (lbl_165894);
releaseall ();
end ();

setworldmapflag (0x891);
if (0x4051 == 0x0) call (lbl_165920);
if (0x4051 == 0x1) call (lbl_16590F);
if (0x4051 => 0x2) call (lbl_165909);
if (0x405A == 0x0) call (lbl_165931);
end ();

if (not 0x821) goto (lbl_1A77A9);
if (not 0x822) goto (lbl_1A77A9);
if (not 0x823) goto (lbl_1A77A9);
if (not 0x824) goto (lbl_1A77A9);
if (not 0x825) goto (lbl_1A77A9);
if (not 0x826) goto (lbl_1A77A9);
setvar (0x405A, 0x1);
return ();

setvar (0x4010, 0x20);
return ();

setvar (0x4010, 0x20);
movesprite2 (0x4, 0x15, 0x8);
spritebehave (0x4, 1);
return ();

setvar (0x4010, 0x22);
movesprite2 (0x4, 0x15, 0xB);
spritebehave (0x4, 8);
return ();

lockall ();
textcolor (3);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
pause (0x14);
say ("VIRIDIAN GYM's doors are locked…", 4);
closeonkeypress ();
applymove (0xFF, move_165992);
waitformove (0x0);
releaseall ();
end ();

rawb (HopTwo.South, Move.End);

say ("VIRIDIAN CITY \nThe Eternally Green Paradise", 3);
end ();

say ("TRAINER TIPS\rCatch POKéMON and expand your\ncollection.\rThe more you have, the easier it\nis to battle.", 3);
end ();

say ("TRAINER TIPS\rThe battle moves of POKéMON are\nlimited by their POWER POINTS, PP.\rTo replenish PP, rest your tired\nPOKéMON at a POKéMON CENTER.", 3);
end ();

say ("VIRIDIAN CITY POKéMON GYM", 3);
end ();

say ("VIRIDIAN GYM's doors are locked…", 3);
end ();

say ("Those POKé BALLS at your waist!\nYou have POKéMON, don't you?\rIt's great that you can carry and\nuse POKéMON anytime, anywhere.", 2);
end ();

lock ();
faceplayer ();
if (0x405A == 0x1) goto (lbl_1659EC);
say ("This POKéMON GYM is always closed.\rI wonder who the LEADER is?", 4);
closeonkeypress ();
applymove (0x3, move_1A75E5);
waitformove (0x0);
release ();
end ();

say ("VIRIDIAN GYM's LEADER returned!", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x820) goto (lbl_165A23);
if (0x4051 => 0x2) goto (lbl_165A4A);
if (0x4051 == 0x1) goto (lbl_165A54);
if (0x4051 == 0x0) goto (lbl_165A84);
end ();

say ("I absolutely forbid you from\ngoing through here!\rThis is private property!", 4);
closeonkeypress ();
release ();
end ();

call (lbl_165B4C);
release ();
end ();

say ("Well, now, I've had my coffee, and\nthat's what I need to get going!\rHm?\nWhat is that red box you have?\rAh, so you're working on your\nPOKéDEX.\rThen let me give you a word of\nadvice.\rWhenever you catch a POKéMON,\nthe POKéDEX automatically updates\fits data.\r…You don't know how to catch\na POKéMON?\rI suppose I had better show you\nthen!", 4);
closeonkeypress ();
special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
special (0x9D);
waitstate ();
lock ();
faceplayer ();
say ("There! Now tell me, that was\neducational, was it not?\rAnd here, take this, too.", 4);
setvar (0x4051, 0x2);
copyvarifnot0 (0x8000, 0x16E);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
say ("If there's something you don't\nunderstand, watch that.\rIt will teach you about the basics\nof being a POKéMON TRAINER.", 4);
return ();

say ("Well, now, I've had my coffee, and\nthat's what I need to get going!\rBut I made it too strong.\nIt gave me a headache…\rIncidentally, are you filling your\nPOKéDEX?\rAt first, focus on weakening the\nPOKéMON before trying to catch it.", 4);
release ();
end ();

say ("Well, now, I've had my coffee, and\nthat's what I need to get going!\rBut I made it too strong.\nIt gave me a headache…\rIncidentally, is my old TEACHY TV\nhelping you?", 5);
if (0x800D == 0x0) goto (lbl_165A40);
say ("Wahaha!\nIt's my grandson on the show!\rSince he's the one doing the\nteaching, you're bound to learn.", 4);
release ();
end ();

say ("Hm… You're too busy to not even\nhave the time for TEACHY TV…\rTime is money, and neither should\nbe ill spent…", 4);
release ();
end ();

lock ();
faceplayer ();
say ("You want to know about the two\nkinds of caterpillar POKéMON?", 5);
if (0x800D == 0x1) goto (lbl_165AB0);
if (0x800D == 0x0) goto (lbl_165ABA);
end ();

say ("Oh, okay then!", 4);
release ();
end ();

say ("CATERPIE has no poison,\nbut WEEDLE does.\rWatch that your POKéMON aren't\nstabbed by WEEDLE's POISON STING.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x4051 == 0x0) goto (lbl_165ADB);
say ("I go shopping in PEWTER CITY\noccasionally.\rI have to take the winding trail in\nVIRIDIAN FOREST when I go.", 4);
release ();
end ();

say ("Oh, Grandpa!\nDon't be so mean!\rI'm so sorry.\nHe hasn't had his coffee yet.", 4);
closeonkeypress ();
applymove (0x5, move_1A75E5);
waitformove (0x0);
release ();
end ();

jump (lbl_1C4A1E);
end ();

lock ();
faceplayer ();
if (0x2C6) goto (lbl_1C4A7C);
say ("Yawn!\nI must have dozed off in the sun.\rI had this weird dream about\na DROWZEE eating my dream.\rAnd…\nI learned how to eat dreams…\rOogh, this is too spooky!\rLet me teach it to a POKéMON so\nI can forget about it!", 5);
if (0x800D == 0x0) goto (lbl_1C4A72);
call (lbl_1C4F37);
if (0x800D == 0x0) goto (lbl_1C4A72);
say ("Which POKéMON wants to learn\nDREAM EATER?", 4);
setvar (0x8005, 0xA);
call (lbl_1C4F30);
if (0x800D == 0x0) goto (lbl_1C4A72);
setflag (0x2C6);
jump (lbl_1C4A7C);
end ();

say ("…Snore…", 4);
release ();
end ();

say ("…ZZZ…\nI…can't eat…anymore…", 4);
release ();
end ();

lockall ();
textcolor (0);
say ("I absolutely forbid you from\ngoing through here!\rThis is private property!", 4);
closeonkeypress ();
applymove (0xFF, move_165B0E);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.South, Move.End);

lockall ();
textcolor (0);
applymove (0x4, move_1A75E7);
waitformove (0x0);
applymove (0xFF, move_1A75EB);
waitformove (0x0);
call (lbl_165B4C);
release ();
end ();

lockall ();
textcolor (0);
applymove (0x4, move_1A75EB);
waitformove (0x0);
applymove (0xFF, move_1A75E7);
waitformove (0x0);
call (lbl_165B4C);
release ();
end ();

setworldmapflag (0x892);
setvar (0x4061, 0x0);
end ();

lock ();
faceplayer ();
say ("You're a TRAINER, right?\rBROCK's looking for new\nchallengers. Follow me!", 4);
closeonkeypress ();
playsong (0x110, 0);
if (0x800C == 0x4) call (lbl_165BD3);
say ("If you have the right stuff,\ngo take on BROCK!", 4);
closeonkeypress ();
applymove (0x5, move_165D83);
waitformove (0x0);
fadetodefault ();
hidesprite (0x5);
clearflag (0x2E);
release ();
end ();

rawb (Walk.South, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Move.End);

applymove (0xFF, move_165C3C);
applymove (0x5, move_165CDE);
waitformove (0x0);
applymove (0xFF, move_165C41);
applymove (0x5, move_165CE3);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.East, Walk.East, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, RealFastInPlace.East, Move.End);

rawb (Walk.South, Walk.East, Walk.East, Walk.East, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Move.End);

rawb (Walk.South, Walk.East, RealFastInPlace.North, StepInPlace.North, Move.End);

rawb (0x1C, 0x1C, 0x1A, RealFastInPlace.South, Move.End);

lockall ();
setvar (0x4001, 0x0);
jump (lbl_165DBE);
end ();

textcolor (0);
say ("You're a TRAINER, right?\rBROCK's looking for new\nchallengers. Follow me!", 4);
closeonkeypress ();
playsong (0x110, 0);
if (0x4001 == 0x0) call (lbl_165E0A);
if (0x4001 == 0x1) call (lbl_165E26);
if (0x4001 == 0x2) call (lbl_165E42);
say ("If you have the right stuff,\ngo take on BROCK!", 4);
closeonkeypress ();
applymove (0x5, move_165D83);
waitformove (0x0);
fadetodefault ();
hidesprite (0x5);
clearflag (0x2E);
releaseall ();
end ();

applymove (0x5, move_165F74);
waitformove (0x0);
applymove (0xFF, move_165EF9);
applymove (0x5, move_166000);
waitformove (0x0);
return ();

rawb (Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, RealFastInPlace.East, Move.End);

rawb (Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Move.End);

rawb (Walk.South, Walk.South, StepInPlace.South, Move.End);

applymove (0x5, move_165F71);
waitformove (0x0);
applymove (0xFF, move_165EB9);
applymove (0x5, move_165FBF);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, RealFastInPlace.East, Move.End);

rawb (Walk.South, StepInPlace.South, Move.End);

applymove (0x5, move_165F6C);
waitformove (0x0);
applymove (0xFF, move_165E7A);
applymove (0x5, move_165F7F);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.South, RealFastInPlace.West, StepInPlace.West, Move.End);

lockall ();
setvar (0x4001, 0x1);
jump (lbl_165DBE);
end ();

lockall ();
setvar (0x4001, 0x2);
jump (lbl_165DBE);
end ();

lockall ();
setvar (0x4001, 0x3);
jump (lbl_165DBE);
end ();

say ("CLEFAIRY came from the moon.\nThat's what the rumor is.\rThey appeared after MOON STONES\nfell on MT. MOON.", 2);
end ();

lock ();
faceplayer ();
say ("Did you check out the MUSEUM?", 5);
if (0x800D == 0x1) goto (lbl_166136);
say ("Really?\nYou absolutely have to go!", 4);
closeonkeypress ();
pause (0xA);
playsong (0x110, 0);
if (0x800C == 0x2) call (lbl_1660EE);
if (0x800C == 0x1) call (lbl_166100);
if (0x800C == 0x3) call (lbl_166112);
if (0x800C == 0x4) call (lbl_166124);
say ("This is it, the MUSEUM.\rYou have to pay to get in, but it's\nworth it. See you around!", 4);
closeonkeypress ();
pause (0xA);
applymove (0x2, move_16621C);
waitformove (0x0);
fadetodefault ();
hidesprite (0x2);
clearflag (0x50);
release ();
end ();

rawb (Walk.South, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.West, Walk.South, Walk.South, Walk.South, Walk.West, Walk.West, Walk.West, Move.End);

applymove (0x2, move_166201);
applymove (0xFF, move_1661E5);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, 0x1B, RealFastInPlace.North, Move.End);

rawb (Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, RealFastInPlace.North, Move.End);

applymove (0x2, move_1661CA);
applymove (0xFF, move_1661AE);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, 0x1B, RealFastInPlace.North, Move.End);

applymove (0x2, move_166193);
applymove (0xFF, move_166177);
waitformove (0x0);
return ();

rawb (0x1C, 0x1C, Walk.East, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, 0x1B, RealFastInPlace.North, Move.End);

rawb (Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, RealFastInPlace.North, Move.End);

applymove (0x2, move_16615C);
applymove (0xFF, move_166140);
waitformove (0x0);
return ();

rawb (Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, 0x1B, RealFastInPlace.North, Move.End);

say ("Weren't those fossils from MT. MOON\namazing?", 4);
release ();
end ();

lock ();
faceplayer ();
setvar (0x8004, 0x2);
setvar (0x8005, 0x2);
special (0x173);
say ("There aren't many serious POKéMON\nTRAINERS here.\rThey're all like BUG CATCHERS,\nyou know, just hobbyists.\rBut PEWTER GYM's BROCK isn't like\nthat, not one bit.", 4);
release ();
end ();

lock ();
faceplayer ();
say ("Psssst!\nDo you know what I'm doing?", 5);
if (0x800D == 0x1) goto (lbl_166263);
say ("I'm spraying REPEL to keep wild\nPOKéMON out of my garden!", 4);
release ();
end ();

say ("That's right!\nIt's hard work!", 4);
release ();
end ();

say ("TRAINER TIPS\rAll POKéMON that appear in battle,\nhowever briefly, earn EXP Points.", 3);
end ();

say ("NOTICE!\rThieves have been stealing POKéMON\nfossils from MT. MOON.\rPlease call the PEWTER POLICE if\nyou have any information.", 3);
end ();

say ("PEWTER MUSEUM OF SCIENCE", 3);
end ();

lockall ();
setvar (0x8004, 0x2);
setvar (0x8005, 0x0);
special (0x173);
say ("PEWTER CITY POKéMON GYM\nLEADER: BROCK\fThe Rock-Solid POKéMON TRAINER!", 4);
releaseall ();
end ();

say ("PEWTER CITY\nA Stone Gray City", 3);
end ();

lock ();
faceplayer ();
setvar (0x4001, 0x0);
call (lbl_1662DE);
release ();
end ();

textcolor (0);
if (0x4001 == 0x1) call (lbl_1663CA);
if (0x4001 == 0x2) call (lbl_1663CA);
if (0x4001 == 0x3) call (lbl_1663CA);
checksound ();
playsound (0x15);
applymove (0x7, move_1A75DB);
waitformove (0x0);
applymove (0x7, move_1A75DD);
waitformove (0x0);
say ("Oh, {RED}{NULL2}!", 4);
if (0x4001 == 0x0) call (lbl_1663D5);
if (0x4001 == 0x1) call (lbl_1663DA);
if (0x4001 == 0x2) call (lbl_1663E6);
if (0x4001 == 0x3) call (lbl_1663FC);
say ("I'm glad I caught up to you.\nI'm PROF. OAK's AIDE.\rI've been asked to deliver this,\nso here you go.", 4);
textcolor (3);
jingle (0x13E);
preparemsg ("{RED} received the\nRUNNING SHOES from the AIDE.");
waitmsg ();
waitforjingle ();
say ("{RED} switched shoes with the\nRUNNING SHOES.", 4);
special (0x171);
signmsg ();
say ("Press the B Button to run.\nBut only where there's room to run!", 4);
normalmsg ();
call (lbl_1A6675);
say ("Well, I must be going back to\nthe LAB.\rBye-bye!", 4);
closeonkeypress ();
if (0x4001 == 0x0) call (lbl_166412);
if (0x4001 == 0x1) call (lbl_16641D);
if (0x4001 == 0x2) call (lbl_166428);
if (0x4001 == 0x3) call (lbl_166433);
pause (0x1E);
textcolor (3);
say ("There's a letter attached…\rDear {RED},\rHere is a pair of RUNNING SHOES\nfor my beloved challenger.\rRemember, I'll always cheer for\nyou! Don't ever give up!\rFrom Mom", 4);
closeonkeypress ();
hidesprite (0x7);
setflag (0x82F);
setvar (0x406C, 0x2);
return ();

applymove (0x7, move_166465);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Move.End);

applymove (0x7, move_16645B);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Move.End);

applymove (0x7, move_166450);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.South, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Move.End);

applymove (0x7, move_166445);
waitformove (0x0);
return ();

rawb (Walk.South, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Walk.East, Move.End);

closeonkeypress ();
applymove (0x7, move_166441);
waitformove (0x0);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

rawb (0x1A, Walk.South, Walk.South, Move.End);

closeonkeypress ();
applymove (0x7, move_16643E);
waitformove (0x0);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

rawb (0x1A, Walk.South, Move.End);

closeonkeypress ();
applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

closeonkeypress ();
pause (0x14);
return ();

applymove (0x7, move_1A75ED);
waitformove (0x0);
return ();

lockall ();
setvar (0x4001, 0x1);
call (lbl_1662DE);
releaseall ();
end ();

lockall ();
setvar (0x4001, 0x2);
call (lbl_1662DE);
releaseall ();
end ();

lockall ();
setvar (0x4001, 0x3);
call (lbl_1662DE);
releaseall ();
end ();

setworldmapflag (0x893);
if (not 0x234) call (lbl_166484);
end ();

movesprite2 (0x1, 0x1E, 0xC);
movesprite2 (0x5, 0x1A, 0x1F);
movesprite2 (0x6, 0x1B, 0x1F);
return ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_1664CC);
end ();

textcolor (0);
setvar (0x4054, 0x2);
playsong (0x13B, 0);
showsprite (0x8);
applymove (0x8, move_1665D3);
waitformove (0x0);
say ("{TERRY}: Yo! {RED}!\rYou're still struggling along back\nhere?\rI'm doing great! I caught a bunch\nof strong and smart POKéMON!\rHere, let me see what you caught,\n{RED}!", 4);
setvar (0x800F, 0x8);
if (0x4031 == 0x2) call (lbl_166582);
if (0x4031 == 0x1) call (lbl_16658D);
if (0x4031 == 0x0) call (lbl_166598);
setvar (0x8004, 0xD);
setvar (0x8005, 0x0);
special (0x173);
say ("{TERRY}: Hey, guess what?\rI went to BILL's and got him to\nshow me his rare POKéMON.\rThat added a lot of pages to my\nPOKéDEX!\rAfter all, BILL's world famous as a\nPOKéMANIAC.\rHe invented the POKéMON Storage\nSystem on PC, too.\rSince you're using his system,\nyou should go thank him.\rWell, I better get rolling!\nSmell ya later!", 4);
closeonkeypress ();
playsong (0x13C, 0);
if (0x4001 == 0x0) call (lbl_1665A3);
if (0x4001 == 0x1) call (lbl_1665A3);
if (0x4001 == 0x2) call (lbl_1665B5);
say ("Oh, yeah, right.\rI feel sorry for you. No, really.\nYou're always plodding behind me.\rSo here, I'll give you a little\npresent as a favor.", 4);
setvar (0x4052, 0x1);
setflag (0x29B);
copyvarifnot0 (0x8000, 0x16B);
copyvarifnot0 (0x8001, 0x1);
callstd (0);
say ("A chatty gossip like you…\nThat thing's perfect.\rI don't need it because I don't\ngive a hoot about others.\rAll right, this time I really am\ngone. Smell ya!", 4);
closeonkeypress ();
applymove (0x8, move_1665FB);
waitformove (0x0);
fadetodefault ();
hidesprite (0x8);
releaseall ();
end ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

applymove (0xFF, move_1665CD);
applymove (0x8, move_1665EA);
waitformove (0x0);
return ();

rawb (Walk.East, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, 0x1C, 0x1C, Walk.West, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Move.End);

rawb (0x1C, 0x1B, RealFastInPlace.East, 0x1C, RealFastInPlace.South, Move.End);

applymove (0xFF, move_1665C7);
applymove (0x8, move_1665D9);
waitformove (0x0);
return ();

rawb (Walk.West, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, 0x1C, 0x1C, Walk.East, Walk.North, Walk.North, Walk.North, Walk.North, Walk.North, Move.End);

rawb (0x1C, 0x1B, RealFastInPlace.West, 0x1C, RealFastInPlace.South, Move.End);

trainerbattle (3, 334, "Hey!\nTake it easy!\fYou won already!");
return ();

trainerbattle (3, 333, "Hey!\nTake it easy!\fYou won already!");
return ();

trainerbattle (3, 332, "Hey!\nTake it easy!\fYou won already!");
return ();

rawb (Walk.South, Walk.South, Walk.South, Walk.South, Walk.South, Move.End);

lockall ();
setvar (0x4001, 0x1);
movesprite2 (0x8, 0x17, 0x0);
jump (lbl_1664CC);
end ();

lockall ();
setvar (0x4001, 0x2);
movesprite2 (0x8, 0x18, 0x0);
jump (lbl_1664CC);
end ();

lock ();
faceplayer ();
checktrainer (0x163);
ifgoto (1, lbl_16662E);
preparemsg ("Hey! Stay out!\nIt's not your yard!\r…Huh?\nMe?\rI'm an innocent bystander!\nDon't you believe me?{snd1:283}");
waitmsg ();
playsong (0x11B, 0);
waitkeypress ();
trainerbattle (3, 355, "GRUNT: Stop! I give up!\nI'll leave quietly!");
setvar (0x407D, 0x1);
jump (lbl_16662E);
end ();

say ("…Okay.\nI'll return the TM I stole.", 4);
checkitemamount (0x13C, 0x1);
if (0x800D == 0x0) goto (lbl_166677);
giveitem (0x13C, 0x1);
loadpointer (0, "{RED} recovered TM28 from\nthe TEAM ROCKET GRUNT.");
copyvarifnot0 (0x8000, 0x13C);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x101);
callstd (9);
say ("I better get moving!\nBye!", 4);
closeonkeypress ();
fade (1);
hidesprite (0x2);
fade (0);
setflag (0x23F);
release ();
end ();

textcolor (0);
say ("Make room for this!\nI can't run until I give it to you!", 4);
release ();
end ();

lockall ();
setvar (0x4001, 0x0);
applymove (0x2, move_1A75E9);
waitformove (0x0);
applymove (0xFF, move_1A75ED);
waitformove (0x0);
jump (lbl_1666C3);
end ();

textcolor (0);
say ("Hey! Stay out!\nIt's not your yard!\r…Huh?\nMe?\rI'm an innocent bystander!\nDon't you believe me?{snd1:283}", 4);
setvar (0x800F, 0x2);
trainerbattle (3, 355, "GRUNT: Stop! I give up!\nI'll leave quietly!");
setvar (0x407D, 0x1);
jump (lbl_16662E);
end ();

lockall ();
setvar (0x4001, 0x1);
applymove (0x2, move_1A75ED);
waitformove (0x0);
applymove (0xFF, move_1A75E9);
waitformove (0x0);
jump (lbl_1666C3);
end ();

lock ();
faceplayer ();
say ("The people here were robbed.\rIt's obvious that TEAM ROCKET is\nbehind this most heinous crime!\rEven our POLICE FORCE has\ntrouble with the ROCKETS!", 4);
closeonkeypress ();
applymove (0x1, move_1A75E5);
waitformove (0x0);
release ();
end ();

lock ();
faceplayer ();
if (0x234) goto (lbl_166713);
say ("If that SLOWBRO wasn't there, you\ncould CUT down the small tree.\rThat way, you could get to the\nother side.\rI think there's a way around it,\nthough.", 4);
release ();
end ();

say ("Did you know that you can CUT down\nsmall trees?\rEven that small tree in front of\nthe shop can be CUT down.\rI think there's a way around it,\nthough.", 4);
release ();
end ();

say ("You're making an encyclopedia on\nPOKéMON? That sounds amusing.", 2);
end ();

say ("You're a TRAINER, too?\rCollecting, battling…\nIt's a tough life, isn't it?", 2);
end ();

say ("This is CERULEAN CAVE.\rHorribly strong POKéMON live inside\nthere.\rIt takes a very special TRAINER to\nbe allowed inside there.\rYou'd have to be strong enough to\nbecome the POKéMON LEAGUE\fCHAMPION for starters.\rAnd, you would have to have\nmade a great achievement.", 2);
end ();

lock ();
faceplayer ();
say ("I want a bright red bicycle.\rI'll keep it at home, so it won't\nget dirty.", 4);
closeonkeypress ();
applymove (0xB, move_1A75E5);
waitformove (0x0);
release ();
end ();

lock ();
getrandom (0x3);
copyvar (0x8008, 0x800D);
if (0x8008 == 0x0) call (lbl_1667B0);
if (0x8008 == 0x1) call (lbl_1667B6);
if (0x8008 == 0x2) call (lbl_1667BC);
waitmsg ();
pause (0x28);
playsound (0x15);
applymove (0x5, move_1A75D9);
waitformove (0x0);
pause (0x1E);
if (0x8008 == 0x0) call (lbl_1667C2);
if (0x8008 == 0x1) call (lbl_1667CB);
if (0x8008 == 0x2) call (lbl_1667D4);
release ();
end ();

say ("No! That's wrong!\nIt's so hard to control POKéMON!\rYour POKéMON's obedience depends\non your abilities as a TRAINER.", 4);
return ();

say ("No!\nYou blew it again!", 4);
return ();

say ("Come on, SLOWBRO, pay attention!", 4);
return ();

preparemsg ("SLOWBRO, WITHDRAW!");
return ();

preparemsg ("SLOWBRO, punch!");
return ();

preparemsg ("Okay! SLOWBRO!\nUse SONICBOOM!");
return ();

lock ();
getrandom (0x4);
copyvar (0x8008, 0x800D);
if (0x8008 == 0x0) call (lbl_166814);
if (0x8008 == 0x1) call (lbl_16681D);
if (0x8008 == 0x2) call (lbl_166826);
if (0x8008 == 0x3) call (lbl_16682F);
release ();
end ();

say ("SLOWBRO ignored orders…", 4);
return ();

say ("SLOWBRO turned away…", 4);
return ();

say ("SLOWBRO is loafing around…", 4);
return ();

say ("SLOWBRO took a snooze…", 4);
return ();

say ("CERULEAN CITY\nA Mysterious, Blue Aura Surrounds\fIt", 3);
end ();

say ("TRAINER TIPS\rA POKéMON can be made to hold\nan item.\rSome items can even be used by\nthe holding POKéMON in battle.", 3);
end ();

say ("Grass and caves handled easily!\nBIKE SHOP", 3);
end ();

lockall ();
setvar (0x8004, 0x3);
setvar (0x8005, 0x0);
special (0x173);
say ("CERULEAN CITY POKéMON GYM\nLEADER: MISTY\fThe Tomboyish Mermaid!", 4);
releaseall ();
end ();

setworldmapflag (0x894);
setvar (0x405B, 0x1);
setflag (0x3D);
end ();

lock ();
faceplayer ();
say ("Do you believe in ghosts?", 5);
if (0x800D == 0x1) goto (lbl_16689C);
say ("Hahaha, I guess not.\rThat white hand on your shoulder…\nI'm just imagining it.", 4);
release ();
end ();

say ("Really?\nSo there are believers…", 4);
release ();
end ();

say ("This town is known as the grave\nsite of POKéMON.\rMemorial services are held in\nPOKéMON TOWER.", 2);
end ();

say ("Ghosts appeared in POKéMON TOWER.\rI think they're the spirits of\nPOKéMON that the ROCKETS killed.", 2);
end ();

say ("LAVENDER TOWN\nThe Noble Purple Town", 3);
end ();

say ("New SILPH SCOPE!\nMake the Invisible Plain to See!\rSILPH CO.", 3);
end ();

say ("LAVENDER VOLUNTEER\nPOKéMON HOUSE", 3);
end ();

say ("POKéMON TOWER\nBecalm the Spirits of POKéMON", 3);
end ();

setworldmapflag (0x895);
if (0x2F9) call (lbl_166913);
end ();

setflag (0xA1);
return ();

say ("We're careful about pollution here.\rWe've heard GRIMER multiplies in\ntoxic sludge.", 2);
end ();

lock ();
faceplayer ();
if (0x407E == 0x3) goto (lbl_166937);
say ("Did you see the S.S. ANNE moored\nin the harbor?", 4);
release ();
end ();

say ("So, the S.S. ANNE has departed?\rShe'll be back in VERMILION about\nthis time next year.", 4);
release ();
end ();

lock ();
faceplayer ();
if (0x407E == 0x3) goto (lbl_166996);
say ("Welcome to the S.S. ANNE!", 4);
release ();
end ();

setvar (0x8004, 0x0);
if (0x4076 => 0x5) goto (lbl_1669BB);
if (0x4076 => 0x1) goto (lbl_166B3B);
say ("The ship set sail.", 4);
release ();
end ();

preparemsg ("Ah, you have a TRI-PASS.\rWould you like to board\na SEAGALLOP ferry?");
waitmsg ();
setvar (0x8004, 0x0);
multichoice (19, 5, 57, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A8FEE);
if (0x8000 == 0x1) goto (lbl_1A8FF9);
if (0x8000 == 0x2) goto (lbl_1A9004);
if (0x8000 == 0x3) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

setvar (0x8006, 0x3);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x2);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x1);
jump (lbl_1A909E);
end ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
special (0x188);
call (lbl_166958);
if (0x800D == 0x1) goto (lbl_1669FD);
call (lbl_166977);
if (0x800D == 0x1) goto (lbl_166A5F);
setvar (0x8004, 0x0);
preparemsg ("Ah, you have a RAINBOW PASS.\rWould you like to board\na SEAGALLOP ferry?");
waitmsg ();
jump (lbl_1A911E);
end ();

setvar (0x8005, 0x0);
special (0x1A7);
waitstate ();
special2 (0x8006, 0x1A8);
copyvar (0x8000, 0x8006);
if (0x8000 == 0x0) goto (lbl_1A91D5);
if (0x8000 == 0x1) goto (lbl_1A91E0);
if (0x8000 == 0x2) goto (lbl_1A91EB);
if (0x8000 == 0x3) goto (lbl_1A91F6);
if (0x8000 == 0x4) goto (lbl_1A9201);
if (0x8000 == 0xFE) goto (lbl_1A917F);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

setvar (0x8005, 0x1);
special (0x1A7);
waitstate ();
special2 (0x8006, 0x1A8);
copyvar (0x8000, 0x8006);
if (0x8000 == 0x4) goto (lbl_1A9201);
if (0x8000 == 0x5) goto (lbl_1A920C);
if (0x8000 == 0x6) goto (lbl_1A9217);
if (0x8000 == 0x7) goto (lbl_1A9222);
if (0x8000 == 0xFE) goto (lbl_1A911E);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

setvar (0x8006, 0x7);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x6);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x5);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x4);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x3);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x2);
jump (lbl_1A909E);
end ();

setvar (0x8006, 0x1);
jump (lbl_1A909E);
end ();

if (not 0x2F1) call (lbl_166AA5);
preparemsg ("Would you like to board\na SEAGALLOP ferry?");
waitmsg ();
multichoice (13, 6, 55, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A911E);
if (0x8000 == 0x1) goto (lbl_166B23);
if (0x8000 == 0x2) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

say ("Okay, everything's in order for you\nto board a special ferry.\rSEAGALLOP HI-SPEED 12 will be\ndeparting immediately.", 4);
setvar (0x8004, 0x0);
setvar (0x8006, 0xA);
jump (lbl_1A90DA);
end ();

setflag (0x2F1);
say ("Oh! That's an AURORATICKET!\nNow that is rare.\rWe'll be happy to take you to\nBIRTH ISLAND anytime.\rBy the way: If you\nlike this game, buy it or die.", 4);
return ();

if (not 0x84B) goto (lbl_1A77B0);
checkitem (0x173, 0x1);
if (0x800D == 0x0) goto (lbl_1A77B0);
jump (lbl_1A77AA);
end ();

setvar (0x800D, 0x1);
return ();

setvar (0x800D, 0x0);
return ();

call (lbl_166977);
if (0x800D == 0x1) goto (lbl_166AB1);
if (not 0x2F0) call (lbl_166A53);
preparemsg ("Would you like to board\na SEAGALLOP ferry?");
waitmsg ();
multichoice (17, 6, 54, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A911E);
if (0x8000 == 0x1) goto (lbl_166B0B);
if (0x8000 == 0x2) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

say ("Okay, everything's in order for you\nto board a special ferry.\rSEAGALLOP HI-SPEED 10 will be\ndeparting immediately.", 4);
setvar (0x8004, 0x0);
setvar (0x8006, 0x9);
jump (lbl_1A90DA);
end ();

setflag (0x2F0);
say ("Oh! That's a MYSTICTICKET!\nNow that is rare.\rWe'll be happy to take you to\nNAVEL ROCK anytime.", 4);
return ();

if (not 0x2F0) call (lbl_166A53);
if (not 0x2F1) call (lbl_166AA5);
preparemsg ("Would you like to board\na SEAGALLOP ferry?");
waitmsg ();
multichoice (13, 5, 56, 0);
copyvar (0x8000, 0x800D);
if (0x8000 == 0x0) goto (lbl_1A911E);
if (0x8000 == 0x1) goto (lbl_166B0B);
if (0x8000 == 0x2) goto (lbl_166B23);
if (0x8000 == 0x3) goto (lbl_1A90F6);
if (0x8000 == 0x7F) goto (lbl_1A90F6);
end ();

if (not 0x84A) goto (lbl_1A77B0);
checkitem (0x172, 0x1);
if (0x800D == 0x0) goto (lbl_1A77B0);
jump (lbl_1A77AA);
end ();

lockall ();
jump (lbl_166BA0);
end ();

textcolor (0);
applymove (0x6, move_1A75E7);
applymove (0xFF, move_1A75EB);
waitformove (0x0);
if (0x407E == 0x3) goto (lbl_166BED);
say ("Welcome to the S.S. ANNE!\rExcuse me, do you have a ticket?", 4);
if (not 0x234) goto (lbl_166BDE);
say ("{font:2}{RED} flashed the S.S. TICKET!\r{font:4}Great!\nWelcome to the S.S. ANNE!", 4);
setvar (0x4053, 0x1);
releaseall ();
end ();

say ("{font:2}{RED} doesn't have the needed\nS.S. TICKET.\r{font:4}Sorry!\rYou need a ticket to get aboard.", 4);
closeonkeypress ();
jump (lbl_1A9108);
end ();

setvar (0x8004, 0x0);
if (0x4076 => 0x5) goto (lbl_1669BB);
if (0x4076 => 0x1) goto (lbl_166B3B);
say ("The ship set sail.", 4);
closeonkeypress ();
jump (lbl_1A9108);
end ();

lockall ();
jump (lbl_166BA0);
end ();

lockall ();
setvar (0x4053, 0x0);
releaseall ();
end ();

say ("The S.S. ANNE is a famous luxury\ncruise ship.\rIt visits VERMILION once a year.", 2);
end ();

lock ();
faceplayer ();
setflag (0x2F9);
say ("Oh, hello, {RED}!\nHow are you doing?\rIt's me, one of PROF. OAK's AIDES.\rDid you meet the other AIDE?\rHe had a package from PROF. OAK\nfor you, {RED}.\rHe said he'd look for you around\nROUTE 2, {RED}.\rIf you're in the ROUTE 2 area,\nplease look for him.", 4);
release ();
end ();

say ("I'm putting up a building on this\nplot of land. I own it all.\rMy POKéMON is tamping the land\nto lay the foundation.", 2);
end ();

lock ();
faceplayer ();
checksound ();
cry (0x42, 0x0);
say ("MACHOP: Guoh! Gogogoh!", 4);
waitforcry ();
say ("A MACHOP is stomping the land flat.", 4);
release ();
end ();

say ("VERMILION CITY\nThe Port of Exquisite Sunsets", 3);
end ();

say ("NOTICE!\rROUTE 12 may be blocked off by a\nsleeping POKéMON.\rDetour through ROCK TUNNEL to\nLAVENDER TOWN.\rVERMILION POLICE", 3);
end ();

say ("POKéMON FAN CLUB\nAll POKéMON fans welcome!", 3);
end ();

lockall ();
setvar (0x8004, 0x4);
setvar (0x8005, 0x0);
special (0x173);
say ("VERMILION CITY POKéMON GYM\nLEADER: LT. SURGE\fThe Lightning American!", 4);
releaseall ();
end ();

say ("VERMILION HARBOR", 3);
end ();

setworldmapflag (0x896);
end ();

say ("I got my KOFFING in CINNABAR.\rIt's usually nice, but it breathes\npoison when it's angry.", 2);
end ();

lock ();
say ("Heheh! This GYM is great!\nIt's full of women!", 4);
release ();
end ();

say ("CELADON takes pride in its efforts\nto keep the city beautiful.\rThat's why the new GAME CORNER is\nbad for our city's image.", 2);
end ();

say ("Moan…\nI blew it all at the slots!\rI knew I should have cashed in my\nCOINS for prizes!", 2);
end ();

jump (lbl_1C4A86);
end ();

lock ();
faceplayer ();
if (0x2C7) goto (lbl_1C4AE4);
say ("Hello, there!\rI've seen you about, but I never\nhad a chance to chat.\rIt must be good luck that brought\nus together finally.\rI'd like to celebrate by teaching\nyou the move SOFTBOILED.", 5);
if (0x800D == 0x0) goto (lbl_1C4ADA);
call (lbl_1C4F37);
if (0x800D == 0x0) goto (lbl_1C4ADA);
say ("So, who's the POKéMON that gets\nthe chance to learn SOFTBOILED?", 4);
setvar (0x8005, 0x9);
call (lbl_1C4F30);
if (0x800D == 0x0) goto (lbl_1C4ADA);
setflag (0x2C7);
jump (lbl_1C4AE4);
end ();

say ("I'll always be keeping an eye out\nfor you.\rI hope we can chat again.", 4);
release ();
end ();

say ("I wish you the best of luck!", 4);
release ();
end ();

lock ();
faceplayer ();
say ("This is my trusted pal, POLIWRATH.\rIt evolved from a POLIWHIRL when\nI used a WATER STONE.", 4);
closeonkeypress ();
applymove (0x2, move_1A75E5);
waitformove (0x0);
release ();
end ();

lock ();
faceplayer ();
checksound ();
cry (0x3E, 0x0);
say ("POLIWRATH: Ribi ribit!", 4);
closeonkeypress ();
waitforcry ();
applymove (0x3, move_1A75E5);
waitformove (0x0);
release ();
end ();

say ("Keep out of TEAM ROCKET's way!", 2);
end ();

say ("What are you staring at?\nGet lost, or I'll punch you.", 2);
end ();

say ("Aaaagh, ow…\nI scalded my tongue!\rThis nice old lady in the MANSION\ngave me some TEA.\rBut it was boiling hot!\nGotta cool it to drink it.", 2);
end ();

say ("Oh, what am I to do…\rSomeone stole our SILPH SCOPE.\rThe thief came running this way,\nI'm sure of it.\rBut I lost sight of him!\nWhere'd he go?", 2);
end ();

say ("TRAINER TIPS\rX ACCURACY boosts the accuracy of\ntechniques.\rDIRE HIT jacks up the likelihood\nof critical hits.\rGet your items at the CELADON\nDEPT. STORE!", 3);
end ();

say ("CELADON CITY\nThe City of Rainbow Dreams", 3);
end ();

lockall ();
setvar (0x8004, 0x5);
setvar (0x8005, 0x0);
special (0x173);
say ("CELADON CITY POKéMON GYM\nLEADER: ERIKA\fThe Nature-Loving Princess!", 4);
releaseall ();
end ();

say ("CELADON MANSION", 3);
end ();

say ("Find what you need at the\nCELADON DEPT. STORE!", 3);
end ();

say ("TRAINER TIPS\rGUARD SPEC. protects POKéMON\nfrom status-reduction moves during\fbattle.\rGet your items at the\nCELADON DEPT. STORE!", 3);
end ();

say ("COINS exchanged for prizes!\nPRIZE EXCHANGE", 3);
end ();

say ("ROCKET GAME CORNER\nThe playground for grown-ups!", 3);
end ();

setworldmapflag (0x897);
if (0x272) call (lbl_166D91);
if (not 0x272) call (lbl_166D97);
end ();

setvar (0x4010, 0x93);
return ();

setvar (0x4010, 0x76);
return ();

say ("Did you try the SAFARI GAME?\rThere are some rare POKéMON that\ncan only be caught there.", 2);
end ();

say ("The SAFARI ZONE has a zoo in front\nof the entrance.\rOut back is the SAFARI GAME for\ncatching POKéMON.", 2);
end ();

say ("ERIK: Where's SARA?\nI said I'd meet her here.", 2);
end ();

say ("That item ball in there…\nWere you wanting that?\rMe, too!\n…Huh? That's a POKéMON?", 2);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0x6);
setvar (0x8005, 0x3);
special (0x173);
say ("My father is the GYM LEADER of\nthis town.\rI'm training to use POISON POKéMON\nas well as my father.", 4);
release ();
end ();

say ("FUCHSIA CITY\nBehold! It's Passion Pink!", 3);
end ();

say ("POKéMON PARADISE\nSAFARI ZONE", 3);
end ();

say ("SAFARI GAME\nPOKéMON-U-CATCH!", 3);
end ();

say ("SAFARI ZONE\nWARDEN'S HOME", 3);
end ();

lockall ();
setvar (0x8004, 0x6);
setvar (0x8005, 0x0);
special (0x173);
say ("FUCHSIA CITY POKéMON GYM\nLEADER: KOGA\fThe Poisonous Ninja Master", 4);
releaseall ();
end ();

lockall ();
setvar (0x8004, 0x71);
special (0x163);
showpokepic (0x71, 10, 3);
say ("Name: CHANSEY\nCatching one is all up to chance.", 4);
hidepokepic ();
releaseall ();
end ();

lockall ();
setvar (0x8004, 0x64);
special (0x163);
showpokepic (0x64, 10, 3);
say ("Name: VOLTORB\nThe very image of a POKé BALL.", 4);
hidepokepic ();
releaseall ();
end ();

lockall ();
setvar (0x8004, 0x73);
special (0x163);
showpokepic (0x73, 10, 3);
say ("Name: KANGASKHAN\rA maternal POKéMON that raises its\nyoung in a pouch on its belly.", 4);
hidepokepic ();
releaseall ();
end ();

lockall ();
setvar (0x8004, 0x4F);
special (0x163);
showpokepic (0x4F, 10, 3);
say ("Name: SLOWPOKE\nFriendly and very slow moving.", 4);
hidepokepic ();
releaseall ();
end ();

lockall ();
setvar (0x8004, 0x83);
special (0x163);
showpokepic (0x83, 10, 3);
say ("Name: LAPRAS\nAKA the king of the seas.", 4);
hidepokepic ();
releaseall ();
end ();

lockall ();
if (0x272) goto (lbl_166EBE);
setvar (0x8004, 0x8C);
special (0x163);
showpokepic (0x8C, 10, 3);
say ("Name: KABUTO\nAn extremely rare POKéMON that was\fregenerated from a fossil.", 4);
hidepokepic ();
releaseall ();
end ();

setvar (0x8004, 0x8A);
special (0x163);
showpokepic (0x8A, 10, 3);
say ("Name: OMANYTE\nAn extremely rare POKéMON that was\fregenerated from a fossil.", 4);
hidepokepic ();
releaseall ();
end ();

setworldmapflag (0x898);
call (lbl_166F5E);
if (0x4071 == 0x1) call (lbl_166F24);
if (0x4071 == 0x3) call (lbl_166F52);
if (0x408A == 0x1) call (lbl_166F0B);
end ();

playsong2 (0x110);
setflag (0x2);
movesprite2 (0x3, 0xF, 0xC);
spritebehave (0x3, 9);
movesprite2 (0x4, 0x1E, 0xC);
return ();

movesprite2 (0x3, 0x15, 0x8);
spritebehave (0x3, 7);
return ();

getcamerapos (0x8004, 0x8005);
if (0x8004 => 0x12) goto (lbl_166F4A);
setflag (0x2);
movesprite2 (0x3, 0x12, 0xC);
spritebehave (0x3, 7);
movesprite2 (0x4, 0x1E, 0xC);
return ();

movesprite2 (0x4, 0x1E, 0x8);
return ();

if (0x1A8) goto (lbl_166F68);
return ();

setvar (0x4001, 0x1);
return ();

lockall ();
applymove (0xFF, move_1A75E9);
waitformove (0x0);
pause (0x14);
say ("The door is locked…", 4);
closeonkeypress ();
applymove (0xFF, move_1671ED);
waitformove (0x0);
releaseall ();
end ();

rawb (Walk.South, Move.End);

lock ();
faceplayer ();
setvar (0x8004, 0x8);
setvar (0x8005, 0x3);
special (0x173);
say ("CINNABAR GYM's BLAINE is quite the\nodd fellow.\rHe's lived on the island since way\nbefore the LAB was built.", 4);
release ();
end ();

say ("Scientists conduct experiments \nin the burned-out building.\rYou know, the one they call the\nPOKéMON MANSION.", 2);
end ();

say ("CINNABAR ISLAND\nThe Fiery Town of Burning Desire", 3);
end ();

say ("POKéMON LAB", 3);
end ();

lockall ();
setvar (0x8004, 0x8);
setvar (0x8005, 0x0);
special (0x173);
say ("CINNABAR ISLAND POKéMON GYM\nLEADER: BLAINE\fThe Hotheaded Quiz Master!", 4);
releaseall ();
end ();

setworldmapflag (0x899);
if (0x4085 == 0x1) call (lbl_167255);
end ();

playsong (0x122, 0);
return ();

setworldmapflag (0x89A);
if (not 0x23C) call (lbl_167372);
end ();

movesprite2 (0x6, 0x21, 0x1F);
return ();

say ("What do you want?\nGet lost!", 2);
end ();

say ("BOSS said he'll take this town\nin the name of TEAM ROCKET!", 2);
end ();

say ("Don't get defiant!\nOr I'll have to hurt you!", 2);
end ();

say ("SAFFRON belongs to TEAM ROCKET!", 2);
end ();

say ("My life as a criminal makes me feel\nso alive!", 2);
end ();

say ("Ow!\nWatch where you're walking!", 2);
end ();

say ("With SILPH under control, we can\nexploit POKéMON around the world!\rWe'll get stinking rich, yeahah!", 2);
end ();

lock ();
if (0x23C) goto (lbl_1673D7);
applymove (0x6, move_1A75E1);
waitformove (0x0);
say ("I'm a security guard.\rSuspicious kids I don't allow in!", 4);
release ();
end ();

textcolor (3);
say ("…\nSnore…\rHah! He's taking a snooze!", 4);
release ();
end ();

say ("You beat TEAM ROCKET all alone?\nThat's amazing!", 2);
end ();

say ("Yeah! TEAM ROCKET is gone!\nIt's safe to go out again!", 2);
end ();

say ("People fled from here in droves\nwhen those ROCKETS came.\rThey should be flocking back to\nSAFFRON now.", 2);
end ();

say ("I flew here on my PIDGEOT when\nI read about SILPH.\rIt's already over?\nI missed the media action…", 2);
end ();

lock ();
faceplayer ();
checksound ();
cry (0x12, 0x0);
say ("PIDGEOT: Bi bibii!", 4);
waitforcry ();
release ();
end ();

say ("I saw the ROCKET BOSS escaping\nSILPH's building.", 2);
end ();

say ("SAFFRON CITY\nShining, Golden Land of Commerce", 3);
end ();

say ("FIGHTING DOJO", 3);
end ();

lockall ();
setvar (0x8004, 0x7);
setvar (0x8005, 0x0);
special (0x173);
say ("SAFFRON CITY POKéMON GYM\nLEADER: SABRINA\fThe Master of PSYCHIC POKéMON!", 4);
releaseall ();
end ();

say ("TRAINER TIPS\rFULL HEAL cures all ailments like\nburns, paralysis, poisoning,\ffreezing, and sleep.\rIt costs a bit more, but it's more\nconvenient than buying other items.", 3);
end ();

say ("TRAINER TIPS\rThe new GREAT BALL offers improved\ncatching rates.\rTry it on those hard-to-catch\nPOKéMON.", 3);
end ();

say ("SILPH CO. OFFICE BUILDING", 3);
end ();

say ("MR. PSYCHIC'S HOUSE", 3);
end ();

say ("SILPH's latest product!\nRelease to be determined…", 3);
end ();

say ("POKéMON TRAINER FAN CLUB\rMany TRAINERS have scribbled their\nnames on this sign.", 3);
end ();

setworldmapflag (0x89B);
end ();

lock ();
faceplayer ();
if (0x844) goto (lbl_16753F);
if (0x2A1) goto (lbl_167535);
say ("Here we are on an island smack in\nthe middle of nowhere.\rWe're lucky to have an upstanding\nyoung man like CELIO here.\rMy granddaughter was in a tizzy\nover CELIO's friend.\rSomething about a famous\nPOKéMANIAC?\rI'm not sure what that means, but\nCELIO is quite the man!", 4);
release ();
end ();

say ("My granddaughter was in a tizzy\nover a new breakthrough.\rShe said we now have PC linkage\nwith people in KANTO.\rI'm not sure what that means, but\nCELIO is quite the man!", 4);
release ();
end ();

say ("My granddaughter was in a tizzy\nover a new breakthrough.\rShe said we finally have PC linkage\nwith people in HOENN.\rI'm not sure what that means, but\nCELIO is quite the man.\rHe would make a fine husband for\nmy granddaughter!", 4);
release ();
end ();

say ("Hi, sight-seeing, are you?\nIsn't the warm climate here great?", 2);
end ();

say ("ONE ISLAND\nFriends Gather at Knot Island", 3);
end ();

say ("Expanding the POKéMON World!\nPOKéMON NET CENTER", 3);
end ();

setworldmapflag (0x89C);
setflag (0x2A2);
call (lbl_167576);
end ();

if (0x844) goto (lbl_167597);
if (0x82C) goto (lbl_1675B8);
if (0x2A3) goto (lbl_1675D9);
jump (lbl_1675E8);
end ();

jump (lbl_1675EE);
end ();

setvar (0x4078, 0x1);
return ();

if (not 0x29D) goto (lbl_1675EE);
jump (lbl_1675F4);
end ();

setvar (0x4078, 0x2);
clearflag (0x7B);
return ();

if (not 0x29D) goto (lbl_1675EE);
if (not 0x2A3) goto (lbl_1675EE);
if (not 0x29E) goto (lbl_1675F4);
jump (lbl_1675FD);
end ();

setvar (0x4078, 0x3);
clearflag (0x7C);
return ();

if (not 0x29D) goto (lbl_1675EE);
if (not 0x29E) goto (lbl_1675F4);
if (not 0x29F) goto (lbl_1675FD);
jump (lbl_167606);
end ();

setvar (0x4078, 0x4);
clearflag (0x7D);
return ();

special (0x187);
if (0x800D == 0x2) goto (lbl_1A7AE0);
lock ();
faceplayer ();
if (0x4078 == 0x4) goto (lbl_167646);
if (0x4078 == 0x3) goto (lbl_16765E);
if (0x4078 == 0x2) goto (lbl_167676);
jump (lbl_16768E);
end ();

if (0x29D) goto (lbl_1676A6);
setflag (0x29D);
preparemsg ("Oh!\nHello, welcome to my shop!\rWe've only opened up recently.\rOur merchandise is limited, but I\nhope we can serve your needs.");
waitmsg ();
jump (lbl_1676D3);
end ();

doshop (store_1676E4);
say ("Please come again!", 4);
release ();
end ();

raws (Item.GreatBall, Item.Freshwater, 0);

preparemsg ("Hi, there!\nMay I help you?");
waitmsg ();
if (0x4078 == 0x4) goto (lbl_167728);
if (0x4078 == 0x3) goto (lbl_167708);
if (0x4078 == 0x2) goto (lbl_1676EC);
jump (lbl_1676D3);
end ();

doshop (store_1676FC);
say ("Please come again!", 4);
release ();
end ();

raws (Item.UltraBall, Item.GreatBall, Item.Sodapop, Item.Freshwater, 0);

doshop (store_167718);
say ("Please come again!", 4);
release ();
end ();

raws (Item.UltraBall, Item.GreatBall, Item.Lemonade, Item.Sodapop, Item.Freshwater, Item.MooMooMilk, 0);

doshop (store_167738);
say ("Please come again!", 4);
release ();
end ();

raws (Item.UltraBall, Item.RepeatBall, Item.TimerBall, Item.Lemonade, Item.Sodapop, Item.Freshwater, Item.MooMooMilk, Item.LavaCookie, 0);

if (0x29E) goto (lbl_1676A6);
setflag (0x29E);
preparemsg ("I can't tell you how grateful I am\nfor your rescue of LOSTELLE.\rThanks to your feat, the people of\nTHREE ISLAND have changed their\fattitudes about KANTO people.\rAnd, I'm from KANTO, you see.\rThe people of THREE ISLAND\nhelped me add to my merchandise.");
waitmsg ();
jump (lbl_1676EC);
end ();

if (0x29F) goto (lbl_1676A6);
setflag (0x29F);
preparemsg ("Hi! I'm giving it my best here.\nI hope you do too, {RED}.");
waitmsg ();
jump (lbl_167708);
end ();

if (0x2A0) goto (lbl_1676A6);
setflag (0x2A0);
preparemsg ("Oh, hello, {RED}!\nWelcome!\rI've started bringing in items from\ndistant lands.\rI've got some rare items in, too.\nPlease have a look!");
waitmsg ();
jump (lbl_167728);
end ();

say ("That fellow there, he moved here\nfrom CELADON CITY.\rHe started up a shop with his\nyounger brother.\rYou have to wonder if he knew what\nhe was getting into.", 2);
end ();

say ("The shopkeeper's brother took\na job at the GAME CORNER.\rHe's trying to pull together money\nso they can buy more merchandise.", 2);
end ();

lock ();
faceplayer ();
setvar (0x8004, 0xA);
setvar (0x8005, 0x4);
special (0x173);
say ("Listen, listen.\nDid you know?\rA famous TRAINER came to the\nISLAND a little while back.\rHe's one of the ELITE FOUR.\nHis name is BRUNO.\rHe went away disappointed when he\nfound out that they were all sold\fout of Rage Candybars.", 4);
release ();
end ();

say ("The discerning TRAINER knows to\nbuy rare items here!", 2);
end ();

say ("There's an old woman who lives in\na cottage out on the cape.\rShe gives the eye to POKéMON.\nIt's a bit unnerving.", 2);
end ();

say ("Boing! Boing!\nHave you tried the jumping game?\rThe POKéMON you can enter…\nBoing!\rSome go boing!\rAnd some go boooooooing!\rDid you know that?\nBoing!", 2);
end ();

say ("TWO ISLAND\nBoon Island for Two", 3);
end ();

say ("Skip & Chomp!\nJoyful GAME CORNER", 3);
end ();

say ("DANGER! FAST CURRENT!\nFishing and surfing prohibited!", 3);
end ();

setworldmapflag (0x89D);
if (0x2A3) call (lbl_1677CB);
if (0x407B == 0x4) call (lbl_1677CF);
end ();

spritebehave (0x1, 1);
spritebehave (0x2, 1);
return ();

setflag (0x7E);
return ();

lock ();
setvar (0x4001, 0x2);
call (lbl_16786F);
release ();
end ();

if (0x4001 == 0x1) call (lbl_167947);
if (0x4001 == 0x2) call (lbl_167947);
applymove (0x1, move_167A1B);
waitformove (0x0);
say ("We don't need you people bringing\nyour noise and trouble here!\rWe're asking you to go back to\nKANTO!", 4);
if (0x4001 == 0x0) call (lbl_167952);
if (0x4001 == 0x1) call (lbl_167952);
if (0x4001 == 0x2) call (lbl_16795D);
applymove (0x5, move_167A19);
waitformove (0x0);
say ("Hey, go cry somewhere else.\nOur boss is on his way.\rWhen he gets here, we'll give you\na k-rad motorbike show you won't\fsoon forget!", 4);
if (0x4001 == 0x0) call (lbl_167931);
if (0x4001 == 0x1) call (lbl_167931);
if (0x4001 == 0x2) call (lbl_167973);
applymove (0x2, move_167A1B);
waitformove (0x0);
say ("W-what!? Not on your life!\nGet off the island now!", 4);
if (0x4001 == 0x0) call (lbl_167952);
if (0x4001 == 0x1) call (lbl_167952);
if (0x4001 == 0x2) call (lbl_16795D);
applymove (0x4, move_167A19);
waitformove (0x0);
say ("Who's gonna make me?", 4);
return ();

getcamerapos (0x8004, 0x8005);
if (0x8004 => 0x9) goto (lbl_167947);
jump (lbl_167931);
end ();

applymove (0xFF, move_1A75E9);
waitformove (0x0);
return ();

rawb (StepInPlace.East, Move.End);

getcamerapos (0x8004, 0x8005);
if (0x8004 => 0x9) goto (lbl_167931);
jump (lbl_167952);
end ();

applymove (0xFF, move_1A75EB);
waitformove (0x0);
return ();

rawb (StepInPlace.West, Move.End);

applymove (0xFF, move_1A75E7);
waitformove (0x0);
return ();

lock ();
if (0x2FC) goto (lbl_167806);
if (0x407B == 0x4) goto (lbl_16781A);
setvar (0x4001, 0x0);
call (lbl_16786F);
release ();
end ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("Thank you! Those goons were\nnothing but bad trouble.\rOh, look, your POKéMON got hurt\non my account.", 4);
checkitemamount (0x13, 0x1);
if (0x800D == 0x0) goto (lbl_167865);
loadpointer (0, "{RED} was given\na FULL RESTORE.");
copyvarifnot0 (0x8000, 0x13);
copyvarifnot0 (0x8001, 0x1);
copyvarifnot0 (0x8002, 0x101);
callstd (9);
giveitem (0x13, 0x1);
setflag (0x2FC);
say ("You've got seriously impressive\nPOKéMON with you.", 4);
release ();
end ();

say ("Oh?\nYour BAG is full.", 4);
release ();
end ();

applymove (0x1, move_1A75E1);
waitformove (0x0);
say ("You've got seriously impressive\nPOKéMON with you.", 4);
release ();
end ();

lock ();
if (0x407B == 0x4) goto (lbl_1679A1);
setvar (0x4001, 0x1);
call (lbl_16786F);
release ();
end ();

applymove (0x2, move_1A75E1);
waitformove (0x0);
say ("It'd be fantastic if someone as\nstrong as you lived here.\rI hope you'll at least stay here\na while.\r…I beg your pardon?\nYou're looking for LOSTELLE?\rLOSTELLE went off towards BOND\nBRIDGE a while ago.", 4);
release ();
end ();

lockall ();
textcolor (0);
applymove (0x1, move_167A1B);
waitformove (0x0);
say ("Are you the boss?\nGo back to KANTO right now!", 4);
applymove (0x3, move_167A19);
waitformove (0x0);
say ("Hah?\rI just got here, pal.\rWhat's with the hostile attitude?\nIt's mighty cold of you!", 4);
applymove (0x1, move_167A1B);
waitformove (0x0);
say ("Your gang of followers have been\nraising havoc on their bikes.\rDo you have any idea how much\ntrouble they've caused us on the\fisland?", 4);
applymove (0x3, move_167A19);
waitformove (0x0);
say ("No, man, I don't get it at all.\rLook at this place.\nWhat do you do for entertainment?\rYou ought to be thanking us for\nlivening up this sleepy village.\rBut hey, if you insist, you can try\nmaking us leave.", 4);
applymove (0x1, move_167A1B);
waitformove (0x0);
say ("Grr… You cowards…\nSo tough in a pack…", 4);
setvar (0x407B, 0x3);
releaseall ();
end ();

lockall ();
setvar (0x4001, 0x0);
jump (lbl_167A59);
end ();

textcolor (0);
applymove (0x5, move_1A75ED);
waitformove (0x0);
playsound (0x15);
applymove (0x5, move_1A75DB);
waitformove (0x0);
applymove (0x5, move_1A75DD);
waitformove (0x0);
applymove (0x5, move_167C57);
waitformove (0x0);
playsong (0x11D, 0);
say ("You, what are you staring at?\nDon't you know it's not polite?\rYou wanna make something of it\nor what?", 5);
if (0x800D == 0x0) goto (lbl_167C35);
say ("Heh, I like your guts.\nYou'll be losing money to me, but…", 4);
setvar (0x800F, 0x5);
trainerbattle (3, 527, "Wha…\nWhat is this kid?!");
applymove (0x5, move_167C5C);
waitformove (0x0);
say ("Aww, man…\nDon't you dare laugh!", 4);
closeonkeypress ();
applymove (0x7, move_167C57);
waitformove (0x0);
playsong (0x11D, 0);
say ("Aren't you from KANTO?\nYou should be on our side!", 4);
setvar (0x800F, 0x7);
trainerbattle (3, 528, "Stop fooling around!");
applymove (0x7, move_167C5C);
waitformove (0x0);
say ("What's the matter with you,\ngetting all hot like that?\rTotally uncool, man!", 4);
closeonkeypress ();
applymove (0x4, move_167C57);
waitformove (0x0);
playsong (0x11D, 0);
say ("We invited the boss out here,\nbut you had to mess it up!\rYou embarrassed us, man!", 4);
setvar (0x800F, 0x4);
trainerbattle (3, 529, "… … … … … …");
applymove (0x4, move_1A75E7);
waitformove (0x0);
applymove (0x6, move_1A75ED);
applymove (0x8, move_1A75ED);
waitformove (0x0);
say ("Boss, I'm telling you, you've gotta\ndo something about this kid!", 4);
closeonkeypress ();
pause (0x2D);
if (0x4001 == 0x0) call (lbl_167BC6);
if (0x4001 == 0x1) call (lbl_167BD8);
if (0x4001 == 0x2) call (lbl_167BEA);
if (0x4001 == 0x3) call (lbl_167C03);
if (0x4001 == 0x4) call (lbl_167C1C);
playsong (0x11D, 0);
say ("I've been watching you, and I'd say\nyou've done enough.\rWhat are you, their friend or\nsomething?\rThen I guess you'll be battling me\nin their place.", 4);
setvar (0x800F, 0x3);
trainerbattle (3, 742, "All right, enough!\nWe'll leave like you wanted!\rWe'll be happy to see the last of\nthis boring island!");
say ("Humph! Yeah, go right on hanging\naround with these hayseeds!", 4);
closeonkeypress ();
fade (1);
hidesprite (0x3);
hidesprite (0x5);
hidesprite (0x7);
hidesprite (0x4);
hidesprite (0x6);
hidesprite (0x8);
hidesprite (0xE);
fade (0);
setvar (0x407B, 0x4);
releaseall ();
end ();