pokeplatinum/res/field/scripts/scripts_veilstone_city_prize_exchange.s

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


    ScriptEntry _000E
    ScriptEntry _017C
    ScriptEntry _027E
    ScriptEntryEnd

_000E:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    SetVar VAR_MAP_LOCAL_1, 19
    Message 0
    ShowCoins 21, 1
    SetVar VAR_0x8005, 0
    SetVar VAR_0x8006, 0
    GoTo _0039
    End

_0039:
    Message 1
    Call _0119
    GoToIfEq VAR_RESULT, -2, _00D8
    GoToIfEq VAR_RESULT, VAR_MAP_LOCAL_1, _00D8
    GetGameCornerPrizeData VAR_RESULT, VAR_0x8000, VAR_0x8001
    CallIfLt VAR_0x8000, 0x148, _0100
    CallIfGe VAR_0x8000, 0x148, _010A
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0039
    HasCoins VAR_RESULT, VAR_0x8001
    GoToIfEq VAR_RESULT, FALSE, _00F5
    GoToIfCannotFitItem VAR_0x8000, 1, VAR_RESULT, _00E5
    Message 4
    AddItem VAR_0x8000, 1, VAR_RESULT
    SubtractCoins VAR_0x8001
    UpdateCoinDisplay
    PlayFanfare SEQ_SE_DP_REGI
    WaitFanfare SEQ_SE_DP_REGI
    GoTo _0039
    End

_00D8:
    Message 7
    WaitABXPadPress
    CloseMessage
    HideCoins
    ReleaseAll
    End

_00E5:
    BufferItemName 0, VAR_0x8000
    Message 6
    GoTo _0039
    End

_00F5:
    Message 5
    GoTo _0039
    End

_0100:
    BufferItemName 0, VAR_0x8000
    Message 2
    Return

_010A:
    BufferItemName 0, VAR_0x8000
    BufferTMHMMoveName 1, VAR_0x8000
    Message 3
    Return

_0119:
    SetVar VAR_0x8008, 0
    SetVar VAR_0x8009, 0
    InitGlobalTextListMenu 1, 1, 0, VAR_RESULT
    GoTo _0135
    End

_0135:
    GetGameCornerPrizeData VAR_0x8008, VAR_0x8000, VAR_0x8001
    BufferItemName 0, VAR_0x8000
    ScrCmd_280 1, VAR_0x8001, 1, 5
    AddListMenuEntry 168, VAR_0x8008
    AddVar VAR_0x8008, 1
    GoToIfLt VAR_0x8008, VAR_MAP_LOCAL_1, _0135
    GoTo _016C
    End

_016C:
    AddListMenuEntry 169, VAR_0x8008
    ShowListMenuRememberCursor VAR_0x8005, VAR_0x8006
    Return

_017C:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GoToIfSet FLAG_UNK_0x00C4, _01AF
    SetFlag FLAG_UNK_0x00C4
    Message 8
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0250
    GoTo _01CB
    End

_01AF:
    Message 9
    ShowYesNoMenu VAR_RESULT
    GoToIfEq VAR_RESULT, MENU_NO, _0250
    GoTo _01CB
    End

_01CB:
    CloseMessage
    FadeScreen 6, 1, 0, 0
    WaitFadeScreen
    SelectMoveTutorPokemon
    GetSelectedPartySlot VAR_0x8000
    ReturnToField
    FadeScreen 6, 1, 1, 0
    WaitFadeScreen
    GoToIfEq VAR_0x8000, 0xFF, _0250
    GetPartyMonSpecies VAR_0x8000, VAR_0x8001
    GoToIfEq VAR_0x8001, 0, _025B
    ScrCmd_2FF VAR_0x8000, VAR_0x8004
    GoToIfEq VAR_0x8004, -1, _0245
    CheckPartyMonHasMove VAR_RESULT, MOVE_HIDDEN_POWER, VAR_0x8000
    GoToIfEq VAR_RESULT, 0, _0266
    ScrCmd_2FD 0, VAR_0x8004
    Message 11
    GoTo _0276
    End

_0245:
    Message 14
    GoTo _0276
    End

_0250:
    Message 12
    GoTo _0276
    End

_025B:
    Message 13
    GoTo _0276
    End

_0266:
    ScrCmd_2FD 0, VAR_0x8004
    Message 10
    GoTo _0276
    End

_0276:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_027E:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 15
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

    .balign 4, 0