Split more file from event_scripts.s

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

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

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

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

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

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

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

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.$"

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…$"

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.$"