pokeplatinum/res/field/scripts/scripts_unk_0397.s

#include "macros/scrcmd.inc"
#include "res/text/bank/common_strings.h"


    ScriptEntry _0022
    ScriptEntry _002E
    ScriptEntry _0054
    ScriptEntry _005C
    ScriptEntry _0078
    ScriptEntry _008A
    ScriptEntry _008C
    ScriptEntry _00A2
    ScriptEntryEnd

_0022:
    SetFlag FLAG_HIDE_ROARK_UNDERGROUND
    SetVar VAR_HAS_SEEN_UNDERGROUND_ROARK_INTRO, 1
    End

_002E:
    ClearFlag FLAG_HIDE_ROUTE_201_PROF_ROWAN
    ClearFlag FLAG_HIDE_ROUTE_201_COUNTERPART
    SetVar VAR_VISITED_LAKE_VERITY_WITH_RIVAL, 1
    SetVar VAR_VERITY_LAKEFRONT_STATE, 2
    ClearFlag FLAG_UNK_0x0195
    SetVar VAR_FOLLOWER_RIVAL_STATE, 2
    SetVar VAR_PLAYER_HOUSE_STATE, 3
    End

_0054:
    SetVar VAR_SHAYMIN_EVENT_STATE, 1
    End

_005C:
    ClearFlag FLAG_HIDE_LAKE_VERITY_LOW_WATER_COUNTERPART
    ClearFlag FLAG_HIDE_LAKE_VERITY_LOW_WATER_PROF_ROWAN
    SetVar VAR_VISITED_LAKE_VERITY_WITH_RIVAL, 1
    SetFlag FLAG_HIDE_LAKE_VERITY_LOW_WATER_RIVAL
    SetFlag FLAG_HIDE_VALOR_LAKEFRONT_CAMERAMEN
    ClearFlag FLAG_HIDE_LAKE_ACUITY_LOW_WATER_RIVAL
    End

_0078:
    SetFlag FLAG_HIDE_BLOCK_POKECENTER_BASEMENT
    SetVar VAR_GTS_ACCESS_STATE, 1
    SetVar VAR_VISITED_POKEMON_CENTER_B1F, 1
    End

_008A:
    End

_008C:
    PlaySE SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar VAR_0x8005, 0
    GoTo _00B8
    End

_00A2:
    PlaySE SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar VAR_0x8005, 1
    GoTo _00B8
    End

_00B8:
    CallIfEq VAR_0x8005, 0, _0254
    CallIfEq VAR_0x8005, 1, _0259
    CallIfEq VAR_0x8005, 2, _025B
    GoTo _00E7
    End

_00E7:
    CallIfEq VAR_0x8005, 0, _0260
    CallIfEq VAR_0x8005, 1, _0265
    CallIfEq VAR_0x8005, 2, _0267
    InitGlobalTextMenu 1, 1, 0, VAR_RESULT
    AddMenuEntryImm 14, 0
    AddMenuEntryImm 15, 1
    AddMenuEntryImm 16, 2
    ShowMenu
    GoToIfEq VAR_RESULT, 0, _0188
    GoToIfEq VAR_RESULT, 1, _0146
    GoTo _0175
    End

_0146:
    CallIfEq VAR_0x8005, 0, _026C
    CallIfEq VAR_0x8005, 1, _0271
    CallIfEq VAR_0x8005, 2, _0273
    GoTo _00E7
    End

_0175:
    GoTo _017D
    End

_017D:
    Message 6
    WaitButton
    CloseMessage
    ReleaseAll
    End

_0188:
    Message 7
    InitGlobalTextMenu 1, 1, 0, VAR_RESULT
    AddMenuEntryImm 17, 0
    AddMenuEntryImm 18, 1
    AddMenuEntryImm 19, 2
    ShowMenu
    GoToIfEq VAR_RESULT, 0, _01C3
    GoToIfEq VAR_RESULT, 1, _01D1
    GoTo _0175
    End

_01C3:
    SetVar VAR_0x8006, 0
    GoTo _01DF
    End

_01D1:
    SetVar VAR_0x8006, 1
    GoTo _01DF
    End

_01DF:
    Message 8
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0175
    GoTo _01FB
    End

_01FB:
    SetVar VAR_MAP_LOCAL_0, 0
    Common_SaveGame
    SetVar VAR_RESULT, VAR_MAP_LOCAL_0
    GoToIfEq VAR_RESULT, 0, _0175
    GoTo _0220
    End

_0220:
    Message 9
    CloseMessage
    CallIfEq VAR_0x8005, 0, _024E
    CallIfEq VAR_0x8005, 1, _0250
    CallIfEq VAR_0x8005, 2, _0252
    End

_024E:
    Return

_0250:
    Return

_0252:
    Return

_0254:
    Message 0
    Return

_0259:
    Return

_025B:
    Message 3
    Return

_0260:
    Message 1
    Return

_0265:
    Return

_0267:
    Message 4
    Return

_026C:
    Message 2
    Return

_0271:
    Return

_0273:
    Message 5
    Return