2015-11-12 04:38:57 +00:00
|
|
|
|
2018-06-24 14:09:41 +00:00
|
|
|
_SacredAsh:
|
2015-11-12 04:38:57 +00:00
|
|
|
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
|
|
|
|
|
|
2018-06-24 14:09:41 +00:00
|
|
|
CheckAnyFaintedMon:
|
2015-11-12 04:38:57 +00:00
|
|
|
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
|
|
|
|
|
|
2018-06-25 00:10:37 +00:00
|
|
|
SacredAshScript:
|
2015-11-12 04:38:57 +00:00
|
|
|
special HealParty
|
|
|
|
|
reloadmappart
|
|
|
|
|
playsound SFX_WARP_TO
|
2018-01-24 16:17:05 +00:00
|
|
|
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
|
|
|
|
|
|
2018-06-25 00:10:37 +00:00
|
|
|
UnknownText_0x50845:
|
2015-11-12 04:38:57 +00:00
|
|
|
; 's #MON were all healed!
|
|
|
|
|
text_jump UnknownText_0x1c0b65
|
|
|
|
|
db "@"
|
