diff options
Diffstat (limited to 'engine/events/std_scripts.asm')
| -rw-r--r-- | engine/events/std_scripts.asm | 1914 |
1 files changed, 1914 insertions, 0 deletions
diff --git a/engine/events/std_scripts.asm b/engine/events/std_scripts.asm new file mode 100644 index 000000000..297725c60 --- /dev/null +++ b/engine/events/std_scripts.asm @@ -0,0 +1,1914 @@ +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 + + opentext + checkmorn + iftrue .morn + checkday + iftrue .day + checknite + iftrue .nite + jump .ok + +.morn + checkevent EVENT_WELCOMED_TO_POKECOM_CENTER + iftrue .morn_comcenter + farwritetext NurseMornText + buttonsound + jump .ok +.morn_comcenter + farwritetext PokeComNurseMornText + buttonsound + jump .ok + +.day + checkevent EVENT_WELCOMED_TO_POKECOM_CENTER + iftrue .day_comcenter + farwritetext NurseDayText + buttonsound + jump .ok +.day_comcenter + farwritetext PokeComNurseDayText + buttonsound + jump .ok + +.nite + checkevent EVENT_WELCOMED_TO_POKECOM_CENTER + iftrue .nite_comcenter + farwritetext NurseNiteText + buttonsound + jump .ok +.nite_comcenter + farwritetext PokeComNurseNiteText + buttonsound + jump .ok + +.ok + ; only do this once + clearevent EVENT_WELCOMED_TO_POKECOM_CENTER + + farwritetext NurseAskHealText + yesorno + iffalse .done + + farwritetext NurseTakePokemonText + pause 20 + special TrainerRankings_Healings + 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 NurseReturnPokemonText + pause 20 + +.done + farwritetext NurseGoodbyeText + + 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 NursePokerusText + waitbutton + closetext + jump .pokerus_done + +.pokerus_comcenter + farwritetext PokeComNursePokerusText + 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: + opentext + farwritetext TownMapText + waitbutton + special Special_TownMap + closetext + end + +WindowScript: + farjumptext WindowText + +TVScript: + opentext + farwritetext TVText + waitbutton + closetext + end + +HomepageScript: + farjumptext HomepageText + +Radio1Script: + opentext + writebyte MAPRADIO_POKEMON_CHANNEL + special MapRadio + closetext + end + +Radio2Script: +; Lucky Channel + opentext + writebyte MAPRADIO_LUCKY_CHANNEL + special MapRadio + closetext + end + +TrashCanScript: ; 0xbc1a5 + farjumptext TrashCanText + +PCScript: + opentext + 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 + setmapscene 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 + opentext + 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 + setscene $0 + setmapscene 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 BugContestPrizeNoRoomText + buttonsound + setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE + jump BugContestResults_ReturnAfterWinnersPrize +; 0xbc35f + +BugContestResults_NoRoomForEverstone ; 0xbc35f + farwritetext BugContestPrizeNoRoomText + buttonsound + setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE + jump BugContestResults_ReturnAfterWinnersPrize +; 0xbc36a + +BugContestResults_NoRoomForGoldBerry ; 0xbc36a + farwritetext BugContestPrizeNoRoomText + buttonsound + setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY + jump BugContestResults_ReturnAfterWinnersPrize +; 0xbc375 + +BugContestResults_NoRoomForBerry ; 0xbc375 + farwritetext BugContestPrizeNoRoomText + 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_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_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_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_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: + opentext + 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: + opentext + farwritetext ErinRematchGiftText + buttonsound + end + +GymStatue1Script: + mapnametotext $0 + opentext + farwritetext GymStatue_CityGymText + waitbutton + closetext + end + +GymStatue2Script: + mapnametotext $0 + opentext + 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_DAY_CARE_LADY + waitsfx + end +; 0xbcdcd + +GameCornerCoinVendorScript: ; 0xbcdcd + faceplayer + opentext + farwritetext CoinVendor_WelcomeText + buttonsound + checkitem COIN_CASE + iftrue CoinVendor_IntroScript + farwritetext CoinVendor_NoCoinCaseText + waitbutton + closetext + end +; 0xbcde0 + +CoinVendor_IntroScript: ; 0xbcde0 + farwritetext CoinVendor_IntroText + +.loop ; 0xbcde4 + special Special_DisplayMoneyAndCoinBalance + loadmenudata .MenuDataHeader + verticalmenu + closewindow + if_equal $1, .Buy50 + if_equal $2, .Buy500 + jump .Cancel +; 0xbcdf7 + +.Buy50: ; 0xbcdf7 + checkcoins 9949 + if_equal $0, .CoinCaseFull + checkmoney $0, 1000 + if_equal $2, .NotEnoughMoney + givecoins 50 + takemoney $0, 1000 + waitsfx + playsound SFX_TRANSACTION + farwritetext CoinVendor_Buy50CoinsText + waitbutton + jump .loop +; 0xbce1b + +.Buy500: ; 0xbce1b + checkcoins 9499 + if_equal $0, .CoinCaseFull + checkmoney $0, 10000 + if_equal $2, .NotEnoughMoney + givecoins 500 + takemoney $0, 10000 + waitsfx + playsound SFX_TRANSACTION + farwritetext CoinVendor_Buy500CoinsText + waitbutton + jump .loop +; 0xbce3f + +.NotEnoughMoney: ; 0xbce3f + farwritetext CoinVendor_NotEnoughMoneyText + waitbutton + closetext + end +; 0xbce46 + +.CoinCaseFull: ; 0xbce46 + farwritetext CoinVendor_CoinCaseFullText + waitbutton + closetext + end +; 0xbce4d + +.Cancel: ; 0xbce4d + farwritetext CoinVendor_CancelText + waitbutton + closetext + end +; 0xbce54 + + +.MenuDataHeader: + db $40 ; flags + db 04, 00 ; start coords + db 11, 15 ; end coords + dw .MenuData2 + db 1 ; default option + +.MenuData2: + db $80 ; flags + db 3 ; items + db " 50 : ¥1000@" + db "500 : ¥10000@" + db "CANCEL@" +; 0xbce7f + + +HappinessCheckScript: + faceplayer + opentext + 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 |