pokeplatinum/res/field/scripts/scripts_route_212_house.s
2024-08-18 08:50:20 -04:00

183 lines
3.1 KiB
ArmAsm

#include "macros/scrcmd.inc"
.data
ScriptEntry _0016
ScriptEntry _001C
ScriptEntry _002F
ScriptEntry _0042
ScriptEntry _0053
.short 0xFD13
_0016:
SetFlag 0x9EC
End
_001C:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 17
WaitABXPadPress
CloseMessage
ReleaseAll
End
_002F:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 18
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0042:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 19
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0053:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 0
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _007E
GoToIfEq 0x800C, 1, _0264
End
_007E:
Message 2
CloseMessage
FadeScreen 6, 1, 0, 0
WaitFadeScreen
ScrCmd_191
ScrCmd_193 0x8000
ScrCmd_0A1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
GoToIfEq 0x8000, 0xFF, _0264
ScrCmd_198 0x8000, 0x8001
GoToIfEq 0x8001, 0, _0259
ScrCmd_2E5 0x8000, 0, 0x800C
GoToIfEq 0x800C, 0, _026F
BufferPartyMonNickname 0, 0x8000
Message 5
ScrCmd_2E6 0x8000, 0, 0x800C
SetVar 0x8003, 0x800C
GoToIfEq 0x8003, -2, _0264
ScrCmd_2EA 0x8003, 0x800C
GoToIfEq 0x800C, 0, _027A
ScrCmd_1C8 0x800C, 0x8000
SetVar 0x8002, 0x800C
GoToIfEq 0x800C, 4, _012F
GoTo _0224
End
_012F:
BufferPartyMonNickname 0, 0x8000
BufferMoveName 1, 0x8003
Message 9
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 1, _01E9
FadeScreen 6, 1, 0, 0
WaitFadeScreen
CloseMessage
ScrCmd_2E7 0x8000, 0x8003
ScrCmd_2E8 0x8002
ScrCmd_0A1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
GoToIfEq 0x8002, 4, _01E9
ScrCmd_1CA 0x800C, 0x8000, 0x8002
BufferMoveName 1, 0x800C
Message 12
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 1, _01E9
BufferPartyMonNickname 0, 0x8000
ScrCmd_1CA 0x800C, 0x8000, 0x8002
BufferMoveName 1, 0x800C
Message 13
PlayFanfare SEQ_SE_DP_KON
WaitFanfare SEQ_SE_DP_KON
WaitTime 30, 0x800C
Message 14
WaitTime 32, 0x800C
PlaySound SEQ_FANFA1
BufferMoveName 1, 0x8003
Message 15
WaitSound
WaitTime 16, 0x800C
GoTo _0245
End
_01E9:
BufferPartyMonNickname 0, 0x8000
BufferMoveName 1, 0x8003
Message 10
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _020F
GoTo _012F
End
_020F:
BufferPartyMonNickname 0, 0x8000
BufferMoveName 1, 0x8003
Message 11
GoTo _0264
End
_0224:
BufferPartyMonNickname 0, 0x8000
BufferMoveName 1, 0x8003
Message 8
PlaySound SEQ_FANFA1
WaitSound
WaitTime 16, 0x800C
GoTo _0245
End
_0245:
ScrCmd_2EB 0x8003
ScrCmd_2E9 0x8000, 0x8002, 0x8003
GoTo _0264
End
_0259:
Message 16
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0264:
Message 1
WaitABXPadPress
CloseMessage
ReleaseAll
End
_026F:
Message 3
WaitABXPadPress
CloseMessage
ReleaseAll
End
_027A:
Message 4
WaitABXPadPress
CloseMessage
ReleaseAll
End
.byte 0
.byte 0
.byte 0