1 files changed, 0 insertions, 1914 deletions
diff --git a/engine/std_scripts.asm b/engine/std_scripts.asm
deleted file mode 100644
index 297725c60..000000000
--- a/engine/std_scripts.asm
+++ /dev/null
@@ -1,1914 +0,0 @@
-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