pokeplatinum/res/field/scripts/scripts_common.s

#include "macros/scrcmd.inc"
#include "generated/distribution_events.h"
#include "generated/tutor_locations.h"
#include "res/text/bank/common_strings.h"
#include "res/text/bank/menu_entries.h"

    ScriptEntry Common_HandleSignpostInput
    ScriptEntry _034C
    ScriptEntry _00EE
    ScriptEntry _03E8
    ScriptEntry _043B
    ScriptEntry _0479
    ScriptEntry _0494
    ScriptEntry _00EC
    ScriptEntry _05EA
    ScriptEntry _0719
    ScriptEntry _00EA
    ScriptEntry _08FF
    ScriptEntry _0901
    ScriptEntry _093A
    ScriptEntry _095C
    ScriptEntry _0983
    ScriptEntry _09F5
    ScriptEntry _0BDD
    ScriptEntry _0BEE
    ScriptEntry _0FC3
    ScriptEntry _0FCA
    ScriptEntry _103A
    ScriptEntry _0FA5
    ScriptEntry _0FA7
    ScriptEntry _1280
    ScriptEntry _1282
    ScriptEntry _12A8
    ScriptEntry _12BA
    ScriptEntry _12CD
    ScriptEntry _12E0
    ScriptEntry _12F3
    ScriptEntry _1361
    ScriptEntry _138C
    ScriptEntry _139D
    ScriptEntry _048B
    ScriptEntry _13AB
    ScriptEntry _09BD
    ScriptEntry _1475
    ScriptEntry _13BE
    ScriptEntry _1477
    ScriptEntry _1581
    ScriptEntry _15D7
    ScriptEntry _15B3
    ScriptEntry _15D7
    ScriptEntry _0A34
    ScriptEntry _09CC
    ScriptEntry _0910
    ScriptEntry _0992
    ScriptEntry _15BF
    ScriptEntry _15D7
    ScriptEntry _15E7
    ScriptEntry _1636
    ScriptEntry _164A
    ScriptEntry _165E
    ScriptEntry _16AA
    ScriptEntry _15CB
    ScriptEntry _15D7
    ScriptEntry _170A
    ScriptEntryEnd

_00EA:
    End

_00EC:
    End

_00EE:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    ScrCmd_2BE VAR_RESULT
    GoToIfGe VAR_RESULT, 4, _027A
    SetVar VAR_0x8004, 0
    GetTimeOfDay VAR_RESULT
    Dummy1F9 VAR_RESULT
    SetVar VAR_0x8004, 120
    GoToIfEq VAR_RESULT, 0, _0141
    SetVar VAR_0x8004, 121
    GoToIfEq VAR_RESULT, 1, _0141
    SetVar VAR_0x8004, 0
_0141:
    MessageVar VAR_0x8004
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_YES, _0172
    GoToIfEq VAR_RESULT, MENU_NO, _0165
    End

_0165:
    Message 3
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_0172:
    SetPlayerState 0x100
    ChangePlayerState
    ApplyMovement LOCALID_PLAYER, _02EC
    WaitMovement
    ScrCmd_2BE VAR_RESULT
    CallIfGe VAR_RESULT, 4, _01BC
    CallIfLt VAR_RESULT, 4, _01B7
    Call _01C1
    GoToIfUnset FLAG_UNK_0x006A, _0242
    GoTo _01E1

_01B7:
    Message 1
    Return

_01BC:
    Message 7
    Return

_01C1:
    ApplyMovement VAR_0x8007, _1260
    WaitMovement
    GetPartyCountHatched VAR_0x8006
    ScrCmd_23B VAR_0x8006
    ApplyMovement VAR_0x8007, _1278
    WaitMovement
    HealParty
    Return

_01E1:
    GoToIfEq VAR_0x8004, 1, _0218
    Message 2
    ApplyMovement LOCALID_PLAYER, _02F4
    WaitMovement
    SetPlayerState 1
    ChangePlayerState
    ApplyMovement VAR_0x8007, _02E0
    WaitMovement
    Message 3
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_0218:
    Message 8
    ApplyMovement LOCALID_PLAYER, _02F4
    WaitMovement
    SetPlayerState 1
    ChangePlayerState
    ApplyMovement VAR_0x8007, _02E0
    WaitMovement
    Message 9
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_0242:
    CheckPartyPokerus VAR_0x8006
    GoToIfEq VAR_0x8006, 1, _0259
    GoTo _01E1

_0259:
    SetFlag FLAG_UNK_0x006A
    ApplyMovement LOCALID_PLAYER, _02F4
    WaitMovement
    SetPlayerState 1
    ChangePlayerState
    Message 10
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_027A:
    GoToIfSet FLAG_UNK_0x0069, _02B0
    SetFlag FLAG_UNK_0x0069
    Message 4
    BufferPlayerName 0
    Message 5
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_YES, _02D4
    Message 9
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_02B0:
    BufferPlayerName 0
    Message 6
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_YES, _02D4
    Message 9
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

_02D4:
    SetVar VAR_0x8004, 1
    GoTo _0172

    .balign 4, 0
_02E0:
    NurseJoyBow
    Delay4
    EndMovement

    .balign 4, 0
_02EC:
    PlayerGive
    EndMovement

    .balign 4, 0
_02F4:
    PlayerReceive
    EndMovement

Common_HandleSignpostInput:
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, Common_ScrollOutSignpost
    GoToIfEq VAR_0x8008, 1, Common_RemoveSignpostOpenStartMenu
    GetSignpostInput
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 1, Common_RemoveSignpostOpenStartMenu
    SetSignpostCommand SIGNPOST_CMD_SCROLL_OUT
    ReturnCommonScript
    End

Common_ScrollOutSignpost:
    SetSignpostCommand SIGNPOST_CMD_SCROLL_OUT
    ReturnCommonScript
    End

Common_RemoveSignpostOpenStartMenu:
    SetSignpostCommand SIGNPOST_CMD_REMOVE
    WaitForSignpostDone
    ShowStartMenu
    ReturnCommonScript
    End

_034C:
    Call _0356
    ReturnCommonScript
    End

_0356:
    GetItemPocket VAR_0x8004, VAR_RESULT
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, POCKET_KEY_ITEMS, _03D8
    GoToIfEq VAR_0x8008, POCKET_ITEMS, _03CC
    GoToIfEq VAR_0x8008, POCKET_BERRIES, _03CC
    GoToIfEq VAR_0x8008, POCKET_MEDICINE, _03CC
    GoToIfEq VAR_0x8008, POCKET_BALLS, _03CC
    GoToIfEq VAR_0x8008, POCKET_BATTLE_ITEMS, _03CC
    GoToIfEq VAR_0x8008, POCKET_MAIL, _03DE
    GoToIfEq VAR_0x8008, POCKET_TMHMS, _03D2
    End

_03CC:
    PlaySound SEQ_FANFA4
    Return

_03D2:
    PlaySound SEQ_WAZA
    Return

_03D8:
    PlaySound SEQ_FANFA3
    Return

_03DE:
    PlaySound SEQ_FANFA2
    Return

Common_Unused:
    ReturnCommonScript
    End

_03E8:
    LockAll
    GetPartyCount VAR_0x8004
    SetVar VAR_0x8005, 0
_03F4:
    SurvivePoison VAR_RESULT, VAR_0x8005
    GoToIfEq VAR_RESULT, 0, _040F
    BufferPartyMonNickname 0, VAR_0x8005
    Message 66
_040F:
    AddVar VAR_0x8005, 1
    GoToIfNe VAR_0x8004, VAR_0x8005, _03F4
    CountAliveMonsExcept VAR_RESULT, 6
    GoToIfEq VAR_RESULT, 0, _0457
    CloseMessage
    ReleaseAll
    End

_043B:
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    WaitABPress
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    End

_0457:
    BufferPlayerName 0
    Message 11
    WaitABPress
    CloseMessage
    FadeOutBGM 0, 10
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_1F8
    ScrCmd_14B
    End

_0479:
    ClearFlag FLAG_UNK_0x001F
    Call _04A8
    ScrCmd_18F VAR_RESULT
    CloseMessage
    End

_048B:
    Message 20
    WaitABPress
    CloseMessage
    End

_0494:
    SetFlag FLAG_UNK_0x001F
    Call _04A8
    SetVar VAR_MAP_LOCAL_0, VAR_RESULT
    ReturnCommonScript
    End

_04A8:
    CheckSaveType VAR_RESULT
    GoToIfEq VAR_RESULT, SAVE_TYPE_OVERWRITE, _04FC
    ScrCmd_2C1
    Message 13
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _05A0
    CheckSaveType VAR_RESULT
    GoToIfEq VAR_RESULT, SAVE_TYPE_NO_DATA_EXISTS, _051D
    GoToIfEq VAR_RESULT, SAVE_TYPE_FULL_SAVE, _0509
    GoToIfEq VAR_RESULT, SAVE_TYPE_QUICK_SAVE, _0526
    End

_04FC:
    Message 20
    WaitABPress
    SetVar VAR_RESULT, 0
    Return

_0509:
    Message 14
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _05A0
_051D:
    Message 21
    GoTo _0552

_0526:
    Message 14
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _05A0
    GoToIfUnset FLAG_UNK_0x001F, _05C6
    GoToIfSet FLAG_UNK_0x001F, _05D1
    End

_0552:
    ScrCmd_258
    WaitTime 2, VAR_RESULT
    Call _0568
    ScrCmd_259
    GoTo _057D

_0568:
    ScrCmd_18D
    CallIfSet FLAG_UNK_0x001F, _05BE
    ScrCmd_12D VAR_RESULT
    ScrCmd_18E
    Return

_057D:
    GoToIfEq VAR_RESULT, 0, _05AA
    BufferPlayerName 0
    Message 16
    PlayFanfare SEQ_SE_DP_SAVE
    WaitFanfare SEQ_SE_DP_SAVE
    WaitABPressTime 30
    ScrCmd_2C2
    Return

_05A0:
    ScrCmd_2C2
    SetVar VAR_RESULT, 0
    Return

_05AA:
    Message 18
    WaitABPress
    ScrCmd_2C2
    Return

_05B3:
    Message 21
    GoTo _0552
    End

_05BE:
    ScrCmd_2D6
    ClearFlag FLAG_UNK_0x001F
    Return

_05C6:
    Message 15
    GoTo _0552
    End

_05D1:
    ScrCmd_2D7 VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _05B3
    GoTo _05C6
    End

_05EA:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    CheckItem ITEM_HONEY, 1, VAR_RESULT
    GoToIfNe VAR_RESULT, 0, _0632
    GetHoneyTreeStatus VAR_RESULT
    GoToIfEq VAR_RESULT, TREE_STATUS_BARE, _065F
    GoToIfEq VAR_RESULT, TREE_STATUS_SLATHERED, _066A
    GoToIfEq VAR_RESULT, TREE_STATUS_ENCOUNTER, _06F4
    End

_0632:
    GetHoneyTreeStatus VAR_RESULT
    GoToIfEq VAR_RESULT, TREE_STATUS_BARE, _0675
    GoToIfEq VAR_RESULT, TREE_STATUS_SLATHERED, _067E
    GoToIfEq VAR_RESULT, TREE_STATUS_ENCOUNTER, _06F4
    End

_065F:
    Message 46
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_066A:
    Message 48
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0675:
    Message 47
    GoTo _06BB

_067E:
    Message 49
    GoTo _06BB

Common_Unused2:
    CheckItem ITEM_HONEY, 1, VAR_RESULT
    GoToIfNe VAR_RESULT, 0, _06BB
    CloseMessage
    ReleaseAll
    End

_06A2:
    CheckItem ITEM_HONEY, 1, VAR_RESULT
    GoToIfNe VAR_RESULT, 0, _06BB
    ReleaseAll
    End

_06BB:
    Message 50
    ShowYesNoMenu VAR_RESULT
    CloseMessage
    GoToIfEq VAR_RESULT, MENU_YES, _06D5
    ReleaseAll
    End

_06D5:
    RemoveItem ITEM_HONEY, 1, VAR_RESULT
    ScrCmd_260 1
    SlatherHoneyTree
    WaitTime 10, VAR_RESULT
    Message 51
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_06F4:
    IncrementGameRecord RECORD_UNK_117
    StartHoneyTreeBattle
    CheckWonBattle VAR_RESULT
    GoToIfEq VAR_RESULT, FALSE, _0713
    ScrCmd_12A
    GoTo _06A2

_0713:
    BlackOutFromBattle
    ReleaseAll
    End

_0719:
    Call _0723
    ReturnCommonScript
    End

_0723:
    BufferPlayerName 0
    BufferPoketchAppName 1, VAR_0x8004
    PlaySound SEQ_POCKETCH
    Message 24
    WaitSound
    Message 26
    RegisterPoketchApp VAR_0x8004
    CallIfEq VAR_0x8004, 0, _0882
    CallIfEq VAR_0x8004, 1, _0887
    CallIfEq VAR_0x8004, 2, _088C
    CallIfEq VAR_0x8004, 3, _0891
    CallIfEq VAR_0x8004, 4, _0896
    CallIfEq VAR_0x8004, 5, _089B
    CallIfEq VAR_0x8004, 6, _08A0
    CallIfEq VAR_0x8004, 7, _08A5
    CallIfEq VAR_0x8004, 8, _08AA
    CallIfEq VAR_0x8004, 9, _08AF
    CallIfEq VAR_0x8004, 10, _08B4
    CallIfEq VAR_0x8004, 11, _08B9
    CallIfEq VAR_0x8004, 12, _08BE
    CallIfEq VAR_0x8004, 13, _08C3
    CallIfEq VAR_0x8004, 14, _08C8
    CallIfEq VAR_0x8004, 15, _08CD
    CallIfEq VAR_0x8004, 16, _08D2
    CallIfEq VAR_0x8004, 17, _08D7
    CallIfEq VAR_0x8004, 18, _08DC
    CallIfEq VAR_0x8004, 19, _08E1
    CallIfEq VAR_0x8004, 20, _08E6
    CallIfEq VAR_0x8004, 21, _08EB
    CallIfEq VAR_0x8004, 22, _08F0
    CallIfEq VAR_0x8004, 23, _08F5
    CallIfEq VAR_0x8004, 24, _08FA
    Return

_0882:
    Message 83
    Return

_0887:
    Message 84
    Return

_088C:
    Message 85
    Return

_0891:
    Message 86
    Return

_0896:
    Message 87
    Return

_089B:
    Message 88
    Return

_08A0:
    Message 89
    Return

_08A5:
    Message 90
    Return

_08AA:
    Message 91
    Return

_08AF:
    Message 92
    Return

_08B4:
    Message 93
    Return

_08B9:
    Message 94
    Return

_08BE:
    Message 95
    Return

_08C3:
    Message 96
    Return

_08C8:
    Message 97
    Return

_08CD:
    Message 98
    Return

_08D2:
    Message 99
    Return

_08D7:
    Message 100
    Return

_08DC:
    Message 101
    Return

_08E1:
    Message 102
    Return

_08E6:
    Message 103
    Return

_08EB:
    Message 104
    Return

_08F0:
    Message 105
    Return

_08F5:
    Message 106
    Return

_08FA:
    Message 107
    Return

_08FF:
    End

_0901:
    Call _091D
    Message 109
    WaitABXPadPress
    ReturnCommonScript
    End

_0910:
    Call _091D
    Message 128
    ReturnCommonScript
    End

_091D:
    PlaySound SEQ_FANFA4
    SendGoodToPC VAR_0x8004, VAR_0x8005, VAR_RESULT
    ScrCmd_33E 0, VAR_0x8004
    Message 108
    BufferUndergroundGoodsName 0, VAR_0x8004
    WaitSound
    Return

_093A:
    Call _0944
    ReturnCommonScript
    End

_0944:
    PlaySound SEQ_FANFA4
    GiveTrap VAR_0x8004, VAR_0x8005, VAR_RESULT
    BufferUndergroundTrapName 0, VAR_0x8004
    Message 80
    WaitSound
    Return

_095C:
    Call _0966
    ReturnCommonScript
    End

_0966:
    PlaySound SEQ_FANFA4
    GiveSphere VAR_0x8004, VAR_0x8005, VAR_RESULT
    BufferUndergroundItemName 0, VAR_0x8004
    BufferNumber 1, VAR_0x8005
    Message 81
    WaitSound
    Return

_0983:
    Call _099F
    Message 31
    WaitABXPadPress
    ReturnCommonScript
    End

_0992:
    Call _099F
    Message 127
    ReturnCommonScript
    End

_099F:
    PlaySound SEQ_ACCE
    ScrCmd_1D2 VAR_0x8004, VAR_0x8005
    BufferAccessoryName 0, VAR_0x8004
    Message 25
    WaitSound
    BufferPlayerName 0
    BufferAccessoryName 1, VAR_0x8004
    Return

_09BD:
    Call _09D9
    Message 31
    WaitABXPadPress
    ReturnCommonScript
    End

_09CC:
    Call _09D9
    Message 127
    ReturnCommonScript
    End

_09D9:
    PlaySound SEQ_FANFA4
    ScrCmd_1D5 VAR_0x8004
    ScrCmd_273 0, VAR_0x8004
    Message 25
    WaitSound
    BufferPlayerName 0
    ScrCmd_273 1, VAR_0x8004
    Return

_09F5:
    Call _09FF
    ReturnCommonScript
    End

_09FF:
    Call _0356
    AddItem VAR_0x8004, VAR_0x8005, VAR_RESULT
    GetItemPocket VAR_0x8004, VAR_RESULT
    CallIfEq VAR_RESULT, POCKET_KEY_ITEMS, _0A71
    CallIfNe VAR_RESULT, POCKET_KEY_ITEMS, _0A82
    Message 30
    WaitABXPadPress
    Return

_0A34:
    Call _0A3E
    ReturnCommonScript
    End

_0A3E:
    Call _0356
    AddItem VAR_0x8004, VAR_0x8005, VAR_RESULT
    GetItemPocket VAR_0x8004, VAR_RESULT
    CallIfEq VAR_RESULT, POCKET_KEY_ITEMS, _0A71
    CallIfNe VAR_RESULT, POCKET_KEY_ITEMS, _0A82
    Message 126
    Return

_0A71:
    BufferPlayerName 0
    BufferItemName 1, VAR_0x8004
    Message 28
    GoTo _0AA8

_0A82:
    GoToIfGt VAR_0x8005, 1, _0A9A
    BufferItemName 0, VAR_0x8004
    GoTo _0A9F

_0A9A:
    BufferItemNamePlural 0, VAR_0x8004
_0A9F:
    Message 25
    GoTo _0AA8

_0AA8:
    WaitSound
    ScrCmd_2A7 VAR_0x8004, VAR_RESULT
    CallIfEq VAR_RESULT, 1, _13C8
    BufferPlayerName 0
    GoToIfGt VAR_0x8005, 1, _0AD8
    BufferItemName 1, VAR_0x8004
    GoTo _0ADD

_0AD8:
    BufferItemNamePlural 1, VAR_0x8004
_0ADD:
    GetItemPocket VAR_0x8004, VAR_RESULT
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, POCKET_KEY_ITEMS, _0B64
    GoToIfEq VAR_0x8008, POCKET_ITEMS, _0B53
    GoToIfEq VAR_0x8008, POCKET_BERRIES, _0BA8
    GoToIfEq VAR_0x8008, POCKET_MEDICINE, _0B97
    GoToIfEq VAR_0x8008, POCKET_BALLS, _0BB9
    GoToIfEq VAR_0x8008, POCKET_BATTLE_ITEMS, _0B75
    GoToIfEq VAR_0x8008, POCKET_MAIL, _0B86
    GoToIfEq VAR_0x8008, POCKET_TMHMS, _0BCA
    End

_0B53:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0B64:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0B75:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0B86:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0B97:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0BA8:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0BB9:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0BCA:
    GetItemPocket VAR_0x8004, VAR_RESULT
    BufferPocketName 2, VAR_RESULT
    GoTo _0BDB

_0BDB:
    Return

_0BDD:
    Call _0BE7
    ReturnCommonScript
    End

_0BE7:
    Message 27
    WaitABXPadPress
    Return

_0BEE:
    LockAll
    PlayFanfare SEQ_SE_DP_PC_ON
    Call _0C06
    BufferPlayerName 0
    Message 32
    GoTo _0C1C

_0C06:
    ScrCmd_24B 90
    ScrCmd_24C 90
    ScrCmd_169 90
    Return

_0C11:
    ScrCmd_24D 90
    ScrCmd_169 90
    ScrCmd_16A 90
    Return

_0C1C:
    BufferPlayerName 0
    Message 33
    InitGlobalTextMenu 1, 1, 0, VAR_0x8006
    CallIfUnset FLAG_MET_BEBE, _0C7B
    CallIfSet FLAG_MET_BEBE, _0C81
    AddMenuEntryImm 60, 1
    GetNationalDexEnabled VAR_RESULT
    CallIfEq VAR_RESULT, 0, _0C87
    CallIfEq VAR_RESULT, 1, _0C8D
    GoToIfSet FLAG_GAME_COMPLETED, _0C93
    GoToIfUnset FLAG_GAME_COMPLETED, _0CDD
    End

_0C7B:
    AddMenuEntryImm 58, 0
    Return

_0C81:
    AddMenuEntryImm 59, 0
    Return

_0C87:
    AddMenuEntryImm 63, 2
    Return

_0C8D:
    AddMenuEntryImm 62, 2
    Return

_0C93:
    AddMenuEntryImm 61, 3
    AddMenuEntryImm 64, 4
    ShowMenu
    SetVar VAR_0x8008, VAR_0x8006
    GoToIfEq VAR_0x8008, 0, _0D16
    GoToIfEq VAR_0x8008, 1, _0E45
    GoToIfEq VAR_0x8008, 2, _0F62
    GoToIfEq VAR_0x8008, 3, _0F2C
    GoTo _0F70

_0CDD:
    AddMenuEntryImm 64, 3
    ShowMenu
    SetVar VAR_0x8008, VAR_0x8006
    GoToIfEq VAR_0x8008, 0, _0D16
    GoToIfEq VAR_0x8008, 1, _0E45
    GoToIfEq VAR_0x8008, 2, _0F62
    GoTo _0F70

_0D16:
    PlayFanfare SEQ_SE_DP_PC_LOGIN
    BufferPlayerName 0
    Message 34
    Call _0D2C
    GoTo _0D73

_0D2C:
    InitGlobalTextListMenu 1, 1, 0, VAR_RESULT
    AddListMenuEntry MenuEntries_Text_PokemonStorageDepositPokemon, 0, MenuEntries_Text_PokemonStorageDepositPokemonDescription
    AddListMenuEntry MenuEntries_Text_PokemonStorageWithdrawPokemon, 1, MenuEntries_Text_PokemonStorageWithdrawPokemonDescription
    AddListMenuEntry MenuEntries_Text_PokemonStorageMovePokemon, 2, MenuEntries_Text_PokemonStorageMovePokemonDescription
    AddListMenuEntry MenuEntries_Text_PokemonStorageMoveItems, 3, MenuEntries_Text_PokemonStorageMoveItemsDescription
    CallIfSet FLAG_CONTEST_HALL_VISITED, _0D69
    AddListMenuEntry MenuEntries_Text_PokemonStorageSeeYa, 5, MenuEntries_Text_PokemonStorageSeeYaDescription
    Return

_0D69:
    AddListMenuEntry MenuEntries_Text_PokemonStorageComparePokemon, 4, MenuEntries_Text_PokemonStorageComparePokemonDescription
    Return

_0D73:
    ShowListMenu
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, _0DC2
    GoToIfEq VAR_0x8008, 1, _0DD5
    GoToIfEq VAR_0x8008, 2, _0DE8
    GoToIfEq VAR_0x8008, 3, _0DFB
    GoToIfEq VAR_0x8008, 4, _0E0E
    GoTo _0C1C

_0DC2:
    CloseMessage
    Call _0F94
    OpenPokemonStorage 0
    ReturnToField
    GoTo _0E21

_0DD5:
    CloseMessage
    Call _0F94
    OpenPokemonStorage 1
    ReturnToField
    GoTo _0E21

_0DE8:
    CloseMessage
    Call _0F94
    OpenPokemonStorage 2
    ReturnToField
    GoTo _0E21

_0DFB:
    CloseMessage
    Call _0F94
    OpenPokemonStorage 3
    ReturnToField
    GoTo _0E21

_0E0E:
    CloseMessage
    Call _0F94
    OpenPokemonStorage 4
    ReturnToField
    GoTo _0E21

_0E21:
    ScrCmd_30B
    BufferPlayerName 0
    MessageInstant 33
    Call _0D2C
    Call _0C06
    FadeScreen 6, 1, 1, 0
    GoTo _0D73

_0E45:
    PlayFanfare SEQ_SE_DP_PC_LOGIN
    BufferPlayerName 0
    Message 35
    GoTo _0E55

_0E55:
    Call _0E61
    GoTo _0E83

_0E61:
    InitGlobalTextListMenu 1, 1, 0, VAR_RESULT
    AddListMenuEntry 71, 0, 80
    AddListMenuEntry 72, 1, 81
    AddListMenuEntry 73, 3, 82
    Return

_0E83:
    ShowListMenu
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, _0EAB
    GoToIfEq VAR_0x8008, 1, _0EE0
    GoTo _0C1C

_0EAB:
    CloseMessage
    ScrCmd_1B4 VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0EC6
    ScrCmd_1B3
    GoTo _0ECF

_0EC6:
    Message 52
    GoTo _0E55

_0ECF:
    BufferPlayerName 0
    OpenMessage
    Call _0E61
    GoTo _0E83

_0EE0:
    ScrCmd_2AB VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0F01
    CloseMessage
    Call _0F94
    OpenSealCapsuleEditor
    GoTo _0F0A

_0F01:
    Message 118
    GoTo _0E55

_0F0A:
    BufferPlayerName 0
    MessageInstant 33
    Call _0E61
    Call _0C06
    FadeScreen 6, 1, 1, 0
    GoTo _0E83

_0F2C:
    PlayFanfare SEQ_SE_DP_PC_LOGIN
    CloseMessage
    ScrCmd_336 VAR_RESULT
    GoToIfEq VAR_RESULT, 1, _0F59
    Call _0F94
    ScrCmd_0B1
    ReturnToField
    Call _0F80
    GoTo _0C1C

_0F59:
    Message 131
    GoTo _0C1C

_0F62:
    PlayFanfare SEQ_SE_DP_PC_LOGIN
    CallCommonScript 0x26DF
    GoTo _0C1C

_0F70:
    CloseMessage
    PlayFanfare SEQ_SE_DP_PC_LOGOFF
    Call _0C11
    ReleaseAll
    End

_0F80:
    Call _0C06
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    Return

_0F94:
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_16A 90
    Return

_0FA5:
    End

_0FA7:
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    OpenSealCapsuleEditor
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    End

_0FC3:
    Message 37
    ReturnCommonScript
    End

_0FCA:
    LockAll
    ApplyMovement LOCALID_PLAYER, _1250
    ApplyMovement 0, _1258
    WaitMovement
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    BufferPlayerName 0
    Message 40
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    CloseMessage
    PlaySound SEQ_ASA
    WaitSound
    HealParty
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    CallIfSet FLAG_UNK_0x0090, _1030
    CallIfUnset FLAG_UNK_0x0090, _1035
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_1030:
    Message 41
    Return

_1035:
    Message 42
    Return

_103A:
    LockAll
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    SetPlayerState 0x100
    ChangePlayerState
    ApplyMovement LOCALID_PLAYER, _02EC
    WaitMovement
    Message 43
    Call _10C7
    Call _01C1
    CheckBadgeAcquired BADGE_ID_COAL, VAR_RESULT
    GoToIfEq VAR_RESULT, 1, _10A2
    Message 44
    ApplyMovement LOCALID_PLAYER, _02F4
    WaitMovement
    SetPlayerState 1
    ChangePlayerState
    ApplyMovement VAR_0x8007, _02E0
    WaitMovement
    Message 45
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_10A2:
    ApplyMovement LOCALID_PLAYER, _02F4
    WaitMovement
    SetPlayerState 1
    ChangePlayerState
    ApplyMovement VAR_0x8007, _02E0
    WaitMovement
    Message 39
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_10C7:
    GetCurrentMapID VAR_0x8004
    GoToIfEq VAR_0x8004, 6, _11BD
    GoToIfEq VAR_0x8004, 36, _11C5
    GoToIfEq VAR_0x8004, 48, _11CD
    GoToIfEq VAR_0x8004, 69, _11D5
    GoToIfEq VAR_0x8004, 101, _11DD
    GoToIfEq VAR_0x8004, 123, _11E5
    GoToIfEq VAR_0x8004, 134, _11ED
    GoToIfEq VAR_0x8004, 151, _11F5
    GoToIfEq VAR_0x8004, 168, _11FD
    GoToIfEq VAR_0x8004, 173, _1205
    GoToIfEq VAR_0x8004, 189, _120D
    GoToIfEq VAR_0x8004, 0x1A4, _1215
    GoToIfEq VAR_0x8004, 0x1AC, _121D
    GoToIfEq VAR_0x8004, 0x1B3, _1225
    GoToIfEq VAR_0x8004, 0x1BB, _122D
    GoToIfEq VAR_0x8004, 0x1C4, _1235
    GoToIfEq VAR_0x8004, 0x1CB, _123D
    GoToIfEq VAR_0x8004, 175, _1245
    SetVar VAR_0x8007, 0
    Return

_11BD:
    SetVar VAR_0x8007, 3
    Return

_11C5:
    SetVar VAR_0x8007, 1
    Return

_11CD:
    SetVar VAR_0x8007, 3
    Return

_11D5:
    SetVar VAR_0x8007, 3
    Return

_11DD:
    SetVar VAR_0x8007, 0
    Return

_11E5:
    SetVar VAR_0x8007, 0
    Return

_11ED:
    SetVar VAR_0x8007, 0
    Return

_11F5:
    SetVar VAR_0x8007, 0
    Return

_11FD:
    SetVar VAR_0x8007, 0
    Return

_1205:
    SetVar VAR_0x8007, 0
    Return

_120D:
    SetVar VAR_0x8007, 0
    Return

_1215:
    SetVar VAR_0x8007, 3
    Return

_121D:
    SetVar VAR_0x8007, 2
    Return

_1225:
    SetVar VAR_0x8007, 0
    Return

_122D:
    SetVar VAR_0x8007, 0
    Return

_1235:
    SetVar VAR_0x8007, 0
    Return

_123D:
    SetVar VAR_0x8007, 0
    Return

_1245:
    SetVar VAR_0x8007, 3
    Return

    .balign 4, 0
_1250:
    FaceWest
    EndMovement

    .balign 4, 0
_1258:
    FaceEast
    EndMovement

    .balign 4, 0
_1260:
    FaceWest
    EndMovement

Common_UnusedMovement:
    FaceNorth
    EndMovement

Common_UnusedMovement2:
    FaceEast
    EndMovement

    .balign 4, 0
_1278:
    FaceSouth
    EndMovement

_1280:
    End

_1282:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_205
    ReturnToField
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ReleaseAll
    End

_12A8:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    ScrCmd_20C
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_12BA:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 67
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_12CD:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 70
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_12E0:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 71
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_12F3:
    CheckItem ITEM_BICYCLE, 1, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _135F
    LockAll
    PlayFanfare SEQ_SE_CONFIRM
    CheckPlayerOnBike VAR_RESULT
    GoToIfEq VAR_RESULT, TRUE, _133C
    Message 73
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _1359
    SetPlayerBike TRUE
    CloseMessage
    ReleaseAll
    End

_133C:
    Message 74
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _1359
    SetPlayerBike FALSE
    CloseMessage
    ReleaseAll
    End

_1359:
    CloseMessage
    ReleaseAll
    End

_135F:
    End

_1361:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    Message 76
    WaitABPress
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    CloseMessage
    ScrCmd_1AC
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ReleaseAll
    End

_138C:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    Message 79
    WaitABPress
    CloseMessage
    ReleaseAll
    End

_139D:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    ScrCmd_0A5
    ReleaseAll
    End

_13AB:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 82
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_13BE:
    Call _13C8
    ReturnCommonScript
    End

_13C8:
    AddVar VAR_UNK_0x4115, 1
    CallIfGe VAR_UNK_0x4115, 9, _1445
    CallIfEq VAR_UNK_0x4115, 1, _144D
    CallIfEq VAR_UNK_0x4115, 2, _1452
    CallIfEq VAR_UNK_0x4115, 3, _1457
    CallIfEq VAR_UNK_0x4115, 4, _145C
    CallIfEq VAR_UNK_0x4115, 5, _1461
    CallIfEq VAR_UNK_0x4115, 6, _1466
    CallIfEq VAR_UNK_0x4115, 7, _146B
    CallIfEq VAR_UNK_0x4115, 8, _1470
    Return

_1445:
    SetVar VAR_UNK_0x4115, 1
    Return

_144D:
    Message 110
    Return

_1452:
    Message 111
    Return

_1457:
    Message 112
    Return

_145C:
    Message 113
    Return

_1461:
    Message 114
    Return

_1466:
    Message 115
    Return

_146B:
    Message 116
    Return

_1470:
    Message 117
    Return

_1475:
    End

_1477:
    LockAll
    GetCurrentMapID VAR_0x8004
    GoToIfEq VAR_0x8004, 220, _14AC
    GoToIfEq VAR_0x8004, 0x248, _14AC
    GoToIfEq VAR_0x8004, 0x249, _14AC
    GoTo _1570
    End

_14AC:
    GetPlayerMapPos VAR_0x8004, VAR_0x8005
    GoToIfNe VAR_0x8004, 31, _1570
    GoToIfNe VAR_0x8005, 52, _1570
    CheckGameCompleted VAR_MAP_LOCAL_0
    GoToIfEq VAR_MAP_LOCAL_0, FALSE, _1570
    GetNationalDexEnabled VAR_MAP_LOCAL_0
    GoToIfEq VAR_MAP_LOCAL_0, 0, _1570
    CheckDistributionEvent DISTRIBUTION_EVENT_ARCEUS, VAR_MAP_LOCAL_0
    GoToIfEq VAR_MAP_LOCAL_0, FALSE, _1570
    GoToIfSet FLAG_UNK_0x011E, _1570
    BufferPlayerName 0
    Message 122
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _157B
    BufferPlayerName 0
    Message 123
    CloseMessage
    WaitTime 30, VAR_RESULT
    PlayMusic SEQ_FUE
    WaitTime 0x21C, VAR_RESULT
    GetPlayerMapPos VAR_0x8004, VAR_0x8005
    FadeScreen 6, 6, 0, 0x7FFF
    WaitFadeScreen
    Warp MAP_HEADER_HALL_OF_ORIGIN, 0, VAR_0x8004, VAR_0x8005, 0
    FadeScreen 6, 6, 1, 0x7FFF
    WaitFadeScreen
    Message 124
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_1570:
    Message 125
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_157B:
    CloseMessage
    ReleaseAll
    End

_1581:
    StopMusic 0
    GetPlayerGender VAR_RESULT
    CallIfEq VAR_RESULT, GENDER_MALE, _15A7
    CallIfEq VAR_RESULT, GENDER_FEMALE, _15AD
    ReturnCommonScript
    End

_15A7:
    ScrCmd_057 SEQ_THE_GIRL
    Return

_15AD:
    ScrCmd_057 SEQ_THE_BOY
    Return

_15B3:
    StopMusic 0
    ScrCmd_057 SEQ_THE_RIV
    ReturnCommonScript
    End

_15BF:
    StopMusic 0
    ScrCmd_057 SEQ_TSURETEKE
    ReturnCommonScript
    End

_15CB:
    StopMusic 0
    ScrCmd_057 SEQ_PL_HANDSOME
    ReturnCommonScript
    End

_15D7:
    FadeOutBGM 0, 30
    StopMusic 0
    PlayDefaultMusic
    ReturnCommonScript
    End

_15E7:
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_0B3 VAR_RESULT
    SetVar VAR_0x8004, VAR_RESULT
    ScrCmd_2F6 VAR_0x8005, VAR_0x8004, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _1624
    ReturnToField
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ReturnCommonScript
    End

_1624:
    ReturnToField
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ReturnCommonScript
    End

_1636:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    SetVar VAR_0x8004, TUTOR_LOCATION_ROUTE_212
    GoTo _1672
    End

_164A:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    SetVar VAR_0x8004, TUTOR_LOCATION_SURVIVAL_AREA
    GoTo _1672
    End

_165E:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    SetVar VAR_0x8004, TUTOR_LOCATION_SNOWPOINT_CITY
    GoTo _1672
    End

_1672:
    Message 129
    ShowMoveTutorMoveSelectionMenu 0xFF, VAR_0x8004, VAR_RESULT
    SetVar VAR_0x8003, VAR_RESULT
    GoToIfEq VAR_0x8003, -2, _16A4
    ShowShardsCost 21, 1, VAR_0x8003, VAR_RESULT
    WaitABPress
    CloseShardsCostWindow
    GoTo _16A4
    End

_16A4:
    CloseMessage
    ReleaseAll
    End

_16AA:
    GoToIfSet FLAG_UNK_0x0089, _1706
    GoToIfNe VAR_BATTLE_FACTORY_PRINT_STATE, 4, _1706
    GoToIfNe VAR_BATTLE_HALL_PRINT_STATE, 4, _1706
    GoToIfNe VAR_BATTLE_CASTLE_PRINT_STATE, 4, _1706
    GoToIfNe VAR_BATTLE_ARCADE_PRINT_STATE, 4, _1706
    GoToIfNe VAR_BATTLE_TOWER_PRINT_STATE, 4, _1706
    SetFlag FLAG_UNK_0x0089
    IncrementTrainerScore TRAINER_SCORE_EVENT_UNK_42
    GoTo _1706
    End

_1706:
    ReturnCommonScript
    End

_170A:
    Message 130
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    ReturnCommonScript
    End

    .balign 4, 0