pokeplatinum/res/field/scripts/scripts_unk_0500.s
2024-07-16 12:01:40 -07:00

204 lines
3.1 KiB
ArmAsm

#include "macros/scrcmd.inc"
.data
ScriptEntry _001A
ScriptEntry _0068
ScriptEntry _00B6
ScriptEntry _0104
ScriptEntry _01FD
ScriptEntry _024B
.short 0xFD13
_001A:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 1
GoTo _002E
End
_002E:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
Call _032B
GoTo _002E
End
_0068:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 1
GoTo _007C
End
_007C:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
Call _032B
GoTo _007C
End
_00B6:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 2
GoTo _00CA
End
_00CA:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
Call _032B
GoTo _00CA
End
_0104:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 5
GoTo _0118
End
_0118:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
ScrCmd_2CC 1, 0x8001, 0x800C
GoToIfEq 0x800C, 0, _0174
ScrCmd_2CC 2, 0x8001, 0x800C
ScrCmd_0DA 0, 0x800C, 0, 0
Message 7
GoTo _017F
End
_0174:
Message 6
GoTo _017F
End
_017F:
SetVar 0x8002, 0
SetVar 0x8004, 0
SetVar 0x8005, 0
GoTo _0199
End
_0199:
Call _02BD
GoToIfEq 0x8002, 9, _0118
GoToIfEq 0x8002, -2, _0118
SetVar 0x8003, 0
SetVar 0x8006, 0
SetVar 0x8007, 0
GoTo _01D3
End
_01D3:
ScrCmd_2DE 0x8001, 0x8002, 0x8003, 0x8006, 0x8007
GoToIfEq 0x8003, -2, _0199
Call _032B
Message 6
GoTo _01D3
End
_01FD:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 4
GoTo _0211
End
_0211:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
Call _032B
GoTo _0211
End
_024B:
PlayFanfare SEQ_SE_CONFIRM
LockAll
SetVar 0x8000, 6
GoTo _025F
End
_025F:
Call _0299
Call _029E
SetVar 0x8008, 0x8001
GoToIfEq 0x8008, 3, _031D
GoToIfEq 0x8008, -2, _031D
Call _032B
GoTo _025F
End
_0299:
Message 0
Return
_029E:
ScrCmd_041 31, 9, 0, 1, 0x8001
ScrCmd_33A 1
ScrCmd_042 1, 0
ScrCmd_042 2, 1
ScrCmd_042 3, 2
ScrCmd_042 4, 3
ScrCmd_043
Return
_02BD:
ScrCmd_045 25, 1, 0, 1, 0x8002
ScrCmd_046 8, 0xFF, 0
ScrCmd_046 9, 0xFF, 1
ScrCmd_046 10, 0xFF, 2
ScrCmd_046 11, 0xFF, 3
ScrCmd_046 12, 0xFF, 4
ScrCmd_046 13, 0xFF, 5
ScrCmd_046 14, 0xFF, 6
ScrCmd_046 15, 0xFF, 7
ScrCmd_046 16, 0xFF, 8
ScrCmd_046 5, 0xFF, 9
ScrCmd_306 0x8004, 0x8005
Return
_031D:
CloseMessage
GoTo _0327
End
_0327:
ReleaseAll
End
_032B:
FadeScreen 6, 1, 0, 0
WaitFadeScreen
CloseMessage
Call _0341
Return
_0341:
ScrCmd_2C8 0x8001, 0x8000, 0x8003
ScrCmd_0A1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
Return
.byte 0
.byte 0
.byte 0