pokeruby/data/scripts/secret_base.inc

684 lines
19 KiB
PHP
Vendored

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 SecretBase_Text_IndentUseSecretPower, 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 SecretBase_Text_SmallIndentInWall, MSGBOX_SIGN
end
EventScript_1A2CFA:
msgbox SecretBase_Text_DiscoveredSmallCavern, 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_EXIT
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_Text_WantToMakeYourSecretBaseHere, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq SecretBase_RedCave1_EventScript_1A2E08
closemessage
playse SE_EXIT
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_EXIT
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