ref: a147c35540f4010b495cc1ba990320eeb4af1b35
dir: /engine/events/std_scripts.asm/
add_stdscript: MACRO \1StdScript:: dba \1 ENDM StdScripts:: add_stdscript PokecenterNurseScript add_stdscript DifficultBookshelfScript add_stdscript PictureBookshelfScript add_stdscript MagazineBookshelfScript add_stdscript TeamRocketOathScript add_stdscript IncenseBurnerScript add_stdscript MerchandiseShelfScript add_stdscript TownMapScript add_stdscript WindowScript add_stdscript TVScript add_stdscript HomepageScript ; unused add_stdscript Radio1Script add_stdscript Radio2Script add_stdscript TrashCanScript add_stdscript StrengthBoulderScript add_stdscript SmashRockScript add_stdscript PokecenterSignScript add_stdscript MartSignScript add_stdscript GoldenrodRocketsScript add_stdscript RadioTowerRocketsScript add_stdscript ElevatorButtonScript add_stdscript DayToTextScript add_stdscript BugContestResultsWarpScript add_stdscript BugContestResultsScript add_stdscript InitializeEventsScript add_stdscript AskNumber1MScript add_stdscript AskNumber2MScript add_stdscript RegisteredNumberMScript add_stdscript NumberAcceptedMScript add_stdscript NumberDeclinedMScript add_stdscript PhoneFullMScript add_stdscript RematchMScript add_stdscript GiftMScript add_stdscript PackFullMScript add_stdscript RematchGiftMScript add_stdscript AskNumber1FScript add_stdscript AskNumber2FScript add_stdscript RegisteredNumberFScript add_stdscript NumberAcceptedFScript add_stdscript NumberDeclinedFScript add_stdscript PhoneFullFScript add_stdscript RematchFScript add_stdscript GiftFScript add_stdscript PackFullFScript add_stdscript RematchGiftFScript add_stdscript GymStatue1Script add_stdscript GymStatue2Script add_stdscript ReceiveItemScript add_stdscript ReceiveTogepiEggScript add_stdscript PCScript add_stdscript GameCornerCoinVendorScript add_stdscript HappinessCheckScript PokecenterNurseScript: ; EVENT_WELCOMED_TO_POKECOM_CENTER is never set opentext checktime MORN iftrue .morn checktime DAY iftrue .day checktime NITE iftrue .nite sjump .ok .morn checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .morn_comcenter farwritetext NurseMornText promptbutton sjump .ok .morn_comcenter farwritetext PokeComNurseMornText promptbutton sjump .ok .day checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .day_comcenter farwritetext NurseDayText promptbutton sjump .ok .day_comcenter farwritetext PokeComNurseDayText promptbutton sjump .ok .nite checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .nite_comcenter farwritetext NurseNiteText promptbutton sjump .ok .nite_comcenter farwritetext PokeComNurseNiteText promptbutton sjump .ok .ok ; only do this once clearevent EVENT_WELCOMED_TO_POKECOM_CENTER farwritetext NurseAskHealText yesorno iffalse .done farwritetext NurseTakePokemonText pause 20 special StubbedTrainerRankings_Healings turnobject LAST_TALKED, LEFT pause 10 special HealParty playmusic MUSIC_NONE setval HEALMACHINE_POKECENTER special HealMachineAnim pause 30 special RestartMapMusic turnobject LAST_TALKED, DOWN pause 10 checkphonecall ; elm already called about pokerus iftrue .no checkflag ENGINE_CAUGHT_POKERUS iftrue .no special CheckPokerus iftrue .pokerus .no farwritetext NurseReturnPokemonText pause 20 .done farwritetext NurseGoodbyeText turnobject LAST_TALKED, UP pause 10 turnobject LAST_TALKED, DOWN pause 10 waitbutton closetext end .pokerus ; already cleared earlier in the script checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .pokerus_comcenter farwritetext NursePokerusText waitbutton closetext sjump .pokerus_done .pokerus_comcenter farwritetext PokeComNursePokerusText waitbutton closetext .pokerus_done setflag ENGINE_CAUGHT_POKERUS specialphonecall SPECIALCALL_POKERUS end DifficultBookshelfScript: farjumptext DifficultBookshelfText PictureBookshelfScript: farjumptext PictureBookshelfText MagazineBookshelfScript: farjumptext MagazineBookshelfText TeamRocketOathScript: farjumptext TeamRocketOathText IncenseBurnerScript: farjumptext IncenseBurnerText MerchandiseShelfScript: farjumptext MerchandiseShelfText TownMapScript: opentext farwritetext LookTownMapText waitbutton special OverworldTownMap closetext end WindowScript: farjumptext WindowText TVScript: opentext farwritetext TVText waitbutton closetext end HomepageScript: farjumptext HomepageText Radio1Script: opentext setval MAPRADIO_POKEMON_CHANNEL special MapRadio closetext end Radio2Script: ; Lucky Channel opentext setval MAPRADIO_LUCKY_CHANNEL special MapRadio closetext end TrashCanScript: farjumptext TrashCanText PCScript: opentext special PokemonCenterPC closetext end ElevatorButtonScript: playsound SFX_READ_TEXT_2 pause 15 playsound SFX_ELEVATOR_END end StrengthBoulderScript: farsjump AskStrengthScript SmashRockScript: farsjump AskRockSmashScript PokecenterSignScript: farjumptext PokecenterSignText MartSignScript: farjumptext MartSignText DayToTextScript: readvar VAR_WEEKDAY ifequal MONDAY, .Monday ifequal TUESDAY, .Tuesday ifequal WEDNESDAY, .Wednesday ifequal THURSDAY, .Thursday ifequal FRIDAY, .Friday ifequal SATURDAY, .Saturday getstring STRING_BUFFER_3, .SundayText end .Monday: getstring STRING_BUFFER_3, .MondayText end .Tuesday: getstring STRING_BUFFER_3, .TuesdayText end .Wednesday: getstring STRING_BUFFER_3, .WednesdayText end .Thursday: getstring STRING_BUFFER_3, .ThursdayText end .Friday: getstring STRING_BUFFER_3, .FridayText end .Saturday: getstring STRING_BUFFER_3, .SaturdayText end .SundayText: db "SUNDAY@" .MondayText: db "MONDAY@" .TuesdayText: db "TUESDAY@" .WednesdayText: db "WEDNESDAY@" .ThursdayText: db "THURSDAY@" .FridayText: db "FRIDAY@" .SaturdayText: db "SATURDAY@" GoldenrodRocketsScript: clearevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER end RadioTowerRocketsScript: setflag ENGINE_ROCKETS_IN_RADIO_TOWER setevent EVENT_GOLDENROD_CITY_CIVILIANS setevent EVENT_RADIO_TOWER_BLACKBELT_BLOCKS_STAIRS clearevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER setevent EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST specialphonecall SPECIALCALL_WEIRDBROADCAST setmapscene MAHOGANY_TOWN, SCENE_FINISHED end BugContestResultsWarpScript: special ClearBGPalettes scall BugContestResults_CopyContestantsToResults setevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY clearevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY setevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE warp ROUTE_36_NATIONAL_PARK_GATE, 0, 4 applymovement PLAYER, Movement_ContestResults_WalkAfterWarp BugContestResultsScript: clearflag ENGINE_BUG_CONTEST_TIMER clearevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY clearevent EVENT_CONTEST_OFFICER_HAS_BERRY opentext farwritetext ContestResults_ReadyToJudgeText waitbutton special BugContestJudging getnum STRING_BUFFER_3 ifequal 1, BugContestResults_FirstPlace ifequal 2, BugContestResults_SecondPlace ifequal 3, BugContestResults_ThirdPlace farwritetext ContestResults_ConsolationPrizeText promptbutton waitsfx verbosegiveitem BERRY iffalse BugContestResults_NoRoomForBerry BugContestResults_DidNotWin: farwritetext ContestResults_DidNotWinText promptbutton sjump BugContestResults_FinishUp BugContestResults_ReturnAfterWinnersPrize: farwritetext ContestResults_JoinUsNextTimeText promptbutton BugContestResults_FinishUp: checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER iffalse BugContestResults_DidNotLeaveMons farwritetext ContestResults_ReturnPartyText waitbutton special ContestReturnMons BugContestResults_DidNotLeaveMons: special CheckPartyFullAfterContest ifequal BUGCONTEST_CAUGHT_MON, BugContestResults_CleanUp ifequal BUGCONTEST_NO_CATCH, BugContestResults_CleanUp ; BUGCONTEST_BOXED_MON farwritetext ContestResults_PartyFullText waitbutton BugContestResults_CleanUp: closetext setscene SCENE_ROUTE36NATIONALPARKGATE_NOTHING setmapscene ROUTE_35_NATIONAL_PARK_GATE, SCENE_ROUTE35NATIONALPARKGATE_NOTHING setevent EVENT_BUG_CATCHING_CONTESTANT_1A setevent EVENT_BUG_CATCHING_CONTESTANT_2A setevent EVENT_BUG_CATCHING_CONTESTANT_3A setevent EVENT_BUG_CATCHING_CONTESTANT_4A setevent EVENT_BUG_CATCHING_CONTESTANT_5A setevent EVENT_BUG_CATCHING_CONTESTANT_6A setevent EVENT_BUG_CATCHING_CONTESTANT_7A setevent EVENT_BUG_CATCHING_CONTESTANT_8A setevent EVENT_BUG_CATCHING_CONTESTANT_9A setevent EVENT_BUG_CATCHING_CONTESTANT_10A setevent EVENT_BUG_CATCHING_CONTESTANT_1B setevent EVENT_BUG_CATCHING_CONTESTANT_2B setevent EVENT_BUG_CATCHING_CONTESTANT_3B setevent EVENT_BUG_CATCHING_CONTESTANT_4B setevent EVENT_BUG_CATCHING_CONTESTANT_5B setevent EVENT_BUG_CATCHING_CONTESTANT_6B setevent EVENT_BUG_CATCHING_CONTESTANT_7B setevent EVENT_BUG_CATCHING_CONTESTANT_8B setevent EVENT_BUG_CATCHING_CONTESTANT_9B setevent EVENT_BUG_CATCHING_CONTESTANT_10B setflag ENGINE_DAILY_BUG_CONTEST special PlayMapMusic end BugContestResults_FirstPlace: setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 getitemname STRING_BUFFER_4, SUN_STONE farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem SUN_STONE iffalse BugContestResults_NoRoomForSunStone sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_SecondPlace: getitemname STRING_BUFFER_4, EVERSTONE farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem EVERSTONE iffalse BugContestResults_NoRoomForEverstone sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_ThirdPlace: getitemname STRING_BUFFER_4, GOLD_BERRY farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem GOLD_BERRY iffalse BugContestResults_NoRoomForGoldBerry sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_NoRoomForSunStone: farwritetext BugContestPrizeNoRoomText promptbutton setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_NoRoomForEverstone: farwritetext BugContestPrizeNoRoomText promptbutton setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_NoRoomForGoldBerry: farwritetext BugContestPrizeNoRoomText promptbutton setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY sjump BugContestResults_ReturnAfterWinnersPrize BugContestResults_NoRoomForBerry: farwritetext BugContestPrizeNoRoomText promptbutton setevent EVENT_CONTEST_OFFICER_HAS_BERRY sjump BugContestResults_DidNotWin BugContestResults_CopyContestantsToResults: checkevent EVENT_BUG_CATCHING_CONTESTANT_1A iftrue .skip1 clearevent EVENT_BUG_CATCHING_CONTESTANT_1B .skip1 checkevent EVENT_BUG_CATCHING_CONTESTANT_2A iftrue .skip2 clearevent EVENT_BUG_CATCHING_CONTESTANT_2B .skip2 checkevent EVENT_BUG_CATCHING_CONTESTANT_3A iftrue .skip3 clearevent EVENT_BUG_CATCHING_CONTESTANT_3B .skip3 checkevent EVENT_BUG_CATCHING_CONTESTANT_4A iftrue .skip4 clearevent EVENT_BUG_CATCHING_CONTESTANT_4B .skip4 checkevent EVENT_BUG_CATCHING_CONTESTANT_5A iftrue .skip5 clearevent EVENT_BUG_CATCHING_CONTESTANT_5B .skip5 checkevent EVENT_BUG_CATCHING_CONTESTANT_6A iftrue .skip6 clearevent EVENT_BUG_CATCHING_CONTESTANT_6B .skip6 checkevent EVENT_BUG_CATCHING_CONTESTANT_7A iftrue .skip7 clearevent EVENT_BUG_CATCHING_CONTESTANT_7B .skip7 checkevent EVENT_BUG_CATCHING_CONTESTANT_8A iftrue .skip8 clearevent EVENT_BUG_CATCHING_CONTESTANT_8B .skip8 checkevent EVENT_BUG_CATCHING_CONTESTANT_9A iftrue .skip9 clearevent EVENT_BUG_CATCHING_CONTESTANT_9B .skip9 checkevent EVENT_BUG_CATCHING_CONTESTANT_10A iftrue .skip10 clearevent EVENT_BUG_CATCHING_CONTESTANT_10B .skip10 end InitializeEventsScript: setevent EVENT_EARLS_ACADEMY_EARL setevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER setevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER setevent EVENT_RADIO_TOWER_CIVILIANS_AFTER setevent EVENT_ILEX_FOREST_APPRENTICE setevent EVENT_ILEX_FOREST_FARFETCHD setevent EVENT_ILEX_FOREST_CHARCOAL_MASTER setevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE setevent EVENT_TEAM_ROCKET_BASE_B2F_GRUNT_WITH_EXECUTIVE setevent EVENT_TEAM_ROCKET_BASE_B2F_EXECUTIVE setevent EVENT_TEAM_ROCKET_BASE_B2F_DRAGONITE setevent EVENT_RIVAL_TEAM_ROCKET_BASE setevent EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM setevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER setevent EVENT_RIVAL_CHERRYGROVE_CITY setevent EVENT_RIVAL_AZALEA_TOWN setevent EVENT_RIVAL_GOLDENROD_UNDERGROUND setevent EVENT_AZALEA_TOWN_SLOWPOKES setevent EVENT_KURTS_HOUSE_SLOWPOKE setevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE setevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER setevent EVENT_COP_IN_ELMS_LAB setevent EVENT_RUINS_OF_ALPH_OUTSIDE_SCIENTIST setevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST setevent EVENT_BOULDER_IN_ICE_PATH_1A setevent EVENT_BOULDER_IN_ICE_PATH_2A setevent EVENT_BOULDER_IN_ICE_PATH_3A setevent EVENT_BOULDER_IN_ICE_PATH_4A setevent EVENT_ROUTE_30_YOUNGSTER_JOEY setevent EVENT_BUG_CATCHING_CONTESTANT_1A setevent EVENT_BUG_CATCHING_CONTESTANT_2A setevent EVENT_BUG_CATCHING_CONTESTANT_3A setevent EVENT_BUG_CATCHING_CONTESTANT_4A setevent EVENT_BUG_CATCHING_CONTESTANT_5A setevent EVENT_BUG_CATCHING_CONTESTANT_6A setevent EVENT_BUG_CATCHING_CONTESTANT_7A setevent EVENT_BUG_CATCHING_CONTESTANT_8A setevent EVENT_BUG_CATCHING_CONTESTANT_9A setevent EVENT_BUG_CATCHING_CONTESTANT_10A setevent EVENT_BUG_CATCHING_CONTESTANT_1B setevent EVENT_BUG_CATCHING_CONTESTANT_2B setevent EVENT_BUG_CATCHING_CONTESTANT_3B setevent EVENT_BUG_CATCHING_CONTESTANT_4B setevent EVENT_BUG_CATCHING_CONTESTANT_5B setevent EVENT_BUG_CATCHING_CONTESTANT_6B setevent EVENT_BUG_CATCHING_CONTESTANT_7B setevent EVENT_BUG_CATCHING_CONTESTANT_8B setevent EVENT_BUG_CATCHING_CONTESTANT_9B setevent EVENT_BUG_CATCHING_CONTESTANT_10B setevent EVENT_FAST_SHIP_1F_GENTLEMAN setevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT setevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR setevent EVENT_LAKE_OF_RAGE_CIVILIANS setevent EVENT_MAHOGANY_MART_OWNERS setevent EVENT_TIN_TOWER_ROOF_HO_OH setevent EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA setevent EVENT_PLAYERS_HOUSE_2F_CONSOLE setevent EVENT_PLAYERS_HOUSE_2F_DOLL_1 setevent EVENT_PLAYERS_HOUSE_2F_DOLL_2 setevent EVENT_PLAYERS_HOUSE_2F_BIG_DOLL setevent EVENT_DECO_BED_1 setevent EVENT_DECO_POSTER_1 setevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN setevent EVENT_OLIVINE_GYM_JASMINE setevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN setevent EVENT_MET_BILL setevent EVENT_ECRUTEAK_POKE_CENTER_BILL setevent EVENT_MYSTERY_GIFT_DELIVERY_GUY setevent EVENT_LAKE_OF_RAGE_LANCE setevent EVENT_GOLDENROD_DEPT_STORE_B1F_LAYOUT_1 setevent EVENT_GOLDENROD_UNDERGROUND_WAREHOUSE_BLOCKED_OFF setevent EVENT_DRAGONS_DEN_CLAIR setevent EVENT_RIVAL_OLIVINE_CITY setevent EVENT_RIVAL_VICTORY_ROAD setevent EVENT_RIVAL_DRAGONS_DEN setevent EVENT_LANCES_ROOM_OAK_AND_MARY setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1 setevent EVENT_BURNED_TOWER_B1F_BEASTS_1 setevent EVENT_RED_IN_MT_SILVER setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M setevent EVENT_KURTS_HOUSE_KURT_2 setevent EVENT_KURTS_HOUSE_GRANDDAUGHTER_2 setevent EVENT_RANG_CLEAR_BELL_1 setevent EVENT_FLORIA_AT_FLOWER_SHOP setevent EVENT_FLORIA_AT_SUDOWOODO setevent EVENT_GOLDENROD_CITY_MOVE_TUTOR setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_FISHER setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_YOUNGSTERS setevent EVENT_DRAGON_SHRINE_CLAIR setevent EVENT_BATTLE_TOWER_BATTLE_ROOM_YOUNGSTER setevent EVENT_PLAYERS_NEIGHBORS_HOUSE_NEIGHBOR setevent EVENT_AZALEA_TOWN_KURT setevent EVENT_AZALEA_TOWN_KURT setevent EVENT_ILEX_FOREST_KURT setevent EVENT_ROUTE_34_ILEX_FOREST_GATE_TEACHER_IN_WALKWAY setevent EVENT_ILEX_FOREST_LASS setevent EVENT_GOLDENROD_SALE_OFF setevent EVENT_ECRUTEAK_CITY_GRAMPS setevent EVENT_EUSINE_IN_BURNED_TOWER setevent EVENT_PLAYERS_HOUSE_MOM_2 setevent EVENT_WISE_TRIOS_ROOM_WISE_TRIO_2 setevent EVENT_CIANWOOD_CITY_EUSINE setevent EVENT_TIN_TOWER_1F_EUSINE setevent EVENT_TIN_TOWER_1F_WISE_TRIO_1 setevent EVENT_TIN_TOWER_1F_WISE_TRIO_2 setevent EVENT_SET_WHEN_FOUGHT_HO_OH setevent EVENT_SAW_SUICUNE_ON_ROUTE_36 setevent EVENT_SAW_SUICUNE_ON_ROUTE_42 setevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY setevent EVENT_BATTLE_TOWER_OUTSIDE_SAILOR setflag ENGINE_ROCKET_SIGNAL_ON_CH20 setflag ENGINE_ROCKETS_IN_MAHOGANY variablesprite SPRITE_WEIRD_TREE, SPRITE_SUDOWOODO variablesprite SPRITE_OLIVINE_RIVAL, SPRITE_SILVER variablesprite SPRITE_AZALEA_ROCKET, SPRITE_ROCKET variablesprite SPRITE_FUCHSIA_GYM_1, SPRITE_JANINE variablesprite SPRITE_FUCHSIA_GYM_2, SPRITE_JANINE variablesprite SPRITE_FUCHSIA_GYM_3, SPRITE_JANINE variablesprite SPRITE_FUCHSIA_GYM_4, SPRITE_JANINE variablesprite SPRITE_COPYCAT, SPRITE_LASS variablesprite SPRITE_JANINE_IMPERSONATOR, SPRITE_LASS setevent EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM setevent EVENT_CERULEAN_GYM_ROCKET setevent EVENT_ROUTE_24_ROCKET setevent EVENT_ROUTE_25_MISTY_BOYFRIEND setevent EVENT_TRAINERS_IN_CERULEAN_GYM setevent EVENT_COPYCATS_HOUSE_2F_DOLL setevent EVENT_VIRIDIAN_GYM_BLUE setevent EVENT_SEAFOAM_GYM_GYM_GUIDE setevent EVENT_MT_MOON_SQUARE_CLEFAIRY setevent EVENT_SAFFRON_TRAIN_STATION_POPULATION setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL setevent EVENT_INITIALIZED_EVENTS endcallback AskNumber1MScript: special RandomPhoneMon readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_JUGGLER_IRWIN, .Irwin ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackAskNumber1Text end .Huey: farwritetext HueyAskNumber1Text end .Gaven: farwritetext GavenAskNumber1Text end .Jose: farwritetext JoseAskNumber1Text end .Joey: farwritetext JoeyAskNumber1Text end .Wade: farwritetext WadeAskNumber1Text end .Ralph: farwritetext RalphAskNumber1Text end .Anthony: farwritetext AnthonyAskNumber1Text end .Todd: farwritetext ToddAskNumber1Text end .Irwin: farwritetext IrwinAskNumber1Text end .Arnie: farwritetext ArnieAskNumber1Text end .Alan: farwritetext AlanAskNumber1Text end .Chad: farwritetext ChadAskNumber1Text end .Derek: farwritetext DerekAskNumber1Text end .Tully: farwritetext TullyAskNumber1Text end .Brent: farwritetext BrentAskNumber1Text end .Vance: farwritetext VanceAskNumber1Text end .Wilton: farwritetext WiltonAskNumber1Text end .Kenji: farwritetext KenjiAskNumber1Text end .Parry: farwritetext ParryAskNumber1Text end AskNumber2MScript: special RandomPhoneMon readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_JUGGLER_IRWIN, .Irwin ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackAskNumber2Text end .Huey: farwritetext HueyAskNumber2Text end .Gaven: farwritetext GavenAskNumber2Text end .Jose: farwritetext JoseAskNumber2Text end .Joey: farwritetext JoeyAskNumber2Text end .Wade: farwritetext WadeAskNumber2Text end .Ralph: farwritetext RalphAskNumber2Text end .Anthony: farwritetext AnthonyAskNumber2Text end .Todd: farwritetext ToddAskNumber2Text end .Irwin: farwritetext IrwinAskNumber2Text end .Arnie: farwritetext ArnieAskNumber2Text end .Alan: farwritetext AlanAskNumber2Text end .Chad: farwritetext ChadAskNumber2Text end .Derek: farwritetext DerekAskNumber2Text end .Tully: farwritetext TullyAskNumber2Text end .Brent: farwritetext BrentAskNumber2Text end .Vance: farwritetext VanceAskNumber2Text end .Wilton: farwritetext WiltonAskNumber2Text end .Kenji: farwritetext KenjiAskNumber2Text end .Parry: farwritetext ParryAskNumber2Text end RegisteredNumberMScript: farwritetext RegisteredNumber1Text playsound SFX_REGISTER_PHONE_NUMBER waitsfx promptbutton end NumberAcceptedMScript: readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_JUGGLER_IRWIN, .Irwin ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackNumberAcceptedText waitbutton closetext end .Huey: farwritetext HueyNumberAcceptedText waitbutton closetext end .Gaven: farwritetext GavenNumberAcceptedText waitbutton closetext end .Jose: farwritetext JoseNumberAcceptedText waitbutton closetext end .Joey: farwritetext JoeyNumberAcceptedText waitbutton closetext end .Wade: farwritetext WadeNumberAcceptedText waitbutton closetext end .Ralph: farwritetext RalphNumberAcceptedText waitbutton closetext end .Anthony: farwritetext AnthonyNumberAcceptedText waitbutton closetext end .Todd: farwritetext ToddNumberAcceptedText waitbutton closetext end .Irwin: farwritetext IrwinNumberAcceptedText waitbutton closetext end .Arnie: farwritetext ArnieNumberAcceptedText waitbutton closetext end .Alan: farwritetext AlanNumberAcceptedText waitbutton closetext end .Chad: farwritetext ChadNumberAcceptedText waitbutton closetext end .Derek: farwritetext DerekNumberAcceptedText waitbutton closetext end .Tully: farwritetext TullyNumberAcceptedText waitbutton closetext end .Brent: farwritetext BrentNumberAcceptedText waitbutton closetext end .Vance: farwritetext VanceNumberAcceptedText waitbutton closetext end .Wilton: farwritetext WiltonNumberAcceptedText waitbutton closetext end .Kenji: farwritetext KenjiNumberAcceptedText waitbutton closetext end .Parry: farwritetext ParryNumberAcceptedText waitbutton closetext end NumberDeclinedMScript: readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_JUGGLER_IRWIN, .Irwin ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackNumberDeclinedText waitbutton closetext end .Huey: farwritetext HueyNumberDeclinedText waitbutton closetext end .Gaven: farwritetext GavenNumberDeclinedText waitbutton closetext end .Jose: farwritetext JoseNumberDeclinedText waitbutton closetext end .Joey: farwritetext JoeyNumberDeclinedText waitbutton closetext end .Wade: farwritetext WadeNumberDeclinedText waitbutton closetext end .Ralph: farwritetext RalphNumberDeclinedText waitbutton closetext end .Anthony: farwritetext AnthonyNumberDeclinedText waitbutton closetext end .Todd: farwritetext ToddNumberDeclinedText waitbutton closetext end .Irwin: farwritetext IrwinNumberDeclinedText waitbutton closetext end .Arnie: farwritetext ArnieNumberDeclinedText waitbutton closetext end .Alan: farwritetext AlanNumberDeclinedText waitbutton closetext end .Chad: farwritetext ChadNumberDeclinedText waitbutton closetext end .Derek: farwritetext DerekNumberDeclinedText waitbutton closetext end .Tully: farwritetext TullyNumberDeclinedText waitbutton closetext end .Brent: farwritetext BrentNumberDeclinedText waitbutton closetext end .Vance: farwritetext VanceNumberDeclinedText waitbutton closetext end .Wilton: farwritetext WiltonNumberDeclinedText waitbutton closetext end .Kenji: farwritetext KenjiNumberDeclinedText waitbutton closetext end .Parry: farwritetext ParryNumberDeclinedText waitbutton closetext end PhoneFullMScript: readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_JUGGLER_IRWIN, .Irwin ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackPhoneFullText waitbutton closetext end .Huey: farwritetext HueyPhoneFullText waitbutton closetext end .Gaven: farwritetext GavenPhoneFullText waitbutton closetext end .Jose: farwritetext JosePhoneFullText waitbutton closetext end .Joey: farwritetext JoeyPhoneFullText waitbutton closetext end .Wade: farwritetext WadePhoneFullText waitbutton closetext end .Ralph: farwritetext RalphPhoneFullText waitbutton closetext end .Anthony: farwritetext AnthonyPhoneFullText waitbutton closetext end .Todd: farwritetext ToddPhoneFullText waitbutton closetext end .Irwin: farwritetext IrwinPhoneFullText waitbutton closetext end .Arnie: farwritetext ArniePhoneFullText waitbutton closetext end .Alan: farwritetext AlanPhoneFullText waitbutton closetext end .Chad: farwritetext ChadPhoneFullText waitbutton closetext end .Derek: farwritetext DerekPhoneFullText waitbutton closetext end .Tully: farwritetext TullyPhoneFullText waitbutton closetext end .Brent: farwritetext BrentPhoneFullText waitbutton closetext end .Vance: farwritetext VancePhoneFullText waitbutton closetext end .Wilton: farwritetext WiltonPhoneFullText waitbutton closetext end .Kenji: farwritetext KenjiPhoneFullText waitbutton closetext end .Parry: farwritetext ParryPhoneFullText waitbutton closetext end RematchMScript: readvar VAR_CALLERID ifequal PHONE_SCHOOLBOY_JACK, .Jack ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_COOLTRAINERM_GAVEN, .Gaven ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_FISHER_RALPH, .Ralph ifequal PHONE_HIKER_ANTHONY, .Anthony ifequal PHONE_CAMPER_TODD, .Todd ifequal PHONE_BUG_CATCHER_ARNIE, .Arnie ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_SCHOOLBOY_CHAD, .Chad ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_POKEMANIAC_BRENT, .Brent ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_HIKER_PARRY, .Parry .Jack: farwritetext JackRematchText waitbutton closetext end .Huey: farwritetext HueyRematchText waitbutton closetext end .Gaven: farwritetext GavenRematchText waitbutton closetext end .Jose: farwritetext JoseRematchText waitbutton closetext end .Joey: farwritetext JoeyRematchText waitbutton closetext end .Wade: farwritetext WadeRematchText waitbutton closetext end .Ralph: farwritetext RalphRematchText waitbutton closetext end .Anthony: farwritetext AnthonyRematchText waitbutton closetext end .Todd: farwritetext ToddRematchText waitbutton closetext end .Arnie: farwritetext ArnieRematchText waitbutton closetext end .Alan: farwritetext AlanRematchText waitbutton closetext end .Chad: farwritetext ChadRematchText waitbutton closetext end .Tully: farwritetext TullyRematchText waitbutton closetext end .Brent: farwritetext BrentRematchText waitbutton closetext end .Vance: farwritetext VanceRematchText waitbutton closetext end .Wilton: farwritetext WiltonRematchText waitbutton closetext end .Parry: farwritetext ParryRematchText waitbutton closetext end GiftMScript: readvar VAR_CALLERID ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji .Jose: farwritetext JoseGiftText promptbutton end .Wade: farwritetext WadeGiftText promptbutton end .Alan: farwritetext AlanGiftText promptbutton end .Derek: farwritetext DerekGiftText promptbutton end .Tully: farwritetext TullyGiftText promptbutton end .Wilton: farwritetext WiltonGiftText promptbutton end .Kenji: farwritetext KenjiGiftText promptbutton end PackFullMScript: readvar VAR_CALLERID ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_BIRDKEEPER_JOSE, .Jose ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BUG_CATCHER_WADE, .Wade ifequal PHONE_SCHOOLBOY_ALAN, .Alan ifequal PHONE_POKEFANM_DEREK, .Derek ifequal PHONE_FISHER_TULLY, .Tully ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_FISHER_WILTON, .Wilton ifequal PHONE_BLACKBELT_KENJI, .Kenji ifequal PHONE_HIKER_PARRY, .Parry .Huey: farwritetext HueyPackFullText waitbutton closetext end .Jose: farwritetext JosePackFullText waitbutton closetext end .Joey: farwritetext JoeyPackFullText waitbutton closetext end .Wade: farwritetext WadePackFullText waitbutton closetext end .Alan: farwritetext AlanPackFullText waitbutton closetext end .Derek: farwritetext DerekPackFullText waitbutton closetext end .Tully: farwritetext TullyPackFullText waitbutton closetext end .Vance: farwritetext VancePackFullText waitbutton closetext end .Wilton: farwritetext WiltonPackFullText waitbutton closetext end .Kenji: farwritetext KenjiPackFullText waitbutton closetext end .Parry: farwritetext ParryPackFullText waitbutton closetext end RematchGiftMScript: opentext readvar VAR_CALLERID ifequal PHONE_SAILOR_HUEY, .Huey ifequal PHONE_YOUNGSTER_JOEY, .Joey ifequal PHONE_BIRDKEEPER_VANCE, .Vance ifequal PHONE_HIKER_PARRY, .Parry .Huey: farwritetext HueyRematchGiftText promptbutton end .Joey: farwritetext JoeyRematchGiftText promptbutton end .Vance: farwritetext VanceRematchGiftText promptbutton end .Parry: farwritetext ParryRematchGiftText promptbutton end AskNumber1FScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyAskNumber1Text end .Beth: farwritetext BethAskNumber1Text end .Reena: farwritetext ReenaAskNumber1Text end .Liz: farwritetext LizAskNumber1Text end .Gina: farwritetext GinaAskNumber1Text end .Dana: farwritetext DanaAskNumber1Text end .Tiffany: farwritetext TiffanyAskNumber1Text end .Erin: farwritetext ErinAskNumber1Text end AskNumber2FScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyAskNumber2Text end .Beth: farwritetext BethAskNumber2Text end .Reena: farwritetext ReenaAskNumber2Text end .Liz: farwritetext LizAskNumber2Text end .Gina: farwritetext GinaAskNumber2Text end .Dana: farwritetext DanaAskNumber2Text end .Tiffany: farwritetext TiffanyAskNumber2Text end .Erin: farwritetext ErinAskNumber2Text end RegisteredNumberFScript: farwritetext RegisteredNumber2Text playsound SFX_REGISTER_PHONE_NUMBER waitsfx promptbutton end NumberAcceptedFScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyNumberAcceptedText waitbutton closetext end .Beth: farwritetext BethNumberAcceptedText waitbutton closetext end .Reena: farwritetext ReenaNumberAcceptedText waitbutton closetext end .Liz: farwritetext LizNumberAcceptedText waitbutton closetext end .Gina: farwritetext GinaNumberAcceptedText waitbutton closetext end .Dana: farwritetext DanaNumberAcceptedText waitbutton closetext end .Tiffany: farwritetext TiffanyNumberAcceptedText waitbutton closetext end .Erin: farwritetext ErinNumberAcceptedText waitbutton closetext end NumberDeclinedFScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyNumberDeclinedText waitbutton closetext end .Beth: farwritetext BethNumberDeclinedText waitbutton closetext end .Reena: farwritetext ReenaNumberDeclinedText waitbutton closetext end .Liz: farwritetext LizNumberDeclinedText waitbutton closetext end .Gina: farwritetext GinaNumberDeclinedText waitbutton closetext end .Dana: farwritetext DanaNumberDeclinedText waitbutton closetext end .Tiffany: farwritetext TiffanyNumberDeclinedText waitbutton closetext end .Erin: farwritetext ErinNumberDeclinedText waitbutton closetext end PhoneFullFScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyPhoneFullText waitbutton closetext end .Beth: farwritetext BethPhoneFullText waitbutton closetext end .Reena: farwritetext ReenaPhoneFullText waitbutton closetext end .Liz: farwritetext LizPhoneFullText waitbutton closetext end .Gina: farwritetext GinaPhoneFullText waitbutton closetext end .Dana: farwritetext DanaPhoneFullText waitbutton closetext end .Tiffany: farwritetext TiffanyPhoneFullText waitbutton closetext end .Erin: farwritetext ErinPhoneFullText waitbutton closetext end RematchFScript: readvar VAR_CALLERID ifequal PHONE_COOLTRAINERF_BETH, .Beth ifequal PHONE_COOLTRAINERF_REENA, .Reena ifequal PHONE_PICNICKER_LIZ, .Liz ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beth: farwritetext BethRematchText waitbutton closetext end .Reena: farwritetext ReenaRematchText waitbutton closetext end .Liz: farwritetext LizRematchText waitbutton closetext end .Gina: farwritetext GinaRematchText waitbutton closetext end .Dana: farwritetext DanaRematchText waitbutton closetext end .Tiffany: farwritetext TiffanyRematchText waitbutton closetext end .Erin: farwritetext ErinRematchText waitbutton closetext end GiftFScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany .Beverly: farwritetext BeverlyGiftText promptbutton end .Gina: farwritetext GinaGiftText promptbutton end .Dana: farwritetext DanaGiftText promptbutton end .Tiffany: farwritetext TiffanyGiftText promptbutton end PackFullFScript: readvar VAR_CALLERID ifequal PHONE_POKEFAN_BEVERLY, .Beverly ifequal PHONE_PICNICKER_GINA, .Gina ifequal PHONE_LASS_DANA, .Dana ifequal PHONE_PICNICKER_TIFFANY, .Tiffany ifequal PHONE_PICNICKER_ERIN, .Erin .Beverly: farwritetext BeverlyPackFullText waitbutton closetext end .Gina: farwritetext GinaPackFullText waitbutton closetext end .Dana: farwritetext DanaPackFullText waitbutton closetext end .Tiffany: farwritetext TiffanyPackFullText waitbutton closetext end .Erin: farwritetext ErinPackFullText waitbutton closetext end RematchGiftFScript: readvar VAR_CALLERID ifequal PHONE_PICNICKER_ERIN, .Erin .Erin: opentext farwritetext ErinRematchGiftText promptbutton end GymStatue1Script: getcurlandmarkname STRING_BUFFER_3 opentext farwritetext GymStatue_CityGymText waitbutton closetext end GymStatue2Script: getcurlandmarkname STRING_BUFFER_3 opentext farwritetext GymStatue_CityGymText promptbutton farwritetext GymStatue_WinningTrainersText waitbutton closetext end ReceiveItemScript: waitsfx farwritetext ReceivedItemText playsound SFX_ITEM waitsfx end ReceiveTogepiEggScript: waitsfx farwritetext ReceivedItemText playsound SFX_GET_EGG waitsfx end GameCornerCoinVendorScript: faceplayer opentext farwritetext CoinVendor_WelcomeText promptbutton checkitem COIN_CASE iftrue CoinVendor_IntroScript farwritetext CoinVendor_NoCoinCaseText waitbutton closetext end CoinVendor_IntroScript: farwritetext CoinVendor_IntroText .loop special DisplayMoneyAndCoinBalance loadmenu .MenuHeader verticalmenu closewindow ifequal 1, .Buy50 ifequal 2, .Buy500 sjump .Cancel .Buy50: checkcoins MAX_COINS - 50 ifequal HAVE_MORE, .CoinCaseFull checkmoney YOUR_MONEY, 1000 ifequal HAVE_LESS, .NotEnoughMoney givecoins 50 takemoney YOUR_MONEY, 1000 waitsfx playsound SFX_TRANSACTION farwritetext CoinVendor_Buy50CoinsText waitbutton sjump .loop .Buy500: checkcoins MAX_COINS - 500 ifequal HAVE_MORE, .CoinCaseFull checkmoney YOUR_MONEY, 10000 ifequal HAVE_LESS, .NotEnoughMoney givecoins 500 takemoney YOUR_MONEY, 10000 waitsfx playsound SFX_TRANSACTION farwritetext CoinVendor_Buy500CoinsText waitbutton sjump .loop .NotEnoughMoney: farwritetext CoinVendor_NotEnoughMoneyText waitbutton closetext end .CoinCaseFull: farwritetext CoinVendor_CoinCaseFullText waitbutton closetext end .Cancel: farwritetext CoinVendor_CancelText waitbutton closetext end .MenuHeader: db MENU_BACKUP_TILES ; flags menu_coords 0, 4, 15, TEXTBOX_Y - 1 dw .MenuData db 1 ; default option .MenuData: db STATICMENU_CURSOR ; flags db 3 ; items db " 50 : ¥1000@" db "500 : ¥10000@" db "CANCEL@" HappinessCheckScript: faceplayer opentext special GetFirstPokemonHappiness ifless 50, .Unhappy ifless 150, .KindaHappy farwritetext HappinessText3 waitbutton closetext end .KindaHappy: farwritetext HappinessText2 waitbutton closetext end .Unhappy: farwritetext HappinessText1 waitbutton closetext end Movement_ContestResults_WalkAfterWarp: step RIGHT step DOWN turn_head UP step_end