ref: 159d3efc8f369fcb284ef63a69ec502fb199597a
dir: /engine/std_scripts.asm/
StdScripts:: dba PokeCenterNurseScript dba DifficultBookshelfScript dba PictureBookshelfScript dba MagazineBookshelfScript dba TeamRocketOathScript dba IncenseBurnerScript dba MerchandiseShelfScript dba TownMapScript dba WindowScript dba TVScript dba HomepageScript dba Radio1Script dba Radio2Script dba TrashCanScript dba StrengthBoulderScript dba SmashRockScript dba PokeCenterSignScript dba MartSignScript dba GoldenrodRocketsScript dba RadioTowerRocketsScript dba ElevatorButtonScript dba DayToTextScript dba BugContestResultsWarpScript dba BugContestResultsScript dba InitializeEventsScript dba AskNumber1MScript dba AskNumber2MScript dba RegisteredNumberMScript dba NumberAcceptedMScript dba NumberDeclinedMScript dba PhoneFullMScript dba RematchMScript dba GiftMScript dba PackFullMScript dba RematchGiftMScript dba AskNumber1FScript dba AskNumber2FScript dba RegisteredNumberFScript dba NumberAcceptedFScript dba NumberDeclinedFScript dba PhoneFullFScript dba RematchFScript dba GiftFScript dba PackFullFScript dba RematchGiftFScript dba GymStatue1Script dba GymStatue2Script dba ReceiveItemScript dba ReceiveTogepiEggScript dba PCScript dba GameCornerCoinVendorScript dba HappinessCheckScript PokeCenterNurseScript: ; EVENT_WELCOMED_TO_POKECOM_CENTER is never set loadfont checkmorn iftrue .morn checkday iftrue .day checknite iftrue .nite jump .ok .morn checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .morn_comcenter farwritetext UnknownText_0x1b0000 buttonsound jump .ok .morn_comcenter farwritetext UnknownText_0x1b008a buttonsound jump .ok .day checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .day_comcenter farwritetext UnknownText_0x1b002b buttonsound jump .ok .day_comcenter farwritetext UnknownText_0x1b00d6 buttonsound jump .ok .nite checkevent EVENT_WELCOMED_TO_POKECOM_CENTER iftrue .nite_comcenter farwritetext UnknownText_0x1b004f buttonsound jump .ok .nite_comcenter farwritetext UnknownText_0x1b011b buttonsound jump .ok .ok ; only do this once clearevent EVENT_WELCOMED_TO_POKECOM_CENTER farwritetext UnknownText_0x1b017a yesorno iffalse .done farwritetext UnknownText_0x1b01bd pause 20 special Mobile_HealParty spriteface LAST_TALKED, LEFT pause 10 special HealParty playmusic MUSIC_NONE writebyte 0 ; Machine is at a Pokemon Center special HealMachineAnim pause 30 special RestartMapMusic spriteface LAST_TALKED, DOWN pause 10 checkphonecall ; elm already called about pokerus iftrue .no checkflag ENGINE_POKERUS ; nurse already talked about pokerus iftrue .no special SpecialCheckPokerus iftrue .pokerus .no farwritetext UnknownText_0x1b01d7 pause 20 .done farwritetext UnknownText_0x1b020b spriteface LAST_TALKED, UP pause 10 spriteface 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 UnknownText_0x1b0241 waitbutton closetext jump .pokerus_done .pokerus_comcenter farwritetext UnknownText_0x1b02d6 waitbutton closetext .pokerus_done setflag ENGINE_POKERUS specialphonecall SPECIALCALL_POKERUS end DifficultBookshelfScript: farjumptext DifficultBookshelfText PictureBookshelfScript: farjumptext PictureBookshelfText MagazineBookshelfScript: farjumptext MagazineBookshelfText TeamRocketOathScript: farjumptext TeamRocketOathText IncenseBurnerScript: farjumptext IncenseBurnerText MerchandiseShelfScript: farjumptext MerchandiseShelfText TownMapScript: loadfont farwritetext TownMapText waitbutton special Special_TownMap closetext end WindowScript: farjumptext WindowText TVScript: loadfont farwritetext TVText waitbutton closetext end HomepageScript: farjumptext HomepageText Radio1Script: loadfont writebyte $0 special MapRadio closetext end Radio2Script: ; Lucky Channel loadfont writebyte $4 special MapRadio closetext end TrashCanScript: ; 0xbc1a5 farjumptext TrashCanText PCScript: loadfont special PokemonCenterPC closetext end ElevatorButtonScript: playsound SFX_READ_TEXT_2 pause 15 playsound SFX_ELEVATOR_END end StrengthBoulderScript: farjump AskStrengthScript SmashRockScript: farjump AskRockSmashScript PokeCenterSignScript: farjumptext PokeCenterSignText MartSignScript farjumptext MartSignText DayToTextScript: checkcode VAR_WEEKDAY if_equal MONDAY, .Monday if_equal TUESDAY, .Tuesday if_equal WEDNESDAY, .Wednesday if_equal THURSDAY, .Thursday if_equal FRIDAY, .Friday if_equal SATURDAY, .Saturday stringtotext .SundayText, 0 end .Monday stringtotext .MondayText, 0 end .Tuesday stringtotext .TuesdayText, 0 end .Wednesday stringtotext .WednesdayText, 0 end .Thursday stringtotext .ThursdayText, 0 end .Friday stringtotext .FridayText, 0 end .Saturday stringtotext .SaturdayText, 0 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 domaptrigger MAHOGANY_TOWN, $1 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 loadfont farwritetext ContestResults_ReadyToJudgeText waitbutton special BugContestJudging RAM2MEM $0 if_equal 1, BugContestResults_FirstPlace if_equal 2, BugContestResults_SecondPlace if_equal 3, BugContestResults_ThirdPlace farwritetext ContestResults_ConsolationPrizeText buttonsound waitsfx verbosegiveitem BERRY iffalse BugContestResults_NoRoomForBerry BugContestResults_DidNotWin farwritetext ContestResults_DidNotWinText buttonsound jump BugContestResults_FinishUp ; 0xbc2b1 BugContestResults_ReturnAfterWinnersPrize ; 0xbc2b1 farwritetext ContestResults_JoinUsNextTimeText buttonsound BugContestResults_FinishUp checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER iffalse BugContestResults_DidNotLeaveMons farwritetext ContestResults_ReturnPartyText waitbutton special ContestReturnMons BugContestResults_DidNotLeaveMons special CheckPartyFullAfterContest if_equal $0, BugContestResults_CleanUp if_equal $2, BugContestResults_CleanUp farwritetext ContestResults_PartyFullText waitbutton BugContestResults_CleanUp closetext dotrigger $0 domaptrigger ROUTE_35_NATIONAL_PARK_GATE, $0 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 ; 0xbc31e BugContestResults_FirstPlace ; 0xbc31e setevent EVENT_GAVE_KURT_APRICORNS itemtotext SUN_STONE, $1 farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem SUN_STONE iffalse BugContestResults_NoRoomForSunStone jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc332 BugContestResults_SecondPlace ; 0xbc332 itemtotext EVERSTONE, $1 farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem EVERSTONE iffalse BugContestResults_NoRoomForEverstone jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc343 BugContestResults_ThirdPlace ; 0xbc343 itemtotext GOLD_BERRY, $1 farwritetext ContestResults_PlayerWonAPrizeText waitbutton verbosegiveitem GOLD_BERRY iffalse BugContestResults_NoRoomForGoldBerry jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc354 BugContestResults_NoRoomForSunStone ; 0xbc354 farwritetext UnknownText_0x1b08cc buttonsound setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc35f BugContestResults_NoRoomForEverstone ; 0xbc35f farwritetext UnknownText_0x1b08cc buttonsound setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc36a BugContestResults_NoRoomForGoldBerry ; 0xbc36a farwritetext UnknownText_0x1b08cc buttonsound setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY jump BugContestResults_ReturnAfterWinnersPrize ; 0xbc375 BugContestResults_NoRoomForBerry ; 0xbc375 farwritetext UnknownText_0x1b08cc buttonsound setevent EVENT_CONTEST_OFFICER_HAS_BERRY jump BugContestResults_DidNotWin ; 0xbc380 BugContestResults_CopyContestantsToResults ; 0xbc380 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_UNDERGROUND_PATH 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_KRISS_HOUSE_2F_CONSOLE setevent EVENT_KRISS_HOUSE_2F_DOLL_1 setevent EVENT_KRISS_HOUSE_2F_DOLL_2 setevent EVENT_KRISS_HOUSE_2F_BIG_DOLL setevent EVENT_DECO_BED_1 setevent EVENT_DECO_PLANT_4 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_WAREHOUSE_LAYOUT_1 setevent EVENT_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_KRISS_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_KRISS_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_GUY setevent EVENT_MT_MOON_SQUARE_CLEFAIRY setevent EVENT_SAFFRON_TRAIN_STATION_POPULATION setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL setevent EVENT_INITIALIZED_EVENTS return AskNumber1MScript: special RandomPhoneMon checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_JUGGLER_IRWIN, .Irwin if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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 checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_JUGGLER_IRWIN, .Irwin if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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 buttonsound end NumberAcceptedMScript: checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_JUGGLER_IRWIN, .Irwin if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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: checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_JUGGLER_IRWIN, .Irwin if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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: checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_JUGGLER_IRWIN, .Irwin if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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: checkcode VAR_CALLERID if_equal PHONE_SCHOOLBOY_JACK, .Jack if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_FISHER_RALPH, .Ralph if_equal PHONE_HIKER_ANTHONY, .Anthony if_equal PHONE_CAMPER_TODD, .Todd if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_SCHOOLBOY_CHAD, .Chad if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_POKEMANIAC_BRENT, .Brent if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal 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: checkcode VAR_CALLERID if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji .Jose farwritetext JoseGiftText buttonsound end .Wade farwritetext WadeGiftText buttonsound end .Alan farwritetext AlanGiftText buttonsound end .Derek farwritetext DerekGiftText buttonsound end .Tully farwritetext TullyGiftText buttonsound end .Wilton farwritetext WiltonGiftText buttonsound end .Kenji farwritetext KenjiGiftText buttonsound end PackFullMScript: checkcode VAR_CALLERID if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_BIRDKEEPER_JOSE, .Jose if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BUG_CATCHER_WADE, .Wade if_equal PHONE_SCHOOLBOY_ALAN, .Alan if_equal PHONE_POKEFANM_DEREK, .Derek if_equal PHONE_FISHER_TULLY, .Tully if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_FISHER_WILTON, .Wilton if_equal PHONE_BLACKBELT_KENJI, .Kenji if_equal 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: loadfont checkcode VAR_CALLERID if_equal PHONE_SAILOR_HUEY, .Huey if_equal PHONE_YOUNGSTER_JOEY, .Joey if_equal PHONE_BIRDKEEPER_VANCE, .Vance if_equal PHONE_HIKER_PARRY, .Parry .Huey farwritetext HueyRematchGiftText buttonsound end .Joey farwritetext JoeyRematchGiftText buttonsound end .Vance farwritetext VanceRematchGiftText buttonsound end .Parry farwritetext ParryRematchGiftText buttonsound end AskNumber1FScript: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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 buttonsound end NumberAcceptedFScript: ; 0xbcbd3 checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_COOLTRAINERF_BETH, .Beth if_equal PHONE_COOLTRAINERF_REENA, .Reena if_equal PHONE_PICNICKER_LIZ, .Liz if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany .Beverly farwritetext BeverlyGiftText buttonsound end .Gina farwritetext GinaGiftText buttonsound end .Dana farwritetext DanaGiftText buttonsound end .Tiffany farwritetext TiffanyGiftText buttonsound end PackFullFScript: checkcode VAR_CALLERID if_equal PHONE_POKEFAN_BEVERLY, .Beverly if_equal PHONE_PICNICKER_GINA, .Gina if_equal PHONE_LASS_DANA, .Dana if_equal PHONE_PICNICKER_TIFFANY, .Tiffany if_equal 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: checkcode VAR_CALLERID if_equal PHONE_PICNICKER_ERIN, .Erin .Erin loadfont farwritetext ErinRematchGiftText buttonsound end GymStatue1Script: mapnametotext $0 loadfont farwritetext GymStatue_CityGymText waitbutton closetext end GymStatue2Script: mapnametotext $0 loadfont farwritetext GymStatue_CityGymText buttonsound farwritetext GymStatue_WinningTrainersText waitbutton closetext end ReceiveItemScript: ; 0xbcdb9 waitsfx farwritetext ReceivedItemText playsound SFX_ITEM waitsfx end ; 0xbcdc3 ReceiveTogepiEggScript: ; 0xbcdc3 waitsfx farwritetext ReceivedItemText playsound SFX_GET_EGG_FROM_DAYCARE_LADY waitsfx end ; 0xbcdcd GameCornerCoinVendorScript: ; 0xbcdcd faceplayer loadfont farwritetext CoinVendor_WelcomeText buttonsound checkitem COIN_CASE iftrue CoinVendor_IntroScript farwritetext CoinVendor_NoCoinCaseText waitbutton closetext end ; 0xbcde0 CoinVendor_IntroScript: ; 0xbcde0 farwritetext CoinVendor_IntroText CoinVendor_SellCoinsMenuScript: ; 0xbcde4 special Special_DisplayMoneyAndCoinBalance loadmenudata CoinVendor_MenuDataHeader interpretmenu2 writebackup if_equal $1, CoinVendor_Buy50CoinsScript if_equal $2, CoinVendor_Buy500CoinsScript jump CoinVendor_CancelScript ; 0xbcdf7 CoinVendor_Buy50CoinsScript: ; 0xbcdf7 checkcoins 9949 if_equal $0, CoinVendor_CoinCaseFullScript checkmoney $0, 1000 if_equal $2, CoinVendor_NotEnoughMoneyScript givecoins 50 takemoney $0, 1000 waitsfx playsound SFX_TRANSACTION farwritetext CoinVendor_Buy50CoinsText waitbutton jump CoinVendor_SellCoinsMenuScript ; 0xbce1b CoinVendor_Buy500CoinsScript: ; 0xbce1b checkcoins 9499 if_equal $0, CoinVendor_CoinCaseFullScript checkmoney $0, 10000 if_equal $2, CoinVendor_NotEnoughMoneyScript givecoins 500 takemoney $0, 10000 waitsfx playsound SFX_TRANSACTION farwritetext CoinVendor_Buy500CoinsText waitbutton jump CoinVendor_SellCoinsMenuScript ; 0xbce3f CoinVendor_NotEnoughMoneyScript: ; 0xbce3f farwritetext CoinVendor_NotEnoughMoneyText waitbutton closetext end ; 0xbce46 CoinVendor_CoinCaseFullScript: ; 0xbce46 farwritetext CoinVendor_CoinCaseFullText waitbutton closetext end ; 0xbce4d CoinVendor_CancelScript: ; 0xbce4d farwritetext CoinVendor_CancelText waitbutton closetext end ; 0xbce54 CoinVendor_MenuDataHeader: ; 0xbce54 db $40 ; flags db 04, 00 ; start coords db 11, 15 ; end coords dw CoinVendor_MenuData2 db 1 ; default option ; 0xbce5c CoinVendor_MenuData2: ; 0xbce5c db $80 ; flags db 3 ; items db " 50 : ¥1000@" db "500 : ¥10000@" db "CANCEL@" ; 0xbce7f HappinessCheckScript: faceplayer loadfont special GetFirstPokemonHappiness if_less_than 50, .Unhappy if_less_than 150, .KindaHappy farwritetext HappinessText3 waitbutton closetext end .KindaHappy farwritetext HappinessText2 waitbutton closetext end .Unhappy farwritetext HappinessText1 waitbutton closetext end Movement_ContestResults_WalkAfterWarp: ; bcea1 step_right step_down turn_head_up step_end ; bcea5