pokeplatinum/res/field/scripts/scripts_unk_0407.s

89 lines
1.4 KiB
ArmAsm

#include "macros/scrcmd.inc"
#include "res/text/bank/mystery_gift_deliveryman.h"
.data
ScriptEntry _000A
ScriptEntry _0035
ScriptEntryEnd
_000A:
LoadMysteryGift
CheckAvailableMysteryGift 0x40ED
GoToIfEq 0x40ED, 0, _002B
ClearFlag FLAG_UNK_0x020A
UnloadMysteryGift
End
_002B:
SetFlag FLAG_UNK_0x020A
UnloadMysteryGift
End
_0035:
LoadMysteryGift
PlayFanfare SEQ_SE_CONFIRM
LockAll
FacePlayer
CheckAvailableMysteryGift 0x800C
GoToIfEq 0x800C, 0, _00EE
GetTimeOfDay 0x800C
SetVar 0x8008, 0x800C
GoToIfEq 0x8008, 0, _007E
GoToIfEq 0x8008, 1, _008A
GoTo _0096
_007E:
BufferPlayerName 0
Message 0
GoTo _00A2
_008A:
BufferPlayerName 0
Message 1
GoTo _00A2
_0096:
BufferPlayerName 0
Message 2
GoTo _00A2
_00A2:
CheckCanReceiveMysteryGift 0x800C
GoToIfEq 0x800C, 0, _00D8
PlaySound SEQ_FANFA4
PrepareMysteryGiftReceivedMsg 0x8005, 0x8006
ScrCmd_1FB 0x8005, 0x8006
WaitSound
Message 18
WaitABXPadPress
GiveMysteryGift
GoTo _0103
_00D8:
PrepareMysterGiftCantReceiveMsg 0x8005, 0x8006
ScrCmd_1FB 0x8005, 0x8006
WaitABXPadPress
GoTo _00F9
_00EE:
Message 3
WaitABXPadPress
GoTo _00F9
_00F9:
CloseMessage
ReleaseAll
UnloadMysteryGift
End
_0103:
CloseMessage
ReleaseAll
UnloadMysteryGift2
End
.byte 0
.byte 0
.byte 0