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
	reloadmappart
	playsound SFX_WARP_TO
	special FadeOutPalettes
	special FadeInPalettes
	special FadeOutPalettes
	special FadeInPalettes
	special FadeOutPalettes
	special FadeInPalettes
	waitsfx
	writetext UnknownText_0x50845
	playsound SFX_CAUGHT_MON
	waitsfx
	waitbutton
	closetext
	end

UnknownText_0x50845:
	; 's #MON were all healed!
	text_far UnknownText_0x1c0b65
	db "@"
More splits; map setup labels 2015-11-12 04:38:57 +00:00
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`
			`reloadmappart`
			`playsound SFX_WARP_TO`
Remove Special_ prefix from special routines (close #478) 2018-01-24 16:17:05 +00:00			`special FadeOutPalettes`
			`special FadeInPalettes`
			`special FadeOutPalettes`
			`special FadeInPalettes`
			`special FadeOutPalettes`
			`special FadeInPalettes`
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			`writetext UnknownText_0x50845`
			`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`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`UnknownText_0x50845:`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`; 's #MON were all healed!`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c0b65`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`db "@"`