pokeplatinum/res/field/scripts/scripts_route_221_house.s
2024-08-18 09:37:54 -04:00

106 lines
1.7 KiB
ArmAsm

#include "macros/scrcmd.inc"
.data
ScriptEntry _000A
ScriptEntry _017A
.short 0xFD13
_000A:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
GoToIfSet 0x137, _0114
GoToIfSet 0xAAE, _016F
ScrCmd_277 0x8000
BufferNumber 0, 0x8000
GetPartyCount 0x8002
SetVar 0x8003, 0
_003B:
ScrCmd_278 0x8001, 0x8003
GoToIfEq 0x8000, 0x8001, _006D
AddVar 0x8003, 1
SubVar 0x8002, 1
GoToIfNe 0x8002, 0, _003B
GoTo _0164
_006D:
CallIfEq 0x4108, 0, _00ED
CallIfEq 0x4108, 1, _00F5
CallIfEq 0x4108, 2, _00FD
BufferPartyMonSpecies 1, 0x8003
BufferItemName 2, 0x8004
Message 1
SetVar 0x8005, 1
ScrCmd_07D 0x8004, 0x8005, 0x800C
GoToIfEq 0x800C, 0, _0105
GoTo _00C2
_00C2:
CallCommonScript 0x7E0
ClearFlag 0x137
SetFlag 0xAAE
AddVar 0x4108, 1
GoToIfLt 0x4108, 3, _00E7
SetVar 0x4108, 0
_00E7:
CloseMessage
ReleaseAll
End
_00ED:
SetVar 0x8004, 241
Return
_00F5:
SetVar 0x8004, 0x10C
Return
_00FD:
SetVar 0x8004, 0x113
Return
_0105:
SetFlag 0x137
Message 2
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0114:
CallIfEq 0x4108, 0, _00ED
CallIfEq 0x4108, 1, _00F5
CallIfEq 0x4108, 2, _00FD
BufferItemName 2, 0x8004
Message 3
SetVar 0x8005, 1
ScrCmd_07D 0x8004, 0x8005, 0x800C
GoToIfEq 0x800C, 0, _0105
GoTo _00C2
_0164:
Message 0
WaitABXPadPress
CloseMessage
ReleaseAll
End
_016F:
Message 4
WaitABXPadPress
CloseMessage
ReleaseAll
End
_017A:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 5
WaitABXPadPress
CloseMessage
ReleaseAll
End
.byte 0