Disassemble remainder of bank $40.

1 files changed, 774 insertions, 0 deletions

diff --git a/engine/events/std_scripts.asm b/engine/events/std_scripts.asm
new file mode 100644
index 00000000..bdc90c55
--- /dev/null
+++ b/engine/events/std_scripts.asm
@@ -0,0 +1,774 @@
+StdScripts::
+; entries correspond to constants/std_constants.asm
+	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 AskNumber1FScript
+	dba AskNumber2FScript
+	dba RegisteredNumberFScript
+	dba NumberAcceptedFScript
+	dba NumberDeclinedFScript
+	dba PhoneFullFScript
+	dba RematchFScript
+	dba GymStatue1Script
+	dba GymStatue2Script
+	dba ReceiveItemScript
+	dba ReceiveTogepiEggScript
+	dba PCScript
+	dba GameCornerCoinVendorScript
+	dba HappinessCheckScript
+
+PokecenterNurseScript:
+	opentext
+	checktime MORN
+	iftrue .morn
+	checktime DAY
+	iftrue .day
+	checktime NITE
+	iftrue .nite
+	sjump .ok
+
+.morn
+	writetext NurseMornText
+	promptbutton
+	sjump .ok
+
+.day
+	writetext NurseDayText
+	promptbutton
+	sjump .ok
+
+.nite
+	writetext NurseNiteText
+	promptbutton
+	sjump .ok
+
+.ok
+	writetext NurseAskHealText
+	yesorno
+	iffalse .done
+
+	writetext NurseTakePokemonText
+	pause 20
+	turnobject LAST_TALKED, LEFT
+	pause 10
+	special HealParty
+	playmusic MUSIC_NONE
+	setval HEALMACHINE_POKECENTER
+	special HealMachineAnim
+	pause 30
+	special RestartMapMusic
+	turnobject LAST_TALKED, DOWN
+	pause 10
+
+	checkphonecall ; elm already called about pokerus
+	iftrue .no
+	checkflag ENGINE_CAUGHT_POKERUS
+	iftrue .no
+	special CheckPokerus
+	iftrue .pokerus
+.no
+	writetext NurseReturnPokemonText
+	pause 20
+
+.done
+	writetext NurseGoodbyeText
+
+	turnobject LAST_TALKED, UP
+	pause 10
+	turnobject LAST_TALKED, DOWN
+	pause 10
+
+	waitbutton
+	closetext
+	end
+
+.pokerus
+	writetext NursePokerusText
+	waitbutton
+	closetext
+	setflag ENGINE_CAUGHT_POKERUS
+	specialphonecall SPECIALCALL_POKERUS
+	end
+
+DifficultBookshelfScript:
+	jumptext DifficultBookshelfText
+
+PictureBookshelfScript:
+	jumptext PictureBookshelfText
+
+MagazineBookshelfScript:
+	jumptext MagazineBookshelfText
+
+TeamRocketOathScript:
+	jumptext TeamRocketOathText
+
+IncenseBurnerScript:
+	jumptext IncenseBurnerText
+
+MerchandiseShelfScript:
+	jumptext MerchandiseShelfText
+
+TownMapScript:
+	opentext
+	writetext LookTownMapText
+	waitbutton
+	special OverworldTownMap
+	closetext
+	end
+
+WindowScript:
+	jumptext WindowText
+
+TVScript:
+	opentext
+	writetext TVText
+	waitbutton
+	closetext
+	end
+
+HomepageScript:
+	jumptext HomepageText
+
+Radio1Script:
+	opentext
+	setval MAPRADIO_POKEMON_CHANNEL
+	special MapRadio
+	closetext
+	end
+
+Radio2Script:
+; Lucky Channel
+	opentext
+	setval MAPRADIO_LUCKY_CHANNEL
+	special MapRadio
+	closetext
+	end
+
+TrashCanScript:
+	jumptext TrashCanText
+
+PCScript:
+	opentext
+	special PokemonCenterPC
+	closetext
+	end
+
+ElevatorButtonScript:
+	playsound SFX_READ_TEXT_2
+	pause 15
+	playsound SFX_ELEVATOR_END
+	end
+
+StrengthBoulderScript:
+	farsjump AskStrengthScript
+
+SmashRockScript:
+	farsjump AskRockSmashScript
+
+PokecenterSignScript:
+	jumptext PokecenterSignText
+
+MartSignScript:
+	jumptext MartSignText
+
+DayToTextScript:
+	readvar VAR_WEEKDAY
+	ifequal MONDAY, .Monday
+	ifequal TUESDAY, .Tuesday
+	ifequal WEDNESDAY, .Wednesday
+	ifequal THURSDAY, .Thursday
+	ifequal FRIDAY, .Friday
+	ifequal SATURDAY, .Saturday
+	getstring STRING_BUFFER_3, .SundayText
+	end
+.Monday:
+	getstring STRING_BUFFER_3, .MondayText
+	end
+.Tuesday:
+	getstring STRING_BUFFER_3, .TuesdayText
+	end
+.Wednesday:
+	getstring STRING_BUFFER_3, .WednesdayText
+	end
+.Thursday:
+	getstring STRING_BUFFER_3, .ThursdayText
+	end
+.Friday:
+	getstring STRING_BUFFER_3, .FridayText
+	end
+.Saturday:
+	getstring STRING_BUFFER_3, .SaturdayText
+	end
+.SundayText:
+	db "SUNDAY@"
+.MondayText:
+	db "MONDAY@"
+.TuesdayText:
+	db "TUESDAY@"
+.WednesdayText:
+	db "WEDNESDAY@"
+.ThursdayText:
+	db "THURSDAY@"
+.FridayText:
+	db "FRIDAY@"
+.SaturdayText:
+	db "SATURDAY@"
+
+GoldenrodRocketsScript:
+	clearevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
+	end
+
+RadioTowerRocketsScript:
+	setflag ENGINE_ROCKETS_IN_RADIO_TOWER
+	setevent EVENT_GOLDENROD_CITY_CIVILIANS
+	setevent EVENT_RADIO_TOWER_BLACKBELT_BLOCKS_STAIRS
+	clearevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
+	clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
+	setevent EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST
+	specialphonecall SPECIALCALL_WEIRDBROADCAST
+	setmapscene MAHOGANY_TOWN, SCENE_FINISHED
+	end
+
+BugContestResultsWarpScript:
+	special ClearBGPalettes
+	scall BugContestResults_CopyContestantsToResults
+	setevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
+	clearevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY
+	setevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
+	warp ROUTE_36_NATIONAL_PARK_GATE, 0, 4
+	applymovement PLAYER, Movement_ContestResults_WalkAfterWarp
+
+BugContestResultsScript:
+	clearflag ENGINE_BUG_CONTEST_TIMER
+	clearevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
+	clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
+	clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
+	clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
+	clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
+	opentext
+	writetext ContestResults_ReadyToJudgeText
+	waitbutton
+	special BugContestJudging
+	getnum STRING_BUFFER_3
+	ifequal 1, BugContestResults_FirstPlace
+	ifequal 2, BugContestResults_SecondPlace
+	ifequal 3, BugContestResults_ThirdPlace
+	writetext ContestResults_ConsolationPrizeText
+	promptbutton
+	waitsfx
+	verbosegiveitem BERRY
+	iffalse BugContestResults_NoRoomForBerry
+
+BugContestResults_DidNotWin:
+	writetext ContestResults_DidNotWinText
+	promptbutton
+	sjump BugContestResults_FinishUp
+
+BugContestResults_ReturnAfterWinnersPrize:
+	writetext ContestResults_JoinUsNextTimeText
+	promptbutton
+
+BugContestResults_FinishUp:
+	checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
+	iffalse BugContestResults_DidNotLeaveMons
+	writetext ContestResults_ReturnPartyText
+	waitbutton
+	special ContestReturnMons
+BugContestResults_DidNotLeaveMons:
+	special CheckPartyFullAfterContest
+	ifequal BUGCONTEST_CAUGHT_MON, BugContestResults_CleanUp
+	ifequal BUGCONTEST_NO_CATCH, BugContestResults_CleanUp
+	; BUGCONTEST_BOXED_MON
+	writetext ContestResults_PartyFullText
+	waitbutton
+BugContestResults_CleanUp:
+	closetext
+	setscene SCENE_ROUTE36NATIONALPARKGATE_NOTHING
+	setmapscene ROUTE_35_NATIONAL_PARK_GATE, SCENE_ROUTE35NATIONALPARKGATE_NOTHING
+	setevent EVENT_BUG_CATCHING_CONTESTANT_1A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_2A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_3A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_4A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_5A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_6A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_7A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_8A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_9A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_10A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_1B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_2B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_3B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_4B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_5B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_6B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_7B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_8B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_9B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_10B
+	setflag ENGINE_DAILY_BUG_CONTEST
+	special PlayMapMusic
+	end
+
+BugContestResults_FirstPlace:
+	setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	getitemname STRING_BUFFER_4, SUN_STONE
+	writetext ContestResults_PlayerWonAPrizeText
+	waitbutton
+	verbosegiveitem SUN_STONE
+	iffalse BugContestResults_NoRoomForSunStone
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_SecondPlace:
+	getitemname STRING_BUFFER_4, EVERSTONE
+	writetext ContestResults_PlayerWonAPrizeText
+	waitbutton
+	verbosegiveitem EVERSTONE
+	iffalse BugContestResults_NoRoomForEverstone
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_ThirdPlace:
+	getitemname STRING_BUFFER_4, GOLD_BERRY
+	writetext ContestResults_PlayerWonAPrizeText
+	waitbutton
+	verbosegiveitem GOLD_BERRY
+	iffalse BugContestResults_NoRoomForGoldBerry
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_NoRoomForSunStone:
+	writetext BugContestPrizeNoRoomText
+	promptbutton
+	setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_NoRoomForEverstone:
+	writetext BugContestPrizeNoRoomText
+	promptbutton
+	setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_NoRoomForGoldBerry:
+	writetext BugContestPrizeNoRoomText
+	promptbutton
+	setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
+	sjump BugContestResults_ReturnAfterWinnersPrize
+
+BugContestResults_NoRoomForBerry:
+	writetext BugContestPrizeNoRoomText
+	promptbutton
+	setevent EVENT_CONTEST_OFFICER_HAS_BERRY
+	sjump BugContestResults_DidNotWin
+
+BugContestResults_CopyContestantsToResults:
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_1A
+	iftrue .skip1
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_1B
+.skip1
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_2A
+	iftrue .skip2
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_2B
+.skip2
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_3A
+	iftrue .skip3
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_3B
+.skip3
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_4A
+	iftrue .skip4
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_4B
+.skip4
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_5A
+	iftrue .skip5
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_5B
+.skip5
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_6A
+	iftrue .skip6
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_6B
+.skip6
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_7A
+	iftrue .skip7
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_7B
+.skip7
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_8A
+	iftrue .skip8
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_8B
+.skip8
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_9A
+	iftrue .skip9
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_9B
+.skip9
+	checkevent EVENT_BUG_CATCHING_CONTESTANT_10A
+	iftrue .skip10
+	clearevent EVENT_BUG_CATCHING_CONTESTANT_10B
+.skip10
+	end
+
+InitializeEventsScript:
+	setevent EVENT_EARLS_ACADEMY_EARL
+	setevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
+	setevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
+	setevent EVENT_RADIO_TOWER_CIVILIANS_AFTER
+	setevent EVENT_ILEX_FOREST_APPRENTICE
+	setevent EVENT_ILEX_FOREST_FARFETCHD1
+	setevent EVENT_ILEX_FOREST_FARFETCHD2
+	setevent EVENT_ILEX_FOREST_FARFETCHD3
+	setevent EVENT_ILEX_FOREST_FARFETCHD4
+	setevent EVENT_ILEX_FOREST_FARFETCHD5
+	setevent EVENT_ILEX_FOREST_FARFETCHD6
+	setevent EVENT_ILEX_FOREST_FARFETCHD7
+	setevent EVENT_ILEX_FOREST_FARFETCHD8
+	setevent EVENT_ILEX_FOREST_FARFETCHD9
+	setevent EVENT_ILEX_FOREST_FARFETCHD10
+	setevent EVENT_ILEX_FOREST_CHARCOAL_MASTER
+	setevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
+	setevent EVENT_TEAM_ROCKET_BASE_B2F_GRUNT_WITH_EXECUTIVE
+	setevent EVENT_TEAM_ROCKET_BASE_B2F_EXECUTIVE
+	setevent EVENT_TEAM_ROCKET_BASE_B2F_DRAGONITE
+	setevent EVENT_RIVAL_TEAM_ROCKET_BASE
+	setevent EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM
+	setevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
+	setevent EVENT_RIVAL_CHERRYGROVE_CITY
+	setevent EVENT_RIVAL_AZALEA_TOWN
+	setevent EVENT_RIVAL_GOLDENROD_UNDERGROUND
+	setevent EVENT_AZALEA_TOWN_SLOWPOKES
+	setevent EVENT_KURTS_HOUSE_SLOWPOKE
+	setevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE
+	setevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
+	setevent EVENT_COP_IN_ELMS_LAB
+	setevent EVENT_RUINS_OF_ALPH_OUTSIDE_SCIENTIST
+	setevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
+	setevent EVENT_BOULDER_IN_ICE_PATH_1A
+	setevent EVENT_BOULDER_IN_ICE_PATH_2A
+	setevent EVENT_BOULDER_IN_ICE_PATH_3A
+	setevent EVENT_BOULDER_IN_ICE_PATH_4A
+	setevent EVENT_ROUTE_30_YOUNGSTER_JOEY
+	setevent EVENT_BUG_CATCHING_CONTESTANT_1A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_2A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_3A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_4A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_5A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_6A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_7A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_8A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_9A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_10A
+	setevent EVENT_BUG_CATCHING_CONTESTANT_1B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_2B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_3B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_4B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_5B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_6B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_7B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_8B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_9B
+	setevent EVENT_BUG_CATCHING_CONTESTANT_10B
+	setevent EVENT_FAST_SHIP_1F_GENTLEMAN
+	setevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT
+	setevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR
+	setevent EVENT_LAKE_OF_RAGE_CIVILIANS
+	setevent EVENT_MAHOGANY_MART_OWNERS
+	setevent EVENT_TIN_TOWER_ROOF_HO_OH
+	setevent EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA
+	setevent EVENT_PLAYERS_HOUSE_2F_CONSOLE
+	setevent EVENT_PLAYERS_HOUSE_2F_DOLL_1
+	setevent EVENT_PLAYERS_HOUSE_2F_DOLL_2
+	setevent EVENT_PLAYERS_HOUSE_2F_BIG_DOLL
+	setevent EVENT_DECO_BED_1
+	setevent EVENT_DECO_POSTER_1
+	setevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN
+	setevent EVENT_OLIVINE_GYM_JASMINE
+	setevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
+	setevent EVENT_MET_BILL
+	setevent EVENT_ECRUTEAK_POKE_CENTER_BILL
+	setevent EVENT_MYSTERY_GIFT_DELIVERY_GUY
+	setevent EVENT_LAKE_OF_RAGE_LANCE
+	setevent EVENT_GOLDENROD_DEPT_STORE_B1F_LAYOUT_1
+	setevent EVENT_GOLDENROD_UNDERGROUND_WAREHOUSE_BLOCKED_OFF
+	setevent EVENT_DRAGONS_DEN_CLAIR
+	setevent EVENT_RIVAL_OLIVINE_CITY
+	setevent EVENT_RIVAL_VICTORY_ROAD
+	setevent EVENT_RIVAL_DRAGONS_DEN
+	setevent EVENT_LANCES_ROOM_OAK_AND_MARY
+	setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1
+	setevent EVENT_BURNED_TOWER_B1F_BEASTS_1
+	setevent EVENT_RED_IN_MT_SILVER
+	setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
+	setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
+	setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
+	setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M
+	setevent EVENT_KURTS_HOUSE_KURT_2
+	setevent EVENT_BURNED_TOWER_FIREBREATHER_DICK_ASHES
+	setevent EVENT_RANG_CLEAR_BELL_1 ; ?
+	setevent EVENT_PLAYERS_HOUSE_MOM_2
+	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:
+	writetext AskNumber1MText
+	end
+
+AskNumber2MScript:
+	writetext AskNumber2MText
+	end
+
+RegisteredNumberMScript:
+	writetext RegisteredNumberMText
+	playsound SFX_REGISTER_PHONE_NUMBER
+	waitsfx
+	promptbutton
+	end
+
+NumberAcceptedMScript:
+	writetext NumberAcceptedMText
+	waitbutton
+	closetext
+	end
+
+NumberDeclinedMScript:
+	writetext NumberDeclinedMText
+	waitbutton
+	closetext
+	end
+
+PhoneFullMScript:
+	writetext PhoneFullMText
+	waitbutton
+	closetext
+	end
+
+RematchMScript:
+	writetext RematchMText
+	waitbutton
+	closetext
+	end
+
+AskNumber1FScript:
+	writetext AskNumber1FText
+	end
+
+AskNumber2FScript:
+	writetext AskNumber2FText
+	end
+
+RegisteredNumberFScript:
+	writetext RegisteredNumberFText
+	playsound SFX_REGISTER_PHONE_NUMBER
+	waitsfx
+	promptbutton
+	end
+
+NumberAcceptedFScript:
+	writetext NumberAcceptedFText
+	waitbutton
+	closetext
+	end
+
+NumberDeclinedFScript:
+	writetext NumberDeclinedFText
+	waitbutton
+	closetext
+	end
+
+PhoneFullFScript:
+	writetext PhoneFullFText
+	waitbutton
+	closetext
+	end
+
+RematchFScript:
+	writetext RematchFText
+	waitbutton
+	closetext
+	end
+
+GymStatue1Script:
+	getcurlandmarkname STRING_BUFFER_3
+	opentext
+	writetext GymStatue_CityGymText
+	waitbutton
+	closetext
+	end
+
+GymStatue2Script:
+	getcurlandmarkname STRING_BUFFER_3
+	opentext
+	writetext GymStatue_CityGymText
+	promptbutton
+	writetext GymStatue_WinningTrainersText
+	waitbutton
+	closetext
+	end
+
+ReceiveItemScript:
+	waitsfx
+	writetext ReceivedItemText
+	playsound SFX_ITEM
+	waitsfx
+	end
+
+ReceiveTogepiEggScript:
+	waitsfx
+	writetext ReceivedItemText
+	playsound SFX_GET_EGG
+	waitsfx
+	end
+
+GameCornerCoinVendorScript:
+	faceplayer
+	opentext
+	writetext CoinVendor_WelcomeText
+	promptbutton
+	checkitem COIN_CASE
+	iftrue CoinVendor_IntroScript
+	writetext CoinVendor_NoCoinCaseText
+	waitbutton
+	closetext
+	end
+
+CoinVendor_IntroScript:
+	writetext CoinVendor_IntroText
+
+.loop
+	special DisplayMoneyAndCoinBalance
+	loadmenu .MenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .Buy50
+	ifequal 2, .Buy500
+	sjump .Cancel
+
+.Buy50:
+	checkcoins MAX_COINS - 50
+	ifequal HAVE_MORE, .CoinCaseFull
+	checkmoney YOUR_MONEY, 1000
+	ifequal HAVE_LESS, .NotEnoughMoney
+	givecoins 50
+	takemoney YOUR_MONEY, 1000
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CoinVendor_Buy50CoinsText
+	waitbutton
+	sjump .loop
+
+.Buy500:
+	checkcoins MAX_COINS - 500
+	ifequal HAVE_MORE, .CoinCaseFull
+	checkmoney YOUR_MONEY, 10000
+	ifequal HAVE_LESS, .NotEnoughMoney
+	givecoins 500
+	takemoney YOUR_MONEY, 10000
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CoinVendor_Buy500CoinsText
+	waitbutton
+	sjump .loop
+
+.NotEnoughMoney:
+	writetext CoinVendor_NotEnoughMoneyText
+	waitbutton
+	closetext
+	end
+
+.CoinCaseFull:
+	writetext CoinVendor_CoinCaseFullText
+	waitbutton
+	closetext
+	end
+
+.Cancel:
+	writetext CoinVendor_CancelText
+	waitbutton
+	closetext
+	end
+
+.MenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 4, 15, TEXTBOX_Y - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR ; flags
+	db 3 ; items
+	db " 50 :  ¥1000@"
+	db "500 : ¥10000@"
+	db "CANCEL@"
+
+HappinessCheckScript:
+	faceplayer
+	opentext
+	special GetFirstPokemonHappiness
+	ifless 50, .Unhappy
+	ifless 150, .KindaHappy
+	writetext HappinessText3
+	waitbutton
+	closetext
+	end
+
+.KindaHappy:
+	writetext HappinessText2
+	waitbutton
+	closetext
+	end
+
+.Unhappy:
+	writetext HappinessText1
+	waitbutton
+	closetext
+	end
+
+Movement_ContestResults_WalkAfterWarp:
+	step RIGHT
+	step DOWN
+	turn_head UP
+	step_end