mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
9878f01e29
While doing so I replaced the StopAllMusic macro with a SFX_STOP_ALL_MUSIC constant and applied it throughout the code.
93 lines
1.5 KiB
NASM
Executable file
93 lines
1.5 KiB
NASM
Executable file
SSAnneCaptainsRoom_Script:
|
|
call SSAnne7Script_6189b
|
|
jp EnableAutoTextBoxDrawing
|
|
|
|
SSAnne7Script_6189b:
|
|
CheckEvent EVENT_RUBBED_CAPTAINS_BACK
|
|
ret nz
|
|
ld hl, wd72d
|
|
set 5, [hl]
|
|
ret
|
|
|
|
SSAnneCaptainsRoom_TextPointers:
|
|
dw SSAnne7Text1
|
|
dw SSAnne7Text2
|
|
dw SSAnne7Text3
|
|
|
|
SSAnne7Text1:
|
|
TX_ASM
|
|
CheckEvent EVENT_GOT_HM01
|
|
jr nz, .asm_797c4
|
|
ld hl, SSAnne7RubText
|
|
call PrintText
|
|
ld hl, ReceivingHM01Text
|
|
call PrintText
|
|
lb bc, HM_01, 1
|
|
call GiveItem
|
|
jr nc, .BagFull
|
|
ld hl, ReceivedHM01Text
|
|
call PrintText
|
|
SetEvent EVENT_GOT_HM01
|
|
jr .asm_0faf5
|
|
.BagFull
|
|
ld hl, HM01NoRoomText
|
|
call PrintText
|
|
ld hl, wd72d
|
|
set 5, [hl]
|
|
jr .asm_0faf5
|
|
.asm_797c4
|
|
ld hl, SSAnne7Text_61932
|
|
call PrintText
|
|
.asm_0faf5
|
|
jp TextScriptEnd
|
|
|
|
SSAnne7RubText:
|
|
TX_FAR _SSAnne7RubText
|
|
TX_ASM
|
|
ld a, [wAudioROMBank]
|
|
cp BANK(Audio3_UpdateMusic)
|
|
ld [wAudioSavedROMBank], a
|
|
jr nz, .asm_61908
|
|
ld a, SFX_STOP_ALL_MUSIC
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
ld a, Bank(Music_PkmnHealed)
|
|
ld [wAudioROMBank], a
|
|
.asm_61908
|
|
ld a, MUSIC_PKMN_HEALED
|
|
ld [wNewSoundID], a
|
|
call PlaySound
|
|
.asm_61910
|
|
ld a, [wChannelSoundIDs]
|
|
cp MUSIC_PKMN_HEALED
|
|
jr z, .asm_61910
|
|
call PlayDefaultMusic
|
|
SetEvent EVENT_RUBBED_CAPTAINS_BACK
|
|
ld hl, wd72d
|
|
res 5, [hl]
|
|
jp TextScriptEnd
|
|
|
|
ReceivingHM01Text:
|
|
TX_FAR _ReceivingHM01Text
|
|
db "@"
|
|
|
|
ReceivedHM01Text:
|
|
TX_FAR _ReceivedHM01Text
|
|
TX_SFX_KEY_ITEM
|
|
db "@"
|
|
|
|
SSAnne7Text_61932:
|
|
TX_FAR _SSAnne7Text_61932
|
|
db "@"
|
|
|
|
HM01NoRoomText:
|
|
TX_FAR _HM01NoRoomText
|
|
db "@"
|
|
|
|
SSAnne7Text2:
|
|
TX_FAR _SSAnne7Text2
|
|
db "@"
|
|
|
|
SSAnne7Text3:
|
|
TX_FAR _SSAnne7Text3
|
|
db "@"
|