document remainder of secret_base scripts, delete unneeded scripts.incs

1 files changed, 813 insertions, 0 deletions

diff --git a/data/scripts/secret_base.inc b/data/scripts/secret_base.inc
new file mode 100644
index 000000000..f2a99cd36
--- /dev/null
+++ b/data/scripts/secret_base.inc
@@ -0,0 +1,813 @@
+SecretBase_Text_TreeCanBeClimbed: @ 8274746
+	.string "If some vines drop down, this tree can\n"
+	.string "be climbed.$"
+
+SecretBase_Text_TreeUseSecretPower: @ 8274779
+	.string "If some vines drop down, this tree can\n"
+	.string "be climbed.\p"
+	.string "Use the SECRET POWER?$"
+
+SecretBase_Text_VineDroppedDown: @ 82747C2
+	.string "A thick vine dropped down!$"
+
+SecretBase_Text_ClumpOfGrass: @ 82747DD
+	.string "If this clump of grass can be moved,\n"
+	.string "it might be possible to go inside.$"
+
+SecretBase_Text_ClumpUseSecretPower: @ 8274825
+	.string "If this clump of grass can be moved,\n"
+	.string "it might be possible to go inside.\p"
+	.string "Use the SECRET POWER?$"
+
+SecretBase_Text_DiscoveredSmallEntrance: @ 8274883
+	.string "Discovered a small entrance!$"
+
+	.include "data/text/secret_base_trainers.inc"
+
+SecretBase_EventScript_CheckEntrance:: @ 82759F1
+	special GetSecretBaseTypeInFrontOfPlayer
+	special CheckPlayerHasSecretBase
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_AlreadyHasSecretBase
+	checkpartymove MOVE_SECRET_POWER
+	setfieldeffectargument 0, VAR_RESULT
+	buffermovename 1, MOVE_SECRET_POWER
+	compare VAR_0x8007, SECRET_BASE_RED_CAVE
+	goto_if_eq SecretBase_EventScript_Cave
+	compare VAR_0x8007, SECRET_BASE_BROWN_CAVE
+	goto_if_eq SecretBase_EventScript_Cave
+	compare VAR_0x8007, SECRET_BASE_BLUE_CAVE
+	goto_if_eq SecretBase_EventScript_Cave
+	compare VAR_0x8007, SECRET_BASE_YELLOW_CAVE
+	goto_if_eq SecretBase_EventScript_Cave
+	compare VAR_0x8007, SECRET_BASE_TREE
+	goto_if_eq SecretBase_EventScript_Tree
+	compare VAR_0x8007, SECRET_BASE_SHRUB
+	goto_if_eq SecretBase_EventScript_Shrub
+	end
+
+SecretBase_EventScript_Cave:: @ 8275A50
+	lockall
+	compare VAR_RESULT, PARTY_SIZE
+	goto_if_eq SecretBase_EventScript_CaveNoSecretPower
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox SecretBase_Text_IndentUseSecretPower, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
+	waitstate
+	goto SecretBase_EventScript_CaveEnter
+	end
+
+SecretBase_EventScript_CaveUseSecretPower:: @ 8275A86
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
+	waitstate
+	goto SecretBase_EventScript_CaveEnter
+	end
+
+SecretBase_EventScript_CaveNoSecretPower:: @ 8275A91
+	msgbox SecretBase_Text_SmallIndentInWall, MSGBOX_DEFAULT
+	releaseall
+	end
+
+SecretBase_EventScript_CaveEnter:: @ 8275A9B
+	msgbox SecretBase_Text_DiscoveredSmallCavern, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_InitSecretBase
+	end
+
+SecretBase_EventScript_Tree:: @ 8275AA9
+	lockall
+	compare VAR_RESULT, PARTY_SIZE
+	goto_if_eq SecretBase_EventScript_TreeNoSecretPower
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox SecretBase_Text_TreeUseSecretPower, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
+	waitstate
+	goto SecretBase_EventScript_TreeEnter
+	end
+
+SecretBase_EventScript_TreeUseSecretPower:: @ 8275ADF
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
+	waitstate
+	goto SecretBase_EventScript_TreeEnter
+	end
+
+SecretBase_EventScript_TreeNoSecretPower:: @ 8275AEA
+	msgbox SecretBase_Text_TreeCanBeClimbed, MSGBOX_DEFAULT
+	releaseall
+	end
+
+SecretBase_EventScript_TreeEnter:: @ 8275AF4
+	msgbox SecretBase_Text_VineDroppedDown, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_InitSecretBase
+	end
+
+SecretBase_EventScript_Shrub:: @ 8275B02
+	lockall
+	compare VAR_RESULT, PARTY_SIZE
+	goto_if_eq SecretBase_EventScript_ShrubNoSecretPower
+	bufferpartymonnick 0, VAR_RESULT
+	msgbox SecretBase_Text_ClumpUseSecretPower, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
+	closemessage
+	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
+	waitstate
+	goto SecretBase_EventScript_ShrubEnter
+	end
+
+SecretBase_EventScript_ShrubUseSecretPower:: @ 8275B38
+	lockall
+	dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
+	waitstate
+	goto SecretBase_EventScript_ShrubEnter
+	end
+
+SecretBase_EventScript_ShrubNoSecretPower:: @ 8275B43
+	msgbox SecretBase_Text_ClumpOfGrass, MSGBOX_DEFAULT
+	releaseall
+	end
+
+SecretBase_EventScript_ShrubEnter:: @ 8275B4D
+	msgbox SecretBase_Text_DiscoveredSmallEntrance, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_InitSecretBase
+	end
+
+SecretBase_EventScript_InitSecretBase:: @ 8275B5B
+	closemessage
+	playse SE_KAIDAN
+	setvar VAR_INIT_SECRET_BASE, 0
+	setflag FLAG_DECORATION_0
+	special SetPlayerSecretBase
+	special EnterSecretBase
+	setvar VAR_0x8004, 0
+	setvar VAR_0x8005, 0
+	special InitSecretBaseDecorationSprites
+	setvar VAR_SECRET_BASE_INITIALIZED, 1
+	waitstate
+	end
+
+SecretBase_EventScript_FirstEntrance:: @ 8275B81
+	applymovement EVENT_OBJ_ID_PLAYER, SecretBase_Movement_275BB4
+	waitmovement 0
+	setvar VAR_INIT_SECRET_BASE, 1
+	msgbox SecretBase_Text_WantToMakeYourSecretBaseHere, MSGBOX_YESNO
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_SetAsBase
+	closemessage
+	playse SE_KAIDAN
+	special ClearAndLeaveSecretBase
+	end
+
+SecretBase_EventScript_SetAsBase:: @ 8275BAB
+	closemessage
+	setflag FLAG_RECEIVED_SECRET_POWER
+	special EnterNewlyCreatedSecretBase
+	waitstate
+	end
+
+SecretBase_Movement_275BB4: @ 8275BB4
+	walk_up
+	walk_up
+	step_end
+
+SecretBase_EventScript_Enter:: @ 8275BB7
+	lockall
+	setvar VAR_INIT_SECRET_BASE, 1
+	playse SE_KAIDAN
+	special IsCurSecretBaseOwnedByAnotherPlayer
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_EnterPlayersBase
+	clearflag FLAG_DECORATION_0
+	special EnterSecretBase
+	setvar VAR_SECRET_BASE_INITIALIZED, 0
+	waitstate
+	end
+
+SecretBase_EventScript_EnterPlayersBase:: @ 8275BDB
+	setflag FLAG_DECORATION_0
+	special EnterSecretBase
+	setvar VAR_SECRET_BASE_INITIALIZED, 0
+	waitstate
+	end
+
+SecretBase_EventScript_AlreadyHasSecretBase:: @ 8275BE8
+	checkpartymove MOVE_SECRET_POWER
+	compare VAR_RESULT, PARTY_SIZE
+	goto_if_eq SecretBase_EventScript_NoSecretPower
+	setfieldeffectargument 0, VAR_RESULT
+	setorcopyvar VAR_0x8004, VAR_RESULT
+	lockall
+	special GetSecretBaseNearbyMapName
+	msgbox SecretBase_Text_WouldYouLikeToMoveBases, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	fadescreenswapbuffers 1
+	special MoveOutOfSecretBaseFromOutside
+	closemessage
+	fadescreenswapbuffers 0
+	msgbox SecretBase_Text_MovingCompletedUseSecretPower, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_CancelOnEntrance
+	bufferpartymonnick 0, VAR_0x8004
+	buffermovename 1, MOVE_SECRET_POWER
+	msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
+	closemessage
+	closemessage
+	compare VAR_0x8007, SECRET_BASE_RED_CAVE
+	goto_if_eq SecretBase_EventScript_CaveUseSecretPower
+	compare VAR_0x8007, SECRET_BASE_BROWN_CAVE
+	goto_if_eq SecretBase_EventScript_CaveUseSecretPower
+	compare VAR_0x8007, SECRET_BASE_BLUE_CAVE
+	goto_if_eq SecretBase_EventScript_CaveUseSecretPower
+	compare VAR_0x8007, SECRET_BASE_YELLOW_CAVE
+	goto_if_eq SecretBase_EventScript_CaveUseSecretPower
+	compare VAR_0x8007, SECRET_BASE_TREE
+	goto_if_eq SecretBase_EventScript_TreeUseSecretPower
+	compare VAR_0x8007, SECRET_BASE_SHRUB
+	goto_if_eq SecretBase_EventScript_ShrubUseSecretPower
+	releaseall
+	end
+
+SecretBase_EventScript_NoSecretPower:: @ 8275C9A
+	lockall
+	compare VAR_0x8007, SECRET_BASE_RED_CAVE
+	goto_if_eq SecretBase_EventScript_CaveNoSecretPower
+	compare VAR_0x8007, SECRET_BASE_BROWN_CAVE
+	goto_if_eq SecretBase_EventScript_CaveNoSecretPower
+	compare VAR_0x8007, SECRET_BASE_BLUE_CAVE
+	goto_if_eq SecretBase_EventScript_CaveNoSecretPower
+	compare VAR_0x8007, SECRET_BASE_YELLOW_CAVE
+	goto_if_eq SecretBase_EventScript_CaveNoSecretPower
+	compare VAR_0x8007, SECRET_BASE_TREE
+	goto_if_eq SecretBase_EventScript_TreeNoSecretPower
+	compare VAR_0x8007, SECRET_BASE_SHRUB
+	goto_if_eq SecretBase_EventScript_ShrubNoSecretPower
+	end
+
+SecretBase_EventScript_CancelOnEntrance:: @ 8275CDE
+	closemessage
+	releaseall
+	end
+
+SecretBase_EventScript_SetDecorationFlags:: @ 8275CE1
+	setflag FLAG_DECORATION_1
+	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
+	return
+
+SecretBase_EventScript_InitDecorations:: @ 8275D0C
+	setvar VAR_0x8004, 0
+	setvar VAR_0x8005, 0
+	special InitSecretBaseDecorationSprites
+	setvar VAR_SECRET_BASE_INITIALIZED, 1
+	end
+
+SecretBase_EventScript_SetDecoration:: @ 8275D1F
+	setvar VAR_0x8005, 0
+	goto SecretBase_EventScript_SetDecoration2
+	end
+
+SecretBase_EventScript_SetDecoration2:: @ 8275D2A
+	special SetDecoration
+	end
+
+SecretBase_EventScript_PutAwayDecoration:: @ 8275D2E
+	setvar VAR_0x8004, 0
+	goto SecretBase_EventScript_PutAwayDecorationLoop
+	end
+
+SecretBase_EventScript_PutAwayDecorationLoop:: @ 8275D39
+	special sub_8129708
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_PutAwayDecorationEnd
+	addvar VAR_0x8004, 1
+	compare VAR_0x8005, 0
+	goto_if_eq SecretBase_EventScript_PutAwayDecorationLoop
+	removeobject VAR_0x8006
+	setflag 0x8005  @ UB: GF likely meant setvar here; setflag 0x8005 is out of bounds
+	goto SecretBase_EventScript_PutAwayDecorationLoop
+	end
+
+SecretBase_EventScript_PutAwayDecorationEnd:: @ 8275D63
+	end
+
+SecretBase_EventScript_RecordMixTrainer:: @ 8275D64
+	special GetSecretBaseOwnerAndState
+	compare VAR_0x8004, 0
+	goto_if_eq SecretBase_EventScript_Trainer0
+	compare VAR_0x8004, 1
+	goto_if_eq SecretBase_EventScript_Trainer1
+	compare VAR_0x8004, 2
+	goto_if_eq SecretBase_EventScript_Trainer2
+	compare VAR_0x8004, 3
+	goto_if_eq SecretBase_EventScript_Trainer3
+	compare VAR_0x8004, 4
+	goto_if_eq SecretBase_EventScript_Trainer4
+	compare VAR_0x8004, 5
+	goto_if_eq SecretBase_EventScript_Trainer5
+	compare VAR_0x8004, 6
+	goto_if_eq SecretBase_EventScript_Trainer6
+	compare VAR_0x8004, 7
+	goto_if_eq SecretBase_EventScript_Trainer7
+	compare VAR_0x8004, 8
+	goto_if_eq SecretBase_EventScript_Trainer8
+	compare VAR_0x8004, 9
+	goto_if_eq SecretBase_EventScript_Trainer9
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer0:: @ 8275DD6
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer0PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer0PostBattle
+	msgbox SecretBase_Text_Trainer0PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer0DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer0DeclineBattle
+	msgbox SecretBase_Text_Trainer0AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer0PreChampion:: @ 8275E25
+	msgbox SecretBase_Text_Trainer0PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer0DeclineBattle:: @ 8275E2F
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer0DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer0PostBattle:: @ 8275E44
+	msgbox SecretBase_Text_Trainer0PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer1:: @ 8275E4E
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer1PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer1PostBattle
+	msgbox SecretBase_Text_Trainer1PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer1DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer1DeclineBattle
+	msgbox SecretBase_Text_Trainer1AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer1PreChampion:: @ 8275E9D
+	msgbox SecretBase_Text_Trainer1PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer1DeclineBattle:: @ 8275EA7
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer1DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer1PostBattle:: @ 8275EBC
+	msgbox SecretBase_Text_Trainer1PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer2:: @ 8275EC6
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer2PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer2PostBattle
+	msgbox SecretBase_Text_Trainer2PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer2DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer2DeclineBattle
+	msgbox SecretBase_Text_Trainer2AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer2PreChampion:: @ 8275F15
+	msgbox SecretBase_Text_Trainer2PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer2DeclineBattle:: @ 8275F1F
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer2DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer2PostBattle:: @ 8275F34
+	msgbox SecretBase_Text_Trainer2PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer3:: @ 8275F3E
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer3PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer3PostBattle
+	msgbox SecretBase_Text_Trainer3PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer3DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer3DeclineBattle
+	msgbox SecretBase_Text_Trainer3AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer3PreChampion:: @ 8275F8D
+	msgbox SecretBase_Text_Trainer3PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer3DeclineBattle:: @ 8275F97
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer3DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer3PostBattle:: @ 8275FAC
+	msgbox SecretBase_Text_Trainer3PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer4:: @ 8275FB6
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer4PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer4PostBattle
+	msgbox SecretBase_Text_Trainer4PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer4DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer4DeclineBattle
+	msgbox SecretBase_Text_Trainer4AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer4PreChampion:: @ 8276005
+	msgbox SecretBase_Text_Trainer4PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer4DeclineBattle:: @ 827600F
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer4DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer4PostBattle:: @ 8276024
+	msgbox SecretBase_Text_Trainer4PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer5:: @ 827602E
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer5PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer5PostBattle
+	msgbox SecretBase_Text_Trainer5PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer5DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer5DeclineBattle
+	msgbox SecretBase_Text_Trainer5AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer5PreChampion:: @ 827607D
+	msgbox SecretBase_Text_Trainer5PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer5DeclineBattle:: @ 8276087
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer5DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer5PostBattle:: @ 827609C
+	msgbox SecretBase_Text_Trainer5PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer6:: @ 82760A6
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer6PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer6PostBattle
+	msgbox SecretBase_Text_Trainer6PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer6DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer6DeclineBattle
+	msgbox SecretBase_Text_Trainer6AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer6PreChampion:: @ 82760F5
+	msgbox SecretBase_Text_Trainer6PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer6DeclineBattle:: @ 82760FF
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer6DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer6PostBattle:: @ 8276114
+	msgbox SecretBase_Text_Trainer6PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer7:: @ 827611E
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer7PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer7PostBattle
+	msgbox SecretBase_Text_Trainer7PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer7DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer7DeclineBattle
+	msgbox SecretBase_Text_Trainer7AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer7PreChampion:: @ 827616D
+	msgbox SecretBase_Text_Trainer7PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer7DeclineBattle:: @ 8276177
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer7DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer7PostBattle:: @ 827618C
+	msgbox SecretBase_Text_Trainer7PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer8:: @ 8276196
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer8PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer8PostBattle
+	msgbox SecretBase_Text_Trainer8PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer8DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer8DeclineBattle
+	msgbox SecretBase_Text_Trainer8AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer8PreChampion:: @ 82761E5
+	msgbox SecretBase_Text_Trainer8PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer8DeclineBattle:: @ 82761EF
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer8DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer8PostBattle:: @ 8276204
+	msgbox SecretBase_Text_Trainer8PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
+SecretBase_EventScript_Trainer9:: @ 827620E
+	lock
+	faceplayer
+	goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer9PreChampion
+	compare VAR_RESULT, 1
+	goto_if_eq SecretBase_EventScript_Trainer9PostBattle
+	msgbox SecretBase_Text_Trainer9PreBattle, MSGBOX_YESNO
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer9DeclineBattle
+	setvar VAR_RESULT, 1
+	special SetBattledOwnerFromResult
+	call Common_EventScript_SaveGame
+	compare VAR_RESULT, 0
+	goto_if_eq SecretBase_EventScript_Trainer9DeclineBattle
+	msgbox SecretBase_Text_Trainer9AcceptBattle, MSGBOX_DEFAULT
+	goto SecretBase_EventScript_BattleTrainer
+	end
+
+SecretBase_EventScript_Trainer9PreChampion:: @ 827625D
+	msgbox SecretBase_Text_Trainer9PreChampion, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer9DeclineBattle:: @ 8276267
+	special sub_80EB300
+	setvar VAR_RESULT, 0
+	special SetBattledOwnerFromResult
+	msgbox SecretBase_Text_Trainer9DeclineBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_Trainer9PostBattle:: @ 827627C
+	msgbox SecretBase_Text_Trainer9PostBattle, MSGBOX_DEFAULT
+	release
+	end
+
+SecretBase_EventScript_BattleTrainer:: @ 8276286
+	special PrepSecretBaseBattleFlags
+	setvar VAR_0x8004, SPECIAL_BATTLE_SECRET_BASE
+	setvar VAR_0x8005, 0
+	special DoSpecialTrainerBattle
+	waitstate
+	compare VAR_RESULT, B_OUTCOME_DREW
+	call_if_eq SecretBase_EventScript_2762BD
+	compare VAR_RESULT, B_OUTCOME_WON
+	call_if_eq SecretBase_EventScript_2762C1
+	compare VAR_RESULT, B_OUTCOME_LOST
+	call_if_eq SecretBase_EventScript_2762C5
+	special HealPlayerParty
+	release
+	end
+
+SecretBase_EventScript_2762BD:: @ 82762BD
+	special sub_80EB438
+	return
+
+SecretBase_EventScript_2762C1:: @ 82762C1
+	special sub_80EB368
+	return
+
+SecretBase_EventScript_2762C5:: @ 82762C5
+	special sub_80EB3D0
+	return
+
+	.include "data/scripts/secret_power_tm.inc"
+
+SecretBase_EventScript_DollInteract:: @ 82766A2
+	special sub_80EB290
+	end
+
+SecretBase_EventScript_CushionInteract:: @ 82766A6
+	special sub_80EB2C8
+	end
+
+SecretBase_Text_AllDecorationsWillBeReturned: @ 82766AA
+	.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: @ 8276707
+	.string "Do you want to register\n"
+	.string "{STR_VAR_1}'s SECRET BASE?$"
+
+SecretBase_Text_AlreadyRegisteredDelete: @ 8276731
+	.string "This data is already registered.\n"
+	.string "Would you like to delete it?$"
+
+SecretBase_Text_TooManyBasesDeleteSome: @ 827676F
+	.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: @ 82767D1
+	.string "Registration completed.$"
+
+SecretBase_Text_DataUnregistered: @ 82767E9
+	.string "Data has been unregistered.$"
+
+SecretBase_Text_BootUpPC: @ 8276805
+	.string "{PLAYER} booted up the PC.$"
+
+SecretBase_Text_WhatWouldYouLikeToDo: @ 827681A
+	.string "What would you like to do?$"
+
+SecretBase_Text_RegistryInfo: @ 8276835
+	.string "Once registered, a SECRET BASE will not\n"
+	.string "disappear unless the other TRAINER\l"
+	.string "moves it to a different location.\p"
+	.string "If a SECRET BASE is deleted from the\n"
+	.string "registered list, another one may take\l"
+	.string "its place.\p"
+	.string "Up to ten SECRET BASE locations\n"
+	.string "may be registered.$"
+
+SecretBase_Text_BattleTowerShield: @ 827692B
+	.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: @ 8276974
+	.string "A realistic toy TV. It could be easily\n"
+	.string "mistaken for the real thing.$"
+
+SecretBase_Text_SeedotTV: @ 82769B8
+	.string "A toy TV shaped like a SEEDOT.\n"
+	.string "It looks ready to roll away on its own…$"
+
+SecretBase_Text_SkittyTV: @ 82769FF
+	.string "A toy TV shaped like a SKITTY.\n"
+	.string "It looks ready to stroll away…$"
+
+SecretBase_Text_WouldYouLikeToMoveBases: @ 8276A3D
+	.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}?$"
+
+SecretBase_Text_MovingCompletedUseSecretPower: @ 8276A95
+	.string "Moving completed.\p"
+	.string "Would you like to use the SECRET POWER?$"