pokecrystal/engine/events/sacred_ash.asm

_SacredAsh:
	ld a, $0
	ld [wItemEffectSucceeded], a
	call CheckAnyFaintedMon
	ret nc

	ld hl, SacredAshScript
	call QueueScript
	ld a, $1
	ld [wItemEffectSucceeded], a
	ret

CheckAnyFaintedMon:
	ld de, PARTYMON_STRUCT_LENGTH
	ld bc, wPartySpecies
	ld hl, wPartyMon1HP
	ld a, [wPartyCount]
	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

SacredAshScript:
	special HealParty
	refreshmap
	playsound SFX_WARP_TO
	special FadeOutToWhite
	special FadeInFromWhite
	special FadeOutToWhite
	special FadeInFromWhite
	special FadeOutToWhite
	special FadeInFromWhite
	waitsfx
	writetext .UseSacredAshText
	playsound SFX_CAUGHT_MON
	waitsfx
	waitbutton
	closetext
	end

.UseSacredAshText:
	text_far _UseSacredAshText
	text_end
Remove all address comments 2018-06-24 14:09:41 +00:00			`_SacredAsh:`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, $0`
Elevator 2015-12-17 22:51:32 +00:00			`ld [wItemEffectSucceeded], a`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call CheckAnyFaintedMon`
			`ret nc`

			`ld hl, SacredAshScript`
			`call QueueScript`
			`ld a, $1`
Elevator 2015-12-17 22:51:32 +00:00			`ld [wItemEffectSucceeded], a`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`CheckAnyFaintedMon:`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld de, PARTYMON_STRUCT_LENGTH`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld bc, wPartySpecies`
			`ld hl, wPartyMon1HP`
			`ld a, [wPartyCount]`
More splits; map setup labels 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`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`SacredAshScript:`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`special HealParty`
more accurate script names: refreshscreen -> reanchormap, and reloadmappart -> refreshmap (#1078) 2024-01-07 13:37:46 +00:00			`refreshmap`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`playsound SFX_WARP_TO`
Improve some innacurate function names, labels, and comments (#1078) [https://github.com/pret/pokecrystal/issues/1078#issue-1869550979 and https://github.com/pret/pokecrystal/issues/1078#issuecomment-1696394371] 2024-01-07 11:38:00 +00:00			`special FadeOutToWhite`
			`special FadeInFromWhite`
			`special FadeOutToWhite`
			`special FadeInFromWhite`
			`special FadeOutToWhite`
			`special FadeInFromWhite`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitsfx`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`writetext .UseSacredAshText`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`playsound SFX_CAUGHT_MON`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitsfx`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`waitbutton`
			`closetext`
			`end`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.UseSacredAshText:`
			`text_far _UseSacredAshText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`