pokeplatinum/res/field/scripts/scripts_battle_hall.s

#include "macros/scrcmd.inc"

    .data

    ScriptEntry _026D
    ScriptEntry _08B4
    ScriptEntry _08ED
    ScriptEntry _08FC
    ScriptEntry _0970
    ScriptEntry _0289
    ScriptEntry _0998
    ScriptEntry _09AB
    ScriptEntry _09BE
    ScriptEntry _09D1
    ScriptEntry _09F0
    ScriptEntry _0A03
    ScriptEntry _0A16
    ScriptEntry _0A29
    ScriptEntry _0A3C
    ScriptEntry _01A6
    ScriptEntry _0A4F
    ScriptEntry _0AEE
    ScriptEntry _0C01
    ScriptEntry _0D14
    ScriptEntry _00A6
    ScriptEntry _005A
    .short 0xFD13

_005A:
    ScrCmd_325 0x4000
    CallIfGe 0x4000, 11, _0090
    CallIfGe 0x4000, 101, _007A
    End

_007A:
    ScrCmd_186 12, 8, 11
    ScrCmd_187 12, 8, 0, 11, 2
    Return

_0090:
    ScrCmd_186 12, 13, 11
    ScrCmd_187 12, 13, 0, 11, 2
    Return

_00A6:
    GoToIfEq 0x40BA, 1, _00B5
    End

_00B5:
    Call _015D
    ScrCmd_1B7 0x4007, 100
    CallIfUnset 0x2CB, _00DB
    GoToIfLt 0x4007, 30, _00E5
    End

_00DB:
    ScrCmd_065 13
    SetFlag 0x2CB
    Return

_00E5:
    GoToIfUnset 0xAC4, _00F2
    End

_00F2:
    SetFlag 0xAC4
    ScrCmd_326 0x4008
    GoToIfGe 0x4008, 0x2710, _0123
    GoToIfGe 0x4008, 0x3E8, _0131
    GoToIfGe 0x4008, 0x1F4, _013F
    End

_0123:
    ScrCmd_1B7 0x4063, 4
    GoTo _014D
    End

_0131:
    ScrCmd_1B7 0x4063, 2
    GoTo _014D
    End

_013F:
    SetVar 0x4063, 0
    GoTo _014D
    End

_014D:
    ClearFlag 0x2CB
    Call _01DF
    ScrCmd_064 13
    End

_015D:
    CallIfUnset 0x2C1, _019C
    ScrCmd_238 14, 0x4000
    GoToIfEq 0x4000, 0, _0196
    ScrCmd_32A 0x4000
    GoToIfEq 0x4000, 0, _0196
    ClearFlag 0x2C1
    ScrCmd_064 10
    Return

_0196:
    SetFlag 0x2C1
    Return

_019C:
    ScrCmd_065 10
    SetFlag 0x2C1
    Return

_01A6:
    GetPlayerGender 0x4000
    CallIfEq 0x4000, 0, _025D
    CallIfEq 0x4000, 1, _0265
    Call _01DF
    ScrCmd_238 14, 0x4000
    CallIfEq 0x4000, 0, _0196
    End

_01DF:
    CallIfEq 0x4063, 0, _0215
    CallIfEq 0x4063, 1, _0245
    CallIfEq 0x4063, 2, _024D
    CallIfEq 0x4063, 3, _0255
    Return

_0215:
    GetPlayerGender 0x4009
    GoToIfEq 0x4009, 0, _0235
    GoToIfEq 0x4009, 1, _023D
    Return

_0235:
    SetVar 0x4021, 97
    Return

_023D:
    SetVar 0x4021, 0
    Return

_0245:
    SetVar 0x4021, 140
    Return

_024D:
    SetVar 0x4021, 166
    Return

_0255:
    SetVar 0x4021, 167
    Return

_025D:
    SetVar 0x4023, 7
    Return

_0265:
    SetVar 0x4023, 4
    Return

_026D:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar 0x4003, 0
    SetVar 0x4004, 0
    GoTo _02A5
    End

_0289:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar 0x4003, 0
    SetVar 0x4004, 1
    GoTo _02A5
    End

_02A5:
    ScrCmd_313 0
    CallIfEq 0x4004, 0, _0874
    CallIfEq 0x4004, 1, _0879
    GoTo _02CB
    End

_02CB:
    CallIfEq 0x4004, 0, _087E
    CallIfEq 0x4004, 1, _0896
    ScrCmd_042 19, 2
    ScrCmd_042 20, 3
    ScrCmd_043
    GoToIfEq 0x800C, 0, _0366
    GoToIfEq 0x800C, 1, _0389
    GoToIfEq 0x800C, 2, _032B
    GoToIfEq 0x800C, 4, _03AC
    GoTo _034D
    End

_032B:
    CallIfEq 0x4004, 0, _08AA
    CallIfEq 0x4004, 1, _08AF
    GoTo _02CB
    End

_034D:
    GoTo _0355
    End

_0355:
    SetVar 0x40BA, 0
    Message 6
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0366:
    SetVar 0x40BB, 0
    ScrCmd_2CC 0, 1, 0x800C
    GoToIfEq 0x800C, 0, _03CF
    GoTo _03F5
    End

_0389:
    SetVar 0x40BB, 1
    ScrCmd_2CC 0, 2, 0x800C
    GoToIfEq 0x800C, 0, _03E2
    GoTo _03F5
    End

_03AC:
    SetVar 0x40BB, 2
    ScrCmd_2CC 0, 1, 0x800C
    GoToIfEq 0x800C, 0, _03CF
    GoTo _03F5
    End

_03CF:
    Message 35
    ScrCmd_1FF 37, 1, 0, 0
    GoTo _034D
    End

_03E2:
    Message 36
    ScrCmd_1FF 37, 2, 0, 0
    GoTo _034D
    End

_03F5:
    Message 33
    CloseMessage
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_2CC 4, 0x40BB, 0x800C
    ScrCmd_2D0 0x4002, 0x4005
    ScrCmd_0A1
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    GoToIfEq 0x4002, 0xFF, _034D
    ScrCmd_31E 0x4002, 0x800C
    GoToIfEq 0x800C, 0xFF, _07C8
    ScrCmd_31E 0x4005, 0x800C
    GoToIfEq 0x800C, 0xFF, _07C8
    ScrCmd_198 0x4002, 0x4001
    GoToIfEq 0x4001, 0, _034D
    ScrCmd_2CC 1, 0x40BB, 0x800C
    GoToIfEq 0x800C, 0, _04F4
    ScrCmd_2CC 2, 0x40BB, 0x800C
    ScrCmd_0DA 0, 0x800C, 0, 0
    GoToIfEq 0x800C, 0x4001, _04F4
    GoTo _04A2
    End

_04A2:
    ScrCmd_0DA 1, 0x4001, 0, 0
    Message 34
    ScrCmd_044 25, 13, 1, 1, 0x800C
    ScrCmd_046 41, 0xFF, 0
    ScrCmd_046 42, 0xFF, 1
    ScrCmd_327 6
    SetVar 0x8008, 0x800C
    GoToIfEq 0x8008, 0, _04E4
    GoTo _034D
    End

_04E4:
    ScrCmd_2CC 3, 0x40BB, 0x800C
    GoTo _04F4
    End

_04F4:
    GoTo _04FC
    End

_04FC:
    CallIfEq 0x40BB, 0, _0673
    CallIfEq 0x40BB, 1, _0673
    SetVar 0x4000, 0
    HealParty
    CallCommonScript 0x7D6
    SetVar 0x800C, 0x4000
    GoToIfEq 0x800C, 0, _034D
    GoToIfEq 0x40BB, 2, _054A
    GoTo _0690
    End

_054A:
    Message 30
    ScrCmd_040 30, 1, 0, 1, 0x800C
    ScrCmd_33A 1
    ScrCmd_042 13, 0
    ScrCmd_042 14, 1
    ScrCmd_042 5, 2
    ScrCmd_043
    SetVar 0x8008, 0x800C
    GoToIfEq 0x8008, 0, _058E
    GoToIfEq 0x8008, 1, _05E2
    GoTo _034D
    End

_058E:
    Message 31
    ScrCmd_03E 0x800C
    GoToIfEq 0x800C, 1, _054A
    CloseMessage
    ScrCmd_0F2 30, 0, 0, 0x800C
    GoToIfEq 0x800C, 1, _05D0
    GoToIfEq 0x800C, 3, _05D8
    GoTo _0636
    End

_05D0:
    GoTo _054A
    End

_05D8:
    ScrCmd_150
    GoTo _054A
    End

_05E2:
    Message 31
    ScrCmd_03E 0x800C
    GoToIfEq 0x800C, 1, _054A
    CloseMessage
    ScrCmd_0F3 30, 0, 0, 0x800C
    GoToIfEq 0x800C, 1, _0624
    GoToIfEq 0x800C, 3, _062C
    GoTo _0636
    End

_0624:
    GoTo _054A
    End

_062C:
    ScrCmd_150
    GoTo _054A
    End

_0636:
    ScrCmd_136
    ScrCmd_135 108
    ScrCmd_2CF 0x4001, 0x800C
    GoToIfEq 0x800C, 1, _067B
    ScrCmd_136
    ScrCmd_135 110
    Message 32
    CallIfEq 0x40BB, 2, _0673
    Call _08DB
    GoTo _0690
    End

_0673:
    SetVar 0x40BA, 0xFF
    Return

_067B:
    Call _068C
    Message 57
    GoTo _034D
    End

_068C:
    ScrCmd_150
    Return

_0690:
    CallIfEq 0x40BB, 0, _0730
    CallIfEq 0x40BB, 1, _074B
    CallIfEq 0x40BB, 2, _0766
    PlayFanfare SEQ_SE_DP_KAIDAN2
    GoTo _06C3
    End

_06C3:
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    CallIfEq 0x40BB, 0, _078C
    CallIfEq 0x40BB, 1, _07A0
    CallIfEq 0x40BB, 2, _07B4
    IncrementGameRecord RECORD_UNK_058
    ScrCmd_1CD 39, 0, 0, 0, 0
    ScrCmd_1F8
    ScrCmd_2C4 9
    CallIfEq 0x40BB, 2, _072C
    ScrCmd_0A1
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ScrCmd_313 1
    End

_072C:
    ScrCmd_150
    Return

_0730:
    Message 9
    WaitABPress
    CloseMessage
    ApplyMovement 0xFF, _07D4
    ApplyMovement 0x800D, _07FC
    WaitMovement
    Return

_074B:
    Message 9
    WaitABPress
    CloseMessage
    ApplyMovement 0xFF, _07D4
    ApplyMovement 0x800D, _07FC
    WaitMovement
    Return

_0766:
    ScrCmd_02E 9
    WaitTime 10, 0x800C
    ScrCmd_136
    ScrCmd_135 109
    CloseMessage
    ApplyMovement 0xFF, _07E4
    ApplyMovement 0x800D, _080C
    WaitMovement
    Return

_078C:
    ApplyMovement 0xFF, _0824
    ApplyMovement 0x800D, _0854
    WaitMovement
    Return

_07A0:
    ApplyMovement 0xFF, _0824
    ApplyMovement 0x800D, _0854
    WaitMovement
    Return

_07B4:
    ApplyMovement 0xFF, _0838
    ApplyMovement 0x800D, _0864
    WaitMovement
    Return

_07C8:
    SetVar 0x40BA, 0
    CallCommonScript 0x809
    End

    .balign 4, 0
_07D4:
    MoveAction_00E 4
    MoveAction_00D 3
    MoveAction_045
    EndMovement

    .balign 4, 0
_07E4:
    MoveAction_00E 2
    MoveAction_00C
    MoveAction_00E 2
    MoveAction_00D 3
    MoveAction_045
    EndMovement

    .balign 4, 0
_07FC:
    MoveAction_00E 3
    MoveAction_00D 3
    MoveAction_045
    EndMovement

    .balign 4, 0
_080C:
    MoveAction_00E
    MoveAction_00C
    MoveAction_00E 2
    MoveAction_00D 3
    MoveAction_045
    EndMovement

    .balign 4, 0
_0824:
    MoveAction_017 4
    MoveAction_014 3
    MoveAction_002
    MoveAction_046
    EndMovement

    .balign 4, 0
_0838:
    MoveAction_017 2
    MoveAction_015
    MoveAction_017 2
    MoveAction_014 3
    MoveAction_002
    MoveAction_046
    EndMovement

    .balign 4, 0
_0854:
    MoveAction_014 3
    MoveAction_017 3
    MoveAction_046
    EndMovement

    .balign 4, 0
_0864:
    MoveAction_014 2
    MoveAction_017 3
    MoveAction_046
    EndMovement

_0874:
    Message 0
    Return

_0879:
    Message 3
    Return

_087E:
    ScrCmd_041 31, 9, 0, 1, 0x800C
    ScrCmd_33A 1
    ScrCmd_042 16, 0
    ScrCmd_042 17, 1
    Message 1
    Return

_0896:
    ScrCmd_041 31, 11, 0, 1, 0x800C
    ScrCmd_33A 1
    ScrCmd_042 18, 4
    Message 4
    Return

_08AA:
    Message 2
    Return

_08AF:
    Message 5
    Return

_08B4:
    ScrCmd_313 0
    SetVar 0x4003, 1
    SetVar 0x40BA, 0
    Message 11
    Call _0673
    Call _08DB
    GoTo _0690
    End

_08DB:
    ScrCmd_18D
    ScrCmd_12D 0x800C
    ScrCmd_18E
    PlayFanfare SEQ_SE_DP_SAVE
    WaitFanfare SEQ_SE_DP_SAVE
    Return

_08ED:
    Message 12
    ScrCmd_2D1 0x40BB
    GoTo _034D
    End

_08FC:
    CallIfEq 0x40BB, 0, _0938
    CallIfEq 0x40BB, 1, _0938
    CallIfEq 0x4051, 1, _093E
    CallIfEq 0x4051, 3, _0955
    GoTo _034D
    End

_0938:
    ScrCmd_30A 40
    Return

_093E:
    Message 13
    BufferPlayerName 0
    Message 15
    PlaySound SEQ_FANFA4
    WaitSound
    SetVar 0x4051, 2
    Return

_0955:
    Message 13
    BufferPlayerName 0
    Message 14
    PlaySound SEQ_FANFA4
    WaitSound
    SetVar 0x4051, 4
    CallCommonScript 0x806
    Return

_0970:
    GoTo _034D

    .byte 2
    .byte 0
    .byte 12
    .byte 0
    .byte 2
    .byte 0
    .byte 63
    .byte 0
    .byte 1
    .byte 0
    .byte 12
    .byte 0
    .byte 1
    .byte 0
    .byte 254
    .byte 0
    .byte 0
    .byte 0
    .byte 12
    .byte 0
    .byte 2
    .byte 0
    .byte 63
    .byte 0
    .byte 1
    .byte 0
    .byte 12
    .byte 0
    .byte 1
    .byte 0
    .byte 254
    .byte 0
    .byte 0
    .byte 0

_0998:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 59
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_09AB:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 60
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_09BE:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 61
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_09D1:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    WaitFanfare SEQ_SE_CONFIRM
    ScrCmd_04C 0x1A1, 0
    Message 62
    ScrCmd_04D
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_09F0:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 63
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0A03:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 64
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0A16:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 65
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0A29:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 66
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

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

_0A4F:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GoToIfUnset 190, _0AD7
    ScrCmd_324 1, 2, 3, 4, 0x4062, 0x800C
    GoToIfEq 0x800C, 0, _0AAD
    GoToIfEq 0x800C, 2, _0AB8
    GoToIfEq 0x800C, 3, _0AC9
    BufferPlayerName 0
    Message 69
    Message 70
    PlaySound SEQ_PL_POINTGET3
    Message 72
    WaitSound
    GoTo _0AE6
    End

_0AAD:
    Message 68
    GoTo _0AE6
    End

_0AB8:
    BufferPlayerName 0
    Message 73
    Message 71
    GoTo _0AE6
    End

_0AC9:
    BufferPlayerName 0
    Message 74
    GoTo _0AE6
    End

_0AD7:
    SetFlag 190
    Message 68
    GoTo _0AE6
    End

_0AE6:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0AEE:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GetPlayerGender 0x800C
    GoToIfEq 0x800C, 0, _0C22
    GoTo _0B0F
    End

_0B0F:
    BufferPlayerName 0
    ScrCmd_325 0x8005
    GoToIfGe 0x8005, 0x1DB, _0B96
    GoToIfGe 0x8005, 0x15F, _0BA1
    GoToIfGe 0x8005, 251, _0BAC
    GoToIfGe 0x8005, 151, _0BB7
    GoToIfGe 0x8005, 101, _0BC2
    GoToIfGe 0x8005, 51, _0BCD
    GoToIfGe 0x8005, 31, _0BD8
    GoToIfGe 0x8005, 11, _0BE3
    GoToIfGe 0x8005, 1, _0BEE
    Message 75
    GoTo _0BF9
    End

_0B96:
    Message 84
    GoTo _0BF9
    End

_0BA1:
    Message 83
    GoTo _0BF9
    End

_0BAC:
    Message 82
    GoTo _0BF9
    End

_0BB7:
    Message 81
    GoTo _0BF9
    End

_0BC2:
    Message 80
    GoTo _0BF9
    End

_0BCD:
    Message 79
    GoTo _0BF9
    End

_0BD8:
    Message 78
    GoTo _0BF9
    End

_0BE3:
    Message 77
    GoTo _0BF9
    End

_0BEE:
    Message 76
    GoTo _0BF9
    End

_0BF9:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0C01:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GetPlayerGender 0x800C
    GoToIfEq 0x800C, 1, _0B0F
    GoTo _0C22
    End

_0C22:
    BufferPlayerName 0
    ScrCmd_325 0x8005
    GoToIfGe 0x8005, 0x1DB, _0CA9
    GoToIfGe 0x8005, 0x15F, _0CB4
    GoToIfGe 0x8005, 251, _0CBF
    GoToIfGe 0x8005, 151, _0CCA
    GoToIfGe 0x8005, 101, _0CD5
    GoToIfGe 0x8005, 51, _0CE0
    GoToIfGe 0x8005, 31, _0CEB
    GoToIfGe 0x8005, 11, _0CF6
    GoToIfGe 0x8005, 1, _0D01
    Message 85
    GoTo _0D0C
    End

_0CA9:
    Message 94
    GoTo _0D0C
    End

_0CB4:
    Message 93
    GoTo _0D0C
    End

_0CBF:
    Message 92
    GoTo _0D0C
    End

_0CCA:
    Message 91
    GoTo _0D0C
    End

_0CD5:
    Message 90
    GoTo _0D0C
    End

_0CE0:
    Message 89
    GoTo _0D0C
    End

_0CEB:
    Message 88
    GoTo _0D0C
    End

_0CF6:
    Message 87
    GoTo _0D0C
    End

_0D01:
    Message 86
    GoTo _0D0C
    End

_0D0C:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0D14:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    BufferPlayerName 0
    SetVar 0x4001, 0x4021
    GoToIfEq 0x4001, 0, _0D68
    GoToIfEq 0x4001, 97, _0D73
    GoToIfEq 0x4001, 140, _0D7E
    GoToIfEq 0x4001, 166, _0D89
    GoToIfEq 0x4001, 167, _0D94
    End

_0D68:
    Message 96
    GoTo _0D9F
    End

_0D73:
    Message 95
    GoTo _0D9F
    End

_0D7E:
    Message 97
    GoTo _0D9F
    End

_0D89:
    Message 98
    GoTo _0D9F
    End

_0D94:
    Message 99
    GoTo _0D9F
    End

_0D9F:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

    .byte 0