pokeplatinum/res/field/scripts/scripts_pal_park.s
2024-08-18 08:57:35 -04:00

172 lines
2.6 KiB
ArmAsm

#include "macros/scrcmd.inc"
.data
ScriptEntry _001A
ScriptEntry _0020
ScriptEntry _008D
ScriptEntry _00B9
ScriptEntry _00E9
ScriptEntry _012C
.short 0xFD13
_001A:
SetFlag 0x9CB
End
_0020:
PlayFanfare SEQ_SE_CONFIRM
LockAll
MessageInstant 9
WaitTime 30, 0x800C
MessageInstant 10
PlayFanfare SEQ_SE_DP_DECIDE
WaitTime 30, 0x800C
MessageInstant 11
PlayFanfare SEQ_SE_DP_DECIDE
WaitTime 30, 0x800C
MessageInstant 12
PlayFanfare SEQ_SE_DP_DECIDE
WaitTime 30, 0x800C
MessageInstant 13
PlayFanfare SEQ_SE_DP_CON_016
WaitTime 30, 0x800C
ScrCmd_253 0
SetVar 0x40F3, 1
SetFlag 0x995
PlayMusic SEQ_D_SAFARI
CloseMessage
ReleaseAll
End
.byte 83
.byte 2
.byte 0
.byte 0
.byte 40
.byte 0
.byte 243
.byte 64
.byte 1
.byte 0
.byte 49
.byte 0
.byte 52
.byte 0
.byte 97
.byte 0
.byte 2
.byte 0
_008D:
PlayFanfare SEQ_SE_CONFIRM
LockAll
PlayFanfare SEQ_SE_DP_PINPON
BufferPlayerName 0
Message 5
PlayMusic SEQ_SILENCE_DUNGEON
PlaySound SEQ_FANFA4
WaitSound
CloseMessage
ReleaseAll
SetVar 0x40F3, 1
Call _01C0
End
_00B9:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 8
ScrCmd_03E 0x800C
CloseMessage
GoToIfEq 0x800C, 0, _00D9
ReleaseAll
End
_00D9:
SetVar 0x40F3, 2
ReleaseAll
Call _01C0
End
_00E9:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Call _0170
CloseMessage
GoToIfEq 0x800C, 0, _0114
SetVar 0x40F3, 2
ReleaseAll
Call _01C0
End
_0114:
ApplyMovement 0xFF, _0124
WaitMovement
ReleaseAll
End
.balign 4, 0
_0124:
MoveAction_00C
EndMovement
_012C:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Call _0170
CloseMessage
GoToIfEq 0x800C, 0, _0159
SetVar 0x40F3, 2
ReleaseAll
Call _01C0
End
_0159:
ApplyMovement 0, _0168
WaitMovement
ReleaseAll
End
.balign 4, 0
_0168:
MoveAction_022
EndMovement
_0170:
Message 0
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _01B5
GetPlayerGender 0x800C
GoToIfEq 0x800C, 1, _01A5
BufferPlayerName 0
Message 2
WaitABXPadPress
SetVar 0x800C, 0
Return
_01A5:
BufferPlayerName 0
Message 3
WaitABXPadPress
SetVar 0x800C, 0
Return
_01B5:
Message 1
SetVar 0x800C, 1
Return
_01C0:
ScrCmd_253 1
FadeScreen 6, 1, 0, 0
WaitFadeScreen
Warp MAP_HEADER_PAL_PARK_LOBBY, 0, 7, 7, 1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
Return
.byte 0
.byte 0