Sync some secret_base.inc

7 files changed, 1471 insertions, 2162 deletions

diff --git a/data-de/event_scripts.s b/data-de/event_scripts.s
index bba0ba05a..2210e0fa7 100644
--- a/data-de/event_scripts.s
+++ b/data-de/event_scripts.s
@@ -1175,1104 +1175,15 @@ Common_EventScript_Return:: @ 81A14DC
 	.include "data/scripts/debug.inc"
 	.include "data/scripts/berry_tree.inc"
 	.include "data/text/berry_tree.inc"
-
-UnknownString_81A1948: @ 81A1948
-	.string "Wenn einige Äste herunterhängen, kann\n"
-	.string "man auf den Baum klettern.$"
-
-UnknownString_81A197B: @ 81A197B
-	.string "Wenn einige Äste herunterhängen, kann\n"
-	.string "man auf den Baum klettern.\p"
-	.string "Möchtest du GEHEIMPOWER einsetzen?$"
-
-UnknownString_81A19C4: @ 81A19C4
-	.string "Ein dicker Ast fällt herunter!$"
-
-UnknownString_81A19DF: @ 81A19DF
-	.string "Möchtest du hier deine GEHEIMBASIS\n"
-	.string "einrichten?$"
-
-UnknownString_81A1A03: @ 81A1A03
-	.string "Dieser Busch kann bewegt werden,\n"
-	.string "so dass man hineinklettern kann.$"
-
-UnknownString_81A1A4B: @ 81A1A4B
-	.string "Dieser Busch kann bewegt werden,\n"
-	.string "so dass man hineinklettern kann.\p"
-	.string "Möchtest du GEHEIMPOWER einsetzen?$"
-
-UnknownString_81A1AA9: @ 81A1AA9
-	.string "Ein kleiner Eingang wird sichtbar.$"
-
-UnknownString_81A1AC6: @ 81A1AC6
-	.string "Möchtest du hier deine GEHEIMBASIS\n"
-	.string "einrichten?$"
-
-SecretBase_RedCave1_Text_1A1AEA:: @ 81A1AEA
-	.string "Hast du dir schon eine GEHEIMBASIS\n"
-	.string "eingerichtet?\p"
-	.string "Ich bin hier und dort, überall hin-\n"
-	.string "gelaufen, bevor ich mich für diesen\l"
-	.string "Ort entschieden habe.\p"
-	.string "Da du schon mal hier bist... Hast du\n"
-	.string "Lust zu kämpfen?$"
-
-SecretBase_RedCave1_Text_1A1B83:: @ 81A1B83
-	.string "Okay!\n"
-	.string "Jetzt kommen wir!$"
-
-SecretBase_RedCave1_Text_1A1B97:: @ 81A1B97
-	.string "Wie? Was? Wo?\n"
-	.string "Du kannst doch nicht...$"
-
-UnknownString_81A1BB2:: @ 81A1BB2
-	.string "Ahaaargh! Du bist zu stark für mich! Ich\n"
-	.string "habe verloren, aber verrate das nicht!$"
-
-SecretBase_RedCave1_Text_1A1BF8:: @ 81A1BF8
-	.string "Was hältst du von meiner GEHEIMBASIS?\n"
-	.string "Komm mich doch morgen wieder besuchen!$"
-
-SecretBase_RedCave1_Text_1A1C3B:: @ 81A1C3B
-	.string "Hast du dir schon eine GEHEIMBASIS\n"
-	.string "eingerichtet?\p"
-	.string "Ich bin hier und dort, überall hin-\n"
-	.string "gelaufen, bevor ich mich für diesen\l"
-	.string "Ort entschieden habe.\p"
-	.string "Schau dich ruhig in aller Ruhe um.$"
-
-SecretBase_RedCave1_Text_1A1CB2:: @ 81A1CB2
-	.string "Es gibt eine Menge Orte, an denen man\n"
-	.string "eine GEHEIMBASIS einrichten kann.\p"
-	.string "Aber dieser hier gefällt mir am besten.\n"
-	.string "Findest du es nicht auch nett hier?\p"
-	.string "Oh, hast du Lust auf einen Kampf?$"
-
-SecretBase_RedCave1_Text_1A1D48:: @ 81A1D48
-	.string "Okay, los geht's!$"
-
-SecretBase_RedCave1_Text_1A1D59:: @ 81A1D59
-	.string "Oh...\n"
-	.string "Du hast gerade keine Zeit.$"
-
-UnknownString_81A1D74:: @ 81A1D74
-	.string "Hmm... Das ist unsere Niederlage...\n"
-	.string "Aber erzähl das bloß nicht weiter!\l"
-	.string "Das ist ein streng geheimes Geheimnis!$"
-
-SecretBase_RedCave1_Text_1A1DC0:: @ 81A1DC0
-	.string "Wenn du wieder mal in der Nähe bist,\n"
-	.string "komm mich doch besuchen!$"
-
-SecretBase_RedCave1_Text_1A1DF6:: @ 81A1DF6
-	.string "Es gibt eine Menge Orte, an denen man\n"
-	.string "eine GEHEIMBASIS einrichten kann.\p"
-	.string "Aber dieser hier gefällt mir am besten.\n"
-	.string "Findest du es nicht auch nett hier?$"
-
-SecretBase_RedCave1_Text_1A1E67:: @ 81A1E67
-	.string "Dies ist ein beliebter Platz.\n"
-	.string "Er ist eigentlich immer besetzt.\p"
-	.string "Ach, du wolltest dich hier auch\n"
-	.string "häuslich niederlassen?\p"
-	.string "Ich sag dir was: Du kannst den Platz\n"
-	.string "haben, wenn du mich besiegen kannst.$"
-
-SecretBase_RedCave1_Text_1A1F04:: @ 81A1F04
-	.string "Okay! Ich werde meine\n"
-	.string "GEHEIMBASIS verteidigen!$"
-
-SecretBase_RedCave1_Text_1A1F2E:: @ 81A1F2E
-	.string "Was? Stimmt das? Du hast gar\n"
-	.string "kein Interesse an diesem Platz?!?$"
-
-UnknownString_81A1F67:: @ 81A1F67
-	.string "Ich kann nicht mehr!\n"
-	.string "Ich gebe mich geschlagen!$"
-
-SecretBase_RedCave1_Text_1A1F88:: @ 81A1F88
-	.string "Okay, wenn ich eines Tages von hier\n"
-	.string "fortziehe, kannst du den Platz haben.$"
-
-SecretBase_RedCave1_Text_1A1FBD:: @ 81A1FBD
-	.string "Dies ist ein beliebter Platz.\n"
-	.string "Er ist eigentlich immer besetzt.\p"
-	.string "Ich habe ewig gewartet, bis er wieder\n"
-	.string "frei wurde. Endlich ist es soweit!$"
-
-SecretBase_RedCave1_Text_1A2026:: @ 81A2026
-	.string "Willkommen in meinem POKéMON-LABOR.\p"
-	.string "Ich forsche, indem ich im Geheimen\n"
-	.string "kämpfe.\p"
-	.string "Möchtest du sehen, wie stark ich bin?$"
-
-SecretBase_RedCave1_Text_1A2095:: @ 81A2095
-	.string "Das war ja wohl nichts!$"
-
-SecretBase_RedCave1_Text_1A20AE:: @ 81A20AE
-	.string "Oh.\n"
-	.string "Ein anderes Mal vielleicht...$"
-
-UnknownString_81A20C9:: @ 81A20C9
-	.string "Hm... Ich muss noch viel lernen.\n"
-	.string "Ich muss fleißiger studieren.$"
-
-SecretBase_RedCave1_Text_1A2109:: @ 81A2109
-	.string "Danke, dass du mit mir gekämpft hast.\n"
-	.string "Komm doch bitte morgen wieder.$"
-
-SecretBase_RedCave1_Text_1A2147:: @ 81A2147
-	.string "Willkommen in meinem POKéMON-LABOR.\p"
-	.string "Ich forsche, indem ich im Geheimen\n"
-	.string "kämpfe.$"
-
-SecretBase_RedCave1_Text_1A218F:: @ 81A218F
-	.string "Ein großes Anwesen ist natürlich auch\n"
-	.string "ganz nett, aber hier ist es schöner.\p"
-	.string "Viele Leute kommen mich besuchen.\p"
-	.string "So. Wie wäre es mit einem Kampf?$"
-
-SecretBase_RedCave1_Text_1A2220:: @ 81A2220
-	.string "Genauso muss es laufen!$"
-
-SecretBase_RedCave1_Text_1A2230:: @ 81A2230
-	.string "Wenn du bereit bist, sag Bescheid.$"
-
-UnknownString_81A2254:: @ 81A2254
-	.string "Ooch! Ich hab's vergeigt!\n"
-	.string "Aber es hat sehr viel Spaß gemacht!$"
-
-SecretBase_RedCave1_Text_1A2280:: @ 81A2280
-	.string "Egal. Ich sollte mir auf jeden Fall einige\n"
-	.string "Dekorationen und Möbel zulegen.\p"
-	.string "Ich möchte, dass sich auch andere in\n"
-	.string "meiner GEHEIMBASIS wohl fühlen.$"
-
-SecretBase_RedCave1_Text_1A22FA:: @ 81A22FA
-	.string "Ein großes Anwesen ist natürlich auch\n"
-	.string "ganz nett, aber hier ist es schöner.\p"
-	.string "Viele Leute kommen mich besuchen.$"
-
-SecretBase_RedCave1_Text_1A236A:: @ 81A236A
-	.string "Ich liebe es, Dekorationen und Möbel\n"
-	.string "zu kaufen!!!\p"
-	.string "Ich liebe es genauso, POKéMON aufzu-\n"
-	.string "ziehen!\p"
-	.string "Wärest du so nett, mit meinen\n"
-	.string "POKéMON zu kämpfen?$"
-
-SecretBase_RedCave1_Text_1A2405:: @ 81A2405
-	.string "Danke schön.\n"
-	.string "Bist du bereit?$"
-
-SecretBase_RedCave1_Text_1A2420:: @ 81A2420
-	.string "Oh.\n"
-	.string "Was für eine Enttäuschung.$"
-
-UnknownString_81A2439:: @ 81A2439
-	.string "Ich kapituliere...$"
-
-SecretBase_RedCave1_Text_1A2446:: @ 81A2446
-	.string "Das war vielleicht ein Spaß! Und nun\n"
-	.string "sollte ich mich dem Einkaufen widmen.$"
-
-SecretBase_RedCave1_Text_1A2480:: @ 81A2480
-	.string "Ich liebe es, Dekorationen und Möbel\n"
-	.string "zu kaufen!!!\p"
-	.string "Ich liebe es genauso, POKéMON aufzu-\n"
-	.string "ziehen!$"
-
-SecretBase_RedCave1_Text_1A24E1:: @ 81A24E1
-	.string "Einige Leute richten ihre GEHEIMBASIS\n"
-	.string "an gut versteckten Orten ein.\l"
-	.string "Wollen sie sich nicht mehr sehen lassen?\p"
-	.string "Da du mich gefunden hast, lass uns\n"
-	.string "doch gleich mal kämpfen.$"
-
-SecretBase_RedCave1_Text_1A256F:: @ 81A256F
-	.string "Ich bin nicht einfach zu besiegen!$"
-
-SecretBase_RedCave1_Text_1A258A:: @ 81A258A
-	.string "Oh. Sag bloß, du bist müde von der Suche\n"
-	.string "nach diesem Platz?$"
-
-UnknownString_81A25C3:: @ 81A25C3
-	.string "Ich bin untergegangen...$"
-
-SecretBase_RedCave1_Text_1A25D2:: @ 81A25D2
-	.string "Wo ist deine GEHEIMBASIS?\n"
-	.string "Ich sollte dich dort mal besuchen.$"
-
-SecretBase_RedCave1_Text_1A2609:: @ 81A2609
-	.string "Einige Leute richten ihre GEHEIMBASIS\n"
-	.string "an gut versteckten Orten ein.\l"
-	.string "Wollen sie sich nicht mehr sehen lassen?$"
-
-SecretBase_RedCave1_Text_1A2663:: @ 81A2663
-	.string "Einige Leute haben mir erzählt, dass man\n"
-	.string "auf verschiedene Arten an Deko-\l"
-	.string "rationen kommen kann.\p"
-	.string "Wir sollten einen Wettbewerb veran-\n"
-	.string "stalten, wer die schönsten Dinge hat.\p"
-	.string "Aber zuerst lass uns kämpfen.$"
-
-SecretBase_RedCave1_Text_1A2710:: @ 81A2710
-	.string "Das ist meine GEHEIMBASIS.\n"
-	.string "Ich kann hier gar nicht verlieren!$"
-
-SecretBase_RedCave1_Text_1A2736:: @ 81A2736
-	.string "Ich kämpfe jederzeit mit dir.$"
-
-UnknownString_81A2754:: @ 81A2754
-	.string "Wie?\n"
-	.string "Ich habe doch verloren?$"
-
-SecretBase_RedCave1_Text_1A276A:: @ 81A276A
-	.string "Ich werde den Wettbewerb um die\n"
-	.string "schönsten Dekorationen nicht ver-\l"
-	.string "lieren. Überzeuge dich selbst!$"
-
-SecretBase_RedCave1_Text_1A27A4:: @ 81A27A4
-	.string "Einige Leute haben mir erzählt, dass man\n"
-	.string "auf verschiedene Arten an Deko-\l"
-	.string "rationen kommen kann.\p"
-	.string "Wir sollten einen Wettbewerb veran-\n"
-	.string "stalten, wer die schönsten Dinge hat.$"
-
-SecretBase_RedCave1_Text_1A2830:: @ 81A2830
-	.string "Ich habe einen Ort gefunden, der mir\n"
-	.string "gefällt und den ich mit meinen Lieblings-\l"
-	.string "dekorationen ausgestattet habe.\p"
-	.string "Dort ziehe ich meine Lieblings-POKéMON\n"
-	.string "auf und werde mit ihnen stärker.\p"
-	.string "Genau das mache ich.\n"
-	.string "Möchtest du mit mir kämpfen?$"
-
-SecretBase_RedCave1_Text_1A28D7:: @ 81A28D7
-	.string "Zeig mir, aus welchem Holz du\n"
-	.string "geschnitzt bist.$"
-
-SecretBase_RedCave1_Text_1A28F4:: @ 81A28F4
-	.string "Ich glaube, es gibt immer wieder Zeiten,\n"
-	.string "in denen man nicht so gut drauf ist.$"
-
-UnknownString_81A2925:: @ 81A2925
-	.string "Ich weiß jetzt genau, aus welchem Holz\n"
-	.string "du geschnitzt bist.$"
-
-SecretBase_RedCave1_Text_1A294D:: @ 81A294D
-	.string "Wir können beide noch stärker werden!\n"
-	.string "Das macht doch Mut!$"
-
-SecretBase_RedCave1_Text_1A297C:: @ 81A297C
-	.string "Ich habe einen Ort gefunden, der mir\n"
-	.string "gefällt und den ich mit meinen Lieblings-\l"
-	.string "dekorationen ausgestattet habe.\p"
-	.string "Dort ziehe ich meine Lieblings-POKéMON\n"
-	.string "auf und werde mit ihnen stärker.\p"
-	.string "Jeder Tag ist mein Lieblingstag.$"
-
-SecretBase_RedCave1_Text_1A2A13:: @ 81A2A13
-	.string "Man lernt viel über den Geschmack und\n"
-	.string "den Stil von Menschen, wenn man sich\l"
-	.string "ihre Dekorationen und den Platz, auf\l"
-	.string "dem sie stehen, anschaut.\p"
-	.string "Wie findest du meinen Geschmack?\n"
-	.string "Bist du sprachlos? Hihihi...\p"
-	.string "Willst du mal meinen Kampfstil sehen?$"
-
-SecretBase_RedCave1_Text_1A2AE2:: @ 81A2AE2
-	.string "Es gibt kein Zurück mehr.$"
-
-SecretBase_RedCave1_Text_1A2AFB:: @ 81A2AFB
-	.string "Ich zeige dir gerne jederzeit wieder \n"
-	.string "meinen erlesenen Kampfstil!$"
-
-UnknownString_81A2B2A:: @ 81A2B2A
-	.string "Du bist hoch talentiert! Deine Stärke\n"
-	.string "scheint grenzenlos zu sein.$"
-
-SecretBase_RedCave1_Text_1A2B69:: @ 81A2B69
-	.string "Was hältst du von meinem Stil?\n"
-	.string "Ich muss ihn noch mehr aufpolieren.$"
-
-SecretBase_RedCave1_Text_1A2BA4:: @ 81A2BA4
-	.string "Man lernt viel über den Geschmack und\n"
-	.string "den Stil von Menschen, wenn man sich\l"
-	.string "ihre Dekorationen und den Platz, auf\l"
-	.string "dem sie stehen, anschaut.\p"
-	.string "Wie findest du meinen Geschmack?\n"
-	.string "Bist du sprachlos? Hihihi...$"
-
-gUnknown_081A2C51:: @ 81A2C51
-	special sub_80BB70C
-	special CheckPlayerHasSecretBase
-	compare VAR_RESULT, 1
-	goto_if_eq AskToMoveSecretBase
-	checkpartymove MOVE_SECRET_POWER
-	setfieldeffectargument 0, VAR_RESULT
-	buffermovename 1, MOVE_SECRET_POWER
-	compare VAR_0x8007, 1
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 2
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 3
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 4
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 5
-	goto_if_eq EventScript_1A2D08
-	compare VAR_0x8007, 6
-	goto_if_eq EventScript_1A2D60
-	end
-
-EventScript_1A2CB0:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2CF1
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_8198F34, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
-	waitstate
-	goto EventScript_1A2CFA
-	end
-
-DoSecretBaseCaveFieldEffectScript:: @ 81A2CE6
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
-	waitstate
-	goto EventScript_1A2CFA
-	end
-
-EventScript_1A2CF1:
-	msgbox UnknownString_8198F10, MSGBOX_SIGN
-	end
-
-EventScript_1A2CFA:
-	msgbox UnknownString_8198F6E, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2D08:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2D49
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_81A197B, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
-	waitstate
-	goto EventScript_1A2D52
-	end
-
-DoSecretBaseTreeFieldEffectScript:: @ 81A2D3E
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
-	waitstate
-	goto EventScript_1A2D52
-	end
-
-EventScript_1A2D49:
-	msgbox UnknownString_81A1948, MSGBOX_SIGN
-	end
-
-EventScript_1A2D52:
-	msgbox UnknownString_81A19C4, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2D60:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2DA1
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_81A1A4B, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
-	waitstate
-	goto EventScript_1A2DAA
-	end
-
-DoSecretBaseShrubFieldEffectScript:: @ 81A2D96
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
-	waitstate
-	goto EventScript_1A2DAA
-	end
-
-EventScript_1A2DA1:
-	msgbox UnknownString_81A1A03, MSGBOX_SIGN
-	end
-
-EventScript_1A2DAA:
-	msgbox UnknownString_81A1AA9, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2DB8:
-	closemessage
-	playse SE_KAIDAN
-	setvar VAR_INIT_SECRET_BASE, 0
-	setflag FLAG_DECORATION_1
-	special sub_80BB8CC
-	special sub_80BBAF0
-	setvar VAR_0x8004, 0
-	setvar VAR_0x8005, 0
-	special sub_80BBDD0
-	setvar VAR_SECRET_BASE_INITIALIZED, 1
-	waitstate
-	end
-
-SecretBase_EventScript_FirstEntrance:: @ 81A2DDE
-	applymovement OBJ_EVENT_ID_PLAYER, SecretBase_RedCave1_Movement_1A2E11
-	waitmovement 0
-	setvar VAR_INIT_SECRET_BASE, 1
-	msgbox SecretBase_RedCave1_Text_198F89, MSGBOX_YESNO
-	compare VAR_RESULT, YES
-	goto_if_eq SecretBase_RedCave1_EventScript_1A2E08
-	closemessage
-	playse SE_KAIDAN
-	special sub_80BC440
-	end
-
-SecretBase_RedCave1_EventScript_1A2E08:: @ 81A2E08
-	closemessage
-	setflag FLAG_RECEIVED_SECRET_POWER
-	special sub_80BBC78
-	waitstate
-	end
-
-SecretBase_RedCave1_Movement_1A2E11:: @ 81A2E11
-	walk_up
-	walk_up
-	step_end
-
-gUnknown_081A2E14:: @ 81A2E14
-	lockall
-	setvar VAR_INIT_SECRET_BASE, 1
-	playse SE_KAIDAN
-	special sub_80BC114
-	compare VAR_RESULT, 0
-	goto_if_eq EventScript_1A2E38
-	clearflag FLAG_DECORATION_1
-	special sub_80BBAF0
-	setvar VAR_SECRET_BASE_INITIALIZED, 0
-	waitstate
-	end
-
-EventScript_1A2E38:
-	setflag FLAG_DECORATION_1
-	special sub_80BBAF0
-	setvar VAR_SECRET_BASE_INITIALIZED, 0
-	waitstate
-	end
-
-AskToMoveSecretBase:
-	checkpartymove MOVE_SECRET_POWER
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2EF7
-	setfieldeffectargument 0, VAR_RESULT
-	setorcopyvar VAR_0x8004, VAR_RESULT
-	lockall
-	special GetSecretBaseNearbyMapName
-	msgbox UnknownString_81A3C71, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	fadescreen FADE_TO_BLACK
-	special MoveSecretBase
-	closemessage
-	fadescreen FADE_FROM_BLACK
-	msgbox UnknownString_81A3CC9, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	bufferpartymonnick 0, VAR_0x8004
-	buffermovename 1, MOVE_SECRET_POWER
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	closemessage
-	compare VAR_0x8007, 1
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 2
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 3
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 4
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 5
-	goto_if_eq DoSecretBaseTreeFieldEffectScript
-	compare VAR_0x8007, 6
-	goto_if_eq DoSecretBaseShrubFieldEffectScript
-	releaseall
-	end
-
-EventScript_1A2EF7::
-	compare VAR_0x8007, 1
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 2
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 3
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 4
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 5
-	goto_if_eq EventScript_1A2D49
-	compare VAR_0x8007, 6
-	goto_if_eq EventScript_1A2DA1
-	end
-
-EventScript_1A2F3A::
-	closemessage
-	releaseall
-	end
-
-SecretBase_EventScript_SetDecorationFlags:: @ 81A2F3D
-	setflag FLAG_DECORATION_2
-	setflag FLAG_DECORATION_3
-	setflag FLAG_DECORATION_4
-	setflag FLAG_DECORATION_5
-	setflag FLAG_DECORATION_6
-	setflag FLAG_DECORATION_7
-	setflag FLAG_DECORATION_8
-	setflag FLAG_DECORATION_9
-	setflag FLAG_DECORATION_10
-	setflag FLAG_DECORATION_11
-	setflag FLAG_DECORATION_12
-	setflag FLAG_DECORATION_13
-	setflag FLAG_DECORATION_14
-	setflag FLAG_DECORATION_15
-	return
-
-SecretBase_EventScript_InitDecorations:: @ 81A2F68
-	setvar VAR_0x8004, 0
-	setvar VAR_0x8005, 0
-	special sub_80BBDD0
-	setvar VAR_SECRET_BASE_INITIALIZED, 1
-	end
-
-gUnknown_081A2F7B:: @ 81A2F7B
-	setvar VAR_0x8005, 0
-	goto EventScript_1A2F86
-	end
-
-EventScript_1A2F86:
-	special sub_80FF474
-	end
-
-gUnknown_081A2F8A:: @ 81A2F8A
-	setvar VAR_0x8004, 0
-	goto EventScript_1A2F95
-	end
-
-EventScript_1A2F95:
-	special sub_8100A7C
-	compare VAR_RESULT, 1
-	goto_if_eq EventScript_1A2FBF
-	addvar VAR_0x8004, 1
-	compare VAR_0x8005, 0
-	goto_if_eq EventScript_1A2F95
-	removeobject VAR_0x8006
-	setflag VAR_0x8005
-	goto EventScript_1A2F95
-	end
-
-EventScript_1A2FBF:
-	end
-
-SecretBase_BlueCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave4_EventScript_1A2FC0:: @ 81A2FC0
-	special sub_80BCE90
-	compare VAR_0x8004, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3032
-	compare VAR_0x8004, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A30AE
-	compare VAR_0x8004, 2
-	goto_if_eq SecretBase_RedCave1_EventScript_1A312A
-	compare VAR_0x8004, 3
-	goto_if_eq SecretBase_RedCave1_EventScript_1A31A6
-	compare VAR_0x8004, 4
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3222
-	compare VAR_0x8004, 5
-	goto_if_eq SecretBase_RedCave1_EventScript_1A329E
-	compare VAR_0x8004, 6
-	goto_if_eq SecretBase_RedCave1_EventScript_1A331A
-	compare VAR_0x8004, 7
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3396
-	compare VAR_0x8004, 8
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3412
-	compare VAR_0x8004, 9
-	goto_if_eq SecretBase_RedCave1_EventScript_1A348E
-	end
-
-SecretBase_RedCave1_EventScript_1A3032:: @ 81A3032
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3086
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A30A5
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1AEA, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1B83, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3086:: @ 81A3086
-	msgbox SecretBase_RedCave1_Text_1A1C3B, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A308F:: @ 81A308F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1B97, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A30A5:: @ 81A30A5
-	msgbox SecretBase_RedCave1_Text_1A1BF8, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A30AE:: @ 81A30AE
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3102
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3121
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1E67, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1F04, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3102:: @ 81A3102
-	msgbox SecretBase_RedCave1_Text_1A1FBD, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A310B:: @ 81A310B
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1F2E, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3121:: @ 81A3121
-	msgbox SecretBase_RedCave1_Text_1A1F88, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A312A:: @ 81A312A
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A317E
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A319D
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A218F, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2220, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A317E:: @ 81A317E
-	msgbox SecretBase_RedCave1_Text_1A22FA, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3187:: @ 81A3187
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2230, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A319D:: @ 81A319D
-	msgbox SecretBase_RedCave1_Text_1A2280, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A31A6:: @ 81A31A6
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A31FA
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3219
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A24E1, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A256F, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A31FA:: @ 81A31FA
-	msgbox SecretBase_RedCave1_Text_1A2609, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3203:: @ 81A3203
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A258A, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3219:: @ 81A3219
-	msgbox SecretBase_RedCave1_Text_1A25D2, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3222:: @ 81A3222
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3276
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3295
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2830, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A28D7, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3276:: @ 81A3276
-	msgbox SecretBase_RedCave1_Text_1A297C, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A327F:: @ 81A327F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A28F4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3295:: @ 81A3295
-	msgbox SecretBase_RedCave1_Text_1A294D, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A329E:: @ 81A329E
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A32F2
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3311
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1CB2, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1D48, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A32F2:: @ 81A32F2
-	msgbox SecretBase_RedCave1_Text_1A1DF6, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A32FB:: @ 81A32FB
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1D59, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3311:: @ 81A3311
-	msgbox SecretBase_RedCave1_Text_1A1DC0, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A331A:: @ 81A331A
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A336E
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A338D
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2026, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2095, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A336E:: @ 81A336E
-	msgbox SecretBase_RedCave1_Text_1A2147, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3377:: @ 81A3377
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A20AE, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A338D:: @ 81A338D
-	msgbox SecretBase_RedCave1_Text_1A2109, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3396:: @ 81A3396
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A33EA
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3409
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A236A, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2405, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A33EA:: @ 81A33EA
-	msgbox SecretBase_RedCave1_Text_1A2480, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A33F3:: @ 81A33F3
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2420, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3409:: @ 81A3409
-	msgbox SecretBase_RedCave1_Text_1A2446, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3412:: @ 81A3412
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3466
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3485
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2663, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2710, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3466:: @ 81A3466
-	msgbox SecretBase_RedCave1_Text_1A27A4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A346F:: @ 81A346F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2736, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3485:: @ 81A3485
-	msgbox SecretBase_RedCave1_Text_1A276A, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A348E:: @ 81A348E
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A34E2
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3501
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2A13, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2AE2, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A34E2:: @ 81A34E2
-	msgbox SecretBase_RedCave1_Text_1A2BA4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A34EB:: @ 81A34EB
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2AFB, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3501:: @ 81A3501
-	msgbox SecretBase_RedCave1_Text_1A2B69, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A350A:: @ 81A350A
-	special sub_80BCE1C
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 0
-	special StartSpecialBattle
-	waitstate
-	special ScrSpecial_HealPlayerParty
-	release
-	end
-
+	.include "data/text/secret_base_trainers.inc"
+	.include "data/scripts/secret_base.inc"
 	.include "data/text/secret_power_tm.inc"
 	.include "data/scripts/secret_power_tm.inc"
-
-SecretBase_Text_AllDecorationsWillBeReturned: @ 81A38FB
-	.string "Alle Dekorationsgegenstände und das\n"
-	.string "Mobiliar aus deiner GEHEIMBASIS werden\l"
-	.string "auf deinen PC gesendet.\p"
-	.string "Einverstanden?$"
-
-SecretBase_Text_WantToRegisterSecretBase: @ 81A3958
-	.string "Möchtest du GEHEIMBASIS von\n"
-	.string "{STR_VAR_1} eintragen?$"
-
-SecretBase_Text_AlreadyRegisteredDelete: @ 81A3982
-	.string "Diese Daten wurden bereits\n"
-	.string "eingetragen. Möchtest du sie löschen?$"
-
-SecretBase_Text_TooManyBasesDeleteSome: @ 81A39C0
-	.string "Bis zu 10 Orte können eingetragen\n"
-	.string "werden.\p"
-	.string "Lösche einen Ort, um einen neuen\n"
-	.string "eintragen zu können.$"
-
-SecretBase_Text_RegistrationCompleted: @ 81A3A22
-	.string "Registrierung abgeschlossen.$"
-
-SecretBase_Text_DataUnregistered: @ 81A3A3A
-	.string "Daten wurden aus der Registrierung\n"
-	.string "genommen.$"
-
-UnknownString_81A3A56: @ 81A3A56
-	.string "Es sind keine Dekorationen vorhanden.$"
-
-SecretBase_Text_BootUpPC: @ 81A3A72
-	.string "{PLAYER} schaltet den PC ein.$"
-
-SecretBase_Text_WhatWouldYouLikeToDo: @ 81A3A87
-	.string "Was möchtest du tun?$"
-
-SecretBase_Text_RegistryInfo: @ 81A3AA2
-	.string "Die eingetragene GEHEIMBASIS bleibt\n"
-	.string "erhalten, bis der Eigentümer umzieht.\p"
-	.string "Wird sie aus dem Grundbuch ent-\n"
-	.string "fernt, kann eine andere GEHEIMBASIS\l"
-	.string "diesen Platz einnehmen.\p"
-	.string "Bis zu 10 Orte können eingetragen\n"
-	.string "werden.{0xFC}Ì$"
-
-SecretBase_Text_BattleTowerShield: @ 81A3B5B
-	.string "Ein Schild aus {STR_VAR_2}, welches zeigt,\n"
-	.string "dass {STR_VAR_1}-mal hintereinander im\l"
-	.string "DUELLTURM ein Kampf gewonnen wurde.$"
-
-SecretBase_Text_ToyTV: @ 81A3BA4
-	.string "Ein sehr realistischer Spielzeug-\n"
-	.string "Fernseher. Man könnte ihn glatt mit\l"
-	.string "einem echten Gerät verwechseln.$"
-
-SecretBase_Text_SeedotTV: @ 81A3BE8
-	.string "Ein Spielzeug-Fernseher, der aussieht\n"
-	.string "wie ein SAMURZEL. Er scheint von\l"
-	.string "alleine davonrollen zu wollen...$"
-
-SecretBase_Text_SkittyTV: @ 81A3C31
-	.string "Ein Spielzeug-Fernseher, der aussieht\n"
-	.string "wie ein ENECO. Es scheint, als wolle\l"
-	.string "er sich langsam davonschleichen ...$"
-
-UnknownString_81A3C71: @ 81A3C71
-	.string "Du kannst dir nur eine GEHEIMBASIS\n"
-	.string "einrichten.\p"
-	.string "Möchtest du deine GEHEIMBASIS in der\n"
-	.string "Nähe von {STR_VAR_1} hierher\l"
-	.string "verlegen?$"
-
-UnknownString_81A3CC9: @ 81A3CC9
-	.string "Umzug wurde abgeschlossen.\p"
-	.string "Möchtest du GEHEIMPOWER einsetzen?$"
-
+	.include "data/text/secret_base.inc"
 	.include "data/scripts/cable_club.inc"
 	.include "data/text/cable_club.inc"
-
 	.include "data/scripts/contest_hall.inc"
 	.include "data/text/contest_hall.inc"
-
 	.include "data/scripts/tv.inc"
 	.include "data/text/tv.inc"
 
diff --git a/data-de/text/secret_base.inc b/data-de/text/secret_base.inc
new file mode 100644
index 000000000..8a6944ffd
--- /dev/null
+++ b/data-de/text/secret_base.inc
@@ -0,0 +1,75 @@
+SecretBase_Text_AllDecorationsWillBeReturned: @ 81A38FB
+	.string "Alle Dekorationsgegenstände und das\n"
+	.string "Mobiliar aus deiner GEHEIMBASIS werden\l"
+	.string "auf deinen PC gesendet.\p"
+	.string "Einverstanden?$"
+
+SecretBase_Text_WantToRegisterSecretBase: @ 81A3958
+	.string "Möchtest du GEHEIMBASIS von\n"
+	.string "{STR_VAR_1} eintragen?$"
+
+SecretBase_Text_AlreadyRegisteredDelete: @ 81A3982
+	.string "Diese Daten wurden bereits\n"
+	.string "eingetragen. Möchtest du sie löschen?$"
+
+SecretBase_Text_TooManyBasesDeleteSome: @ 81A39C0
+	.string "Bis zu 10 Orte können eingetragen\n"
+	.string "werden.\p"
+	.string "Lösche einen Ort, um einen neuen\n"
+	.string "eintragen zu können.$"
+
+SecretBase_Text_RegistrationCompleted: @ 81A3A22
+	.string "Registrierung abgeschlossen.$"
+
+SecretBase_Text_DataUnregistered: @ 81A3A3A
+	.string "Daten wurden aus der Registrierung\n"
+	.string "genommen.$"
+
+UnknownString_81A3A56: @ 81A3A56
+	.string "Es sind keine Dekorationen vorhanden.$"
+
+SecretBase_Text_BootUpPC: @ 81A3A72
+	.string "{PLAYER} schaltet den PC ein.$"
+
+SecretBase_Text_WhatWouldYouLikeToDo: @ 81A3A87
+	.string "Was möchtest du tun?$"
+
+SecretBase_Text_RegistryInfo: @ 81A3AA2
+	.string "Die eingetragene GEHEIMBASIS bleibt\n"
+	.string "erhalten, bis der Eigentümer umzieht.\p"
+	.string "Wird sie aus dem Grundbuch ent-\n"
+	.string "fernt, kann eine andere GEHEIMBASIS\l"
+	.string "diesen Platz einnehmen.\p"
+	.string "Bis zu 10 Orte können eingetragen\n"
+	.string "werden.{0xFC}Ì$"
+
+SecretBase_Text_BattleTowerShield: @ 81A3B5B
+	.string "Ein Schild aus {STR_VAR_2}, welches zeigt,\n"
+	.string "dass {STR_VAR_1}-mal hintereinander im\l"
+	.string "DUELLTURM ein Kampf gewonnen wurde.$"
+
+SecretBase_Text_ToyTV: @ 81A3BA4
+	.string "Ein sehr realistischer Spielzeug-\n"
+	.string "Fernseher. Man könnte ihn glatt mit\l"
+	.string "einem echten Gerät verwechseln.$"
+
+SecretBase_Text_SeedotTV: @ 81A3BE8
+	.string "Ein Spielzeug-Fernseher, der aussieht\n"
+	.string "wie ein SAMURZEL. Er scheint von\l"
+	.string "alleine davonrollen zu wollen...$"
+
+SecretBase_Text_SkittyTV: @ 81A3C31
+	.string "Ein Spielzeug-Fernseher, der aussieht\n"
+	.string "wie ein ENECO. Es scheint, als wolle\l"
+	.string "er sich langsam davonschleichen ...$"
+
+UnknownString_81A3C71: @ 81A3C71
+	.string "Du kannst dir nur eine GEHEIMBASIS\n"
+	.string "einrichten.\p"
+	.string "Möchtest du deine GEHEIMBASIS in der\n"
+	.string "Nähe von {STR_VAR_1} hierher\l"
+	.string "verlegen?$"
+
+UnknownString_81A3CC9: @ 81A3CC9
+	.string "Umzug wurde abgeschlossen.\p"
+	.string "Möchtest du GEHEIMPOWER einsetzen?$"
diff --git a/data-de/text/secret_base_trainers.inc b/data-de/text/secret_base_trainers.inc
new file mode 100644
index 000000000..de39e23cb
--- /dev/null
+++ b/data-de/text/secret_base_trainers.inc
@@ -0,0 +1,327 @@
+UnknownString_81A1948: @ 81A1948
+	.string "Wenn einige Äste herunterhängen, kann\n"
+	.string "man auf den Baum klettern.$"
+
+UnknownString_81A197B: @ 81A197B
+	.string "Wenn einige Äste herunterhängen, kann\n"
+	.string "man auf den Baum klettern.\p"
+	.string "Möchtest du GEHEIMPOWER einsetzen?$"
+
+UnknownString_81A19C4: @ 81A19C4
+	.string "Ein dicker Ast fällt herunter!$"
+
+UnknownString_81A19DF: @ 81A19DF
+	.string "Möchtest du hier deine GEHEIMBASIS\n"
+	.string "einrichten?$"
+
+UnknownString_81A1A03: @ 81A1A03
+	.string "Dieser Busch kann bewegt werden,\n"
+	.string "so dass man hineinklettern kann.$"
+
+UnknownString_81A1A4B: @ 81A1A4B
+	.string "Dieser Busch kann bewegt werden,\n"
+	.string "so dass man hineinklettern kann.\p"
+	.string "Möchtest du GEHEIMPOWER einsetzen?$"
+
+UnknownString_81A1AA9: @ 81A1AA9
+	.string "Ein kleiner Eingang wird sichtbar.$"
+
+UnknownString_81A1AC6: @ 81A1AC6
+	.string "Möchtest du hier deine GEHEIMBASIS\n"
+	.string "einrichten?$"
+
+SecretBase_RedCave1_Text_1A1AEA:: @ 81A1AEA
+	.string "Hast du dir schon eine GEHEIMBASIS\n"
+	.string "eingerichtet?\p"
+	.string "Ich bin hier und dort, überall hin-\n"
+	.string "gelaufen, bevor ich mich für diesen\l"
+	.string "Ort entschieden habe.\p"
+	.string "Da du schon mal hier bist... Hast du\n"
+	.string "Lust zu kämpfen?$"
+
+SecretBase_RedCave1_Text_1A1B83:: @ 81A1B83
+	.string "Okay!\n"
+	.string "Jetzt kommen wir!$"
+
+SecretBase_RedCave1_Text_1A1B97:: @ 81A1B97
+	.string "Wie? Was? Wo?\n"
+	.string "Du kannst doch nicht...$"
+
+UnknownString_81A1BB2:: @ 81A1BB2
+	.string "Ahaaargh! Du bist zu stark für mich! Ich\n"
+	.string "habe verloren, aber verrate das nicht!$"
+
+SecretBase_RedCave1_Text_1A1BF8:: @ 81A1BF8
+	.string "Was hältst du von meiner GEHEIMBASIS?\n"
+	.string "Komm mich doch morgen wieder besuchen!$"
+
+SecretBase_RedCave1_Text_1A1C3B:: @ 81A1C3B
+	.string "Hast du dir schon eine GEHEIMBASIS\n"
+	.string "eingerichtet?\p"
+	.string "Ich bin hier und dort, überall hin-\n"
+	.string "gelaufen, bevor ich mich für diesen\l"
+	.string "Ort entschieden habe.\p"
+	.string "Schau dich ruhig in aller Ruhe um.$"
+
+SecretBase_RedCave1_Text_1A1CB2:: @ 81A1CB2
+	.string "Es gibt eine Menge Orte, an denen man\n"
+	.string "eine GEHEIMBASIS einrichten kann.\p"
+	.string "Aber dieser hier gefällt mir am besten.\n"
+	.string "Findest du es nicht auch nett hier?\p"
+	.string "Oh, hast du Lust auf einen Kampf?$"
+
+SecretBase_RedCave1_Text_1A1D48:: @ 81A1D48
+	.string "Okay, los geht's!$"
+
+SecretBase_RedCave1_Text_1A1D59:: @ 81A1D59
+	.string "Oh...\n"
+	.string "Du hast gerade keine Zeit.$"
+
+UnknownString_81A1D74:: @ 81A1D74
+	.string "Hmm... Das ist unsere Niederlage...\n"
+	.string "Aber erzähl das bloß nicht weiter!\l"
+	.string "Das ist ein streng geheimes Geheimnis!$"
+
+SecretBase_RedCave1_Text_1A1DC0:: @ 81A1DC0
+	.string "Wenn du wieder mal in der Nähe bist,\n"
+	.string "komm mich doch besuchen!$"
+
+SecretBase_RedCave1_Text_1A1DF6:: @ 81A1DF6
+	.string "Es gibt eine Menge Orte, an denen man\n"
+	.string "eine GEHEIMBASIS einrichten kann.\p"
+	.string "Aber dieser hier gefällt mir am besten.\n"
+	.string "Findest du es nicht auch nett hier?$"
+
+SecretBase_RedCave1_Text_1A1E67:: @ 81A1E67
+	.string "Dies ist ein beliebter Platz.\n"
+	.string "Er ist eigentlich immer besetzt.\p"
+	.string "Ach, du wolltest dich hier auch\n"
+	.string "häuslich niederlassen?\p"
+	.string "Ich sag dir was: Du kannst den Platz\n"
+	.string "haben, wenn du mich besiegen kannst.$"
+
+SecretBase_RedCave1_Text_1A1F04:: @ 81A1F04
+	.string "Okay! Ich werde meine\n"
+	.string "GEHEIMBASIS verteidigen!$"
+
+SecretBase_RedCave1_Text_1A1F2E:: @ 81A1F2E
+	.string "Was? Stimmt das? Du hast gar\n"
+	.string "kein Interesse an diesem Platz?!?$"
+
+UnknownString_81A1F67:: @ 81A1F67
+	.string "Ich kann nicht mehr!\n"
+	.string "Ich gebe mich geschlagen!$"
+
+SecretBase_RedCave1_Text_1A1F88:: @ 81A1F88
+	.string "Okay, wenn ich eines Tages von hier\n"
+	.string "fortziehe, kannst du den Platz haben.$"
+
+SecretBase_RedCave1_Text_1A1FBD:: @ 81A1FBD
+	.string "Dies ist ein beliebter Platz.\n"
+	.string "Er ist eigentlich immer besetzt.\p"
+	.string "Ich habe ewig gewartet, bis er wieder\n"
+	.string "frei wurde. Endlich ist es soweit!$"
+
+SecretBase_RedCave1_Text_1A2026:: @ 81A2026
+	.string "Willkommen in meinem POKéMON-LABOR.\p"
+	.string "Ich forsche, indem ich im Geheimen\n"
+	.string "kämpfe.\p"
+	.string "Möchtest du sehen, wie stark ich bin?$"
+
+SecretBase_RedCave1_Text_1A2095:: @ 81A2095
+	.string "Das war ja wohl nichts!$"
+
+SecretBase_RedCave1_Text_1A20AE:: @ 81A20AE
+	.string "Oh.\n"
+	.string "Ein anderes Mal vielleicht...$"
+
+UnknownString_81A20C9:: @ 81A20C9
+	.string "Hm... Ich muss noch viel lernen.\n"
+	.string "Ich muss fleißiger studieren.$"
+
+SecretBase_RedCave1_Text_1A2109:: @ 81A2109
+	.string "Danke, dass du mit mir gekämpft hast.\n"
+	.string "Komm doch bitte morgen wieder.$"
+
+SecretBase_RedCave1_Text_1A2147:: @ 81A2147
+	.string "Willkommen in meinem POKéMON-LABOR.\p"
+	.string "Ich forsche, indem ich im Geheimen\n"
+	.string "kämpfe.$"
+
+SecretBase_RedCave1_Text_1A218F:: @ 81A218F
+	.string "Ein großes Anwesen ist natürlich auch\n"
+	.string "ganz nett, aber hier ist es schöner.\p"
+	.string "Viele Leute kommen mich besuchen.\p"
+	.string "So. Wie wäre es mit einem Kampf?$"
+
+SecretBase_RedCave1_Text_1A2220:: @ 81A2220
+	.string "Genauso muss es laufen!$"
+
+SecretBase_RedCave1_Text_1A2230:: @ 81A2230
+	.string "Wenn du bereit bist, sag Bescheid.$"
+
+UnknownString_81A2254:: @ 81A2254
+	.string "Ooch! Ich hab's vergeigt!\n"
+	.string "Aber es hat sehr viel Spaß gemacht!$"
+
+SecretBase_RedCave1_Text_1A2280:: @ 81A2280
+	.string "Egal. Ich sollte mir auf jeden Fall einige\n"
+	.string "Dekorationen und Möbel zulegen.\p"
+	.string "Ich möchte, dass sich auch andere in\n"
+	.string "meiner GEHEIMBASIS wohl fühlen.$"
+
+SecretBase_RedCave1_Text_1A22FA:: @ 81A22FA
+	.string "Ein großes Anwesen ist natürlich auch\n"
+	.string "ganz nett, aber hier ist es schöner.\p"
+	.string "Viele Leute kommen mich besuchen.$"
+
+SecretBase_RedCave1_Text_1A236A:: @ 81A236A
+	.string "Ich liebe es, Dekorationen und Möbel\n"
+	.string "zu kaufen!!!\p"
+	.string "Ich liebe es genauso, POKéMON aufzu-\n"
+	.string "ziehen!\p"
+	.string "Wärest du so nett, mit meinen\n"
+	.string "POKéMON zu kämpfen?$"
+
+SecretBase_RedCave1_Text_1A2405:: @ 81A2405
+	.string "Danke schön.\n"
+	.string "Bist du bereit?$"
+
+SecretBase_RedCave1_Text_1A2420:: @ 81A2420
+	.string "Oh.\n"
+	.string "Was für eine Enttäuschung.$"
+
+UnknownString_81A2439:: @ 81A2439
+	.string "Ich kapituliere...$"
+
+SecretBase_RedCave1_Text_1A2446:: @ 81A2446
+	.string "Das war vielleicht ein Spaß! Und nun\n"
+	.string "sollte ich mich dem Einkaufen widmen.$"
+
+SecretBase_RedCave1_Text_1A2480:: @ 81A2480
+	.string "Ich liebe es, Dekorationen und Möbel\n"
+	.string "zu kaufen!!!\p"
+	.string "Ich liebe es genauso, POKéMON aufzu-\n"
+	.string "ziehen!$"
+
+SecretBase_RedCave1_Text_1A24E1:: @ 81A24E1
+	.string "Einige Leute richten ihre GEHEIMBASIS\n"
+	.string "an gut versteckten Orten ein.\l"
+	.string "Wollen sie sich nicht mehr sehen lassen?\p"
+	.string "Da du mich gefunden hast, lass uns\n"
+	.string "doch gleich mal kämpfen.$"
+
+SecretBase_RedCave1_Text_1A256F:: @ 81A256F
+	.string "Ich bin nicht einfach zu besiegen!$"
+
+SecretBase_RedCave1_Text_1A258A:: @ 81A258A
+	.string "Oh. Sag bloß, du bist müde von der Suche\n"
+	.string "nach diesem Platz?$"
+
+UnknownString_81A25C3:: @ 81A25C3
+	.string "Ich bin untergegangen...$"
+
+SecretBase_RedCave1_Text_1A25D2:: @ 81A25D2
+	.string "Wo ist deine GEHEIMBASIS?\n"
+	.string "Ich sollte dich dort mal besuchen.$"
+
+SecretBase_RedCave1_Text_1A2609:: @ 81A2609
+	.string "Einige Leute richten ihre GEHEIMBASIS\n"
+	.string "an gut versteckten Orten ein.\l"
+	.string "Wollen sie sich nicht mehr sehen lassen?$"
+
+SecretBase_RedCave1_Text_1A2663:: @ 81A2663
+	.string "Einige Leute haben mir erzählt, dass man\n"
+	.string "auf verschiedene Arten an Deko-\l"
+	.string "rationen kommen kann.\p"
+	.string "Wir sollten einen Wettbewerb veran-\n"
+	.string "stalten, wer die schönsten Dinge hat.\p"
+	.string "Aber zuerst lass uns kämpfen.$"
+
+SecretBase_RedCave1_Text_1A2710:: @ 81A2710
+	.string "Das ist meine GEHEIMBASIS.\n"
+	.string "Ich kann hier gar nicht verlieren!$"
+
+SecretBase_RedCave1_Text_1A2736:: @ 81A2736
+	.string "Ich kämpfe jederzeit mit dir.$"
+
+UnknownString_81A2754:: @ 81A2754
+	.string "Wie?\n"
+	.string "Ich habe doch verloren?$"
+
+SecretBase_RedCave1_Text_1A276A:: @ 81A276A
+	.string "Ich werde den Wettbewerb um die\n"
+	.string "schönsten Dekorationen nicht ver-\l"
+	.string "lieren. Überzeuge dich selbst!$"
+
+SecretBase_RedCave1_Text_1A27A4:: @ 81A27A4
+	.string "Einige Leute haben mir erzählt, dass man\n"
+	.string "auf verschiedene Arten an Deko-\l"
+	.string "rationen kommen kann.\p"
+	.string "Wir sollten einen Wettbewerb veran-\n"
+	.string "stalten, wer die schönsten Dinge hat.$"
+
+SecretBase_RedCave1_Text_1A2830:: @ 81A2830
+	.string "Ich habe einen Ort gefunden, der mir\n"
+	.string "gefällt und den ich mit meinen Lieblings-\l"
+	.string "dekorationen ausgestattet habe.\p"
+	.string "Dort ziehe ich meine Lieblings-POKéMON\n"
+	.string "auf und werde mit ihnen stärker.\p"
+	.string "Genau das mache ich.\n"
+	.string "Möchtest du mit mir kämpfen?$"
+
+SecretBase_RedCave1_Text_1A28D7:: @ 81A28D7
+	.string "Zeig mir, aus welchem Holz du\n"
+	.string "geschnitzt bist.$"
+
+SecretBase_RedCave1_Text_1A28F4:: @ 81A28F4
+	.string "Ich glaube, es gibt immer wieder Zeiten,\n"
+	.string "in denen man nicht so gut drauf ist.$"
+
+UnknownString_81A2925:: @ 81A2925
+	.string "Ich weiß jetzt genau, aus welchem Holz\n"
+	.string "du geschnitzt bist.$"
+
+SecretBase_RedCave1_Text_1A294D:: @ 81A294D
+	.string "Wir können beide noch stärker werden!\n"
+	.string "Das macht doch Mut!$"
+
+SecretBase_RedCave1_Text_1A297C:: @ 81A297C
+	.string "Ich habe einen Ort gefunden, der mir\n"
+	.string "gefällt und den ich mit meinen Lieblings-\l"
+	.string "dekorationen ausgestattet habe.\p"
+	.string "Dort ziehe ich meine Lieblings-POKéMON\n"
+	.string "auf und werde mit ihnen stärker.\p"
+	.string "Jeder Tag ist mein Lieblingstag.$"
+
+SecretBase_RedCave1_Text_1A2A13:: @ 81A2A13
+	.string "Man lernt viel über den Geschmack und\n"
+	.string "den Stil von Menschen, wenn man sich\l"
+	.string "ihre Dekorationen und den Platz, auf\l"
+	.string "dem sie stehen, anschaut.\p"
+	.string "Wie findest du meinen Geschmack?\n"
+	.string "Bist du sprachlos? Hihihi...\p"
+	.string "Willst du mal meinen Kampfstil sehen?$"
+
+SecretBase_RedCave1_Text_1A2AE2:: @ 81A2AE2
+	.string "Es gibt kein Zurück mehr.$"
+
+SecretBase_RedCave1_Text_1A2AFB:: @ 81A2AFB
+	.string "Ich zeige dir gerne jederzeit wieder \n"
+	.string "meinen erlesenen Kampfstil!$"
+
+UnknownString_81A2B2A:: @ 81A2B2A
+	.string "Du bist hoch talentiert! Deine Stärke\n"
+	.string "scheint grenzenlos zu sein.$"
+
+SecretBase_RedCave1_Text_1A2B69:: @ 81A2B69
+	.string "Was hältst du von meinem Stil?\n"
+	.string "Ich muss ihn noch mehr aufpolieren.$"
+
+SecretBase_RedCave1_Text_1A2BA4:: @ 81A2BA4
+	.string "Man lernt viel über den Geschmack und\n"
+	.string "den Stil von Menschen, wenn man sich\l"
+	.string "ihre Dekorationen und den Platz, auf\l"
+	.string "dem sie stehen, anschaut.\p"
+	.string "Wie findest du meinen Geschmack?\n"
+	.string "Bist du sprachlos? Hihihi...$"
diff --git a/data/event_scripts.s b/data/event_scripts.s
index 3edbf49b0..9df3adcdb 100644
--- a/data/event_scripts.s
+++ b/data/event_scripts.s
@@ -1168,1082 +1168,15 @@ Common_EventScript_Return:: @ 81A14DC
 	.include "data/scripts/debug.inc"
 	.include "data/scripts/berry_tree.inc"
 	.include "data/text/berry_tree.inc"
-
-UnknownString_81A1948: @ 81A1948
-	.string "If some vines drop down, this tree can\n"
-	.string "be climbed.$"
-
-UnknownString_81A197B: @ 81A197B
-	.string "If some vines drop down, this tree can\n"
-	.string "be climbed.\p"
-	.string "Use the SECRET POWER?$"
-
-UnknownString_81A19C4: @ 81A19C4
-	.string "A thick vine dropped down!$"
-
-UnknownString_81A19DF: @ 81A19DF
-	.string "Want to make your SECRET BASE here?$"
-
-UnknownString_81A1A03: @ 81A1A03
-	.string "If this clump of grass can be moved,\n"
-	.string "it might be possible to go inside.$"
-
-UnknownString_81A1A4B: @ 81A1A4B
-	.string "If this clump of grass can be moved,\n"
-	.string "it might be possible to go inside.\p"
-	.string "Use the SECRET POWER?$"
-
-UnknownString_81A1AA9: @ 81A1AA9
-	.string "Discovered a small entrance!$"
-
-UnknownString_81A1AC6: @ 81A1AC6
-	.string "Want to make your SECRET BASE here?$"
-
-SecretBase_RedCave1_Text_1A1AEA:: @ 81A1AEA
-	.string "Have you made a SECRET BASE already?\p"
-	.string "I went here, there, everywhere before\n"
-	.string "choosing this place.\p"
-	.string "Since you're already here, how would\n"
-	.string "you like to battle?$"
-
-SecretBase_RedCave1_Text_1A1B83:: @ 81A1B83
-	.string "Okay!\n"
-	.string "Here we come!$"
-
-SecretBase_RedCave1_Text_1A1B97:: @ 81A1B97
-	.string "Hunh?\n"
-	.string "Oh, you can't now...$"
-
-UnknownString_81A1BB2:: @ 81A1BB2
-	.string "Waaargh! You're too strong!\n"
-	.string "About me losing... Please keep it secret!$"
-
-SecretBase_RedCave1_Text_1A1BF8:: @ 81A1BF8
-	.string "What do you think of my SECRET BASE?\n"
-	.string "Come visit me again tomorrow.$"
-
-SecretBase_RedCave1_Text_1A1C3B:: @ 81A1C3B
-	.string "Have you made a SECRET BASE already?\p"
-	.string "I went here, there, everywhere before\n"
-	.string "choosing this place.\p"
-	.string "Feel free to hang out!$"
-
-SecretBase_RedCave1_Text_1A1CB2:: @ 81A1CB2
-	.string "There're a lot of places where you can\n"
-	.string "make a SECRET BASE.\p"
-	.string "But I like this spot best.\n"
-	.string "Don't you think it's nice?\p"
-	.string "Oh, would you like to have a battle?$"
-
-SecretBase_RedCave1_Text_1A1D48:: @ 81A1D48
-	.string "Okay, here goes!$"
-
-SecretBase_RedCave1_Text_1A1D59:: @ 81A1D59
-	.string "Oh...\n"
-	.string "You can't now, okay.$"
-
-UnknownString_81A1D74:: @ 81A1D74
-	.string "Hmmm... It's our loss...\n"
-	.string "But don't tell anyone!\l"
-	.string "It's a confidential secret!$"
-
-SecretBase_RedCave1_Text_1A1DC0:: @ 81A1DC0
-	.string "If you're in this area again, I hope\n"
-	.string "you'll visit me.$"
-
-SecretBase_RedCave1_Text_1A1DF6:: @ 81A1DF6
-	.string "There're a lot of places where you can\n"
-	.string "make a SECRET BASE.\p"
-	.string "But I like this spot best.\n"
-	.string "Don't you think it's nice?$"
-
-SecretBase_RedCave1_Text_1A1E67:: @ 81A1E67
-	.string "This is a popular spot.\n"
-	.string "It's always taken.\p"
-	.string "Oh! Were you thinking about taking this\n"
-	.string "spot, too?\p"
-	.string "I'll tell you what, you can have this\n"
-	.string "spot if you can beat me.$"
-
-SecretBase_RedCave1_Text_1A1F04:: @ 81A1F04
-	.string "Okay!\n"
-	.string "I'm going to defend my SECRET BASE!$"
-
-SecretBase_RedCave1_Text_1A1F2E:: @ 81A1F2E
-	.string "Hunh? Is that right?\n"
-	.string "You're not interested in this spot?$"
-
-UnknownString_81A1F67:: @ 81A1F67
-	.string "I can't keep going!\n"
-	.string "I surrender!$"
-
-SecretBase_RedCave1_Text_1A1F88:: @ 81A1F88
-	.string "Okay, when I move one day, this place\n"
-	.string "will be yours!$"
-
-SecretBase_RedCave1_Text_1A1FBD:: @ 81A1FBD
-	.string "This is a popular spot.\n"
-	.string "It's always taken.\p"
-	.string "I waited a long time for it to open.\n"
-	.string "I finally got to use it!$"
-
-SecretBase_RedCave1_Text_1A2026:: @ 81A2026
-	.string "Welcome to my POKéMON LAB.\p"
-	.string "I carry out research on battling in\n"
-	.string "secrecy.\p"
-	.string "Would you like to see how strong I am?$"
-
-SecretBase_RedCave1_Text_1A2095:: @ 81A2095
-	.string "I'm going to go all out!$"
-
-SecretBase_RedCave1_Text_1A20AE:: @ 81A20AE
-	.string "Oh.\n"
-	.string "Some other time, then!$"
-
-UnknownString_81A20C9:: @ 81A20C9
-	.string "Hmm... I've still got lots to learn.\n"
-	.string "I have to study some more.$"
-
-SecretBase_RedCave1_Text_1A2109:: @ 81A2109
-	.string "Thanks for battling with me.\n"
-	.string "Please come back again tomorrow.$"
-
-SecretBase_RedCave1_Text_1A2147:: @ 81A2147
-	.string "Welcome to my POKéMON LAB.\p"
-	.string "I carry out research on battling in\n"
-	.string "secrecy.$"
-
-SecretBase_RedCave1_Text_1A218F:: @ 81A218F
-	.string "A big mansion is nice, but I like this\n"
-	.string "sort of place more.\p"
-	.string "I like it because all kinds of people\n"
-	.string "come visit me.\p"
-	.string "So, how would you like a battle?$"
-
-SecretBase_RedCave1_Text_1A2220:: @ 81A2220
-	.string "That's the way!$"
-
-SecretBase_RedCave1_Text_1A2230:: @ 81A2230
-	.string "When you're ready, give me a shout!$"
-
-UnknownString_81A2254:: @ 81A2254
-	.string "Aww! Done in!\n"
-	.string "But it's still fun to battle!$"
-
-SecretBase_RedCave1_Text_1A2280:: @ 81A2280
-	.string "Well, anyway, I should go buy some\n"
-	.string "decorations and furniture.\p"
-	.string "I want my SECRET BASE to be a place\n"
-	.string "other people can enjoy.$"
-
-SecretBase_RedCave1_Text_1A22FA:: @ 81A22FA
-	.string "A big mansion is nice, but I like this\n"
-	.string "sort of place more.\p"
-	.string "I like it because all kinds of people\n"
-	.string "come visit me.$"
-
-SecretBase_RedCave1_Text_1A236A:: @ 81A236A
-	.string "I simply adore shopping for decorations\n"
-	.string "and furniture.\p"
-	.string "I also love raising POKéMON just\n"
-	.string "as much.\p"
-	.string "If you would be so kind, will you battle\n"
-	.string "with my POKéMON?$"
-
-SecretBase_RedCave1_Text_1A2405:: @ 81A2405
-	.string "Thank you.\n"
-	.string "Shall we begin?$"
-
-SecretBase_RedCave1_Text_1A2420:: @ 81A2420
-	.string "Oh.\n"
-	.string "How disappointing...$"
-
-UnknownString_81A2439:: @ 81A2439
-	.string "I concede...$"
-
-SecretBase_RedCave1_Text_1A2446:: @ 81A2446
-	.string "That was all in good fun!\n"
-	.string "I should go enjoy shopping now.$"
-
-SecretBase_RedCave1_Text_1A2480:: @ 81A2480
-	.string "I simply adore shopping for decorations\n"
-	.string "and furniture.\p"
-	.string "I also love raising POKéMON just\n"
-	.string "as much.$"
-
-SecretBase_RedCave1_Text_1A24E1:: @ 81A24E1
-	.string "Some people make their SECRET BASES in\n"
-	.string "hard-to-find places.\l"
-	.string "Do they want to just lie low?\p"
-	.string "But since you found me, how about we\n"
-	.string "have a battle?$"
-
-SecretBase_RedCave1_Text_1A256F:: @ 81A256F
-	.string "I'm not going down easily!$"
-
-SecretBase_RedCave1_Text_1A258A:: @ 81A258A
-	.string "Oh... Are you maybe tired from searching\n"
-	.string "for this place?$"
-
-UnknownString_81A25C3:: @ 81A25C3
-	.string "I went down...$"
-
-SecretBase_RedCave1_Text_1A25D2:: @ 81A25D2
-	.string "Where's your SECRET BASE?\n"
-	.string "I should go visit you there.$"
-
-SecretBase_RedCave1_Text_1A2609:: @ 81A2609
-	.string "Some people make their SECRET BASES in\n"
-	.string "hard-to-find places.\l"
-	.string "Do they want to just lie low?$"
-
-SecretBase_RedCave1_Text_1A2663:: @ 81A2663
-	.string "People have told me that you can get\n"
-	.string "decorations in several ways.\p"
-	.string "We should have a race to see who can\n"
-	.string "get nicer decorations and furniture!\p"
-	.string "In the meantime, want to battle?$"
-
-SecretBase_RedCave1_Text_1A2710:: @ 81A2710
-	.string "This is my SECRET BASE.\n"
-	.string "I can't lose!$"
-
-SecretBase_RedCave1_Text_1A2736:: @ 81A2736
-	.string "I'll battle with you anytime.$"
-
-UnknownString_81A2754:: @ 81A2754
-	.string "Huh?\n"
-	.string "Did I just lose?$"
-
-SecretBase_RedCave1_Text_1A276A:: @ 81A276A
-	.string "I won't lose at collecting decorations.\n"
-	.string "Come visit again!$"
-
-SecretBase_RedCave1_Text_1A27A4:: @ 81A27A4
-	.string "People have told me that you can get\n"
-	.string "decorations in several ways.\p"
-	.string "We should have a race to see who can\n"
-	.string "get nicer decorations and furniture!$"
-
-SecretBase_RedCave1_Text_1A2830:: @ 81A2830
-	.string "I found a spot I liked, and I did it up\n"
-	.string "with my favorite decorations.\p"
-	.string "I raise my favorite POKéMON and grow\n"
-	.string "stronger with it.\p"
-	.string "That's what I do.\n"
-	.string "Want to battle with me?$"
-
-SecretBase_RedCave1_Text_1A28D7:: @ 81A28D7
-	.string "Show me what you're made of!$"
-
-SecretBase_RedCave1_Text_1A28F4:: @ 81A28F4
-	.string "I guess there are times when you're not\n"
-	.string "into it.$"
-
-UnknownString_81A2925:: @ 81A2925
-	.string "I know exactly what you're made of now.$"
-
-SecretBase_RedCave1_Text_1A294D:: @ 81A294D
-	.string "We can both become stronger.\n"
-	.string "Let's keep at it!$"
-
-SecretBase_RedCave1_Text_1A297C:: @ 81A297C
-	.string "I found a spot I liked, and I did it up\n"
-	.string "with my favorite decorations.\p"
-	.string "I raise my favorite POKéMON and grow\n"
-	.string "stronger with it.\p"
-	.string "Every day is a great day.$"
-
-SecretBase_RedCave1_Text_1A2A13:: @ 81A2A13
-	.string "You can learn a lot about the taste\n"
-	.string "and sense of people by the kinds of\l"
-	.string "decorations they have, and how they\l"
-	.string "display them.\p"
-	.string "What do you think of my taste?\n"
-	.string "Are you speechless?\p"
-	.string "Want to see my taste in battling?$"
-
-SecretBase_RedCave1_Text_1A2AE2:: @ 81A2AE2
-	.string "There's no holding back!$"
-
-SecretBase_RedCave1_Text_1A2AFB:: @ 81A2AFB
-	.string "I'll be happy to demonstrate my style\n"
-	.string "anytime.$"
-
-UnknownString_81A2B2A:: @ 81A2B2A
-	.string "You're supremely talented!\n"
-	.string "Your power seems to be limitless...$"
-
-SecretBase_RedCave1_Text_1A2B69:: @ 81A2B69
-	.string "What did you think of my style?\n"
-	.string "I'll keep on polishing it!$"
-
-SecretBase_RedCave1_Text_1A2BA4:: @ 81A2BA4
-	.string "You can learn a lot about the taste\n"
-	.string "and sense of people by the kinds of\l"
-	.string "decorations they have, and how they\l"
-	.string "display them.\p"
-	.string "What do you think of my taste?\n"
-	.string "Are you speechless?$"
-
-gUnknown_081A2C51:: @ 81A2C51
-	special sub_80BB70C
-	special CheckPlayerHasSecretBase
-	compare VAR_RESULT, 1
-	goto_if_eq AskToMoveSecretBase
-	checkpartymove MOVE_SECRET_POWER
-	setfieldeffectargument 0, VAR_RESULT
-	buffermovename 1, MOVE_SECRET_POWER
-	compare VAR_0x8007, 1
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 2
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 3
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 4
-	goto_if_eq EventScript_1A2CB0
-	compare VAR_0x8007, 5
-	goto_if_eq EventScript_1A2D08
-	compare VAR_0x8007, 6
-	goto_if_eq EventScript_1A2D60
-	end
-
-EventScript_1A2CB0:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2CF1
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_8198F34, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
-	waitstate
-	goto EventScript_1A2CFA
-	end
-
-DoSecretBaseCaveFieldEffectScript:: @ 81A2CE6
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
-	waitstate
-	goto EventScript_1A2CFA
-	end
-
-EventScript_1A2CF1:
-	msgbox UnknownString_8198F10, MSGBOX_SIGN
-	end
-
-EventScript_1A2CFA:
-	msgbox UnknownString_8198F6E, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2D08:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2D49
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_81A197B, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
-	waitstate
-	goto EventScript_1A2D52
-	end
-
-DoSecretBaseTreeFieldEffectScript:: @ 81A2D3E
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
-	waitstate
-	goto EventScript_1A2D52
-	end
-
-EventScript_1A2D49:
-	msgbox UnknownString_81A1948, MSGBOX_SIGN
-	end
-
-EventScript_1A2D52:
-	msgbox UnknownString_81A19C4, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2D60:
-	lockall
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2DA1
-	bufferpartymonnick 0, VAR_RESULT
-	msgbox UnknownString_81A1A4B, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
-	waitstate
-	goto EventScript_1A2DAA
-	end
-
-DoSecretBaseShrubFieldEffectScript:: @ 81A2D96
-	lockall
-	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
-	waitstate
-	goto EventScript_1A2DAA
-	end
-
-EventScript_1A2DA1:
-	msgbox UnknownString_81A1A03, MSGBOX_SIGN
-	end
-
-EventScript_1A2DAA:
-	msgbox UnknownString_81A1AA9, MSGBOX_DEFAULT
-	goto EventScript_1A2DB8
-	end
-
-EventScript_1A2DB8:
-	closemessage
-	playse SE_KAIDAN
-	setvar VAR_INIT_SECRET_BASE, 0
-	setflag FLAG_DECORATION_1
-	special sub_80BB8CC
-	special sub_80BBAF0
-	setvar VAR_0x8004, 0
-	setvar VAR_0x8005, 0
-	special sub_80BBDD0
-	setvar VAR_SECRET_BASE_INITIALIZED, 1
-	waitstate
-	end
-
-SecretBase_EventScript_FirstEntrance:: @ 81A2DDE
-	applymovement OBJ_EVENT_ID_PLAYER, SecretBase_RedCave1_Movement_1A2E11
-	waitmovement 0
-	setvar VAR_INIT_SECRET_BASE, 1
-	msgbox SecretBase_RedCave1_Text_198F89, MSGBOX_YESNO
-	compare VAR_RESULT, YES
-	goto_if_eq SecretBase_RedCave1_EventScript_1A2E08
-	closemessage
-	playse SE_KAIDAN
-	special sub_80BC440
-	end
-
-SecretBase_RedCave1_EventScript_1A2E08:: @ 81A2E08
-	closemessage
-	setflag FLAG_RECEIVED_SECRET_POWER
-	special sub_80BBC78
-	waitstate
-	end
-
-SecretBase_RedCave1_Movement_1A2E11:: @ 81A2E11
-	walk_up
-	walk_up
-	step_end
-
-gUnknown_081A2E14:: @ 81A2E14
-	lockall
-	setvar VAR_INIT_SECRET_BASE, 1
-	playse SE_KAIDAN
-	special sub_80BC114
-	compare VAR_RESULT, 0
-	goto_if_eq EventScript_1A2E38
-	clearflag FLAG_DECORATION_1
-	special sub_80BBAF0
-	setvar VAR_SECRET_BASE_INITIALIZED, 0
-	waitstate
-	end
-
-EventScript_1A2E38:
-	setflag FLAG_DECORATION_1
-	special sub_80BBAF0
-	setvar VAR_SECRET_BASE_INITIALIZED, 0
-	waitstate
-	end
-
-AskToMoveSecretBase:
-	checkpartymove MOVE_SECRET_POWER
-	compare VAR_RESULT, 6
-	goto_if_eq EventScript_1A2EF7
-	setfieldeffectargument 0, VAR_RESULT
-	setorcopyvar VAR_0x8004, VAR_RESULT
-	lockall
-	special GetSecretBaseNearbyMapName
-	msgbox UnknownString_81A3C71, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	fadescreen FADE_TO_BLACK
-	special MoveSecretBase
-	closemessage
-	fadescreen FADE_FROM_BLACK
-	msgbox UnknownString_81A3CC9, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq EventScript_1A2F3A
-	bufferpartymonnick 0, VAR_0x8004
-	buffermovename 1, MOVE_SECRET_POWER
-	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
-	closemessage
-	closemessage
-	compare VAR_0x8007, 1
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 2
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 3
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 4
-	goto_if_eq DoSecretBaseCaveFieldEffectScript
-	compare VAR_0x8007, 5
-	goto_if_eq DoSecretBaseTreeFieldEffectScript
-	compare VAR_0x8007, 6
-	goto_if_eq DoSecretBaseShrubFieldEffectScript
-	releaseall
-	end
-
-EventScript_1A2EF7::
-	compare VAR_0x8007, 1
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 2
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 3
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 4
-	goto_if_eq EventScript_1A2CF1
-	compare VAR_0x8007, 5
-	goto_if_eq EventScript_1A2D49
-	compare VAR_0x8007, 6
-	goto_if_eq EventScript_1A2DA1
-	end
-
-EventScript_1A2F3A::
-	closemessage
-	releaseall
-	end
-
-SecretBase_EventScript_SetDecorationFlags:: @ 81A2F3D
-	setflag FLAG_DECORATION_2
-	setflag FLAG_DECORATION_3
-	setflag FLAG_DECORATION_4
-	setflag FLAG_DECORATION_5
-	setflag FLAG_DECORATION_6
-	setflag FLAG_DECORATION_7
-	setflag FLAG_DECORATION_8
-	setflag FLAG_DECORATION_9
-	setflag FLAG_DECORATION_10
-	setflag FLAG_DECORATION_11
-	setflag FLAG_DECORATION_12
-	setflag FLAG_DECORATION_13
-	setflag FLAG_DECORATION_14
-	setflag FLAG_DECORATION_15
-	return
-
-SecretBase_EventScript_InitDecorations:: @ 81A2F68
-	setvar VAR_0x8004, 0
-	setvar VAR_0x8005, 0
-	special sub_80BBDD0
-	setvar VAR_SECRET_BASE_INITIALIZED, 1
-	end
-
-gUnknown_081A2F7B:: @ 81A2F7B
-	setvar VAR_0x8005, 0
-	goto EventScript_1A2F86
-	end
-
-EventScript_1A2F86:
-	special sub_80FF474
-	end
-
-gUnknown_081A2F8A:: @ 81A2F8A
-	setvar VAR_0x8004, 0
-	goto EventScript_1A2F95
-	end
-
-EventScript_1A2F95:
-	special sub_8100A7C
-	compare VAR_RESULT, 1
-	goto_if_eq EventScript_1A2FBF
-	addvar VAR_0x8004, 1
-	compare VAR_0x8005, 0
-	goto_if_eq EventScript_1A2F95
-	removeobject VAR_0x8006
-	setflag VAR_0x8005
-	goto EventScript_1A2F95
-	end
-
-EventScript_1A2FBF:
-	end
-
-SecretBase_BlueCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BlueCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_BrownCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_RedCave4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Shrub4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_Tree4_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave1_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave2_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave3_EventScript_1A2FC0:: @ 81A2FC0
-SecretBase_YellowCave4_EventScript_1A2FC0:: @ 81A2FC0
-	special sub_80BCE90
-	compare VAR_0x8004, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3032
-	compare VAR_0x8004, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A30AE
-	compare VAR_0x8004, 2
-	goto_if_eq SecretBase_RedCave1_EventScript_1A312A
-	compare VAR_0x8004, 3
-	goto_if_eq SecretBase_RedCave1_EventScript_1A31A6
-	compare VAR_0x8004, 4
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3222
-	compare VAR_0x8004, 5
-	goto_if_eq SecretBase_RedCave1_EventScript_1A329E
-	compare VAR_0x8004, 6
-	goto_if_eq SecretBase_RedCave1_EventScript_1A331A
-	compare VAR_0x8004, 7
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3396
-	compare VAR_0x8004, 8
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3412
-	compare VAR_0x8004, 9
-	goto_if_eq SecretBase_RedCave1_EventScript_1A348E
-	end
-
-SecretBase_RedCave1_EventScript_1A3032:: @ 81A3032
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3086
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A30A5
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1AEA, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1B83, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3086:: @ 81A3086
-	msgbox SecretBase_RedCave1_Text_1A1C3B, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A308F:: @ 81A308F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1B97, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A30A5:: @ 81A30A5
-	msgbox SecretBase_RedCave1_Text_1A1BF8, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A30AE:: @ 81A30AE
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3102
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3121
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1E67, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1F04, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3102:: @ 81A3102
-	msgbox SecretBase_RedCave1_Text_1A1FBD, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A310B:: @ 81A310B
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1F2E, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3121:: @ 81A3121
-	msgbox SecretBase_RedCave1_Text_1A1F88, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A312A:: @ 81A312A
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A317E
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A319D
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A218F, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2220, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A317E:: @ 81A317E
-	msgbox SecretBase_RedCave1_Text_1A22FA, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3187:: @ 81A3187
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2230, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A319D:: @ 81A319D
-	msgbox SecretBase_RedCave1_Text_1A2280, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A31A6:: @ 81A31A6
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A31FA
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3219
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A24E1, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A256F, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A31FA:: @ 81A31FA
-	msgbox SecretBase_RedCave1_Text_1A2609, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3203:: @ 81A3203
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A258A, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3219:: @ 81A3219
-	msgbox SecretBase_RedCave1_Text_1A25D2, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3222:: @ 81A3222
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3276
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3295
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2830, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A28D7, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3276:: @ 81A3276
-	msgbox SecretBase_RedCave1_Text_1A297C, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A327F:: @ 81A327F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A28F4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3295:: @ 81A3295
-	msgbox SecretBase_RedCave1_Text_1A294D, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A329E:: @ 81A329E
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A32F2
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3311
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A1CB2, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1D48, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A32F2:: @ 81A32F2
-	msgbox SecretBase_RedCave1_Text_1A1DF6, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A32FB:: @ 81A32FB
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A1D59, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3311:: @ 81A3311
-	msgbox SecretBase_RedCave1_Text_1A1DC0, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A331A:: @ 81A331A
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A336E
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A338D
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2026, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2095, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A336E:: @ 81A336E
-	msgbox SecretBase_RedCave1_Text_1A2147, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3377:: @ 81A3377
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A20AE, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A338D:: @ 81A338D
-	msgbox SecretBase_RedCave1_Text_1A2109, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3396:: @ 81A3396
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A33EA
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3409
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A236A, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2405, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A33EA:: @ 81A33EA
-	msgbox SecretBase_RedCave1_Text_1A2480, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A33F3:: @ 81A33F3
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2420, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3409:: @ 81A3409
-	msgbox SecretBase_RedCave1_Text_1A2446, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3412:: @ 81A3412
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3466
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3485
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2663, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2710, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A3466:: @ 81A3466
-	msgbox SecretBase_RedCave1_Text_1A27A4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A346F:: @ 81A346F
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2736, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3485:: @ 81A3485
-	msgbox SecretBase_RedCave1_Text_1A276A, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A348E:: @ 81A348E
-	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A34E2
-	compare VAR_RESULT, 1
-	goto_if_eq SecretBase_RedCave1_EventScript_1A3501
-	lock
-	faceplayer
-	msgbox SecretBase_RedCave1_Text_1A2A13, MSGBOX_YESNO
-	compare VAR_RESULT, NO
-	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
-	setvar VAR_RESULT, 1
-	special sub_80BCE4C
-	call Common_EventScript_SaveGame
-	compare VAR_RESULT, 0
-	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2AE2, MSGBOX_DEFAULT
-	goto SecretBase_RedCave1_EventScript_1A350A
-	end
-
-SecretBase_RedCave1_EventScript_1A34E2:: @ 81A34E2
-	msgbox SecretBase_RedCave1_Text_1A2BA4, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A34EB:: @ 81A34EB
-	setvar VAR_RESULT, 0
-	special sub_80BCE4C
-	erasebox 0, 0, 15, 10
-	msgbox SecretBase_RedCave1_Text_1A2AFB, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A3501:: @ 81A3501
-	msgbox SecretBase_RedCave1_Text_1A2B69, MSGBOX_NPC
-	end
-
-SecretBase_RedCave1_EventScript_1A350A:: @ 81A350A
-	special sub_80BCE1C
-	setvar VAR_0x8004, 1
-	setvar VAR_0x8005, 0
-	special StartSpecialBattle
-	waitstate
-	special ScrSpecial_HealPlayerParty
-	release
-	end
-
+	.include "data/text/secret_base_trainers.inc"
+	.include "data/scripts/secret_base.inc"
 	.include "data/text/secret_power_tm.inc"
 	.include "data/scripts/secret_power_tm.inc"
-
-SecretBase_Text_AllDecorationsWillBeReturned: @ 81A38FB
-	.string "All decorations and furniture in your\n"
-	.string "SECRET BASE will be returned to your PC.\p"
-	.string "Is that okay?$"
-
-SecretBase_Text_WantToRegisterSecretBase: @ 81A3958
-	.string "Do you want to register\n"
-	.string "{STR_VAR_1}'s SECRET BASE?$"
-
-SecretBase_Text_AlreadyRegisteredDelete: @ 81A3982
-	.string "This data is already registered.\n"
-	.string "Would you like to delete it?$"
-
-SecretBase_Text_TooManyBasesDeleteSome: @ 81A39C0
-	.string "Up to 10 locations can be registered.\p"
-	.string "Delete a location if you want to\n"
-	.string "register another location.$"
-
-SecretBase_Text_RegistrationCompleted: @ 81A3A22
-	.string "Registration completed.$"
-
-SecretBase_Text_DataUnregistered: @ 81A3A3A
-	.string "Data has been unregistered.$"
-
-UnknownString_81A3A56: @ 81A3A56
-	.string "There are no decorations...$"
-
-SecretBase_Text_BootUpPC: @ 81A3A72
-	.string "{PLAYER} booted up the PC.$"
-
-SecretBase_Text_WhatWouldYouLikeToDo: @ 81A3A87
-	.string "What would you like to do?$"
-
-SecretBase_Text_RegistryInfo: @ 81A3AA2
-	.string "The registered SECRET BASE will remain\n"
-	.string "unless the owner moves away.\p"
-	.string "If it is removed from the registry,\n"
-	.string "another SECRET BASE may take its place.\p"
-	.string "Up to ten locations can be registered.{PAUSE_UNTIL_PRESS}$"
-
-SecretBase_Text_BattleTowerShield: @ 81A3B5B
-	.string "A shield of {STR_VAR_2} that marks winning\n"
-	.string "{STR_VAR_1} times in a row at the BATTLE TOWER.$"
-
-SecretBase_Text_ToyTV: @ 81A3BA4
-	.string "A realistic toy TV. It could be easily\n"
-	.string "mistaken for the real thing.$"
-
-SecretBase_Text_SeedotTV: @ 81A3BE8
-	.string "A toy TV shaped like a SEEDOT.\n"
-	.string "It looks ready to roll away on its own...$"
-
-SecretBase_Text_SkittyTV: @ 81A3C31
-	.string "A toy TV shaped like a SKITTY.\n"
-	.string "It looks ready to stroll away...$"
-
-UnknownString_81A3C71: @ 81A3C71
-	.string "You may only make one SECRET BASE.\p"
-	.string "Would you like to move from the SECRET\n"
-	.string "BASE near {STR_VAR_1}?$"
-
-UnknownString_81A3CC9: @ 81A3CC9
-	.string "Moving completed.\p"
-	.string "Would you like to use the SECRET POWER?$"
-
+	.include "data/text/secret_base.inc"
 	.include "data/scripts/cable_club.inc"
 	.include "data/text/cable_club.inc"
-
 	.include "data/scripts/contest_hall.inc"
 	.include "data/text/contest_hall.inc"
-
 	.include "data/scripts/tv.inc"
 	.include "data/text/tv.inc"
 
diff --git a/data/scripts/secret_base.inc b/data/scripts/secret_base.inc
new file mode 100644
index 000000000..8a82583b2
--- /dev/null
+++ b/data/scripts/secret_base.inc
@@ -0,0 +1,683 @@
+gUnknown_081A2C51:: @ 81A2C51
+	special sub_80BB70C
+	special CheckPlayerHasSecretBase
+	compare VAR_RESULT, 1
+	goto_if_eq AskToMoveSecretBase
+	checkpartymove MOVE_SECRET_POWER
+	setfieldeffectargument 0, VAR_RESULT
+	buffermovename 1, MOVE_SECRET_POWER
+	compare VAR_0x8007, 1
+	goto_if_eq EventScript_1A2CB0
+	compare VAR_0x8007, 2
+	goto_if_eq EventScript_1A2CB0
+	compare VAR_0x8007, 3
+	goto_if_eq EventScript_1A2CB0
+	compare VAR_0x8007, 4
+	goto_if_eq EventScript_1A2CB0
+	compare VAR_0x8007, 5
+	goto_if_eq EventScript_1A2D08
+	compare VAR_0x8007, 6
+	goto_if_eq EventScript_1A2D60
+	end
+
+EventScript_1A2CB0:
+	lockall
+	compare VAR_RESULT, 6
+	goto_if_eq EventScript_1A2CF1
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox UnknownString_8198F34, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
+	waitstate
+	goto EventScript_1A2CFA
+	end
+
+DoSecretBaseCaveFieldEffectScript:: @ 81A2CE6
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
+	waitstate
+	goto EventScript_1A2CFA
+	end
+
+EventScript_1A2CF1:
+	msgbox UnknownString_8198F10, MSGBOX_SIGN
+	end
+
+EventScript_1A2CFA:
+	msgbox UnknownString_8198F6E, MSGBOX_DEFAULT
+	goto EventScript_1A2DB8
+	end
+
+EventScript_1A2D08:
+	lockall
+	compare VAR_RESULT, 6
+	goto_if_eq EventScript_1A2D49
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox UnknownString_81A197B, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
+	waitstate
+	goto EventScript_1A2D52
+	end
+
+DoSecretBaseTreeFieldEffectScript:: @ 81A2D3E
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
+	waitstate
+	goto EventScript_1A2D52
+	end
+
+EventScript_1A2D49:
+	msgbox UnknownString_81A1948, MSGBOX_SIGN
+	end
+
+EventScript_1A2D52:
+	msgbox UnknownString_81A19C4, MSGBOX_DEFAULT
+	goto EventScript_1A2DB8
+	end
+
+EventScript_1A2D60:
+	lockall
+	compare VAR_RESULT, 6
+	goto_if_eq EventScript_1A2DA1
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox UnknownString_81A1A4B, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
+	waitstate
+	goto EventScript_1A2DAA
+	end
+
+DoSecretBaseShrubFieldEffectScript:: @ 81A2D96
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
+	waitstate
+	goto EventScript_1A2DAA
+	end
+
+EventScript_1A2DA1:
+	msgbox UnknownString_81A1A03, MSGBOX_SIGN
+	end
+
+EventScript_1A2DAA:
+	msgbox UnknownString_81A1AA9, MSGBOX_DEFAULT
+	goto EventScript_1A2DB8
+	end
+
+EventScript_1A2DB8:
+	closemessage
+	playse SE_KAIDAN
+	setvar VAR_INIT_SECRET_BASE, 0
+	setflag FLAG_DECORATION_1
+	special sub_80BB8CC
+	special sub_80BBAF0
+	setvar VAR_0x8004, 0
+	setvar VAR_0x8005, 0
+	special sub_80BBDD0
+	setvar VAR_SECRET_BASE_INITIALIZED, 1
+	waitstate
+	end
+
+SecretBase_EventScript_FirstEntrance:: @ 81A2DDE
+	applymovement OBJ_EVENT_ID_PLAYER, SecretBase_RedCave1_Movement_1A2E11
+	waitmovement 0
+	setvar VAR_INIT_SECRET_BASE, 1
+	msgbox SecretBase_RedCave1_Text_198F89, MSGBOX_YESNO
+	compare VAR_RESULT, YES
+	goto_if_eq SecretBase_RedCave1_EventScript_1A2E08
+	closemessage
+	playse SE_KAIDAN
+	special sub_80BC440
+	end
+
+SecretBase_RedCave1_EventScript_1A2E08:: @ 81A2E08
+	closemessage
+	setflag FLAG_RECEIVED_SECRET_POWER
+	special sub_80BBC78
+	waitstate
+	end
+
+SecretBase_RedCave1_Movement_1A2E11:: @ 81A2E11
+	walk_up
+	walk_up
+	step_end
+
+gUnknown_081A2E14:: @ 81A2E14
+	lockall
+	setvar VAR_INIT_SECRET_BASE, 1
+	playse SE_KAIDAN
+	special sub_80BC114
+	compare VAR_RESULT, 0
+	goto_if_eq EventScript_1A2E38
+	clearflag FLAG_DECORATION_1
+	special sub_80BBAF0
+	setvar VAR_SECRET_BASE_INITIALIZED, 0
+	waitstate
+	end
+
+EventScript_1A2E38:
+	setflag FLAG_DECORATION_1
+	special sub_80BBAF0
+	setvar VAR_SECRET_BASE_INITIALIZED, 0
+	waitstate
+	end
+
+AskToMoveSecretBase:
+	checkpartymove MOVE_SECRET_POWER
+	compare VAR_RESULT, 6
+	goto_if_eq EventScript_1A2EF7
+	setfieldeffectargument 0, VAR_RESULT
+	setorcopyvar VAR_0x8004, VAR_RESULT
+	lockall
+	special GetSecretBaseNearbyMapName
+	msgbox UnknownString_81A3C71, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	fadescreen FADE_TO_BLACK
+	special MoveSecretBase
+	closemessage
+	fadescreen FADE_FROM_BLACK
+	msgbox UnknownString_81A3CC9, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq EventScript_1A2F3A
+	bufferpartymonnick 0, VAR_0x8004
+	buffermovename 1, MOVE_SECRET_POWER
+	msgbox UsedCutRockSmashText, MSGBOX_DEFAULT
+	closemessage
+	closemessage
+	compare VAR_0x8007, 1
+	goto_if_eq DoSecretBaseCaveFieldEffectScript
+	compare VAR_0x8007, 2
+	goto_if_eq DoSecretBaseCaveFieldEffectScript
+	compare VAR_0x8007, 3
+	goto_if_eq DoSecretBaseCaveFieldEffectScript
+	compare VAR_0x8007, 4
+	goto_if_eq DoSecretBaseCaveFieldEffectScript
+	compare VAR_0x8007, 5
+	goto_if_eq DoSecretBaseTreeFieldEffectScript
+	compare VAR_0x8007, 6
+	goto_if_eq DoSecretBaseShrubFieldEffectScript
+	releaseall
+	end
+
+EventScript_1A2EF7::
+	compare VAR_0x8007, 1
+	goto_if_eq EventScript_1A2CF1
+	compare VAR_0x8007, 2
+	goto_if_eq EventScript_1A2CF1
+	compare VAR_0x8007, 3
+	goto_if_eq EventScript_1A2CF1
+	compare VAR_0x8007, 4
+	goto_if_eq EventScript_1A2CF1
+	compare VAR_0x8007, 5
+	goto_if_eq EventScript_1A2D49
+	compare VAR_0x8007, 6
+	goto_if_eq EventScript_1A2DA1
+	end
+
+EventScript_1A2F3A::
+	closemessage
+	releaseall
+	end
+
+SecretBase_EventScript_SetDecorationFlags:: @ 81A2F3D
+	setflag FLAG_DECORATION_2
+	setflag FLAG_DECORATION_3
+	setflag FLAG_DECORATION_4
+	setflag FLAG_DECORATION_5
+	setflag FLAG_DECORATION_6
+	setflag FLAG_DECORATION_7
+	setflag FLAG_DECORATION_8
+	setflag FLAG_DECORATION_9
+	setflag FLAG_DECORATION_10
+	setflag FLAG_DECORATION_11
+	setflag FLAG_DECORATION_12
+	setflag FLAG_DECORATION_13
+	setflag FLAG_DECORATION_14
+	setflag FLAG_DECORATION_15
+	return
+
+SecretBase_EventScript_InitDecorations:: @ 81A2F68
+	setvar VAR_0x8004, 0
+	setvar VAR_0x8005, 0
+	special sub_80BBDD0
+	setvar VAR_SECRET_BASE_INITIALIZED, 1
+	end
+
+gUnknown_081A2F7B:: @ 81A2F7B
+	setvar VAR_0x8005, 0
+	goto EventScript_1A2F86
+	end
+
+EventScript_1A2F86:
+	special sub_80FF474
+	end
+
+gUnknown_081A2F8A:: @ 81A2F8A
+	setvar VAR_0x8004, 0
+	goto EventScript_1A2F95
+	end
+
+EventScript_1A2F95:
+	special sub_8100A7C
+	compare VAR_RESULT, 1
+	goto_if_eq EventScript_1A2FBF
+	addvar VAR_0x8004, 1
+	compare VAR_0x8005, 0
+	goto_if_eq EventScript_1A2F95
+	removeobject VAR_0x8006
+	setflag VAR_0x8005
+	goto EventScript_1A2F95
+	end
+
+EventScript_1A2FBF:
+	end
+
+SecretBase_BlueCave1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BlueCave2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BlueCave3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BlueCave4_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BrownCave1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BrownCave2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BrownCave3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_BrownCave4_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_RedCave1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_RedCave2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_RedCave3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_RedCave4_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Shrub1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Shrub2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Shrub3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Shrub4_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Tree1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Tree2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Tree3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_Tree4_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_YellowCave1_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_YellowCave2_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_YellowCave3_EventScript_1A2FC0:: @ 81A2FC0
+SecretBase_YellowCave4_EventScript_1A2FC0:: @ 81A2FC0
+	special sub_80BCE90
+	compare VAR_0x8004, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3032
+	compare VAR_0x8004, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A30AE
+	compare VAR_0x8004, 2
+	goto_if_eq SecretBase_RedCave1_EventScript_1A312A
+	compare VAR_0x8004, 3
+	goto_if_eq SecretBase_RedCave1_EventScript_1A31A6
+	compare VAR_0x8004, 4
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3222
+	compare VAR_0x8004, 5
+	goto_if_eq SecretBase_RedCave1_EventScript_1A329E
+	compare VAR_0x8004, 6
+	goto_if_eq SecretBase_RedCave1_EventScript_1A331A
+	compare VAR_0x8004, 7
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3396
+	compare VAR_0x8004, 8
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3412
+	compare VAR_0x8004, 9
+	goto_if_eq SecretBase_RedCave1_EventScript_1A348E
+	end
+
+SecretBase_RedCave1_EventScript_1A3032:: @ 81A3032
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3086
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A30A5
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A1AEA, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A308F
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1B83, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A3086:: @ 81A3086
+	msgbox SecretBase_RedCave1_Text_1A1C3B, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A308F:: @ 81A308F
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1B97, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A30A5:: @ 81A30A5
+	msgbox SecretBase_RedCave1_Text_1A1BF8, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A30AE:: @ 81A30AE
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3102
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3121
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A1E67, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A310B
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1F04, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A3102:: @ 81A3102
+	msgbox SecretBase_RedCave1_Text_1A1FBD, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A310B:: @ 81A310B
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1F2E, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3121:: @ 81A3121
+	msgbox SecretBase_RedCave1_Text_1A1F88, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A312A:: @ 81A312A
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A317E
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A319D
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A218F, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3187
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2220, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A317E:: @ 81A317E
+	msgbox SecretBase_RedCave1_Text_1A22FA, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3187:: @ 81A3187
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2230, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A319D:: @ 81A319D
+	msgbox SecretBase_RedCave1_Text_1A2280, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A31A6:: @ 81A31A6
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A31FA
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3219
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A24E1, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3203
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A256F, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A31FA:: @ 81A31FA
+	msgbox SecretBase_RedCave1_Text_1A2609, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3203:: @ 81A3203
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A258A, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3219:: @ 81A3219
+	msgbox SecretBase_RedCave1_Text_1A25D2, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3222:: @ 81A3222
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3276
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3295
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A2830, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A327F
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A28D7, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A3276:: @ 81A3276
+	msgbox SecretBase_RedCave1_Text_1A297C, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A327F:: @ 81A327F
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A28F4, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3295:: @ 81A3295
+	msgbox SecretBase_RedCave1_Text_1A294D, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A329E:: @ 81A329E
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A32F2
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3311
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A1CB2, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A32FB
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1D48, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A32F2:: @ 81A32F2
+	msgbox SecretBase_RedCave1_Text_1A1DF6, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A32FB:: @ 81A32FB
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A1D59, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3311:: @ 81A3311
+	msgbox SecretBase_RedCave1_Text_1A1DC0, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A331A:: @ 81A331A
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A336E
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A338D
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A2026, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3377
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2095, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A336E:: @ 81A336E
+	msgbox SecretBase_RedCave1_Text_1A2147, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3377:: @ 81A3377
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A20AE, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A338D:: @ 81A338D
+	msgbox SecretBase_RedCave1_Text_1A2109, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3396:: @ 81A3396
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A33EA
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3409
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A236A, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A33F3
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2405, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A33EA:: @ 81A33EA
+	msgbox SecretBase_RedCave1_Text_1A2480, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A33F3:: @ 81A33F3
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2420, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3409:: @ 81A3409
+	msgbox SecretBase_RedCave1_Text_1A2446, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3412:: @ 81A3412
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A3466
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3485
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A2663, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A346F
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2710, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A3466:: @ 81A3466
+	msgbox SecretBase_RedCave1_Text_1A27A4, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A346F:: @ 81A346F
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2736, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3485:: @ 81A3485
+	msgbox SecretBase_RedCave1_Text_1A276A, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A348E:: @ 81A348E
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_RedCave1_EventScript_1A34E2
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_RedCave1_EventScript_1A3501
+	lock
+	faceplayer
+	msgbox SecretBase_RedCave1_Text_1A2A13, MSGBOX_YESNO
+	compare VAR_RESULT, NO
+	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
+	setvar VAR_RESULT, 1
+	special sub_80BCE4C
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_RedCave1_EventScript_1A34EB
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2AE2, MSGBOX_DEFAULT
+	goto SecretBase_RedCave1_EventScript_1A350A
+	end
+
+SecretBase_RedCave1_EventScript_1A34E2:: @ 81A34E2
+	msgbox SecretBase_RedCave1_Text_1A2BA4, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A34EB:: @ 81A34EB
+	setvar VAR_RESULT, 0
+	special sub_80BCE4C
+	erasebox 0, 0, 15, 10
+	msgbox SecretBase_RedCave1_Text_1A2AFB, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A3501:: @ 81A3501
+	msgbox SecretBase_RedCave1_Text_1A2B69, MSGBOX_NPC
+	end
+
+SecretBase_RedCave1_EventScript_1A350A:: @ 81A350A
+	special sub_80BCE1C
+	setvar VAR_0x8004, 1
+	setvar VAR_0x8005, 0
+	special StartSpecialBattle
+	waitstate
+	special ScrSpecial_HealPlayerParty
+	release
+	end
diff --git a/data/text/secret_base.inc b/data/text/secret_base.inc
new file mode 100644
index 000000000..303483c9a
--- /dev/null
+++ b/data/text/secret_base.inc
@@ -0,0 +1,64 @@
+SecretBase_Text_AllDecorationsWillBeReturned: @ 81A38FB
+	.string "All decorations and furniture in your\n"
+	.string "SECRET BASE will be returned to your PC.\p"
+	.string "Is that okay?$"
+
+SecretBase_Text_WantToRegisterSecretBase: @ 81A3958
+	.string "Do you want to register\n"
+	.string "{STR_VAR_1}'s SECRET BASE?$"
+
+SecretBase_Text_AlreadyRegisteredDelete: @ 81A3982
+	.string "This data is already registered.\n"
+	.string "Would you like to delete it?$"
+
+SecretBase_Text_TooManyBasesDeleteSome: @ 81A39C0
+	.string "Up to 10 locations can be registered.\p"
+	.string "Delete a location if you want to\n"
+	.string "register another location.$"
+
+SecretBase_Text_RegistrationCompleted: @ 81A3A22
+	.string "Registration completed.$"
+
+SecretBase_Text_DataUnregistered: @ 81A3A3A
+	.string "Data has been unregistered.$"
+
+UnknownString_81A3A56: @ 81A3A56
+	.string "There are no decorations...$"
+
+SecretBase_Text_BootUpPC: @ 81A3A72
+	.string "{PLAYER} booted up the PC.$"
+
+SecretBase_Text_WhatWouldYouLikeToDo: @ 81A3A87
+	.string "What would you like to do?$"
+
+SecretBase_Text_RegistryInfo: @ 81A3AA2
+	.string "The registered SECRET BASE will remain\n"
+	.string "unless the owner moves away.\p"
+	.string "If it is removed from the registry,\n"
+	.string "another SECRET BASE may take its place.\p"
+	.string "Up to ten locations can be registered.{PAUSE_UNTIL_PRESS}$"
+
+SecretBase_Text_BattleTowerShield: @ 81A3B5B
+	.string "A shield of {STR_VAR_2} that marks winning\n"
+	.string "{STR_VAR_1} times in a row at the BATTLE TOWER.$"
+
+SecretBase_Text_ToyTV: @ 81A3BA4
+	.string "A realistic toy TV. It could be easily\n"
+	.string "mistaken for the real thing.$"
+
+SecretBase_Text_SeedotTV: @ 81A3BE8
+	.string "A toy TV shaped like a SEEDOT.\n"
+	.string "It looks ready to roll away on its own...$"
+
+SecretBase_Text_SkittyTV: @ 81A3C31
+	.string "A toy TV shaped like a SKITTY.\n"
+	.string "It looks ready to stroll away...$"
+
+UnknownString_81A3C71: @ 81A3C71
+	.string "You may only make one SECRET BASE.\p"
+	.string "Would you like to move from the SECRET\n"
+	.string "BASE near {STR_VAR_1}?$"
+
+UnknownString_81A3CC9: @ 81A3CC9
+	.string "Moving completed.\p"
+	.string "Would you like to use the SECRET POWER?$"
diff --git a/data/text/secret_base_trainers.inc b/data/text/secret_base_trainers.inc
new file mode 100644
index 000000000..57b37bf7f
--- /dev/null
+++ b/data/text/secret_base_trainers.inc
@@ -0,0 +1,316 @@
+UnknownString_81A1948: @ 81A1948
+	.string "If some vines drop down, this tree can\n"
+	.string "be climbed.$"
+
+UnknownString_81A197B: @ 81A197B
+	.string "If some vines drop down, this tree can\n"
+	.string "be climbed.\p"
+	.string "Use the SECRET POWER?$"
+
+UnknownString_81A19C4: @ 81A19C4
+	.string "A thick vine dropped down!$"
+
+UnknownString_81A19DF: @ 81A19DF
+	.string "Want to make your SECRET BASE here?$"
+
+UnknownString_81A1A03: @ 81A1A03
+	.string "If this clump of grass can be moved,\n"
+	.string "it might be possible to go inside.$"
+
+UnknownString_81A1A4B: @ 81A1A4B
+	.string "If this clump of grass can be moved,\n"
+	.string "it might be possible to go inside.\p"
+	.string "Use the SECRET POWER?$"
+
+UnknownString_81A1AA9: @ 81A1AA9
+	.string "Discovered a small entrance!$"
+
+UnknownString_81A1AC6: @ 81A1AC6
+	.string "Want to make your SECRET BASE here?$"
+
+SecretBase_RedCave1_Text_1A1AEA:: @ 81A1AEA
+	.string "Have you made a SECRET BASE already?\p"
+	.string "I went here, there, everywhere before\n"
+	.string "choosing this place.\p"
+	.string "Since you're already here, how would\n"
+	.string "you like to battle?$"
+
+SecretBase_RedCave1_Text_1A1B83:: @ 81A1B83
+	.string "Okay!\n"
+	.string "Here we come!$"
+
+SecretBase_RedCave1_Text_1A1B97:: @ 81A1B97
+	.string "Hunh?\n"
+	.string "Oh, you can't now...$"
+
+UnknownString_81A1BB2:: @ 81A1BB2
+	.string "Waaargh! You're too strong!\n"
+	.string "About me losing... Please keep it secret!$"
+
+SecretBase_RedCave1_Text_1A1BF8:: @ 81A1BF8
+	.string "What do you think of my SECRET BASE?\n"
+	.string "Come visit me again tomorrow.$"
+
+SecretBase_RedCave1_Text_1A1C3B:: @ 81A1C3B
+	.string "Have you made a SECRET BASE already?\p"
+	.string "I went here, there, everywhere before\n"
+	.string "choosing this place.\p"
+	.string "Feel free to hang out!$"
+
+SecretBase_RedCave1_Text_1A1CB2:: @ 81A1CB2
+	.string "There're a lot of places where you can\n"
+	.string "make a SECRET BASE.\p"
+	.string "But I like this spot best.\n"
+	.string "Don't you think it's nice?\p"
+	.string "Oh, would you like to have a battle?$"
+
+SecretBase_RedCave1_Text_1A1D48:: @ 81A1D48
+	.string "Okay, here goes!$"
+
+SecretBase_RedCave1_Text_1A1D59:: @ 81A1D59
+	.string "Oh...\n"
+	.string "You can't now, okay.$"
+
+UnknownString_81A1D74:: @ 81A1D74
+	.string "Hmmm... It's our loss...\n"
+	.string "But don't tell anyone!\l"
+	.string "It's a confidential secret!$"
+
+SecretBase_RedCave1_Text_1A1DC0:: @ 81A1DC0
+	.string "If you're in this area again, I hope\n"
+	.string "you'll visit me.$"
+
+SecretBase_RedCave1_Text_1A1DF6:: @ 81A1DF6
+	.string "There're a lot of places where you can\n"
+	.string "make a SECRET BASE.\p"
+	.string "But I like this spot best.\n"
+	.string "Don't you think it's nice?$"
+
+SecretBase_RedCave1_Text_1A1E67:: @ 81A1E67
+	.string "This is a popular spot.\n"
+	.string "It's always taken.\p"
+	.string "Oh! Were you thinking about taking this\n"
+	.string "spot, too?\p"
+	.string "I'll tell you what, you can have this\n"
+	.string "spot if you can beat me.$"
+
+SecretBase_RedCave1_Text_1A1F04:: @ 81A1F04
+	.string "Okay!\n"
+	.string "I'm going to defend my SECRET BASE!$"
+
+SecretBase_RedCave1_Text_1A1F2E:: @ 81A1F2E
+	.string "Hunh? Is that right?\n"
+	.string "You're not interested in this spot?$"
+
+UnknownString_81A1F67:: @ 81A1F67
+	.string "I can't keep going!\n"
+	.string "I surrender!$"
+
+SecretBase_RedCave1_Text_1A1F88:: @ 81A1F88
+	.string "Okay, when I move one day, this place\n"
+	.string "will be yours!$"
+
+SecretBase_RedCave1_Text_1A1FBD:: @ 81A1FBD
+	.string "This is a popular spot.\n"
+	.string "It's always taken.\p"
+	.string "I waited a long time for it to open.\n"
+	.string "I finally got to use it!$"
+
+SecretBase_RedCave1_Text_1A2026:: @ 81A2026
+	.string "Welcome to my POKéMON LAB.\p"
+	.string "I carry out research on battling in\n"
+	.string "secrecy.\p"
+	.string "Would you like to see how strong I am?$"
+
+SecretBase_RedCave1_Text_1A2095:: @ 81A2095
+	.string "I'm going to go all out!$"
+
+SecretBase_RedCave1_Text_1A20AE:: @ 81A20AE
+	.string "Oh.\n"
+	.string "Some other time, then!$"
+
+UnknownString_81A20C9:: @ 81A20C9
+	.string "Hmm... I've still got lots to learn.\n"
+	.string "I have to study some more.$"
+
+SecretBase_RedCave1_Text_1A2109:: @ 81A2109
+	.string "Thanks for battling with me.\n"
+	.string "Please come back again tomorrow.$"
+
+SecretBase_RedCave1_Text_1A2147:: @ 81A2147
+	.string "Welcome to my POKéMON LAB.\p"
+	.string "I carry out research on battling in\n"
+	.string "secrecy.$"
+
+SecretBase_RedCave1_Text_1A218F:: @ 81A218F
+	.string "A big mansion is nice, but I like this\n"
+	.string "sort of place more.\p"
+	.string "I like it because all kinds of people\n"
+	.string "come visit me.\p"
+	.string "So, how would you like a battle?$"
+
+SecretBase_RedCave1_Text_1A2220:: @ 81A2220
+	.string "That's the way!$"
+
+SecretBase_RedCave1_Text_1A2230:: @ 81A2230
+	.string "When you're ready, give me a shout!$"
+
+UnknownString_81A2254:: @ 81A2254
+	.string "Aww! Done in!\n"
+	.string "But it's still fun to battle!$"
+
+SecretBase_RedCave1_Text_1A2280:: @ 81A2280
+	.string "Well, anyway, I should go buy some\n"
+	.string "decorations and furniture.\p"
+	.string "I want my SECRET BASE to be a place\n"
+	.string "other people can enjoy.$"
+
+SecretBase_RedCave1_Text_1A22FA:: @ 81A22FA
+	.string "A big mansion is nice, but I like this\n"
+	.string "sort of place more.\p"
+	.string "I like it because all kinds of people\n"
+	.string "come visit me.$"
+
+SecretBase_RedCave1_Text_1A236A:: @ 81A236A
+	.string "I simply adore shopping for decorations\n"
+	.string "and furniture.\p"
+	.string "I also love raising POKéMON just\n"
+	.string "as much.\p"
+	.string "If you would be so kind, will you battle\n"
+	.string "with my POKéMON?$"
+
+SecretBase_RedCave1_Text_1A2405:: @ 81A2405
+	.string "Thank you.\n"
+	.string "Shall we begin?$"
+
+SecretBase_RedCave1_Text_1A2420:: @ 81A2420
+	.string "Oh.\n"
+	.string "How disappointing...$"
+
+UnknownString_81A2439:: @ 81A2439
+	.string "I concede...$"
+
+SecretBase_RedCave1_Text_1A2446:: @ 81A2446
+	.string "That was all in good fun!\n"
+	.string "I should go enjoy shopping now.$"
+
+SecretBase_RedCave1_Text_1A2480:: @ 81A2480
+	.string "I simply adore shopping for decorations\n"
+	.string "and furniture.\p"
+	.string "I also love raising POKéMON just\n"
+	.string "as much.$"
+
+SecretBase_RedCave1_Text_1A24E1:: @ 81A24E1
+	.string "Some people make their SECRET BASES in\n"
+	.string "hard-to-find places.\l"
+	.string "Do they want to just lie low?\p"
+	.string "But since you found me, how about we\n"
+	.string "have a battle?$"
+
+SecretBase_RedCave1_Text_1A256F:: @ 81A256F
+	.string "I'm not going down easily!$"
+
+SecretBase_RedCave1_Text_1A258A:: @ 81A258A
+	.string "Oh... Are you maybe tired from searching\n"
+	.string "for this place?$"
+
+UnknownString_81A25C3:: @ 81A25C3
+	.string "I went down...$"
+
+SecretBase_RedCave1_Text_1A25D2:: @ 81A25D2
+	.string "Where's your SECRET BASE?\n"
+	.string "I should go visit you there.$"
+
+SecretBase_RedCave1_Text_1A2609:: @ 81A2609
+	.string "Some people make their SECRET BASES in\n"
+	.string "hard-to-find places.\l"
+	.string "Do they want to just lie low?$"
+
+SecretBase_RedCave1_Text_1A2663:: @ 81A2663
+	.string "People have told me that you can get\n"
+	.string "decorations in several ways.\p"
+	.string "We should have a race to see who can\n"
+	.string "get nicer decorations and furniture!\p"
+	.string "In the meantime, want to battle?$"
+
+SecretBase_RedCave1_Text_1A2710:: @ 81A2710
+	.string "This is my SECRET BASE.\n"
+	.string "I can't lose!$"
+
+SecretBase_RedCave1_Text_1A2736:: @ 81A2736
+	.string "I'll battle with you anytime.$"
+
+UnknownString_81A2754:: @ 81A2754
+	.string "Huh?\n"
+	.string "Did I just lose?$"
+
+SecretBase_RedCave1_Text_1A276A:: @ 81A276A
+	.string "I won't lose at collecting decorations.\n"
+	.string "Come visit again!$"
+
+SecretBase_RedCave1_Text_1A27A4:: @ 81A27A4
+	.string "People have told me that you can get\n"
+	.string "decorations in several ways.\p"
+	.string "We should have a race to see who can\n"
+	.string "get nicer decorations and furniture!$"
+
+SecretBase_RedCave1_Text_1A2830:: @ 81A2830
+	.string "I found a spot I liked, and I did it up\n"
+	.string "with my favorite decorations.\p"
+	.string "I raise my favorite POKéMON and grow\n"
+	.string "stronger with it.\p"
+	.string "That's what I do.\n"
+	.string "Want to battle with me?$"
+
+SecretBase_RedCave1_Text_1A28D7:: @ 81A28D7
+	.string "Show me what you're made of!$"
+
+SecretBase_RedCave1_Text_1A28F4:: @ 81A28F4
+	.string "I guess there are times when you're not\n"
+	.string "into it.$"
+
+UnknownString_81A2925:: @ 81A2925
+	.string "I know exactly what you're made of now.$"
+
+SecretBase_RedCave1_Text_1A294D:: @ 81A294D
+	.string "We can both become stronger.\n"
+	.string "Let's keep at it!$"
+
+SecretBase_RedCave1_Text_1A297C:: @ 81A297C
+	.string "I found a spot I liked, and I did it up\n"
+	.string "with my favorite decorations.\p"
+	.string "I raise my favorite POKéMON and grow\n"
+	.string "stronger with it.\p"
+	.string "Every day is a great day.$"
+
+SecretBase_RedCave1_Text_1A2A13:: @ 81A2A13
+	.string "You can learn a lot about the taste\n"
+	.string "and sense of people by the kinds of\l"
+	.string "decorations they have, and how they\l"
+	.string "display them.\p"
+	.string "What do you think of my taste?\n"
+	.string "Are you speechless?\p"
+	.string "Want to see my taste in battling?$"
+
+SecretBase_RedCave1_Text_1A2AE2:: @ 81A2AE2
+	.string "There's no holding back!$"
+
+SecretBase_RedCave1_Text_1A2AFB:: @ 81A2AFB
+	.string "I'll be happy to demonstrate my style\n"
+	.string "anytime.$"
+
+UnknownString_81A2B2A:: @ 81A2B2A
+	.string "You're supremely talented!\n"
+	.string "Your power seems to be limitless...$"
+
+SecretBase_RedCave1_Text_1A2B69:: @ 81A2B69
+	.string "What did you think of my style?\n"
+	.string "I'll keep on polishing it!$"
+
+SecretBase_RedCave1_Text_1A2BA4:: @ 81A2BA4
+	.string "You can learn a lot about the taste\n"
+	.string "and sense of people by the kinds of\l"
+	.string "decorations they have, and how they\l"
+	.string "display them.\p"
+	.string "What do you think of my taste?\n"
+	.string "Are you speechless?$"