summaryrefslogtreecommitdiff
path: root/data/scripts/secret_base.inc
diff options
context:
space:
mode:
Diffstat (limited to 'data/scripts/secret_base.inc')
-rw-r--r--data/scripts/secret_base.inc683
1 files changed, 683 insertions, 0 deletions
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