#include "macros/scrcmd.inc"

    .data

    ScriptEntry _0077
    ScriptEntry _000A
    .short 0xFD13

_000A:
    Call _0012
    End

_0012:
    CheckGameCompleted 0x4000
    GoToIfEq 0x4000, 0, _0075
    ScrCmd_22D 2, 0x4000
    GoToIfEq 0x4000, 0, _0075
    CheckItem ITEM_AZURE_FLUTE, 1, 0x4000
    GoToIfEq 0x4000, 0, _0075
    ScrCmd_28B 2, 0x4000
    GoToIfEq 0x4000, 0, _0075
    GoToIfSet 0x11E, _0075
    SetVar 0x4118, 1
    GoTo _0075
    End

_0075:
    Return

_0077:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    GoToIfGe 0x40C4, 1, _00F4
    GoToIfSet 208, _00F4
    Message 0
    ScrCmd_03E 0x800C
    GoToIfEq 0x800C, 1, _0101
    ScrCmd_04C 0x1E3, 0
    Message 1
    ScrCmd_04D
    CloseMessage
    ScrCmd_2BD 0x1E3, 70
    CheckWonBattle 0x800C
    GoToIfEq 0x800C, 0, _00E8
    SetVar 0x40C4, 1
    CheckDidNotCapture 0x800C
    CallIfEq 0x800C, 0, _00EE
    ReleaseAll
    End

_00E8:
    ScrCmd_0EB
    ReleaseAll
    End

_00EE:
    SetFlag 208
    Return

_00F4:
    Message 2
    WaitABXPadPress
    GoTo _0101
    End

_0101:
    CloseMessage
    ReleaseAll
    End

    .byte 0