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

638 lines
9.5 KiB
ArmAsm

#include "macros/scrcmd.inc"
.data
ScriptEntry _0065
ScriptEntry _06B8
ScriptEntry _06F1
ScriptEntry _0700
ScriptEntry _0774
ScriptEntry _0081
ScriptEntry _079C
ScriptEntry _07AF
ScriptEntry _07C2
ScriptEntry _07D5
ScriptEntry _07E8
ScriptEntry _07FB
ScriptEntry _080E
ScriptEntry _0821
ScriptEntry _0046
ScriptEntry _0834
ScriptEntry _0845
.short 0xFD13
_0046:
ScrCmd_238 19, 0x4000
GoToIfEq 0x4000, 0, _005F
ClearFlag 0x2C3
End
_005F:
SetFlag 0x2C3
End
_0065:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
SetVar 0x4003, 0
SetVar 0x4004, 0
GoTo _009D
End
_0081:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
SetVar 0x4003, 0
SetVar 0x4004, 1
GoTo _009D
End
_009D:
ScrCmd_313 0
CallIfEq 0x4004, 0, _0678
CallIfEq 0x4004, 1, _067D
GoTo _00C3
End
_00C3:
CallIfEq 0x4004, 0, _0682
CallIfEq 0x4004, 1, _069A
ScrCmd_042 41, 2
ScrCmd_042 42, 3
ScrCmd_043
GoToIfEq 0x800C, 0, _015E
GoToIfEq 0x800C, 1, _018B
GoToIfEq 0x800C, 2, _0123
GoToIfEq 0x800C, 4, _01B8
GoTo _0145
End
_0123:
CallIfEq 0x4004, 0, _06AE
CallIfEq 0x4004, 1, _06B3
GoTo _00C3
End
_0145:
GoTo _014D
End
_014D:
SetVar 0x40BF, 0
Message 6
WaitABXPadPress
CloseMessage
ReleaseAll
End
_015E:
SetVar 0x40BE, 0
ScrCmd_2D9 0, 3, 0x800C
BufferNumber 0, 3
BufferNumber 1, 3
GoToIfEq 0x800C, 0, _01E5
GoTo _020B
End
_018B:
SetVar 0x40BE, 1
ScrCmd_2D9 0, 3, 0x800C
BufferNumber 0, 3
BufferNumber 1, 3
GoToIfEq 0x800C, 0, _01E5
GoTo _020B
End
_01B8:
SetVar 0x40BE, 2
ScrCmd_2D9 0, 2, 0x800C
BufferNumber 0, 2
BufferNumber 1, 2
GoToIfEq 0x800C, 0, _01F8
GoTo _020B
End
_01E5:
Message 8
ScrCmd_1FF 9, 3, 0, 0
GoTo _0145
End
_01F8:
Message 8
ScrCmd_1FF 9, 2, 0, 0
GoTo _0145
End
_020B:
Message 7
CloseMessage
FadeScreen 6, 1, 0, 0
WaitFadeScreen
ScrCmd_2D9 4, 0x40BE, 0x800C
ScrCmd_2DB 0x4002, 0x4005, 0x4006
ScrCmd_0A1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
GoToIfEq 0x4002, 0xFF, _0145
ScrCmd_31E 0x4002, 0x800C
GoToIfEq 0x800C, 0xFF, _05E1
ScrCmd_31E 0x4005, 0x800C
GoToIfEq 0x800C, 0xFF, _05E1
ScrCmd_31E 0x4006, 0x800C
GoToIfEq 0x800C, 0xFF, _05E1
ScrCmd_198 0x4002, 0x4001
GoToIfEq 0x4001, 0, _0145
GoTo _029B
End
_029B:
GoTo _02A3
End
_02A3:
CallIfEq 0x40BE, 0, _0448
CallIfEq 0x40BE, 1, _0448
SetVar 0x4000, 0
HealParty
CallCommonScript 0x7D6
SetVar 0x800C, 0x4000
GoToIfEq 0x800C, 0, _0145
GoToIfEq 0x40BE, 2, _02F1
GoTo _04A9
End
_02F1:
Message 43
ScrCmd_040 30, 1, 0, 1, 0x800C
ScrCmd_33A 1
ScrCmd_042 13, 0
ScrCmd_042 14, 1
ScrCmd_042 5, 2
ScrCmd_043
SetVar 0x8008, 0x800C
GoToIfEq 0x8008, 0, _0335
GoToIfEq 0x8008, 1, _0389
GoTo _0145
End
_0335:
Message 44
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 1, _02F1
CloseMessage
ScrCmd_0F2 32, 0, 0, 0x800C
GoToIfEq 0x800C, 1, _0377
GoToIfEq 0x800C, 3, _037F
GoTo _03DD
End
_0377:
GoTo _02F1
End
_037F:
ScrCmd_150
GoTo _02F1
End
_0389:
Message 44
ScrCmd_03E 0x800C
GoToIfEq 0x800C, 1, _02F1
CloseMessage
ScrCmd_0F3 32, 0, 0, 0x800C
GoToIfEq 0x800C, 1, _03CB
GoToIfEq 0x800C, 3, _03D3
GoTo _03DD
End
_03CB:
GoTo _02F1
End
_03D3:
ScrCmd_150
GoTo _02F1
End
_03DD:
ScrCmd_136
ScrCmd_135 154
ScrCmd_198 0x4002, 0x8000
ScrCmd_198 0x4005, 0x8001
ScrCmd_2DA 0x8000, 0x8001, 0x800C
SetVar 0x8008, 0x800C
GoToIfEq 0x8008, 1, _0450
GoToIfEq 0x8008, 2, _0466
GoToIfEq 0x8008, 3, _047C
ScrCmd_136
ScrCmd_135 156
Message 45
CallIfEq 0x40BE, 2, _0448
Call _06DF
GoTo _04A9
End
_0448:
SetVar 0x40BF, 0xFF
Return
_0450:
Call _049F
BufferPartyMonSpecies 0, 0x4002
Message 29
GoTo _0497
End
_0466:
Call _049F
BufferPartyMonSpecies 0, 0x4005
Message 29
GoTo _0497
End
_047C:
Call _049F
BufferPartyMonSpecies 0, 0x4002
BufferPartyMonSpecies 1, 0x4005
Message 30
GoTo _0497
End
_0497:
GoTo _0145
End
_049F:
ScrCmd_136
ScrCmd_135 157
ScrCmd_150
Return
_04A9:
CallIfEq 0x40BE, 0, _0549
CallIfEq 0x40BE, 1, _0564
CallIfEq 0x40BE, 2, _057F
PlayFanfare SEQ_SE_DP_KAIDAN2
GoTo _04DC
End
_04DC:
FadeScreen 6, 1, 0, 0
WaitFadeScreen
CallIfEq 0x40BE, 0, _05A5
CallIfEq 0x40BE, 1, _05B9
CallIfEq 0x40BE, 2, _05CD
IncrementGameRecord RECORD_UNK_058
ScrCmd_1CD 40, 0, 0, 0, 0
ScrCmd_1F8
ScrCmd_2C4 15
CallIfEq 0x40BE, 2, _0545
ScrCmd_0A1
FadeScreen 6, 1, 1, 0
WaitFadeScreen
ScrCmd_313 1
End
_0545:
ScrCmd_150
Return
_0549:
Message 32
WaitABPress
CloseMessage
ApplyMovement 0xFF, _05F0
ApplyMovement 0x800D, _0610
WaitMovement
Return
_0564:
Message 32
WaitABPress
CloseMessage
ApplyMovement 0xFF, _05F0
ApplyMovement 0x800D, _0610
WaitMovement
Return
_057F:
ScrCmd_02E 32
WaitTime 10, 0x800C
ScrCmd_136
ScrCmd_135 155
CloseMessage
ApplyMovement 0xFF, _0604
ApplyMovement 0x800D, _0624
WaitMovement
Return
_05A5:
ApplyMovement 0xFF, _0630
ApplyMovement 0x800D, _0658
WaitMovement
Return
_05B9:
ApplyMovement 0xFF, _0630
ApplyMovement 0x800D, _0658
WaitMovement
Return
_05CD:
ApplyMovement 0xFF, _0648
ApplyMovement 0x800D, _066C
WaitMovement
Return
_05E1:
SetVar 0x40BF, 0
CallCommonScript 0x809
End
.balign 4, 0
_05F0:
MoveAction_00C 2
MoveAction_00F
MoveAction_00C 2
MoveAction_045
EndMovement
.balign 4, 0
_0604:
MoveAction_00C 4
MoveAction_045
EndMovement
.balign 4, 0
_0610:
MoveAction_00C
MoveAction_00F
MoveAction_00C 2
MoveAction_045
EndMovement
.balign 4, 0
_0624:
MoveAction_00C 3
MoveAction_045
EndMovement
.balign 4, 0
_0630:
MoveAction_015 2
MoveAction_016
MoveAction_015 2
MoveAction_000
MoveAction_046
EndMovement
.balign 4, 0
_0648:
MoveAction_015 4
MoveAction_000
MoveAction_046
EndMovement
.balign 4, 0
_0658:
MoveAction_015
MoveAction_016
MoveAction_015 2
MoveAction_046
EndMovement
.balign 4, 0
_066C:
MoveAction_015 3
MoveAction_046
EndMovement
_0678:
Message 0
Return
_067D:
Message 3
Return
_0682:
ScrCmd_041 31, 9, 0, 1, 0x800C
ScrCmd_33A 1
ScrCmd_042 38, 0
ScrCmd_042 39, 1
Message 1
Return
_069A:
ScrCmd_041 31, 11, 0, 1, 0x800C
ScrCmd_33A 1
ScrCmd_042 40, 4
Message 4
Return
_06AE:
Message 2
Return
_06B3:
Message 5
Return
_06B8:
ScrCmd_313 0
SetVar 0x4003, 1
SetVar 0x40BF, 0
Message 33
Call _0448
Call _06DF
GoTo _04A9
End
_06DF:
ScrCmd_18D
ScrCmd_12D 0x800C
ScrCmd_18E
PlayFanfare SEQ_SE_DP_SAVE
WaitFanfare SEQ_SE_DP_SAVE
Return
_06F1:
Message 34
ScrCmd_2DC 0x40BE
GoTo _0145
End
_0700:
CallIfEq 0x40BE, 0, _073C
CallIfEq 0x40BE, 1, _073C
CallIfEq 0x4053, 1, _0742
CallIfEq 0x4053, 3, _0759
GoTo _0145
End
_073C:
ScrCmd_30A 41
Return
_0742:
Message 35
BufferPlayerName 0
Message 37
PlaySound SEQ_FANFA4
WaitSound
SetVar 0x4053, 2
Return
_0759:
Message 35
BufferPlayerName 0
Message 36
PlaySound SEQ_FANFA4
WaitSound
SetVar 0x4053, 4
CallCommonScript 0x806
Return
_0774:
GoTo _0145
.byte 2
.byte 0
.byte 12
.byte 0
.byte 2
.byte 0
.byte 63
.byte 0
.byte 1
.byte 0
.byte 12
.byte 0
.byte 1
.byte 0
.byte 254
.byte 0
.byte 0
.byte 0
.byte 12
.byte 0
.byte 2
.byte 0
.byte 63
.byte 0
.byte 1
.byte 0
.byte 12
.byte 0
.byte 1
.byte 0
.byte 254
.byte 0
.byte 0
.byte 0
_079C:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 46
WaitABXPadPress
CloseMessage
ReleaseAll
End
_07AF:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 47
WaitABXPadPress
CloseMessage
ReleaseAll
End
_07C2:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 48
WaitABXPadPress
CloseMessage
ReleaseAll
End
_07D5:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 49
WaitABXPadPress
CloseMessage
ReleaseAll
End
_07E8:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 50
WaitABXPadPress
CloseMessage
ReleaseAll
End
_07FB:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 51
WaitABXPadPress
CloseMessage
ReleaseAll
End
_080E:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 52
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0821:
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
Message 53
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0834:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 54
WaitABXPadPress
CloseMessage
ReleaseAll
End
_0845:
PlayFanfare SEQ_SE_CONFIRM
LockAll
Message 55
WaitABXPadPress
CloseMessage
ReleaseAll
End
.byte 0
.byte 0