pokecrystal/engine/events/sacred_ash.asm

75 lines
994 B
NASM
Raw Normal View History

2015-11-12 04:38:57 +00:00
_SacredAsh: ; 507e6
ld a, $0
2015-12-17 22:51:32 +00:00
ld [wItemEffectSucceeded], a
2015-11-12 04:38:57 +00:00
call CheckAnyFaintedMon
ret nc
ld hl, SacredAshScript
call QueueScript
ld a, $1
2015-12-17 22:51:32 +00:00
ld [wItemEffectSucceeded], a
2015-11-12 04:38:57 +00:00
ret
; 507fb
CheckAnyFaintedMon: ; 507fb
ld de, PARTYMON_STRUCT_LENGTH
2018-01-23 22:39:09 +00:00
ld bc, wPartySpecies
ld hl, wPartyMon1HP
ld a, [wPartyCount]
2015-11-12 04:38:57 +00:00
and a
ret z
.loop
push af
push hl
ld a, [bc]
inc bc
cp EGG
jr z, .next
ld a, [hli]
or [hl]
jr z, .done
.next
pop hl
add hl, de
pop af
dec a
jr nz, .loop
xor a
ret
.done
pop hl
pop af
scf
ret
; 50821
SacredAshScript: ; 0x50821
special HealParty
reloadmappart
playsound SFX_WARP_TO
special FadeOutPalettes
special FadeInPalettes
special FadeOutPalettes
special FadeInPalettes
special FadeOutPalettes
special FadeInPalettes
2015-11-25 15:16:29 +00:00
waitsfx
2015-11-12 04:38:57 +00:00
writetext UnknownText_0x50845
playsound SFX_CAUGHT_MON
2015-11-25 15:16:29 +00:00
waitsfx
2015-11-12 04:38:57 +00:00
waitbutton
closetext
end
; 0x50845
UnknownText_0x50845: ; 0x50845
; 's #MON were all healed!
text_jump UnknownText_0x1c0b65
db "@"
; 0x5084a