#include "macros/scrcmd.inc"

    .data

    ScriptEntry _0065
    ScriptEntry _06B8
    ScriptEntry _06F1
    ScriptEntry _0700
    ScriptEntry _0774
    ScriptEntry _0081
    ScriptEntry _079C
    ScriptEntry _07AF
    ScriptEntry _07C2
    ScriptEntry _07D5
    ScriptEntry _07E8
    ScriptEntry _07FB
    ScriptEntry _080E
    ScriptEntry _0821
    ScriptEntry _0046
    ScriptEntry _0834
    ScriptEntry _0845
    .short 0xFD13

_0046:
    ScrCmd_238 19, 0x4000
    GoToIfEq 0x4000, 0, _005F
    ClearFlag 0x2C3
    End

_005F:
    SetFlag 0x2C3
    End

_0065:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar 0x4003, 0
    SetVar 0x4004, 0
    GoTo _009D
    End

_0081:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar 0x4003, 0
    SetVar 0x4004, 1
    GoTo _009D
    End

_009D:
    ScrCmd_313 0
    CallIfEq 0x4004, 0, _0678
    CallIfEq 0x4004, 1, _067D
    GoTo _00C3
    End

_00C3:
    CallIfEq 0x4004, 0, _0682
    CallIfEq 0x4004, 1, _069A
    ScrCmd_042 41, 2
    ScrCmd_042 42, 3
    ScrCmd_043
    GoToIfEq 0x800C, 0, _015E
    GoToIfEq 0x800C, 1, _018B
    GoToIfEq 0x800C, 2, _0123
    GoToIfEq 0x800C, 4, _01B8
    GoTo _0145
    End

_0123:
    CallIfEq 0x4004, 0, _06AE
    CallIfEq 0x4004, 1, _06B3
    GoTo _00C3
    End

_0145:
    GoTo _014D
    End

_014D:
    SetVar 0x40BF, 0
    Message 6
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_015E:
    SetVar 0x40BE, 0
    ScrCmd_2D9 0, 3, 0x800C
    BufferNumber 0, 3
    BufferNumber 1, 3
    GoToIfEq 0x800C, 0, _01E5
    GoTo _020B
    End

_018B:
    SetVar 0x40BE, 1
    ScrCmd_2D9 0, 3, 0x800C
    BufferNumber 0, 3
    BufferNumber 1, 3
    GoToIfEq 0x800C, 0, _01E5
    GoTo _020B
    End

_01B8:
    SetVar 0x40BE, 2
    ScrCmd_2D9 0, 2, 0x800C
    BufferNumber 0, 2
    BufferNumber 1, 2
    GoToIfEq 0x800C, 0, _01F8
    GoTo _020B
    End

_01E5:
    Message 8
    ScrCmd_1FF 9, 3, 0, 0
    GoTo _0145
    End

_01F8:
    Message 8
    ScrCmd_1FF 9, 2, 0, 0
    GoTo _0145
    End

_020B:
    Message 7
    CloseMessage
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    ScrCmd_2D9 4, 0x40BE, 0x800C
    ScrCmd_2DB 0x4002, 0x4005, 0x4006
    ScrCmd_0A1
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    GoToIfEq 0x4002, 0xFF, _0145
    ScrCmd_31E 0x4002, 0x800C
    GoToIfEq 0x800C, 0xFF, _05E1
    ScrCmd_31E 0x4005, 0x800C
    GoToIfEq 0x800C, 0xFF, _05E1
    ScrCmd_31E 0x4006, 0x800C
    GoToIfEq 0x800C, 0xFF, _05E1
    ScrCmd_198 0x4002, 0x4001
    GoToIfEq 0x4001, 0, _0145
    GoTo _029B
    End

_029B:
    GoTo _02A3
    End

_02A3:
    CallIfEq 0x40BE, 0, _0448
    CallIfEq 0x40BE, 1, _0448
    SetVar 0x4000, 0
    HealParty
    CallCommonScript 0x7D6
    SetVar 0x800C, 0x4000
    GoToIfEq 0x800C, 0, _0145
    GoToIfEq 0x40BE, 2, _02F1
    GoTo _04A9
    End

_02F1:
    Message 43
    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, _0335
    GoToIfEq 0x8008, 1, _0389
    GoTo _0145
    End

_0335:
    Message 44
    ScrCmd_03E 0x800C
    GoToIfEq 0x800C, 1, _02F1
    CloseMessage
    ScrCmd_0F2 32, 0, 0, 0x800C
    GoToIfEq 0x800C, 1, _0377
    GoToIfEq 0x800C, 3, _037F
    GoTo _03DD
    End

_0377:
    GoTo _02F1
    End

_037F:
    ScrCmd_150
    GoTo _02F1
    End

_0389:
    Message 44
    ScrCmd_03E 0x800C
    GoToIfEq 0x800C, 1, _02F1
    CloseMessage
    ScrCmd_0F3 32, 0, 0, 0x800C
    GoToIfEq 0x800C, 1, _03CB
    GoToIfEq 0x800C, 3, _03D3
    GoTo _03DD
    End

_03CB:
    GoTo _02F1
    End

_03D3:
    ScrCmd_150
    GoTo _02F1
    End

_03DD:
    ScrCmd_136
    ScrCmd_135 154
    ScrCmd_198 0x4002, 0x8000
    ScrCmd_198 0x4005, 0x8001
    ScrCmd_2DA 0x8000, 0x8001, 0x800C
    SetVar 0x8008, 0x800C
    GoToIfEq 0x8008, 1, _0450
    GoToIfEq 0x8008, 2, _0466
    GoToIfEq 0x8008, 3, _047C
    ScrCmd_136
    ScrCmd_135 156
    Message 45
    CallIfEq 0x40BE, 2, _0448
    Call _06DF
    GoTo _04A9
    End

_0448:
    SetVar 0x40BF, 0xFF
    Return

_0450:
    Call _049F
    BufferPartyMonSpecies 0, 0x4002
    Message 29
    GoTo _0497
    End

_0466:
    Call _049F
    BufferPartyMonSpecies 0, 0x4005
    Message 29
    GoTo _0497
    End

_047C:
    Call _049F
    BufferPartyMonSpecies 0, 0x4002
    BufferPartyMonSpecies 1, 0x4005
    Message 30
    GoTo _0497
    End

_0497:
    GoTo _0145
    End

_049F:
    ScrCmd_136
    ScrCmd_135 157
    ScrCmd_150
    Return

_04A9:
    CallIfEq 0x40BE, 0, _0549
    CallIfEq 0x40BE, 1, _0564
    CallIfEq 0x40BE, 2, _057F
    PlayFanfare SEQ_SE_DP_KAIDAN2
    GoTo _04DC
    End

_04DC:
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    CallIfEq 0x40BE, 0, _05A5
    CallIfEq 0x40BE, 1, _05B9
    CallIfEq 0x40BE, 2, _05CD
    IncrementGameRecord RECORD_UNK_058
    ScrCmd_1CD 40, 0, 0, 0, 0
    ScrCmd_1F8
    ScrCmd_2C4 15
    CallIfEq 0x40BE, 2, _0545
    ScrCmd_0A1
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    ScrCmd_313 1
    End

_0545:
    ScrCmd_150
    Return

_0549:
    Message 32
    WaitABPress
    CloseMessage
    ApplyMovement 0xFF, _05F0
    ApplyMovement 0x800D, _0610
    WaitMovement
    Return

_0564:
    Message 32
    WaitABPress
    CloseMessage
    ApplyMovement 0xFF, _05F0
    ApplyMovement 0x800D, _0610
    WaitMovement
    Return

_057F:
    ScrCmd_02E 32
    WaitTime 10, 0x800C
    ScrCmd_136
    ScrCmd_135 155
    CloseMessage
    ApplyMovement 0xFF, _0604
    ApplyMovement 0x800D, _0624
    WaitMovement
    Return

_05A5:
    ApplyMovement 0xFF, _0630
    ApplyMovement 0x800D, _0658
    WaitMovement
    Return

_05B9:
    ApplyMovement 0xFF, _0630
    ApplyMovement 0x800D, _0658
    WaitMovement
    Return

_05CD:
    ApplyMovement 0xFF, _0648
    ApplyMovement 0x800D, _066C
    WaitMovement
    Return

_05E1:
    SetVar 0x40BF, 0
    CallCommonScript 0x809
    End

    .balign 4, 0
_05F0:
    MoveAction_00C 2
    MoveAction_00F
    MoveAction_00C 2
    MoveAction_045
    EndMovement

    .balign 4, 0
_0604:
    MoveAction_00C 4
    MoveAction_045
    EndMovement

    .balign 4, 0
_0610:
    MoveAction_00C
    MoveAction_00F
    MoveAction_00C 2
    MoveAction_045
    EndMovement

    .balign 4, 0
_0624:
    MoveAction_00C 3
    MoveAction_045
    EndMovement

    .balign 4, 0
_0630:
    MoveAction_015 2
    MoveAction_016
    MoveAction_015 2
    MoveAction_000
    MoveAction_046
    EndMovement

    .balign 4, 0
_0648:
    MoveAction_015 4
    MoveAction_000
    MoveAction_046
    EndMovement

    .balign 4, 0
_0658:
    MoveAction_015
    MoveAction_016
    MoveAction_015 2
    MoveAction_046
    EndMovement

    .balign 4, 0
_066C:
    MoveAction_015 3
    MoveAction_046
    EndMovement

_0678:
    Message 0
    Return

_067D:
    Message 3
    Return

_0682:
    ScrCmd_041 31, 9, 0, 1, 0x800C
    ScrCmd_33A 1
    ScrCmd_042 38, 0
    ScrCmd_042 39, 1
    Message 1
    Return

_069A:
    ScrCmd_041 31, 11, 0, 1, 0x800C
    ScrCmd_33A 1
    ScrCmd_042 40, 4
    Message 4
    Return

_06AE:
    Message 2
    Return

_06B3:
    Message 5
    Return

_06B8:
    ScrCmd_313 0
    SetVar 0x4003, 1
    SetVar 0x40BF, 0
    Message 33
    Call _0448
    Call _06DF
    GoTo _04A9
    End

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

_06F1:
    Message 34
    ScrCmd_2DC 0x40BE
    GoTo _0145
    End

_0700:
    CallIfEq 0x40BE, 0, _073C
    CallIfEq 0x40BE, 1, _073C
    CallIfEq 0x4053, 1, _0742
    CallIfEq 0x4053, 3, _0759
    GoTo _0145
    End

_073C:
    ScrCmd_30A 41
    Return

_0742:
    Message 35
    BufferPlayerName 0
    Message 37
    PlaySound SEQ_FANFA4
    WaitSound
    SetVar 0x4053, 2
    Return

_0759:
    Message 35
    BufferPlayerName 0
    Message 36
    PlaySound SEQ_FANFA4
    WaitSound
    SetVar 0x4053, 4
    CallCommonScript 0x806
    Return

_0774:
    GoTo _0145

    .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

_079C:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 46
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_07AF:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 47
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_07C2:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 48
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_07D5:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 49
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_07E8:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 50
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_07FB:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 51
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_080E:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 52
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0821:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 53
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0834:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    Message 54
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0845:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    Message 55
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

    .byte 0
    .byte 0