pokeplatinum/res/field/scripts/scripts_union_room.s

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


    ScriptEntry _0022
    ScriptEntry _0024
    ScriptEntry _0026
    ScriptEntry _002A
    ScriptEntry _07BA
    ScriptEntry _0BC0
    ScriptEntry _0BD3
    ScriptEntry _0BE3
    ScriptEntryEnd

_0022:
    End

_0024:
    End

_0026:
    ScrCmd_142
    End

_002A:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    ScrCmd_140 VAR_RESULT
    SetVar VAR_0x8004, VAR_RESULT
    GoToIfEq VAR_RESULT, 5, _0497
    ScrCmd_13C 0
    GoToIfEq VAR_RESULT, 2, _04AD
    GoToIfEq VAR_RESULT, 3, _053A
    GoToIfEq VAR_RESULT, 4, _05AF
    ScrCmd_146 VAR_0x8004, VAR_RESULT
    ScrCmd_140 VAR_RESULT
    GoToIfEq VAR_RESULT, 5, _0497
    Message 199
    ScrCmd_141 VAR_RESULT
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 3, _07BA
    GoToIfEq VAR_0x8008, 2, _0486
    GoTo _00BA
    End

_00BA:
    ScrCmd_135 100
    ScrCmd_13F 2, VAR_RESULT
    MessageAutoScroll VAR_RESULT
    GoTo _00EA
    End

_00D0:
    ScrCmd_135 100
    ScrCmd_139 11
    ScrCmd_13F 22, VAR_RESULT
    MessageVar VAR_RESULT
    GoTo _00EA
    End

_00EA:
    InitGlobalTextMenu 31, 3, 0, VAR_RESULT
    SetMenuXOriginToRight
    AddMenuEntryImm 165, 0
    AddMenuEntryImm 56, 1
    AddMenuEntryImm 49, 2
    AddMenuEntryImm 22, 3
    AddMenuEntryImm 140, 4
    AddMenuEntryImm 139, 5
    AddMenuEntryImm 23, 99
    ShowUnionRoomMenu
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, _0182
    GoToIfEq VAR_0x8008, 1, _0334
    GoToIfEq VAR_0x8008, 2, _0274
    GoToIfEq VAR_0x8008, 3, _01EB
    GoToIfEq VAR_0x8008, 4, _0394
    GoToIfEq VAR_0x8008, 5, _03F4
    GoToIfEq VAR_0x8008, 7, _0792
    ScrCmd_143 0, 7
    GoTo _0776
    End

_0182:
    ScrCmd_143 0, 1
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _019F
    MessageVar VAR_RESULT
_019F:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _06A0
    ScrCmd_139 5
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 1
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AD
    ReturnToField
    Call _0BB2
    MessageInstant 16
    GoTo _00D0
    End

_01EB:
    CountPartyNonEggs VAR_RESULT
    GoToIfLt VAR_RESULT, 2, _0262
    ScrCmd_143 0, 3
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0219
    MessageVar VAR_RESULT
_0219:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _06E8
    ScrCmd_139 7
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 3
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AE
    ReturnToField
    Call _0BB2
    GoTo _00D0
    End

_0262:
    ScrCmd_13F 20, VAR_RESULT
    MessageVar VAR_RESULT
    GoTo _00D0
    End

_0274:
    CountPartyMonsBelowLevelThreshold VAR_RESULT, 30
    GoToIfLt VAR_RESULT, 2, _0322
    ScrCmd_143 0, 2
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _02A4
    MessageVar VAR_RESULT
_02A4:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _06D0
    ScrCmd_139 6
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 2
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    SelectPokemonForUnionRoomBattle
    FadeScreenIn
    WaitFadeScreen
    Message 202
    ScrCmd_135 102
    CloseMessage
    ScrCmd_2BA VAR_RESULT
    GoToIfEq VAR_RESULT, 1, _0B63
    GoToIfEq VAR_RESULT, 2, _0B63
    StartLinkBattle
    Call _0BB2
    GoTo _00D0
    End

_0322:
    ScrCmd_13F 19, VAR_RESULT
    MessageVar VAR_RESULT
    GoTo _00D0
    End

_0334:
    ScrCmd_143 0, 4
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0351
    MessageVar VAR_RESULT
_0351:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _06B8
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitABPressTime 30
    ScrCmd_135 4
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AC
    ReturnToField
    Call _0BB2
    GoTo _0476
    End

_0394:
    ScrCmd_143 0, 5
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _03B1
    MessageVar VAR_RESULT
_03B1:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0718
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitABPressTime 30
    ScrCmd_135 5
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AF
    ReturnToField
    Call _0BB2
    GoTo _0476
    End

_03F4:
    CountPartyEggs VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0741
    ScrCmd_2C7 VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0753
    ScrCmd_143 0, 6
    ScrCmd_13F 9, VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0433
    MessageVar VAR_RESULT
_0433:
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _075E
    ScrCmd_13F 1, VAR_RESULT
    MessageVar VAR_RESULT
    WaitABPressTime 30
    ScrCmd_135 6
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_2C6
    ReturnToField
    Call _0BB2
    GoTo _0476
    End

_0476:
    ReleaseAll
    End

UnionRoom_Unused:
    ScrCmd_143 0, 1
    CloseMessage
    ReleaseAll
    End

_0486:
    Message 38
    WaitTime 30, VAR_RESULT
    CloseMessage
    ScrCmd_13B
    ReleaseAll
    End

_0497:
    ScrCmd_13A
    ScrCmd_13F 0, VAR_RESULT
    MessageVar VAR_RESULT
    WaitABPress
    CloseMessage
    ScrCmd_13B
    ReleaseAll
    End

_04AD:
    ScrCmd_13A
    ScrCmd_13F 10, VAR_RESULT
    MessageVar VAR_RESULT
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0522
    ScrCmd_146 VAR_0x8004, VAR_RESULT
    GoToIfEq VAR_RESULT, 5, _0486
    ScrCmd_141 VAR_RESULT
    GoToIfEq VAR_RESULT, 2, _0486
    ScrCmd_13F 13, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AC
    ReturnToField
    FadeScreenIn
    GoTo _0476
    End

_0522:
    ScrCmd_13F 16, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_13B
    CloseMessage
    ReleaseAll
    End

_053A:
    ScrCmd_13A
    ScrCmd_13F 11, VAR_RESULT
    MessageVar VAR_RESULT
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0646
    ScrCmd_146 VAR_0x8004, VAR_RESULT
    GoToIfEq VAR_RESULT, 5, _0486
    ScrCmd_141 VAR_RESULT
    GoToIfEq VAR_RESULT, 2, _0486
    ScrCmd_13F 14, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AF
    ReturnToField
    FadeScreenIn
    GoTo _0476
    End

_05AF:
    ScrCmd_13A
    ScrCmd_13F 12, VAR_RESULT
    MessageVar VAR_RESULT
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _065E
    CountPartyEggs VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _068A
    CheckPartyHasBadEgg VAR_RESULT
    GoToIfEq VAR_RESULT, 1, _0674
    ScrCmd_146 VAR_0x8004, VAR_RESULT
    GoToIfEq VAR_RESULT, 5, _0486
    ScrCmd_141 VAR_RESULT
    GoToIfEq VAR_RESULT, 2, _0486
    ScrCmd_13F 15, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_2C6
    ReturnToField
    FadeScreenIn
    GoTo _0476
    End

_0646:
    ScrCmd_13F 17, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    ScrCmd_13B
    ReleaseAll
    End

_065E:
    ScrCmd_13F 18, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    ReleaseAll
    End

_0674:
    ScrCmd_13F 26, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    ReleaseAll
    End

_068A:
    ScrCmd_13F 21, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    CloseMessage
    ReleaseAll
    End

_06A0:
    ScrCmd_13F 3, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_06B8:
    ScrCmd_13F 4, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_06D0:
    ScrCmd_13F 5, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_06E8:
    ScrCmd_13F 6, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

UnionRoom_Unused2:
    ScrCmd_13F 7, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_0718:
    ScrCmd_13F 8, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_0730:
    ScrCmd_143 1, 1
    Message 36
    GoTo _0B9A
    End

_0741:
    ScrCmd_13F 21, VAR_RESULT
    MessageVar VAR_RESULT
    GoTo _00D0
    End

_0753:
    Message 218
    GoTo _00D0
    End

_075E:
    ScrCmd_13F 8, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    GoTo _07AE
    End

_0776:
    ScrCmd_13F 23, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 101
    CloseMessage
    ScrCmd_13E
    ReleaseAll
    End

_0792:
    ScrCmd_13F 24, VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 101
    CloseMessage
    ScrCmd_13E
    ReleaseAll
    End

_07AE:
    ScrCmd_135 101
    CloseMessage
    ScrCmd_13E
    ReleaseAll
    End

_07BA:
    LockAll
    PlayFanfare SEQ_SE_DP_BUTTON9
    ScrCmd_13C 1
    MessageAutoScroll 7
    WaitABPressTime 30
    GoTo _07D4
    End

_07D4:
    Message 9
    ScrCmd_135 100
    ScrCmd_139 11
    ScrCmd_145 VAR_RESULT
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 1, _0853
    GoToIfEq VAR_0x8008, 4, _0AED
    GoToIfEq VAR_0x8008, 2, _095C
    GoToIfEq VAR_0x8008, 3, _08C7
    GoToIfEq VAR_0x8008, 5, _0A28
    GoToIfEq VAR_0x8008, 6, _0A82
    GoToIfEq VAR_0x8008, 7, _0B78
    GoToIfEq VAR_0x8008, 8, _0B89
    End

_0853:
    Message 11
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _08B6
    ScrCmd_143 1, 0
    CloseMessage
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B58
    ScrCmd_2AF VAR_RESULT
    MessageVar VAR_RESULT
    WaitTime 30, VAR_RESULT
    ScrCmd_135 1
    CloseMessage
    ScrCmd_139 5
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AD
    ReturnToField
    Call _0BB2
    GoTo _07D4
    End

_08B6:
    ScrCmd_143 1, 1
    Message 17
    GoTo _0B9A
    End

_08C7:
    Message 26
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _093A
    CountPartyNonEggs VAR_RESULT
    GoToIfLt VAR_RESULT, 2, _094B
    ScrCmd_143 1, 0
    CloseMessage
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B78
    Message 27
    WaitTime 30, VAR_RESULT
    ScrCmd_135 3
    CloseMessage
    ScrCmd_139 7
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AE
    ReturnToField
    ScrCmd_139 11
    Call _0BB2
    GoTo _07D4
    End

_093A:
    ScrCmd_143 1, 1
    Message 20
    GoTo _0B9A
    End

_094B:
    ScrCmd_143 1, 1
    Message 29
    GoTo _0B9A
    End

_095C:
    Message 21
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0A06
    CountPartyMonsBelowLevelThreshold VAR_RESULT, 30
    GoToIfLt VAR_RESULT, 2, _0A17
    ScrCmd_143 1, 0
    CloseMessage
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B78
    Message 22
    WaitTime 30, VAR_RESULT
    ScrCmd_135 2
    CloseMessage
    ScrCmd_139 6
    FadeScreenOut
    WaitFadeScreen
    SelectPokemonForUnionRoomBattle
    FadeScreenIn
    WaitFadeScreen
    Message 202
    ScrCmd_135 102
    CloseMessage
    ScrCmd_2BA VAR_RESULT
    GoToIfEq VAR_RESULT, 1, _0B63
    GoToIfEq VAR_RESULT, 2, _0B63
    StartLinkBattle
    ScrCmd_139 11
    Call _0BB2
    GoTo _07D4
    End

_0A06:
    ScrCmd_143 1, 1
    Message 23
    GoTo _0B9A
    End

_0A17:
    ScrCmd_143 1, 1
    Message 24
    GoTo _0B9A
    End

_0A28:
    Message 30
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0A06
    ScrCmd_143 1, 0
    CloseMessage
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B78
    Message 31
    WaitTime 30, VAR_RESULT
    ScrCmd_135 5
    CloseMessage
    ScrCmd_139 2
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AF
    ReturnToField
    Call _0BB2
    ReleaseAll
    End

_0A82:
    Message 33
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0A06
    ScrCmd_143 1, 0
    CloseMessage
    CountPartyEggs VAR_RESULT
    GoToIfEq VAR_RESULT, 0, _0730
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B78
    Message 34
    WaitTime 30, VAR_RESULT
    ScrCmd_135 6
    CloseMessage
    ScrCmd_139 13
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_2C6
    ReturnToField
    Call _0BB2
    ReleaseAll
    End

_0AED:
    Message 18
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0B47
    ScrCmd_143 1, 0
    CloseMessage
    ScrCmd_144 VAR_RESULT
    GoToIfEq VAR_RESULT, 7, _0B78
    Message 19
    WaitTime 30, VAR_RESULT
    ScrCmd_135 4
    CloseMessage
    ScrCmd_139 1
    FadeScreenOut
    WaitFadeScreen
    ScrCmd_0AC
    ReturnToField
    Call _0BB2
    ReleaseAll
    End

_0B47:
    ScrCmd_143 1, 1
    Message 28
    GoTo _0B9A
    End

_0B58:
    Message 35
    GoTo _0B9A
    End

_0B63:
    ScrCmd_139 11
    Message 25
    WaitTime 30, VAR_RESULT
    GoTo _0B9A
    End

_0B78:
    Message 8
    WaitTime 30, VAR_RESULT
    GoTo _0B9A
    End

_0B89:
    Message 10
    WaitTime 30, VAR_RESULT
    GoTo _0B9A
    End

_0B9A:
    ScrCmd_135 101
    CloseMessage
    ScrCmd_13E
    ReleaseAll
    End

UnionRoom_Unused3:
    ScrCmd_143 1, 1
    CloseMessage
    ReleaseAll
    End

_0BB2:
    ScrCmd_13D
    FadeScreenIn
    Return

_0BC0:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 207
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0BD3:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GoTo _0497
    End

_0BE3:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GoTo _0BF3
    End

_0BF3:
    ScrCmd_13A
    CallIfSet FLAG_UNK_0x00BB, _0C50
    CallIfUnset FLAG_UNK_0x00BB, _0C55
    SetFlag FLAG_UNK_0x00BB
    InitGlobalTextMenu 31, 11, 0, VAR_RESULT
    SetMenuXOriginToRight
    AddMenuEntryImm 10, 0
    AddMenuEntryImm 166, 1
    AddMenuEntryImm 23, 2
    ShowMenu
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, _0C72
    GoToIfEq VAR_0x8008, 1, _0C5A
    GoTo _0C6A
    End

_0C50:
    Message 158
    Return

_0C55:
    Message 157
    Return

_0C5A:
    ScrCmd_138 VAR_RESULT
    MessageVar VAR_RESULT
    GoTo _0BF3
    End

_0C6A:
    ScrCmd_13B
    CloseMessage
    ReleaseAll
    End

_0C72:
    Message 159
    InitGlobalTextMenu 31, 3, 0, VAR_RESULT
    SetMenuXOriginToRight
    AddMenuEntryImm 49, 0
    AddMenuEntryImm 22, 1
    AddMenuEntryImm 140, 2
    AddMenuEntryImm 56, 3
    AddMenuEntryImm 167, 4
    AddMenuEntryImm 139, 5
    AddMenuEntryImm 12, 6
    ShowMenu
    SetVar VAR_0x8008, VAR_RESULT
    GoToIfEq VAR_0x8008, 0, _0CFA
    GoToIfEq VAR_0x8008, 1, _0D05
    GoToIfEq VAR_0x8008, 2, _0D10
    GoToIfEq VAR_0x8008, 3, _0D1B
    GoToIfEq VAR_0x8008, 4, _0D26
    GoToIfEq VAR_0x8008, 5, _0D31
    GoTo _0BF3
    End

_0CFA:
    Message 160
    GoTo _0C72
    End

_0D05:
    Message 161
    GoTo _0C72
    End

_0D10:
    Message 162
    GoTo _0C72
    End

_0D1B:
    Message 164
    GoTo _0C72
    End

_0D26:
    Message 165
    GoTo _0C72
    End

_0D31:
    Message 163
    GoTo _0C72
    End

UnionRoom_Unused4:
    GoTo _0BF3
    End