pokeplatinum/res/field/scripts/scripts_pokemon_mansion_office.s
TheSylphIsIn ac987dd9c1 Document ScrCmds 065, 0B4, 0B5, 0A1, 0DE, 096, 097
I did these commands together because they're all used in the script for choosing your starter.
2025-02-08 14:58:43 -05:00

338 lines
5.0 KiB
ArmAsm

#include "macros/scrcmd.inc"
#include "res/text/bank/pokemon_mansion_office.h"
.data
ScriptEntry _001E
ScriptEntry _0067
ScriptEntry _0224
ScriptEntry _0325
ScriptEntry _0354
ScriptEntry _0388
ScriptEntry _0399
.short 0xFD13
_001E:
ScrCmd_268 0x4000
GoToIfEq 0x4000, 0, _004F
GoToIfEq 0x4000, 1, _004F
GoToIfLe 0x4000, 5, _005B
GoTo _004F
_004F:
ClearFlag 0x28B
SetVar 0x4116, 0
End
_005B:
SetFlag 0x28B
SetVar 0x4116, 1
End
_0067:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
GoToIfSet 0xAA2, _0155
GoToIfEq 0x400B, 1, _0155
ScrCmd_22D 2, 0x800C
GoToIfEq 0x800C, 1, _00AA
GoTo _009F
_009F:
Message 0
WaitABXPadPress
CloseMessage
ReleaseAll
End
_00AA:
Message 3
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _00D8
GoToIfEq 0x800C, 1, _00CD
End
_00CD:
Message 4
WaitABXPadPress
CloseMessage
ReleaseAll
End
_00D8:
Message 5
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _00FB
GoToIfEq 0x800C, 1, _00CD
End
_00FB:
AddTrophyGardenMon
GetTrophyGardenSlot1Species 0x8000
BufferSpeciesNameFromVar 0, 0x8000, 0, 0
Message 6
GetPlayerMapPos 0x8001, 0x8002
ApplyMovement 2, _01D4
WaitMovement
Message 7
ApplyMovement 1, _01E4
WaitMovement
Message 8
Message 9
CloseMessage
ApplyMovement 2, _01F0
WaitMovement
RemoveObject 2
SetVar 0x400B, 1
Call _016C
SetFlag 0xAA2
GoTo _0155
_0155:
GetTrophyGardenSlot1Species 0x8000
BufferSpeciesNameFromVar 0, 0x8000, 0, 0
Message 10
WaitABXPadPress
CloseMessage
ReleaseAll
End
_016C:
GoToIfEq 0x8001, 4, _0199
GoToIfEq 0x8001, 6, _01A5
GoToIfEq 0x8002, 6, _01B1
GoTo _01BD
_0199:
ApplyMovement 1, _0204
WaitMovement
Return
_01A5:
ApplyMovement 1, _020C
WaitMovement
Return
_01B1:
ApplyMovement 1, _0214
WaitMovement
Return
_01BD:
ApplyMovement 1, _021C
WaitMovement
Return
.balign 4, 0
_01CC:
MoveAction_001
EndMovement
.balign 4, 0
_01D4:
MoveAction_075
MoveAction_065
MoveAction_003
EndMovement
.balign 4, 0
_01E4:
MoveAction_075
MoveAction_034
EndMovement
.balign 4, 0
_01F0:
MoveAction_013 2
MoveAction_015
MoveAction_001
MoveAction_069
EndMovement
.balign 4, 0
_0204:
MoveAction_034
EndMovement
.balign 4, 0
_020C:
MoveAction_035
EndMovement
.balign 4, 0
_0214:
MoveAction_032
EndMovement
.balign 4, 0
_021C:
MoveAction_033
EndMovement
_0224:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
ScrCmd_22D 2, 0x800C
GoToIfEq 0x800C, 1, _0244
GoTo _0270
_0244:
GoToIfSet 0x164, _0270
GoTo _0257
End
_0257:
Message 15
SetFlag 0x164
WaitABXPadPress
CloseMessage
ApplyMovement 2, _01CC
WaitMovement
ReleaseAll
End
_0270:
GoToIfSet 0xAA2, _0304
CheckGameCompleted 0x800C
GoToIfEq 0x800C, 1, _02C8
ScrCmd_1B7 0x800C, 2
CallIfEq 0x800C, 0, _02BE
CallIfEq 0x800C, 1, _02C3
WaitABXPadPress
CloseMessage
ApplyMovement 2, _01CC
WaitMovement
ReleaseAll
End
_02BE:
Message 11
Return
_02C3:
Message 12
Return
_02C8:
ScrCmd_1B7 0x800C, 2
CallIfEq 0x800C, 0, _02FA
CallIfEq 0x800C, 1, _02FF
WaitABXPadPress
CloseMessage
ApplyMovement 2, _01CC
WaitMovement
ReleaseAll
End
_02FA:
Message 11
Return
_02FF:
Message 13
Return
_0304:
GetTrophyGardenSlot1Species 0x8000
BufferSpeciesNameFromVar 0, 0x8000, 0, 0
Message 14
WaitABXPadPress
CloseMessage
ApplyMovement 2, _01CC
WaitMovement
ReleaseAll
End
_0325:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 16
WaitABXPadPress
CloseMessage
ApplyMovement 3, _0344
WaitMovement
ReleaseAll
End
.balign 4, 0
_0344:
MoveAction_001
EndMovement
.balign 4, 0
_034C:
MoveAction_002
EndMovement
_0354:
LockAll
ApplyMovement 3, _034C
WaitMovement
Message 17
CloseMessage
ApplyMovement 0xFF, _037C
ApplyMovement 3, _0344
WaitMovement
ReleaseAll
End
.balign 4, 0
_037C:
MoveAction_013
MoveAction_000
EndMovement
_0388:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 18
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0399:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 19
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 0, _03C2
GoToIfEq 0x800C, 1, _0408
End
_03C2:
Message 20
GoToIfSet 251, _0408
HasSeenSpecies SPECIES_MANAPHY, 0x800C
GoToIfEq 0x800C, 1, _03FC
ScrCmd_208 SPECIES_MANAPHY, 0
WaitABPress
ScrCmd_209
SetFlag 251
Message 21
GoTo _0416
End
_03FC:
SetFlag 251
GoTo _0408
End
_0408:
BufferPlayerName 0
Message 22
GoTo _0416
End
_0416:
WaitABXPadPress
CloseMessage
ReleaseAll
End
.byte 0
.byte 0