pokeplatinum/res/field/scripts/scripts_survival_area.s

#include "macros/scrcmd.inc"

    .data

    ScriptEntry _005C
    ScriptEntry _006F
    ScriptEntry _0082
    ScriptEntry _0095
    ScriptEntry _00BE
    ScriptEntry _00D5
    ScriptEntry _0130
    ScriptEntry _002A
    ScriptEntry _0045
    ScriptEntry _0141
    .short 0xFD13

_002A:
    GoTo _0032
    End

_0032:
    ScrCmd_1B7 0x40C2, 3
    GoToIfUnset 214, _0052
    End

_0045:
    GoToIfUnset 214, _0052
    End

_0052:
    ScrCmd_18A 0, 0x28C, 0x150
    End

_005C:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 7
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_006F:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 8
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0082:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    Message 9
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0095:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    GoToIfSet 215, _00B3
    Message 10
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_00B3:
    Message 11
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_00BE:
    ScrCmd_036 13, 0, 0, 0x800C
    ScrCmd_038 3
    ScrCmd_039
    ScrCmd_03B 0x800C
    CallCommonScript 0x7D0
    End

_00D5:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    BufferPlayerName 0
    Message 0
    CloseMessage
    ApplyMovement 8, _011C
    WaitMovement
    ScrCmd_168 20, 10, 12, 18, 77
    ScrCmd_16B 77
    ScrCmd_169 77
    ApplyMovement 8, _0124
    WaitMovement
    ScrCmd_16C 77
    ScrCmd_169 77
    ScrCmd_16A 77
    ScrCmd_065 8
    ReleaseAll
    End

    .balign 4, 0
_011C:
    MoveAction_020
    EndMovement

    .balign 4, 0
_0124:
    MoveAction_00C
    MoveAction_045
    EndMovement

_0130:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    Message 1
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_0141:
    PlayFanfare SEQ_SE_CONFIRM
    LockAll
    FacePlayer
    ScrCmd_234 0x4000
    GoToIfEq 0x4000, 0, _01BE
    GoToIfEq 0x4000, 6, _01BE
    BufferRivalName 0
    BufferPlayerName 1
    SetVar 0x8008, 0x40C2
    GoToIfEq 0x8008, 0, _0195
    GoToIfEq 0x8008, 1, _01A0
    GoTo _01AB
    End

_0195:
    Message 4
    GoTo _01B6
    End

_01A0:
    Message 5
    GoTo _01B6
    End

_01AB:
    Message 6
    GoTo _01B6
    End

_01B6:
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_01BE:
    GoToIfSet 0xAB2, _02CB
    BufferRivalName 0
    BufferPlayerName 1
    Message 2
    CloseMessage
    ScrCmd_0DE 0x800C
    GoToIfEq 0x800C, 0x183, _0236
    GoToIfEq 0x800C, 0x186, _0272
    GoTo _01FA
    End

_01FA:
    ScrCmd_28F 0x800C
    GoToIfLt 0x800C, 20, _021A
    GoToIfGe 0x800C, 20, _0228
    End

_021A:
    ScrCmd_0E5 0x345, 0
    GoTo _02AE
    End

_0228:
    ScrCmd_0E5 0x367, 0
    GoTo _02AE
    End

_0236:
    ScrCmd_28F 0x800C
    GoToIfLt 0x800C, 20, _0256
    GoToIfGe 0x800C, 20, _0264
    End

_0256:
    ScrCmd_0E5 0x346, 0
    GoTo _02AE
    End

_0264:
    ScrCmd_0E5 0x368, 0
    GoTo _02AE
    End

_0272:
    ScrCmd_28F 0x800C
    GoToIfLt 0x800C, 20, _0292
    GoToIfGe 0x800C, 20, _02A0
    End

_0292:
    ScrCmd_0E5 0x347, 0
    GoTo _02AE
    End

_02A0:
    ScrCmd_0E5 0x369, 0
    GoTo _02AE
    End

_02AE:
    CheckWonBattle 0x800C
    GoToIfEq 0x800C, 0, _02DC
    SetFlag 0xAB2
    GoTo _02CB
    End

_02CB:
    BufferRivalName 0
    BufferPlayerName 1
    Message 3
    WaitABXPadPress
    CloseMessage
    ReleaseAll
    End

_02DC:
    ScrCmd_0EB
    ReleaseAll
    End

    .byte 0
    .byte 0