Split more file from event_scripts.s

11 files changed, 1254 insertions, 1249 deletions

diff --git a/data/event_scripts.s b/data/event_scripts.s
index 1796bc138..27b22fa85 100644
--- a/data/event_scripts.s
+++ b/data/event_scripts.s
@@ -782,70 +782,7 @@ gStdScriptsEnd::
 	.include "data/maps/SixIsland_WaterPath_House2/text.inc"
 	.include "data/maps/SevenIsland_SevaultCanyon_House/text.inc"
 
-Std_MsgboxNPC:: @ 81A4E3F
-	lock
-	faceplayer
-	message 0x0
-	waitmessage
-	waitbuttonpress
-	release
-	return
-
-Std_MsgboxSign:: @ 81A4E4A
-	lockall
-	message 0x0
-	waitmessage
-	waitbuttonpress
-	releaseall
-	return
-
-Std_MsgboxDefault:: @ 81A4E54
-	message 0x0
-	waitmessage
-	waitbuttonpress
-	return
-
-Std_MsgboxYesNo:: @ 81A4E5C
-	message 0x0
-	waitmessage
-	yesnobox 20, 8
-	return
-
-gStdScript_ItemMessageAndFanfare:: @ 81A4E66
-	textcolor 3
-	compare VAR_0x8002, MUS_FANFA1
-	call_if eq, EventScript_1A4EA2
-	compare VAR_0x8002, MUS_FAN5
-	call_if eq, EventScript_1A4EA6
-	message 0x0
-	waitmessage
-	waitfanfare
-	compare VAR_0x8002, MUS_FANFA1
-	call_if eq, EventScript_1A4EAA
-	putitemaway VAR_0x8000, VAR_0x8001
-	call EventScript_1A6675
-	return
-
-EventScript_1A4EA2:: @ 81A4EA2
-	playfanfare MUS_FANFA1
-	return
-
-EventScript_1A4EA6:: @ 81A4EA6
-	playfanfare MUS_FAN5
-	return
-
-EventScript_1A4EAA:: @ 81A4EAA
-	delay 50
-	return
-
-EventScript_UnusedReturn:: @ 81A4EAE
-	return
-
-EventScript_1A4EAF:: @ 81A4EAF
-	special Field_AskSaveTheGame
-	waitstate
-	return
-
+	.include "data/scripts/std_msgbox.inc"
 	.include "data/scripts/trainer_battle.inc"
 
 @ Unused
@@ -920,13 +857,14 @@ Text_1A53B2:: @ 81A53B2
 	.string "トレーナーの　じつりょくが　とわれます！\p"
 	.string "‥‥　‥‥　‥‥$"
 
-gUnknown_81A5420:: @ 81A5420
+Text_PlayerBootedUpPC:: @ 81A5420
 	.string "{PLAYER} booted up the PC.$"
 
 Text_1A5435:: @ 81A5435
 	.string "つうしんは　キャンセルされました$"
 
-Text_1A5446:: @ 81A5446
+@ Unused
+Text_GiveNicknameToReceivedMon:: @ 81A5446
 	.string "Want to give a nickname to the\n"
 	.string "{STR_VAR_2} you received?$"
 
@@ -990,34 +928,7 @@ Text_DugUpItemFromGround:: @ 81A5700
 	.string "{PLAYER} dug up one {STR_VAR_2}\n"
 	.string "from deep in the ground.$"
 
-Text_1A572A:: @ 81A572A
-	.string "Only truly skilled TRAINERS are\n"
-	.string "allowed through.\p"
-	.string "You don't have the {STR_VAR_1}\n"
-	.string "yet!$"
-
-Text_1A5776:: @ 81A5776
-	.string "Rules are rules.\n"
-	.string "I can't let you pass.$"
-
-Text_1A579D:: @ 81A579D
-	.string "Oh! That is the {STR_VAR_1}!\n"
-	.string "Go right ahead.$"
-
-Text_1A57C1:: @ 81A57C1
-	.string "You can pass here only if you have\n"
-	.string "the {STR_VAR_1}.\p"
-	.string "You don't have the {STR_VAR_1}\n"
-	.string "yet.\p"
-	.string "You have to have it to get to\n"
-	.string "the POKéMON LEAGUE.$"
-
-Text_1A5839:: @ 81A5839
-	.string "You can pass here only if you have\n"
-	.string "the {STR_VAR_1}.\p"
-	.string "Oh! That is the {STR_VAR_1}!{PAUSE_MUSIC}{PLAY_BGM}{MUS_FANFA1}{PAUSE 0x60}{RESUME_MUSIC}\p"
-	.string "Okay, then.\n"
-	.string "Please, go right ahead.$"
+	.include "data/text/route23.inc"
 
 Text_1A58A7:: @ 81A58A7
 	.string "Let's see…\n"
@@ -1177,35 +1088,7 @@ Text_1A61E5:: @ 81A61E5
 	.string "POKéMON!\p"
 	.string "{PLAYER} whited out!$"
 
-Text_MayIHelpYou:: @ 81A6211
-	.string "Hi, there!\n"
-	.string "May I help you?$"
-
-Text_FillOutQuestionnaire:: @ 81A622C
-	.string "There is a questionnaire.\n"
-	.string "Would you like to fill it out?$"
-
-Text_1A6265:: @ 81A6265
-	.string "Thank you for taking the time to\n"
-	.string "fill out our questionnaire.\p"
-	.string "Your feedback will be used for\n"
-	.string "future reference.$"
-
-Text_1A62D3:: @ 81A62D3
-	.string "Oh, hello!\n"
-	.string "You know those words?\p"
-	.string "That means you must know about\n"
-	.string "the MYSTERY GIFT.\p"
-	.string "From now on, you should be\n"
-	.string "receiving MYSTERY GIFTS!$"
-
-Text_1A6359:: @ 81A6359
-	.string "Once you save your game, you can\n"
-	.string "access the MYSTERY GIFT.$"
-
-Text_1A6393:: @ 81A6393
-	.string "Thank you for accessing the\n"
-	.string "MYSTERY GIFT System.$"
+	.include "data/text/poke_mart.inc"
 
 Text_1A63C4:: @ 81A63C4
 	.string "The {STR_VAR_1} flew away!$"
@@ -1382,219 +1265,8 @@ gUnknown_81A6C32:: @ 81A6C32
 	releaseall
 	end
 
-gUnknown_81A6C51:: @ 81A6C51
-	.string "OAK: Good to see you!\n"
-	.string "How is your POKéDEX coming along?\p"
-	.string "Here, let me take a look.$"
-
-Text_1A6CA3:: @ 81A6CA3
-	.string "The amount of progress you've made\n"
-	.string "on your POKéDEX is:\p"
-	.string "{STR_VAR_1} POKéMON seen and\n"
-	.string "{STR_VAR_2} POKéMON owned.\p"
-	.string "{SIZE}ÁPROF. OAK's rating:$"
-
-gUnknown_81A6D17:: @ 81A6D17
-	.string "You still have lots to do.\p"
-	.string "Go into every patch of grass you\n"
-	.string "see and look for POKéMON!$"
-
-gUnknown_81A6D6D:: @ 81A6D6D
-	.string "It looks as if you're getting on\n"
-	.string "the right track!\p"
-	.string "I've given one of my AIDES a FLASH\n"
-	.string "HM. Make sure you go get it!$"
-
-gUnknown_81A6DDF:: @ 81A6DDF
-	.string "Your POKéDEX could use a bit more\n"
-	.string "volume still!\p"
-	.string "Try to catch other species of\n"
-	.string "POKéMON!$"
-
-gUnknown_81A6E36:: @ 81A6E36
-	.string "Good, it's apparent that you're\n"
-	.string "trying hard!\p"
-	.string "I've given one of my AIDES an\n"
-	.string "ITEMFINDER. Be sure to collect it!$"
-
-gUnknown_81A6EA4:: @ 81A6EA4
-	.string "Your POKéDEX is coming along quite\n"
-	.string "well!\p"
-	.string "I've given one of my AIDES an\n"
-	.string "AMULET COIN. Be sure to get it!$"
-
-gUnknown_81A6F0B:: @ 81A6F0B
-	.string "Ah, you've finally topped 50\n"
-	.string "species!\p"
-	.string "I've given one of my AIDES an EXP.\n"
-	.string "SHARE. Be sure to go get it!$"
-
-gUnknown_81A6F71:: @ 81A6F71
-	.string "Hoho! This is turning into quite the\n"
-	.string "respectable POKéDEX!$"
-
-gUnknown_81A6FAB:: @ 81A6FAB
-	.string "Very good!\p"
-	.string "I think you'll collect even more\n"
-	.string "POKéMON by going fishing!$"
-
-gUnknown_81A6FF1:: @ 81A6FF1
-	.string "Wonderful! Let me guess… You\n"
-	.string "like to collect things, don't you?$"
-
-gUnknown_81A7031:: @ 81A7031
-	.string "I'm impressed!\n"
-	.string "It must have been difficult to do!$"
-
-gUnknown_81A7063:: @ 81A7063
-	.string "You've finally hit 100 species!\n"
-	.string "I can't believe how good you are!$"
-
-gUnknown_81A70A5:: @ 81A70A5
-	.string "You even have the evolved forms\n"
-	.string "of POKéMON! Super!$"
-
-gUnknown_81A70D8:: @ 81A70D8
-	.string "Excellent! Trade with friends to\n"
-	.string "get some more!$"
-
-gUnknown_81A7108:: @ 81A7108
-	.string "Outstanding!\n"
-	.string "You've become a real pro at this!$"
-
-gUnknown_81A7137:: @ 81A7137
-	.string "I have nothing left to say!\n"
-	.string "You're the POKéMON PROFESSOR now!$"
-
-gUnknown_81A7175:: @ 81A7175
-	.string "Your POKéDEX is entirely complete!\n"
-	.string "Congratulations!!$"
-
-Text_1A71AA:: @ 81A71AA
-	.string "And your NATIONAL POKéDEX is:\p"
-	.string "{STR_VAR_1} POKéMON seen and\n"
-	.string "{STR_VAR_2} POKéMON owned.$"
-
-Text_1A71EE:: @ 81A71EE
-	.string "I'll be looking forward to seeing\n"
-	.string "you fill the NATIONAL POKéDEX!$"
-
-Text_1A722F:: @ 81A722F
-	.string "Finally…\p"
-	.string "You've finally completed the\n"
-	.string "POKéDEX!\p"
-	.string "It's magnificent!\n"
-	.string "Truly, this is a fantastic feat!$"
-
-Text_1A7291:: @ 81A7291
-	.string "Wroooooooaaaaaarrrr!$"
-
-Text_1A72A6:: @ 81A72A6
-	.string "はあ はあ‥$"
-
-gUnknown_81A72AD:: @ 81A72AD
-	.string "Thank you, {PLAYER}!\n"
-	.string "Sincerely, thank you!\l"
-	.string "You've made my dream a reality!$"
-
-Text_1A72F2:: @ 81A72F2
-	.string "OAK: Ah, welcome!\p"
-	.string "Tell me, how is your POKéDEX\n"
-	.string "coming along?\p"
-	.string "Wahaha!\p"
-	.string "Actually, I know how it is, but I\n"
-	.string "love seeing it anyway!\p"
-	.string "Let's see…$"
-
-EventScript_1A737B:: @ 81A737B
-	special sub_8110AB4
-	compare VAR_RESULT, 2
-	goto_if eq, EventScript_1A7AE0
-	special sub_8112364
-	checkflag FLAG_OAK_SAW_DEX_COMPLETION
-	call_if TRUE, EventScript_1A73A4
-	checkflag FLAG_OAK_SAW_DEX_COMPLETION
-	call_if FALSE, EventScript_1A73AD
-	call EventScript_1A73E0
-	return
-
-EventScript_1A73A4:: @ 81A73A4
-	msgbox Text_1A72F2
-	return
-
-EventScript_1A73AD:: @ 81A73AD
-	msgbox gUnknown_81A6C51
-	return
-
-EventScript_1A73B6:: @ 81A73B6
-	copyvar VAR_0x8004, VAR_0x8009
-	special Special_GetProfOaksRatingMessage
-	waitmessage
-	compare VAR_RESULT, 0
-	call_if eq, EventScript_1A73D8
-	compare VAR_RESULT, 1
-	call_if eq, EventScript_1A73DC
-	waitfanfare
-	waitbuttonpress
-	return
-
-EventScript_1A73D8:: @ 81A73D8
-	playfanfare MUS_FAN2
-	return
-
-EventScript_1A73DC:: @ 81A73DC
-	playfanfare MUS_FANFA5
-	return
-
-EventScript_1A73E0:: @ 81A73E0
-	setvar VAR_0x8004, 31
-	special HelpSystem_BackupSomeVariable
-	special Special_SetSomeVariable
-	setvar VAR_0x8004, 0
-	specialvar VAR_RESULT, Special_GetPokedexCount
-	copyvar VAR_0x8008, VAR_0x8005
-	copyvar VAR_0x8009, VAR_0x8006
-	copyvar VAR_0x800A, VAR_RESULT
-	getnumberstring 0, VAR_0x8008
-	getnumberstring 1, VAR_0x8009
-	msgbox Text_1A6CA3
-	checkflag FLAG_OAKS_RATING_IS_VIA_PC
-	call_if FALSE, EventScript_1A746D
-	call EventScript_1A73B6
-	compare VAR_0x800A, 0
-	goto_if eq, EventScript_1A748F
-	setvar VAR_0x8004, 1
-	specialvar VAR_RESULT, Special_GetPokedexCount
-	copyvar VAR_0x8008, VAR_0x8005
-	copyvar VAR_0x8009, VAR_0x8006
-	getnumberstring 0, VAR_0x8008
-	getnumberstring 1, VAR_0x8009
-	msgbox Text_1A71AA
-	specialvar VAR_RESULT, HasAllMons
-	compare VAR_RESULT, 0
-	goto_if eq, EventScript_1A7470
-	compare VAR_RESULT, 1
-	goto_if eq, EventScript_1A747E
-	end
-
-EventScript_1A746D:: @ 81A746D
-	textcolor 0
-	return
-
-EventScript_1A7470:: @ 81A7470
-	msgbox Text_1A71EE
-	goto EventScript_1A748F
-	end
-
-EventScript_1A747E:: @ 81A747E
-	setflag FLAG_OAK_SAW_DEX_COMPLETION
-	msgbox Text_1A722F
-	goto EventScript_1A748F
-	end
-
-EventScript_1A748F:: @ 81A748F
-	special HelpSystem_RestoreSomeVariable
-	return
+	.include "data/text/pokedex_rating.inc"
+	.include "data/scripts/pokedex_rating.inc"
 
 EventScript_1A7493:: @ 81A7493
 	lockall
@@ -1905,235 +1577,7 @@ Route18_EastEntrance_1F_EventScript_1A77C1:: @ 81A77C1
 	releaseall
 	end
 
-EventScript_1A77C9:: @ 81A77C9
-	msgbox Text_1A572A
-	playse SE_BOO
-	msgbox Text_1A5776
-	release
-	end
-
-EventScript_1A77DE:: @ 81A77DE
-	message Text_1A57C1
-	waitmessage
-	playse SE_BOO
-	waitbuttonpress
-	closemessage
-	waitse
-	release
-	end
-
-EventScript_1A77EC:: @ 81A77EC
-	message Text_1A579D
-	waitmessage
-	playfanfare MUS_FANFA1
-	waitfanfare
-	waitbuttonpress
-	release
-	end
-
-EventScript_1A77F9:: @ 81A77F9
-	msgbox Text_1A5839
-	release
-	end
-
-EventScript_1A7803:: @ 81A7803
-	compare VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	goto_if ge, EventScript_1A77EC
-	switch VAR_0x4001
-	case 1, EventScript_1A78D5
-	case 2, EventScript_1A78E4
-	case 3, EventScript_1A78F3
-	case 4, EventScript_1A7902
-	case 5, EventScript_1A7911
-	case 6, EventScript_1A7920
-	case 7, EventScript_1A792F
-	case 8, EventScript_1A793E
-	end
-
-EventScript_1A786C:: @ 81A786C
-	compare VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	goto_if ge, EventScript_1A77F9
-	switch VAR_0x4001
-	case 1, EventScript_1A78D5
-	case 2, EventScript_1A78E4
-	case 3, EventScript_1A78F3
-	case 4, EventScript_1A7902
-	case 5, EventScript_1A7911
-	case 6, EventScript_1A7920
-	case 7, EventScript_1A792F
-	case 8, EventScript_1A793E
-	end
-
-EventScript_1A78D5:: @ 81A78D5
-	checkflag FLAG_BADGE01_GET
-	goto_if TRUE, EventScript_1A794D
-	goto EventScript_1A77C9
-	end
-
-EventScript_1A78E4:: @ 81A78E4
-	checkflag FLAG_BADGE02_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A78F3:: @ 81A78F3
-	checkflag FLAG_BADGE03_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A7902:: @ 81A7902
-	checkflag FLAG_BADGE04_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A7911:: @ 81A7911
-	checkflag FLAG_BADGE05_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A7920:: @ 81A7920
-	checkflag FLAG_BADGE06_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A792F:: @ 81A792F
-	checkflag FLAG_BADGE07_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A793E:: @ 81A793E
-	checkflag FLAG_BADGE08_GET
-	goto_if TRUE, EventScript_1A795F
-	goto EventScript_1A77DE
-	end
-
-EventScript_1A794D:: @ 81A794D
-	message Text_1A579D
-	waitmessage
-	playfanfare MUS_FANFA1
-	waitfanfare
-	waitbuttonpress
-	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	release
-	end
-
-EventScript_1A795F:: @ 81A795F
-	msgbox Text_1A5839
-	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	release
-	end
-
-EventScript_1A796E:: @ 81A796E
-	textcolor 0
-	applymovement VAR_0x8009, Movement_WalkInPlaceFastestLeft
-	waitmovement 0
-	switch VAR_0x4001
-	case 1, EventScript_1A79D8
-	case 2, EventScript_1A79E7
-	case 3, EventScript_1A79F6
-	case 4, EventScript_1A7A05
-	case 5, EventScript_1A7A14
-	case 6, EventScript_1A7A23
-	case 7, EventScript_1A7A32
-	case 8, EventScript_1A7A41
-	end
-
-EventScript_1A79D8:: @ 81A79D8
-	checkflag FLAG_BADGE01_GET
-	goto_if TRUE, EventScript_1A7A96
-	goto EventScript_1A7A50
-	end
-
-EventScript_1A79E7:: @ 81A79E7
-	checkflag FLAG_BADGE02_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A79F6:: @ 81A79F6
-	checkflag FLAG_BADGE03_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A05:: @ 81A7A05
-	checkflag FLAG_BADGE04_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A14:: @ 81A7A14
-	checkflag FLAG_BADGE05_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A23:: @ 81A7A23
-	checkflag FLAG_BADGE06_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A32:: @ 81A7A32
-	checkflag FLAG_BADGE07_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A41:: @ 81A7A41
-	checkflag FLAG_BADGE08_GET
-	goto_if TRUE, EventScript_1A7AA8
-	goto EventScript_1A7A77
-	end
-
-EventScript_1A7A50:: @ 81A7A50
-	msgbox Text_1A572A
-	playse SE_BOO
-	msgbox Text_1A5776
-	closemessage
-	applymovement OBJ_EVENT_ID_PLAYER, Movement_1A7AB7
-	applymovement VAR_0x8009, Movement_WalkInPlaceFastestDown
-	waitmovement 0
-	releaseall
-	end
-
-EventScript_1A7A77:: @ 81A7A77
-	message Text_1A57C1
-	waitmessage
-	playse SE_BOO
-	waitbuttonpress
-	closemessage
-	waitse
-	applymovement OBJ_EVENT_ID_PLAYER, Movement_1A7AB7
-	applymovement VAR_0x8009, Movement_WalkInPlaceFastestDown
-	waitmovement 0
-	releaseall
-	end
-
-EventScript_1A7A96:: @ 81A7A96
-	message Text_1A579D
-	waitmessage
-	playfanfare MUS_FANFA1
-	waitfanfare
-	waitbuttonpress
-	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	releaseall
-	end
-
-EventScript_1A7AA8:: @ 81A7AA8
-	msgbox Text_1A5839
-	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
-	releaseall
-	end
-
-Movement_1A7AB7:: @ 81A7AB7
-	walk_down
-	step_end
+	.include "data/scripts/route23.inc"
 
 EventScript_1A7AB9:: @ 81A7AB9
 	special Special_GetElevatorFloor
@@ -2701,237 +2145,8 @@ EventScript_1A8EC0:: @ 81A8EC0
 	getstdstring 2, 28
 	return
 
-EventScript_1A8EC5:: @ 81A8EC5
-	compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
-	goto_if ge, EventScript_1A911E
-	compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
-	goto_if ge, EventScript_1A8F12
-	multichoice 19, 6, MULTICHOICE_ISLAND_23, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FF9
-	case 1, EventScript_1A9004
-	case 2, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A8F12:: @ 81A8F12
-	multichoice 19, 5, MULTICHOICE_SEAGALLOP_V23, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FE3
-	case 1, EventScript_1A8FF9
-	case 2, EventScript_1A9004
-	case 3, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A8F54:: @ 81A8F54
-	compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
-	goto_if ge, EventScript_1A911E
-	compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
-	goto_if ge, EventScript_1A8FA1
-	multichoice 19, 6, MULTICHOICE_ISLAND_13, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FEE
-	case 1, EventScript_1A9004
-	case 2, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A8FA1:: @ 81A8FA1
-	multichoice 19, 5, MULTICHOICE_SEAGALLOP_V13, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FE3
-	case 1, EventScript_1A8FEE
-	case 2, EventScript_1A9004
-	case 3, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A8FE3:: @ 81A8FE3
-	setvar VAR_0x8006, SEAGALLOP_VERMILION_CITY
-	goto EventScript_1A909E
-	end
-
-EventScript_1A8FEE:: @ 81A8FEE
-	setvar VAR_0x8006, SEAGALLOP_ONE_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A8FF9:: @ 81A8FF9
-	setvar VAR_0x8006, SEAGALLOP_TWO_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A9004:: @ 81A9004
-	setvar VAR_0x8006, SEAGALLOP_THREE_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A900F:: @ 81A900F
-	compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
-	goto_if ge, EventScript_1A911E
-	compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
-	goto_if ge, EventScript_1A905C
-	multichoice 19, 6, MULTICHOICE_ISLAND_12, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FEE
-	case 1, EventScript_1A8FF9
-	case 2, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A905C:: @ 81A905C
-	multichoice 19, 5, MULTICHOICE_SEAGALLOP_V12, FALSE
-	switch VAR_RESULT
-	case 0, EventScript_1A8FE3
-	case 1, EventScript_1A8FEE
-	case 2, EventScript_1A8FF9
-	case 3, EventScript_1A90F6
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A909E:: @ 81A909E
-	specialvar VAR_RESULT, sub_8147500
-	getnumberstring 0, VAR_RESULT
-	compare VAR_0x8004, SEAGALLOP_VERMILION_CITY
-	goto_if eq, EventScript_1A90BE
-	compare VAR_0x8004, SEAGALLOP_VERMILION_CITY
-	goto_if ne, EventScript_1A90CC
-	end
-
-EventScript_1A90BE:: @ 81A90BE
-	msgbox Text_17FB67
-	goto EventScript_1A90DA
-	end
-
-EventScript_1A90CC:: @ 81A90CC
-	msgbox Text_1A641B
-	goto EventScript_1A90DA
-	end
-
-EventScript_1A90DA:: @ 81A90DA
-	closemessage
-	delay 20
-	special sub_8110AB4
-	compare VAR_RESULT, 2
-	goto_if eq, EventScript_1A7AE0
-	special sub_8112364
-	fadescreen 1
-	special ScrSpecial_SeagallopFerry
-	waitstate
-	end
-
-EventScript_1A90F6:: @ 81A90F6
-	specialvar VAR_RESULT, sub_8147594
-	compare VAR_RESULT, 1
-	goto_if eq, EventScript_1A9108
-	release
-	end
-
-EventScript_1A9108:: @ 81A9108
-	closemessage
-	applymovement 6, Movement_FaceOriginalDirection
-	applymovement OBJ_EVENT_ID_PLAYER, Movement_1A911C
-	waitmovement 0
-	releaseall
-	end
-
-Movement_1A911C:: @ 81A911C
-	walk_up
-	step_end
-
-EventScript_1A911E:: @ 81A911E
-	setvar VAR_0x8005, 0
-	special Special_DrawSeagallopDestinationMenu
-	waitstate
-	specialvar VAR_0x8006, Special_GetSelectedSeagallopDestination
-	switch VAR_0x8006
-	case SEAGALLOP_VERMILION_CITY, EventScript_1A91D5
-	case SEAGALLOP_ONE_ISLAND,     EventScript_1A91E0
-	case SEAGALLOP_TWO_ISLAND,     EventScript_1A91EB
-	case SEAGALLOP_THREE_ISLAND,   EventScript_1A91F6
-	case SEAGALLOP_FOUR_ISLAND,    EventScript_1A9201
-	case SEAGALLOP_MORE,           EventScript_1A917F
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A917F:: @ 81A917F
-	setvar VAR_0x8005, 1
-	special Special_DrawSeagallopDestinationMenu
-	waitstate
-	specialvar VAR_0x8006, Special_GetSelectedSeagallopDestination
-	switch VAR_0x8006
-	case SEAGALLOP_FOUR_ISLAND,  EventScript_1A9201
-	case SEAGALLOP_FIVE_ISLAND,  EventScript_1A920C
-	case SEAGALLOP_SIX_ISLAND,   EventScript_1A9217
-	case SEAGALLOP_SEVEN_ISLAND, EventScript_1A9222
-	case SEAGALLOP_MORE,           EventScript_1A911E
-	case SCR_MENU_CANCEL, EventScript_1A90F6
-	end
-
-EventScript_1A91D5:: @ 81A91D5
-	setvar VAR_0x8006, SEAGALLOP_VERMILION_CITY
-	goto EventScript_1A909E
-	end
-
-EventScript_1A91E0:: @ 81A91E0
-	setvar VAR_0x8006, SEAGALLOP_ONE_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A91EB:: @ 81A91EB
-	setvar VAR_0x8006, SEAGALLOP_TWO_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A91F6:: @ 81A91F6
-	setvar VAR_0x8006, SEAGALLOP_THREE_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A9201:: @ 81A9201
-	setvar VAR_0x8006, SEAGALLOP_FOUR_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A920C:: @ 81A920C
-	setvar VAR_0x8006, SEAGALLOP_FIVE_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A9217:: @ 81A9217
-	setvar VAR_0x8006, SEAGALLOP_SIX_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A9222:: @ 81A9222
-	setvar VAR_0x8006, SEAGALLOP_SEVEN_ISLAND
-	goto EventScript_1A909E
-	end
-
-EventScript_1A922D:: @ 81A922D
-	fadescreen 1
-	removeobject VAR_LAST_TALKED
-	fadescreen 0
-	release
-	end
-
-EventScript_1A9236:: @ 81A9236
-	fadescreen 1
-	removeobject VAR_LAST_TALKED
-	fadescreen 0
-	getspeciesname 0, VAR_0x8004
-	msgbox Text_1A63C4
-	release
-	end
-
-EventScript_1A924B:: @ 81A924B
-	message Text_1853E8
-	waitmessage
-	playfanfare MUS_POKEFUE
-	waitfanfare
-	msgbox Text_185354
-	return
+	.include "data/scripts/seagallop.inc"
+	.include "data/scripts/static_pokemon.inc"
 
 EventScript_1A925E:: @ 81A925E
 	checkflag FLAG_SYS_UNLOCKED_TANOBY_RUINS
@@ -4029,458 +3244,7 @@ gUnknown_81C1300:: @ 81C1300
 	.include "data/scripts/hole.inc"
 	.include "data/text/trainers.inc"
 	.include "data/scripts/move_tutors.inc"
-
-SevenIsland_TrainerTower_1F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_2F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_3F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_4F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_5F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_6F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_7F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_8F_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_Elevator_MapScript1_1C4F54:: @ 81C4F54
-SevenIsland_TrainerTower_Roof_MapScript1_1C4F54:: @ 81C4F54
-	setvar VAR_0x4002, 0
-	setvar VAR_0x8004, 10
-	special sub_815D9E8
-	end
-
-SevenIsland_TrainerTower_1F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_2F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_3F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_4F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_5F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_6F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_7F_MapScript2_1C4F62:: @ 81C4F62
-SevenIsland_TrainerTower_8F_MapScript2_1C4F62:: @ 81C4F62
-	setvar VAR_0x8004, 0
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C4FA7
-	case 1, EventScript_1C4FC5
-	case 2, EventScript_1C5019
-	setflag FLAG_TEMP_2
-	setflag FLAG_TEMP_3
-	setflag FLAG_TEMP_4
-	setflag FLAG_TEMP_5
-	setvar VAR_0x400E, 1
-	setvar VAR_0x400F, 1
-	end
-
-EventScript_1C4FA7:: @ 81C4FA7
-	setflag FLAG_TEMP_2
-	setflag FLAG_TEMP_4
-	setflag FLAG_TEMP_5
-	setvar VAR_0x400F, 1
-	setobjectxyperm 3, 15, 13
-	setobjectmovementtype 3, 9
-	goto EventScript_1C5042
-
-EventScript_1C4FC5:: @ 81C4FC5
-	setflag FLAG_TEMP_3
-	setflag FLAG_TEMP_4
-	setvar VAR_0x400E, 1
-	setvar VAR_0x8004, 5
-	special sub_815D9E8
-	compare VAR_RESULT, 1
-	goto_if eq, EventScript_1C4FFE
-	setobjectxyperm 2, 10, 12
-	setobjectmovementtype 2, 9
-	setobjectxyperm 5, 10, 13
-	setobjectmovementtype 5, 9
-	goto EventScript_1C5042
-
-EventScript_1C4FFE:: @ 81C4FFE
-	setobjectxyperm 2, 10, 12
-	setobjectmovementtype 2, 8
-	setobjectxyperm 5, 11, 12
-	setobjectmovementtype 5, 8
-	goto EventScript_1C5042
-
-EventScript_1C5019:: @ 81C5019
-	setflag FLAG_TEMP_5
-	setvar VAR_0x400F, 1
-	setobjectxyperm 2, 10, 10
-	setobjectmovementtype 2, 8
-	setobjectxyperm 3, 14, 13
-	setobjectmovementtype 3, 9
-	setobjectxyperm 4, 10, 16
-	setobjectmovementtype 4, 7
-EventScript_1C5042:
-	setflag FLAG_TEMP_6
-	end
-
-SevenIsland_TrainerTower_1F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_2F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_3F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_4F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_5F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_6F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_7F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_8F_MapScript3_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_Elevator_MapScript2_1C5046:: @ 81C5046
-SevenIsland_TrainerTower_Roof_MapScript2_1C5046:: @ 81C5046
-	map_script_2 VAR_0x4002, 0, EventScript_1C5050
-	.2byte 0
-
-EventScript_1C5050:: @ 81C5050
-	setvar VAR_0x4002, 1
-	setvar VAR_0x8004, 5
-	special sub_815D9E8
-	compare VAR_RESULT, 0
-	goto_if eq, EventScript_1C5072
-	setvar VAR_0x400E, 1
-	setvar VAR_0x400F, 1
-EventScript_1C5072:
-	setvar VAR_0x8004, 18
-	special sub_815D9E8
-	compare VAR_RESULT, 1
-	goto_if eq, EventScript_1C5086
-	end
-
-EventScript_1C5086:: @ 81C5086
-	warp MAP_SEVEN_ISLAND_TRAINER_TOWER_LOBBY, 255, 9, 7
-	waitstate
-EventScript_1C508F::
-	setvar VAR_0x8004, 3
-	setvar VAR_0x8005, 0
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C50C2
-	case 1, EventScript_1C510D
-	case 2, EventScript_1C515C
-EventScript_1C50C2:
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 3, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 3, Movement_Delay48
-	waitmovement 0
-	setvar VAR_0x400E, 1
-	applymovement 3, Movement_1C5541
-	waitmovement 0
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 2
-	setvar VAR_0x8006, 0
-	special sub_815D9E8
-	msgbox gStringVar4
-	closemessage
-	goto EventScript_1C5219
-
-EventScript_1C510D:: @ 81C510D
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 2
-	copyvar VAR_0x8006, VAR_0x4003
-	special sub_815D9E8
-	msgbox gStringVar4
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 2
-	addvar VAR_0x4003, 1
-	compare VAR_0x4003, 1
-	goto_if eq, EventScript_1C5146
-	setvar VAR_0x4003, 0
-EventScript_1C5146:
-	copyvar VAR_0x8006, VAR_0x4003
-	special sub_815D9E8
-	msgbox gStringVar4
-	closemessage
-	goto EventScript_1C5219
-
-EventScript_1C515C:: @ 81C515C
-	switch VAR_0x4001
-	case 0, EventScript_1C5182
-	case 1, EventScript_1C51AD
-	case 2, EventScript_1C51D8
-EventScript_1C5182:
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 4, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 4, Movement_Delay48
-	waitmovement 0
-	applymovement 4, Movement_1C5546
-	waitmovement 0
-	goto EventScript_1C51FE
-
-EventScript_1C51AD:: @ 81C51AD
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 2, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 2, Movement_Delay48
-	waitmovement 0
-	applymovement 2, Movement_1C5549
-	waitmovement 0
-	goto EventScript_1C51FE
-
-EventScript_1C51D8:: @ 81C51D8
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 3, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 3, Movement_Delay48
-	waitmovement 0
-	applymovement 3, Movement_1C5542
-	waitmovement 0
-EventScript_1C51FE:
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 2
-	copyvar VAR_0x8006, VAR_0x4001
-	special sub_815D9E8
-	msgbox gStringVar4
-	closemessage
-EventScript_1C5219:
-	setvar VAR_0x8004, 2
-	setvar VAR_0x8005, 0
-	special sub_815D9E8
-	waitstate
-	switch VAR_RESULT
-	case 1, EventScript_1C524D
-	case 2, EventScript_1C52E0
-	case 3, EventScript_1C52E0
-EventScript_1C524D:
-	setvar VAR_0x8004, 3
-	setvar VAR_0x8005, 0
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C52D7
-	case 1, EventScript_1C52BA
-	case 2, EventScript_1C5280
-EventScript_1C5280:
-	switch VAR_0x4001
-	case 0, EventScript_1C52A6
-	case 1, EventScript_1C52B0
-	case 2, EventScript_1C52D0
-EventScript_1C52A6:
-	addvar VAR_0x4001, 1
-	goto EventScript_1C515C
-
-EventScript_1C52B0:: @ 81C52B0
-	addvar VAR_0x4001, 1
-	goto EventScript_1C515C
-
-EventScript_1C52BA:: @ 81C52BA
-	applymovement 5, Movement_1C554C
-	waitmovement 0
-	applymovement 2, Movement_1C5550
-	goto EventScript_1C52D7
-
-EventScript_1C52D0:: @ 81C52D0
-	applymovement 3, Movement_1C554D
-EventScript_1C52D7:
-	setvar VAR_0x8004, 4
-	special sub_815D9E8
-	end
-
-EventScript_1C52E0:: @ 81C52E0
-	special sp000_heal_pokemon
-	setvar VAR_0x8004, 11
-	special sub_815D9E8
-	warp MAP_SEVEN_ISLAND_TRAINER_TOWER_LOBBY, 255, 9, 7
-	waitstate
-
-EventScript_1C52F4:: @ 81C52F4
-	setvar VAR_0x8004, 3
-	setvar VAR_0x8005, 0
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C5327
-	case 1, EventScript_1C5327
-	case 2, EventScript_1C5331
-EventScript_1C5327:
-	setvar VAR_0x8006, 0
-	goto EventScript_1C5391
-
-EventScript_1C5331:: @ 81C5331
-	setvar VAR_0x8006, 1
-	goto EventScript_1C5391
-
-EventScript_1C533B:: @ 81C533B
-	setvar VAR_0x8004, 3
-	setvar VAR_0x8005, 0
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C536E
-	case 1, EventScript_1C536E
-	case 2, EventScript_1C5378
-EventScript_1C536E:
-	setvar VAR_0x8006, 0
-	goto EventScript_1C5391
-
-EventScript_1C5378:: @ 81C5378
-	setvar VAR_0x8006, 2
-	goto EventScript_1C5391
-
-EventScript_1C5382:: @ 81C5382
-	setvar VAR_0x8006, 0
-	goto EventScript_1C5391
-
-EventScript_1C538C:: @ 81C538C
-	setvar VAR_0x8006, 1
-EventScript_1C5391:
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 5
-	special sub_815D9E8
-	lock
-	faceplayer
-	msgbox gStringVar4
-	release
-	return
-
-EventScript_1C53AA:: @ 81C53AA
-	lock
-	faceplayer
-	setvar VAR_0x8004, 7
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C53DA
-	case 1, EventScript_1C53E2
-	case 2, EventScript_1C5492
-EventScript_1C53DA:
-	msgbox Text_17CA5A
-EventScript_1C53E2:
-	setvar VAR_0x8004, 8
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C5410
-	case 1, EventScript_1C543A
-	case 2, EventScript_1C544F
-EventScript_1C5410:
-	msgbox Text_17CB09
-	textcolor 3
-	playfanfare MUS_FANFA1
-	message Text_ObtainedTheX
-	waitfanfare
-	waitmessage
-	getstdstring 2, 24
-	msgbox Text_PutItemAway
-	call EventScript_1A6675
-	goto EventScript_1C544F
-
-EventScript_1C543A:: @ 81C543A
-	msgbox Text_17CB09
-	msgbox Text_BagIsFull
-	goto EventScript_1C544F
-
-EventScript_1C544F:: @ 81C544F
-	setvar VAR_0x8004, 9
-	special sub_815D9E8
-	switch VAR_RESULT
-	case 0, EventScript_1C547D
-	case 1, EventScript_1C548A
-	case 2, EventScript_1C5492
-EventScript_1C547D:
-	msgbox Text_17CB1A
-	goto EventScript_1C5492
-
-EventScript_1C548A:: @ 81C548A
-	msgbox Text_17CBC0
-EventScript_1C5492:
-	msgbox Text_17CBF5
-	release
-	return
-
-EventScript_1C549C:: @ 81C549C
-	lockall
-	setvar VAR_0x8004, 13
-	special sub_815D9E8
-	msgbox Text_17CC56
-	releaseall
-	end
-
-SevenIsland_TrainerTower_2F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_4F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_6F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_8F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_5F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_7F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_3F_EventScript_1C54AF:: @ 81C54AF
-SevenIsland_TrainerTower_1F_EventScript_1C54AF:: @ 81C54AF
-	goto EventScript_1C508F
-
-SevenIsland_TrainerTower_2F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_4F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_6F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_8F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_5F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_7F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_3F_EventScript_1C54B4:: @ 81C54B4
-SevenIsland_TrainerTower_1F_EventScript_1C54B4:: @ 81C54B4
-	setvar VAR_0x4003, 0
-	setvar VAR_0x8004, 16
-	special sub_815D9E8
-	compare VAR_RESULT, 0
-	goto_if ne, EventScript_1C5528
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 2, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 2, Movement_Delay48
-	goto EventScript_1C551B
-
-SevenIsland_TrainerTower_2F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_4F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_6F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_8F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_5F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_7F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_3F_EventScript_1C54EA:: @ 81C54EA
-SevenIsland_TrainerTower_1F_EventScript_1C54EA:: @ 81C54EA
-	setvar VAR_0x4003, 1
-	setvar VAR_0x8004, 16
-	special sub_815D9E8
-	compare VAR_RESULT, 0
-	goto_if ne, EventScript_1C5528
-	setvar VAR_0x8004, 19
-	special sub_815D9E8
-	applymovement 5, Movement_ExclamationMark
-	waitmovement 0
-	applymovement 5, Movement_Delay48
-EventScript_1C551B:
-	waitmovement 0
-	setvar VAR_0x400F, 1
-	goto EventScript_1C508F
-
-EventScript_1C5528:: @ 81C5528
-	lockall
-	playse SE_PINPON
-	msgbox Text_17CC73
-	closemessage
-	applymovement OBJ_EVENT_ID_PLAYER, Movement_1C5544
-	waitmovement 0
-	releaseall
-	end
-
-Movement_1C5541:
-	walk_left
-Movement_1C5542:: @ 81C5542
-	walk_left
-	walk_left
-Movement_1C5544:
-	walk_left
-	step_end
-
-Movement_1C5546:: @ 81C5546
-	walk_up
-	walk_up
-	step_end
-
-Movement_1C5549:: @ 81C5549
-	walk_down
-	walk_down
-	step_end
-
-Movement_1C554C:: @ 81C554C
-	walk_right
-Movement_1C554D:
-	walk_up
-	face_down
-	step_end
-
-Movement_1C5550:: @ 81C5550
-	face_down
-	step_end
-
+	.include "data/scripts/trainer_tower.inc"
 	.include "data/scripts/test.inc"
 	.include "data/text/save.inc"
 	.include "data/text/new_game_intro.inc"
diff --git a/data/maps/PalletTown_PlayersHouse_2F/scripts.inc b/data/maps/PalletTown_PlayersHouse_2F/scripts.inc
index acd6e8c77..b954f7ef7 100644
--- a/data/maps/PalletTown_PlayersHouse_2F/scripts.inc
+++ b/data/maps/PalletTown_PlayersHouse_2F/scripts.inc
@@ -40,7 +40,7 @@ PalletTown_PlayersHouse_2F_EventScript_168CE4:: @ 8168CE4
 	setvar VAR_0x8004, 1
 	special Special_AnimatePcTurnOn
 	playse SE_PC_ON
-	msgbox gUnknown_81A5420
+	msgbox Text_PlayerBootedUpPC
 	special BedroomPC
 	waitstate
 	special sub_812B35C
diff --git a/data/scripts/pokedex_rating.inc b/data/scripts/pokedex_rating.inc
new file mode 100644
index 000000000..efa2f0b98
--- /dev/null
+++ b/data/scripts/pokedex_rating.inc
@@ -0,0 +1,89 @@
+EventScript_1A737B:: @ 81A737B
+	special sub_8110AB4
+	compare VAR_RESULT, 2
+	goto_if eq, EventScript_1A7AE0
+	special sub_8112364
+	checkflag FLAG_OAK_SAW_DEX_COMPLETION
+	call_if TRUE, EventScript_1A73A4
+	checkflag FLAG_OAK_SAW_DEX_COMPLETION
+	call_if FALSE, EventScript_1A73AD
+	call EventScript_1A73E0
+	return
+
+EventScript_1A73A4:: @ 81A73A4
+	msgbox Text_1A72F2
+	return
+
+EventScript_1A73AD:: @ 81A73AD
+	msgbox gUnknown_81A6C51
+	return
+
+EventScript_1A73B6:: @ 81A73B6
+	copyvar VAR_0x8004, VAR_0x8009
+	special Special_GetProfOaksRatingMessage
+	waitmessage
+	compare VAR_RESULT, 0
+	call_if eq, EventScript_1A73D8
+	compare VAR_RESULT, 1
+	call_if eq, EventScript_1A73DC
+	waitfanfare
+	waitbuttonpress
+	return
+
+EventScript_1A73D8:: @ 81A73D8
+	playfanfare MUS_FAN2
+	return
+
+EventScript_1A73DC:: @ 81A73DC
+	playfanfare MUS_FANFA5
+	return
+
+EventScript_1A73E0:: @ 81A73E0
+	setvar VAR_0x8004, 31
+	special HelpSystem_BackupSomeVariable
+	special Special_SetSomeVariable
+	setvar VAR_0x8004, 0
+	specialvar VAR_RESULT, Special_GetPokedexCount
+	copyvar VAR_0x8008, VAR_0x8005
+	copyvar VAR_0x8009, VAR_0x8006
+	copyvar VAR_0x800A, VAR_RESULT
+	getnumberstring 0, VAR_0x8008
+	getnumberstring 1, VAR_0x8009
+	msgbox Text_1A6CA3
+	checkflag FLAG_OAKS_RATING_IS_VIA_PC
+	call_if FALSE, EventScript_1A746D
+	call EventScript_1A73B6
+	compare VAR_0x800A, 0
+	goto_if eq, EventScript_1A748F
+	setvar VAR_0x8004, 1
+	specialvar VAR_RESULT, Special_GetPokedexCount
+	copyvar VAR_0x8008, VAR_0x8005
+	copyvar VAR_0x8009, VAR_0x8006
+	getnumberstring 0, VAR_0x8008
+	getnumberstring 1, VAR_0x8009
+	msgbox Text_1A71AA
+	specialvar VAR_RESULT, HasAllMons
+	compare VAR_RESULT, 0
+	goto_if eq, EventScript_1A7470
+	compare VAR_RESULT, 1
+	goto_if eq, EventScript_1A747E
+	end
+
+EventScript_1A746D:: @ 81A746D
+	textcolor 0
+	return
+
+EventScript_1A7470:: @ 81A7470
+	msgbox Text_1A71EE
+	goto EventScript_1A748F
+	end
+
+EventScript_1A747E:: @ 81A747E
+	setflag FLAG_OAK_SAW_DEX_COMPLETION
+	msgbox Text_1A722F
+	goto EventScript_1A748F
+	end
+
+EventScript_1A748F:: @ 81A748F
+	special HelpSystem_RestoreSomeVariable
+	return
diff --git a/data/scripts/route23.inc b/data/scripts/route23.inc
new file mode 100644
index 000000000..fe2baa17a
--- /dev/null
+++ b/data/scripts/route23.inc
@@ -0,0 +1,229 @@
+EventScript_1A77C9:: @ 81A77C9
+	msgbox Text_OnlySkilledTrainersAllowedThrough
+	playse SE_BOO
+	msgbox Text_CantLetYouPass
+	release
+	end
+
+EventScript_1A77DE:: @ 81A77DE
+	message Text_OnlyPassWithBadgeDontHaveYet
+	waitmessage
+	playse SE_BOO
+	waitbuttonpress
+	closemessage
+	waitse
+	release
+	end
+
+EventScript_1A77EC:: @ 81A77EC
+	message Text_OhThatsBadgeGoRightAhead
+	waitmessage
+	playfanfare MUS_FANFA1
+	waitfanfare
+	waitbuttonpress
+	release
+	end
+
+EventScript_1A77F9:: @ 81A77F9
+	msgbox Text_OnlyPassWithBadgeOhGoAhead
+	release
+	end
+
+EventScript_1A7803:: @ 81A7803
+	compare VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	goto_if ge, EventScript_1A77EC
+	switch VAR_0x4001
+	case 1, EventScript_1A78D5
+	case 2, EventScript_1A78E4
+	case 3, EventScript_1A78F3
+	case 4, EventScript_1A7902
+	case 5, EventScript_1A7911
+	case 6, EventScript_1A7920
+	case 7, EventScript_1A792F
+	case 8, EventScript_1A793E
+	end
+
+EventScript_1A786C:: @ 81A786C
+	compare VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	goto_if ge, EventScript_1A77F9
+	switch VAR_0x4001
+	case 1, EventScript_1A78D5
+	case 2, EventScript_1A78E4
+	case 3, EventScript_1A78F3
+	case 4, EventScript_1A7902
+	case 5, EventScript_1A7911
+	case 6, EventScript_1A7920
+	case 7, EventScript_1A792F
+	case 8, EventScript_1A793E
+	end
+
+EventScript_1A78D5:: @ 81A78D5
+	checkflag FLAG_BADGE01_GET
+	goto_if TRUE, EventScript_1A794D
+	goto EventScript_1A77C9
+	end
+
+EventScript_1A78E4:: @ 81A78E4
+	checkflag FLAG_BADGE02_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A78F3:: @ 81A78F3
+	checkflag FLAG_BADGE03_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A7902:: @ 81A7902
+	checkflag FLAG_BADGE04_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A7911:: @ 81A7911
+	checkflag FLAG_BADGE05_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A7920:: @ 81A7920
+	checkflag FLAG_BADGE06_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A792F:: @ 81A792F
+	checkflag FLAG_BADGE07_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A793E:: @ 81A793E
+	checkflag FLAG_BADGE08_GET
+	goto_if TRUE, EventScript_1A795F
+	goto EventScript_1A77DE
+	end
+
+EventScript_1A794D:: @ 81A794D
+	message Text_OhThatsBadgeGoRightAhead
+	waitmessage
+	playfanfare MUS_FANFA1
+	waitfanfare
+	waitbuttonpress
+	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	release
+	end
+
+EventScript_1A795F:: @ 81A795F
+	msgbox Text_OnlyPassWithBadgeOhGoAhead
+	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	release
+	end
+
+EventScript_1A796E:: @ 81A796E
+	textcolor 0
+	applymovement VAR_0x8009, Movement_WalkInPlaceFastestLeft
+	waitmovement 0
+	switch VAR_0x4001
+	case 1, EventScript_1A79D8
+	case 2, EventScript_1A79E7
+	case 3, EventScript_1A79F6
+	case 4, EventScript_1A7A05
+	case 5, EventScript_1A7A14
+	case 6, EventScript_1A7A23
+	case 7, EventScript_1A7A32
+	case 8, EventScript_1A7A41
+	end
+
+EventScript_1A79D8:: @ 81A79D8
+	checkflag FLAG_BADGE01_GET
+	goto_if TRUE, EventScript_1A7A96
+	goto EventScript_1A7A50
+	end
+
+EventScript_1A79E7:: @ 81A79E7
+	checkflag FLAG_BADGE02_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A79F6:: @ 81A79F6
+	checkflag FLAG_BADGE03_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A05:: @ 81A7A05
+	checkflag FLAG_BADGE04_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A14:: @ 81A7A14
+	checkflag FLAG_BADGE05_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A23:: @ 81A7A23
+	checkflag FLAG_BADGE06_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A32:: @ 81A7A32
+	checkflag FLAG_BADGE07_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A41:: @ 81A7A41
+	checkflag FLAG_BADGE08_GET
+	goto_if TRUE, EventScript_1A7AA8
+	goto EventScript_1A7A77
+	end
+
+EventScript_1A7A50:: @ 81A7A50
+	msgbox Text_OnlySkilledTrainersAllowedThrough
+	playse SE_BOO
+	msgbox Text_CantLetYouPass
+	closemessage
+	applymovement OBJ_EVENT_ID_PLAYER, Movement_1A7AB7
+	applymovement VAR_0x8009, Movement_WalkInPlaceFastestDown
+	waitmovement 0
+	releaseall
+	end
+
+EventScript_1A7A77:: @ 81A7A77
+	message Text_OnlyPassWithBadgeDontHaveYet
+	waitmessage
+	playse SE_BOO
+	waitbuttonpress
+	closemessage
+	waitse
+	applymovement OBJ_EVENT_ID_PLAYER, Movement_1A7AB7
+	applymovement VAR_0x8009, Movement_WalkInPlaceFastestDown
+	waitmovement 0
+	releaseall
+	end
+
+EventScript_1A7A96:: @ 81A7A96
+	message Text_OhThatsBadgeGoRightAhead
+	waitmessage
+	playfanfare MUS_FANFA1
+	waitfanfare
+	waitbuttonpress
+	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	releaseall
+	end
+
+EventScript_1A7AA8:: @ 81A7AA8
+	msgbox Text_OnlyPassWithBadgeOhGoAhead
+	copyvar VAR_MAP_SCENE_ROUTE23, VAR_0x4001
+	releaseall
+	end
+
+Movement_1A7AB7:: @ 81A7AB7
+	walk_down
+	step_end
diff --git a/data/scripts/seagallop.inc b/data/scripts/seagallop.inc
new file mode 100644
index 000000000..0fbfe3f93
--- /dev/null
+++ b/data/scripts/seagallop.inc
@@ -0,0 +1,207 @@
+EventScript_1A8EC5:: @ 81A8EC5
+    compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
+    goto_if ge, EventScript_1A911E
+    compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
+    goto_if ge, EventScript_1A8F12
+    multichoice 19, 6, MULTICHOICE_ISLAND_23, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FF9
+    case 1, EventScript_1A9004
+    case 2, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A8F12:: @ 81A8F12
+    multichoice 19, 5, MULTICHOICE_SEAGALLOP_V23, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FE3
+    case 1, EventScript_1A8FF9
+    case 2, EventScript_1A9004
+    case 3, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A8F54:: @ 81A8F54
+    compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
+    goto_if ge, EventScript_1A911E
+    compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
+    goto_if ge, EventScript_1A8FA1
+    multichoice 19, 6, MULTICHOICE_ISLAND_13, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FEE
+    case 1, EventScript_1A9004
+    case 2, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A8FA1:: @ 81A8FA1
+    multichoice 19, 5, MULTICHOICE_SEAGALLOP_V13, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FE3
+    case 1, EventScript_1A8FEE
+    case 2, EventScript_1A9004
+    case 3, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A8FE3:: @ 81A8FE3
+    setvar VAR_0x8006, SEAGALLOP_VERMILION_CITY
+    goto EventScript_1A909E
+    end
+
+EventScript_1A8FEE:: @ 81A8FEE
+    setvar VAR_0x8006, SEAGALLOP_ONE_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A8FF9:: @ 81A8FF9
+    setvar VAR_0x8006, SEAGALLOP_TWO_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A9004:: @ 81A9004
+    setvar VAR_0x8006, SEAGALLOP_THREE_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A900F:: @ 81A900F
+    compare VAR_MAP_SCENE_ONE_ISLAND_POKEMON_CENTER_1F, 5
+    goto_if ge, EventScript_1A911E
+    compare VAR_MAP_SCENE_CINNABAR_ISLAND, 4
+    goto_if ge, EventScript_1A905C
+    multichoice 19, 6, MULTICHOICE_ISLAND_12, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FEE
+    case 1, EventScript_1A8FF9
+    case 2, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A905C:: @ 81A905C
+    multichoice 19, 5, MULTICHOICE_SEAGALLOP_V12, FALSE
+    switch VAR_RESULT
+    case 0, EventScript_1A8FE3
+    case 1, EventScript_1A8FEE
+    case 2, EventScript_1A8FF9
+    case 3, EventScript_1A90F6
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A909E:: @ 81A909E
+    specialvar VAR_RESULT, sub_8147500
+    getnumberstring 0, VAR_RESULT
+    compare VAR_0x8004, SEAGALLOP_VERMILION_CITY
+    goto_if eq, EventScript_1A90BE
+    compare VAR_0x8004, SEAGALLOP_VERMILION_CITY
+    goto_if ne, EventScript_1A90CC
+    end
+
+EventScript_1A90BE:: @ 81A90BE
+    msgbox Text_17FB67
+    goto EventScript_1A90DA
+    end
+
+EventScript_1A90CC:: @ 81A90CC
+    msgbox Text_1A641B
+    goto EventScript_1A90DA
+    end
+
+EventScript_1A90DA:: @ 81A90DA
+    closemessage
+    delay 20
+    special sub_8110AB4
+    compare VAR_RESULT, 2
+    goto_if eq, EventScript_1A7AE0
+    special sub_8112364
+    fadescreen 1
+    special ScrSpecial_SeagallopFerry
+    waitstate
+    end
+
+EventScript_1A90F6:: @ 81A90F6
+    specialvar VAR_RESULT, sub_8147594
+    compare VAR_RESULT, 1
+    goto_if eq, EventScript_1A9108
+    release
+    end
+
+EventScript_1A9108:: @ 81A9108
+    closemessage
+    applymovement 6, Movement_FaceOriginalDirection
+    applymovement OBJ_EVENT_ID_PLAYER, Movement_1A911C
+    waitmovement 0
+    releaseall
+    end
+
+Movement_1A911C:: @ 81A911C
+    walk_up
+    step_end
+
+EventScript_1A911E:: @ 81A911E
+    setvar VAR_0x8005, 0
+    special Special_DrawSeagallopDestinationMenu
+    waitstate
+    specialvar VAR_0x8006, Special_GetSelectedSeagallopDestination
+    switch VAR_0x8006
+    case SEAGALLOP_VERMILION_CITY, EventScript_1A91D5
+    case SEAGALLOP_ONE_ISLAND,     EventScript_1A91E0
+    case SEAGALLOP_TWO_ISLAND,     EventScript_1A91EB
+    case SEAGALLOP_THREE_ISLAND,   EventScript_1A91F6
+    case SEAGALLOP_FOUR_ISLAND,    EventScript_1A9201
+    case SEAGALLOP_MORE,           EventScript_1A917F
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A917F:: @ 81A917F
+    setvar VAR_0x8005, 1
+    special Special_DrawSeagallopDestinationMenu
+    waitstate
+    specialvar VAR_0x8006, Special_GetSelectedSeagallopDestination
+    switch VAR_0x8006
+    case SEAGALLOP_FOUR_ISLAND,  EventScript_1A9201
+    case SEAGALLOP_FIVE_ISLAND,  EventScript_1A920C
+    case SEAGALLOP_SIX_ISLAND,   EventScript_1A9217
+    case SEAGALLOP_SEVEN_ISLAND, EventScript_1A9222
+    case SEAGALLOP_MORE,           EventScript_1A911E
+    case SCR_MENU_CANCEL, EventScript_1A90F6
+    end
+
+EventScript_1A91D5:: @ 81A91D5
+    setvar VAR_0x8006, SEAGALLOP_VERMILION_CITY
+    goto EventScript_1A909E
+    end
+
+EventScript_1A91E0:: @ 81A91E0
+    setvar VAR_0x8006, SEAGALLOP_ONE_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A91EB:: @ 81A91EB
+    setvar VAR_0x8006, SEAGALLOP_TWO_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A91F6:: @ 81A91F6
+    setvar VAR_0x8006, SEAGALLOP_THREE_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A9201:: @ 81A9201
+    setvar VAR_0x8006, SEAGALLOP_FOUR_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A920C:: @ 81A920C
+    setvar VAR_0x8006, SEAGALLOP_FIVE_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A9217:: @ 81A9217
+    setvar VAR_0x8006, SEAGALLOP_SIX_ISLAND
+    goto EventScript_1A909E
+    end
+
+EventScript_1A9222:: @ 81A9222
+    setvar VAR_0x8006, SEAGALLOP_SEVEN_ISLAND
+    goto EventScript_1A909E
+    end
diff --git a/data/scripts/static_pokemon.inc b/data/scripts/static_pokemon.inc
new file mode 100644
index 000000000..ef57cf36d
--- /dev/null
+++ b/data/scripts/static_pokemon.inc
@@ -0,0 +1,23 @@
+EventScript_1A922D:: @ 81A922D
+    fadescreen 1
+    removeobject VAR_LAST_TALKED
+    fadescreen 0
+    release
+    end
+
+EventScript_1A9236:: @ 81A9236
+    fadescreen 1
+    removeobject VAR_LAST_TALKED
+    fadescreen 0
+    getspeciesname 0, VAR_0x8004
+    msgbox Text_1A63C4
+    release
+    end
+
+EventScript_1A924B:: @ 81A924B
+    message Text_1853E8
+    waitmessage
+    playfanfare MUS_POKEFUE
+    waitfanfare
+    msgbox Text_185354
+    return
diff --git a/data/scripts/std_msgbox.inc b/data/scripts/std_msgbox.inc
new file mode 100644
index 000000000..7f7bacd3a
--- /dev/null
+++ b/data/scripts/std_msgbox.inc
@@ -0,0 +1,63 @@
+Std_MsgboxNPC:: @ 81A4E3F
+	lock
+	faceplayer
+	message 0x0
+	waitmessage
+	waitbuttonpress
+	release
+	return
+
+Std_MsgboxSign:: @ 81A4E4A
+	lockall
+	message 0x0
+	waitmessage
+	waitbuttonpress
+	releaseall
+	return
+
+Std_MsgboxDefault:: @ 81A4E54
+	message 0x0
+	waitmessage
+	waitbuttonpress
+	return
+
+Std_MsgboxYesNo:: @ 81A4E5C
+	message 0x0
+	waitmessage
+	yesnobox 20, 8
+	return
+
+gStdScript_ItemMessageAndFanfare:: @ 81A4E66
+	textcolor 3
+	compare VAR_0x8002, MUS_FANFA1
+	call_if eq, EventScript_1A4EA2
+	compare VAR_0x8002, MUS_FAN5
+	call_if eq, EventScript_1A4EA6
+	message 0x0
+	waitmessage
+	waitfanfare
+	compare VAR_0x8002, MUS_FANFA1
+	call_if eq, EventScript_1A4EAA
+	putitemaway VAR_0x8000, VAR_0x8001
+	call EventScript_1A6675
+	return
+
+EventScript_1A4EA2:: @ 81A4EA2
+	playfanfare MUS_FANFA1
+	return
+
+EventScript_1A4EA6:: @ 81A4EA6
+	playfanfare MUS_FAN5
+	return
+
+EventScript_1A4EAA:: @ 81A4EAA
+	delay 50
+	return
+
+EventScript_UnusedReturn:: @ 81A4EAE
+	return
+
+EventScript_1A4EAF:: @ 81A4EAF
+	special Field_AskSaveTheGame
+	waitstate
+	return
diff --git a/data/scripts/trainer_tower.inc b/data/scripts/trainer_tower.inc
new file mode 100644
index 000000000..c3b3cdc2e
--- /dev/null
+++ b/data/scripts/trainer_tower.inc
@@ -0,0 +1,450 @@
+SevenIsland_TrainerTower_1F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_2F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_3F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_4F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_5F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_6F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_7F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_8F_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_Elevator_MapScript1_1C4F54:: @ 81C4F54
+SevenIsland_TrainerTower_Roof_MapScript1_1C4F54:: @ 81C4F54
+	setvar VAR_0x4002, 0
+	setvar VAR_0x8004, 10
+	special sub_815D9E8
+	end
+
+SevenIsland_TrainerTower_1F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_2F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_3F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_4F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_5F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_6F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_7F_MapScript2_1C4F62:: @ 81C4F62
+SevenIsland_TrainerTower_8F_MapScript2_1C4F62:: @ 81C4F62
+	setvar VAR_0x8004, 0
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C4FA7
+	case 1, EventScript_1C4FC5
+	case 2, EventScript_1C5019
+	setflag FLAG_TEMP_2
+	setflag FLAG_TEMP_3
+	setflag FLAG_TEMP_4
+	setflag FLAG_TEMP_5
+	setvar VAR_0x400E, 1
+	setvar VAR_0x400F, 1
+	end
+
+EventScript_1C4FA7:: @ 81C4FA7
+	setflag FLAG_TEMP_2
+	setflag FLAG_TEMP_4
+	setflag FLAG_TEMP_5
+	setvar VAR_0x400F, 1
+	setobjectxyperm 3, 15, 13
+	setobjectmovementtype 3, 9
+	goto EventScript_1C5042
+
+EventScript_1C4FC5:: @ 81C4FC5
+	setflag FLAG_TEMP_3
+	setflag FLAG_TEMP_4
+	setvar VAR_0x400E, 1
+	setvar VAR_0x8004, 5
+	special sub_815D9E8
+	compare VAR_RESULT, 1
+	goto_if eq, EventScript_1C4FFE
+	setobjectxyperm 2, 10, 12
+	setobjectmovementtype 2, 9
+	setobjectxyperm 5, 10, 13
+	setobjectmovementtype 5, 9
+	goto EventScript_1C5042
+
+EventScript_1C4FFE:: @ 81C4FFE
+	setobjectxyperm 2, 10, 12
+	setobjectmovementtype 2, 8
+	setobjectxyperm 5, 11, 12
+	setobjectmovementtype 5, 8
+	goto EventScript_1C5042
+
+EventScript_1C5019:: @ 81C5019
+	setflag FLAG_TEMP_5
+	setvar VAR_0x400F, 1
+	setobjectxyperm 2, 10, 10
+	setobjectmovementtype 2, 8
+	setobjectxyperm 3, 14, 13
+	setobjectmovementtype 3, 9
+	setobjectxyperm 4, 10, 16
+	setobjectmovementtype 4, 7
+EventScript_1C5042:
+	setflag FLAG_TEMP_6
+	end
+
+SevenIsland_TrainerTower_1F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_2F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_3F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_4F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_5F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_6F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_7F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_8F_MapScript3_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_Elevator_MapScript2_1C5046:: @ 81C5046
+SevenIsland_TrainerTower_Roof_MapScript2_1C5046:: @ 81C5046
+	map_script_2 VAR_0x4002, 0, EventScript_1C5050
+	.2byte 0
+
+EventScript_1C5050:: @ 81C5050
+	setvar VAR_0x4002, 1
+	setvar VAR_0x8004, 5
+	special sub_815D9E8
+	compare VAR_RESULT, 0
+	goto_if eq, EventScript_1C5072
+	setvar VAR_0x400E, 1
+	setvar VAR_0x400F, 1
+EventScript_1C5072:
+	setvar VAR_0x8004, 18
+	special sub_815D9E8
+	compare VAR_RESULT, 1
+	goto_if eq, EventScript_1C5086
+	end
+
+EventScript_1C5086:: @ 81C5086
+	warp MAP_SEVEN_ISLAND_TRAINER_TOWER_LOBBY, 255, 9, 7
+	waitstate
+EventScript_1C508F::
+	setvar VAR_0x8004, 3
+	setvar VAR_0x8005, 0
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C50C2
+	case 1, EventScript_1C510D
+	case 2, EventScript_1C515C
+EventScript_1C50C2:
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 3, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 3, Movement_Delay48
+	waitmovement 0
+	setvar VAR_0x400E, 1
+	applymovement 3, Movement_1C5541
+	waitmovement 0
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 2
+	setvar VAR_0x8006, 0
+	special sub_815D9E8
+	msgbox gStringVar4
+	closemessage
+	goto EventScript_1C5219
+
+EventScript_1C510D:: @ 81C510D
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 2
+	copyvar VAR_0x8006, VAR_0x4003
+	special sub_815D9E8
+	msgbox gStringVar4
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 2
+	addvar VAR_0x4003, 1
+	compare VAR_0x4003, 1
+	goto_if eq, EventScript_1C5146
+	setvar VAR_0x4003, 0
+EventScript_1C5146:
+	copyvar VAR_0x8006, VAR_0x4003
+	special sub_815D9E8
+	msgbox gStringVar4
+	closemessage
+	goto EventScript_1C5219
+
+EventScript_1C515C:: @ 81C515C
+	switch VAR_0x4001
+	case 0, EventScript_1C5182
+	case 1, EventScript_1C51AD
+	case 2, EventScript_1C51D8
+EventScript_1C5182:
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 4, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 4, Movement_Delay48
+	waitmovement 0
+	applymovement 4, Movement_1C5546
+	waitmovement 0
+	goto EventScript_1C51FE
+
+EventScript_1C51AD:: @ 81C51AD
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 2, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 2, Movement_Delay48
+	waitmovement 0
+	applymovement 2, Movement_1C5549
+	waitmovement 0
+	goto EventScript_1C51FE
+
+EventScript_1C51D8:: @ 81C51D8
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 3, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 3, Movement_Delay48
+	waitmovement 0
+	applymovement 3, Movement_1C5542
+	waitmovement 0
+EventScript_1C51FE:
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 2
+	copyvar VAR_0x8006, VAR_0x4001
+	special sub_815D9E8
+	msgbox gStringVar4
+	closemessage
+EventScript_1C5219:
+	setvar VAR_0x8004, 2
+	setvar VAR_0x8005, 0
+	special sub_815D9E8
+	waitstate
+	switch VAR_RESULT
+	case 1, EventScript_1C524D
+	case 2, EventScript_1C52E0
+	case 3, EventScript_1C52E0
+EventScript_1C524D:
+	setvar VAR_0x8004, 3
+	setvar VAR_0x8005, 0
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C52D7
+	case 1, EventScript_1C52BA
+	case 2, EventScript_1C5280
+EventScript_1C5280:
+	switch VAR_0x4001
+	case 0, EventScript_1C52A6
+	case 1, EventScript_1C52B0
+	case 2, EventScript_1C52D0
+EventScript_1C52A6:
+	addvar VAR_0x4001, 1
+	goto EventScript_1C515C
+
+EventScript_1C52B0:: @ 81C52B0
+	addvar VAR_0x4001, 1
+	goto EventScript_1C515C
+
+EventScript_1C52BA:: @ 81C52BA
+	applymovement 5, Movement_1C554C
+	waitmovement 0
+	applymovement 2, Movement_1C5550
+	goto EventScript_1C52D7
+
+EventScript_1C52D0:: @ 81C52D0
+	applymovement 3, Movement_1C554D
+EventScript_1C52D7:
+	setvar VAR_0x8004, 4
+	special sub_815D9E8
+	end
+
+EventScript_1C52E0:: @ 81C52E0
+	special sp000_heal_pokemon
+	setvar VAR_0x8004, 11
+	special sub_815D9E8
+	warp MAP_SEVEN_ISLAND_TRAINER_TOWER_LOBBY, 255, 9, 7
+	waitstate
+
+EventScript_1C52F4:: @ 81C52F4
+	setvar VAR_0x8004, 3
+	setvar VAR_0x8005, 0
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C5327
+	case 1, EventScript_1C5327
+	case 2, EventScript_1C5331
+EventScript_1C5327:
+	setvar VAR_0x8006, 0
+	goto EventScript_1C5391
+
+EventScript_1C5331:: @ 81C5331
+	setvar VAR_0x8006, 1
+	goto EventScript_1C5391
+
+EventScript_1C533B:: @ 81C533B
+	setvar VAR_0x8004, 3
+	setvar VAR_0x8005, 0
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C536E
+	case 1, EventScript_1C536E
+	case 2, EventScript_1C5378
+EventScript_1C536E:
+	setvar VAR_0x8006, 0
+	goto EventScript_1C5391
+
+EventScript_1C5378:: @ 81C5378
+	setvar VAR_0x8006, 2
+	goto EventScript_1C5391
+
+EventScript_1C5382:: @ 81C5382
+	setvar VAR_0x8006, 0
+	goto EventScript_1C5391
+
+EventScript_1C538C:: @ 81C538C
+	setvar VAR_0x8006, 1
+EventScript_1C5391:
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 5
+	special sub_815D9E8
+	lock
+	faceplayer
+	msgbox gStringVar4
+	release
+	return
+
+EventScript_1C53AA:: @ 81C53AA
+	lock
+	faceplayer
+	setvar VAR_0x8004, 7
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C53DA
+	case 1, EventScript_1C53E2
+	case 2, EventScript_1C5492
+EventScript_1C53DA:
+	msgbox Text_17CA5A
+EventScript_1C53E2:
+	setvar VAR_0x8004, 8
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C5410
+	case 1, EventScript_1C543A
+	case 2, EventScript_1C544F
+EventScript_1C5410:
+	msgbox Text_17CB09
+	textcolor 3
+	playfanfare MUS_FANFA1
+	message Text_ObtainedTheX
+	waitfanfare
+	waitmessage
+	getstdstring 2, 24
+	msgbox Text_PutItemAway
+	call EventScript_1A6675
+	goto EventScript_1C544F
+
+EventScript_1C543A:: @ 81C543A
+	msgbox Text_17CB09
+	msgbox Text_BagIsFull
+	goto EventScript_1C544F
+
+EventScript_1C544F:: @ 81C544F
+	setvar VAR_0x8004, 9
+	special sub_815D9E8
+	switch VAR_RESULT
+	case 0, EventScript_1C547D
+	case 1, EventScript_1C548A
+	case 2, EventScript_1C5492
+EventScript_1C547D:
+	msgbox Text_17CB1A
+	goto EventScript_1C5492
+
+EventScript_1C548A:: @ 81C548A
+	msgbox Text_17CBC0
+EventScript_1C5492:
+	msgbox Text_17CBF5
+	release
+	return
+
+EventScript_1C549C:: @ 81C549C
+	lockall
+	setvar VAR_0x8004, 13
+	special sub_815D9E8
+	msgbox Text_17CC56
+	releaseall
+	end
+
+SevenIsland_TrainerTower_2F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_4F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_6F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_8F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_5F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_7F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_3F_EventScript_1C54AF:: @ 81C54AF
+SevenIsland_TrainerTower_1F_EventScript_1C54AF:: @ 81C54AF
+	goto EventScript_1C508F
+
+SevenIsland_TrainerTower_2F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_4F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_6F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_8F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_5F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_7F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_3F_EventScript_1C54B4:: @ 81C54B4
+SevenIsland_TrainerTower_1F_EventScript_1C54B4:: @ 81C54B4
+	setvar VAR_0x4003, 0
+	setvar VAR_0x8004, 16
+	special sub_815D9E8
+	compare VAR_RESULT, 0
+	goto_if ne, EventScript_1C5528
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 2, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 2, Movement_Delay48
+	goto EventScript_1C551B
+
+SevenIsland_TrainerTower_2F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_4F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_6F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_8F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_5F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_7F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_3F_EventScript_1C54EA:: @ 81C54EA
+SevenIsland_TrainerTower_1F_EventScript_1C54EA:: @ 81C54EA
+	setvar VAR_0x4003, 1
+	setvar VAR_0x8004, 16
+	special sub_815D9E8
+	compare VAR_RESULT, 0
+	goto_if ne, EventScript_1C5528
+	setvar VAR_0x8004, 19
+	special sub_815D9E8
+	applymovement 5, Movement_ExclamationMark
+	waitmovement 0
+	applymovement 5, Movement_Delay48
+EventScript_1C551B:
+	waitmovement 0
+	setvar VAR_0x400F, 1
+	goto EventScript_1C508F
+
+EventScript_1C5528:: @ 81C5528
+	lockall
+	playse SE_PINPON
+	msgbox Text_17CC73
+	closemessage
+	applymovement OBJ_EVENT_ID_PLAYER, Movement_1C5544
+	waitmovement 0
+	releaseall
+	end
+
+Movement_1C5541:
+	walk_left
+Movement_1C5542:: @ 81C5542
+	walk_left
+	walk_left
+Movement_1C5544:
+	walk_left
+	step_end
+
+Movement_1C5546:: @ 81C5546
+	walk_up
+	walk_up
+	step_end
+
+Movement_1C5549:: @ 81C5549
+	walk_down
+	walk_down
+	step_end
+
+Movement_1C554C:: @ 81C554C
+	walk_right
+Movement_1C554D:
+	walk_up
+	face_down
+	step_end
+
+Movement_1C5550:: @ 81C5550
+	face_down
+	step_end
diff --git a/data/text/poke_mart.inc b/data/text/poke_mart.inc
new file mode 100644
index 000000000..de1a0596c
--- /dev/null
+++ b/data/text/poke_mart.inc
@@ -0,0 +1,29 @@
+Text_MayIHelpYou:: @ 81A6211
+	.string "Hi, there!\n"
+	.string "May I help you?$"
+
+Text_FillOutQuestionnaire:: @ 81A622C
+	.string "There is a questionnaire.\n"
+	.string "Would you like to fill it out?$"
+
+Text_1A6265:: @ 81A6265
+	.string "Thank you for taking the time to\n"
+	.string "fill out our questionnaire.\p"
+	.string "Your feedback will be used for\n"
+	.string "future reference.$"
+
+Text_1A62D3:: @ 81A62D3
+	.string "Oh, hello!\n"
+	.string "You know those words?\p"
+	.string "That means you must know about\n"
+	.string "the MYSTERY GIFT.\p"
+	.string "From now on, you should be\n"
+	.string "receiving MYSTERY GIFTS!$"
+
+Text_1A6359:: @ 81A6359
+	.string "Once you save your game, you can\n"
+	.string "access the MYSTERY GIFT.$"
+
+Text_1A6393:: @ 81A6393
+	.string "Thank you for accessing the\n"
+	.string "MYSTERY GIFT System.$"
diff --git a/data/text/pokedex_rating.inc b/data/text/pokedex_rating.inc
new file mode 100644
index 000000000..461c29e26
--- /dev/null
+++ b/data/text/pokedex_rating.inc
@@ -0,0 +1,123 @@
+gUnknown_81A6C51:: @ 81A6C51
+	.string "OAK: Good to see you!\n"
+	.string "How is your POKéDEX coming along?\p"
+	.string "Here, let me take a look.$"
+
+Text_1A6CA3:: @ 81A6CA3
+	.string "The amount of progress you've made\n"
+	.string "on your POKéDEX is:\p"
+	.string "{STR_VAR_1} POKéMON seen and\n"
+	.string "{STR_VAR_2} POKéMON owned.\p"
+	.string "{SIZE}ÁPROF. OAK's rating:$"
+
+gUnknown_81A6D17:: @ 81A6D17
+	.string "You still have lots to do.\p"
+	.string "Go into every patch of grass you\n"
+	.string "see and look for POKéMON!$"
+
+gUnknown_81A6D6D:: @ 81A6D6D
+	.string "It looks as if you're getting on\n"
+	.string "the right track!\p"
+	.string "I've given one of my AIDES a FLASH\n"
+	.string "HM. Make sure you go get it!$"
+
+gUnknown_81A6DDF:: @ 81A6DDF
+	.string "Your POKéDEX could use a bit more\n"
+	.string "volume still!\p"
+	.string "Try to catch other species of\n"
+	.string "POKéMON!$"
+
+gUnknown_81A6E36:: @ 81A6E36
+	.string "Good, it's apparent that you're\n"
+	.string "trying hard!\p"
+	.string "I've given one of my AIDES an\n"
+	.string "ITEMFINDER. Be sure to collect it!$"
+
+gUnknown_81A6EA4:: @ 81A6EA4
+	.string "Your POKéDEX is coming along quite\n"
+	.string "well!\p"
+	.string "I've given one of my AIDES an\n"
+	.string "AMULET COIN. Be sure to get it!$"
+
+gUnknown_81A6F0B:: @ 81A6F0B
+	.string "Ah, you've finally topped 50\n"
+	.string "species!\p"
+	.string "I've given one of my AIDES an EXP.\n"
+	.string "SHARE. Be sure to go get it!$"
+
+gUnknown_81A6F71:: @ 81A6F71
+	.string "Hoho! This is turning into quite the\n"
+	.string "respectable POKéDEX!$"
+
+gUnknown_81A6FAB:: @ 81A6FAB
+	.string "Very good!\p"
+	.string "I think you'll collect even more\n"
+	.string "POKéMON by going fishing!$"
+
+gUnknown_81A6FF1:: @ 81A6FF1
+	.string "Wonderful! Let me guess… You\n"
+	.string "like to collect things, don't you?$"
+
+gUnknown_81A7031:: @ 81A7031
+	.string "I'm impressed!\n"
+	.string "It must have been difficult to do!$"
+
+gUnknown_81A7063:: @ 81A7063
+	.string "You've finally hit 100 species!\n"
+	.string "I can't believe how good you are!$"
+
+gUnknown_81A70A5:: @ 81A70A5
+	.string "You even have the evolved forms\n"
+	.string "of POKéMON! Super!$"
+
+gUnknown_81A70D8:: @ 81A70D8
+	.string "Excellent! Trade with friends to\n"
+	.string "get some more!$"
+
+gUnknown_81A7108:: @ 81A7108
+	.string "Outstanding!\n"
+	.string "You've become a real pro at this!$"
+
+gUnknown_81A7137:: @ 81A7137
+	.string "I have nothing left to say!\n"
+	.string "You're the POKéMON PROFESSOR now!$"
+
+gUnknown_81A7175:: @ 81A7175
+	.string "Your POKéDEX is entirely complete!\n"
+	.string "Congratulations!!$"
+
+Text_1A71AA:: @ 81A71AA
+	.string "And your NATIONAL POKéDEX is:\p"
+	.string "{STR_VAR_1} POKéMON seen and\n"
+	.string "{STR_VAR_2} POKéMON owned.$"
+
+Text_1A71EE:: @ 81A71EE
+	.string "I'll be looking forward to seeing\n"
+	.string "you fill the NATIONAL POKéDEX!$"
+
+Text_1A722F:: @ 81A722F
+	.string "Finally…\p"
+	.string "You've finally completed the\n"
+	.string "POKéDEX!\p"
+	.string "It's magnificent!\n"
+	.string "Truly, this is a fantastic feat!$"
+
+Text_1A7291:: @ 81A7291
+	.string "Wroooooooaaaaaarrrr!$"
+
+Text_1A72A6:: @ 81A72A6
+	.string "はあ はあ‥$"
+
+gUnknown_81A72AD:: @ 81A72AD
+	.string "Thank you, {PLAYER}!\n"
+	.string "Sincerely, thank you!\l"
+	.string "You've made my dream a reality!$"
+
+Text_1A72F2:: @ 81A72F2
+	.string "OAK: Ah, welcome!\p"
+	.string "Tell me, how is your POKéDEX\n"
+	.string "coming along?\p"
+	.string "Wahaha!\p"
+	.string "Actually, I know how it is, but I\n"
+	.string "love seeing it anyway!\p"
+	.string "Let's see…$"
diff --git a/data/text/route23.inc b/data/text/route23.inc
new file mode 100644
index 000000000..9fe5cd426
--- /dev/null
+++ b/data/text/route23.inc
@@ -0,0 +1,28 @@
+Text_OnlySkilledTrainersAllowedThrough:: @ 81A572A
+	.string "Only truly skilled TRAINERS are\n"
+	.string "allowed through.\p"
+	.string "You don't have the {STR_VAR_1}\n"
+	.string "yet!$"
+
+Text_CantLetYouPass:: @ 81A5776
+	.string "Rules are rules.\n"
+	.string "I can't let you pass.$"
+
+Text_OhThatsBadgeGoRightAhead:: @ 81A579D
+	.string "Oh! That is the {STR_VAR_1}!\n"
+	.string "Go right ahead.$"
+
+Text_OnlyPassWithBadgeDontHaveYet:: @ 81A57C1
+	.string "You can pass here only if you have\n"
+	.string "the {STR_VAR_1}.\p"
+	.string "You don't have the {STR_VAR_1}\n"
+	.string "yet.\p"
+	.string "You have to have it to get to\n"
+	.string "the POKéMON LEAGUE.$"
+
+Text_OnlyPassWithBadgeOhGoAhead:: @ 81A5839
+	.string "You can pass here only if you have\n"
+	.string "the {STR_VAR_1}.\p"
+	.string "Oh! That is the {STR_VAR_1}!{PAUSE_MUSIC}{PLAY_BGM}{MUS_FANFA1}{PAUSE 0x60}{RESUME_MUSIC}\p"
+	.string "Okay, then.\n"
+	.string "Please, go right ahead.$"