pokered/engine/battle/moveEffects/heal_effect.asm

HealEffect_:
	ld a, [H_WHOSETURN]
	and a
	ld de, wBattleMonHP
	ld hl, wBattleMonMaxHP
	ld a, [wPlayerMoveNum]
	jr z, .healEffect
	ld de, wEnemyMonHP
	ld hl, wEnemyMonMaxHP
	ld a, [wEnemyMoveNum]
.healEffect
	ld b, a
	ld a, [de]
	cp [hl] ; most significant bytes comparison is ignored
	        ; causes the move to miss if max HP is 255 or 511 points higher than the current HP
	inc de
	inc hl
	ld a, [de]
	sbc [hl]
	jp z, .failed ; no effect if user's HP is already at its maximum
	ld a, b
	cp REST
	jr nz, .healHP
	push hl
	push de
	push af
	ld c, 50
	call DelayFrames
	ld hl, wBattleMonStatus
	ld a, [H_WHOSETURN]
	and a
	jr z, .restEffect
	ld hl, wEnemyMonStatus
.restEffect
	ld a, [hl]
	and a
	ld [hl], 2 ; clear status and set number of turns asleep to 2
	ld hl, StartedSleepingEffect ; if mon didn't have an status
	jr z, .printRestText
	ld hl, FellAsleepBecameHealthyText ; if mon had an status
.printRestText
	call PrintText
	pop af
	pop de
	pop hl
.healHP
	ld a, [hld]
	ld [wHPBarMaxHP], a
	ld c, a
	ld a, [hl]
	ld [wHPBarMaxHP+1], a
	ld b, a
	jr z, .gotHPAmountToHeal
; Recover and Softboiled only heal for half the mon's max HP
	srl b
	rr c
.gotHPAmountToHeal
; update HP
	ld a, [de]
	ld [wHPBarOldHP], a
	add c
	ld [de], a
	ld [wHPBarNewHP], a
	dec de
	ld a, [de]
	ld [wHPBarOldHP+1], a
	adc b
	ld [de], a
	ld [wHPBarNewHP+1], a
	inc hl
	inc de
	ld a, [de]
	dec de
	sub [hl]
	dec hl
	ld a, [de]
	sbc [hl]
	jr c, .playAnim
; copy max HP to current HP if an overflow ocurred
	ld a, [hli]
	ld [de], a
	ld [wHPBarNewHP+1], a
	inc de
	ld a, [hl]
	ld [de], a
	ld [wHPBarNewHP], a
.playAnim
	ld hl, PlayCurrentMoveAnimation
	call BankswitchEtoF
	ld a, [H_WHOSETURN]
	and a
	coord hl, 10, 9
	ld a, $1
	jr z, .updateHPBar
	coord hl, 2, 2
	xor a
.updateHPBar
	ld [wHPBarType], a
	predef UpdateHPBar2
	ld hl, DrawHUDsAndHPBars
	call BankswitchEtoF
	ld hl, RegainedHealthText
	jp PrintText
.failed
	ld c, 50
	call DelayFrames
	ld hl, PrintButItFailedText_
	jp BankswitchEtoF

StartedSleepingEffect:
	TX_FAR _StartedSleepingEffect
	db "@"

FellAsleepBecameHealthyText:
	TX_FAR _FellAsleepBecameHealthyText
	db "@"

RegainedHealthText:
	TX_FAR _RegainedHealthText
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`HealEffect_:`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, [H_WHOSETURN]`
			`and a`
			`ld de, wBattleMonHP`
			`ld hl, wBattleMonMaxHP`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wPlayerMoveNum]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr z, .healEffect`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld de, wEnemyMonHP`
			`ld hl, wEnemyMonMaxHP`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wEnemyMoveNum]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.healEffect`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld b, a`
			`ld a, [de]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`cp [hl] ; most significant bytes comparison is ignored`
			`; causes the move to miss if max HP is 255 or 511 points higher than the current HP`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`inc de`
			`inc hl`
			`ld a, [de]`
			`sbc [hl]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jp z, .failed ; no effect if user's HP is already at its maximum`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, b`
			`cp REST`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr nz, .healHP`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`push hl`
			`push de`
			`push af`
			`ld c, 50`
			`call DelayFrames`
			`ld hl, wBattleMonStatus`
			`ld a, [H_WHOSETURN]`
			`and a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr z, .restEffect`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld hl, wEnemyMonStatus`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.restEffect`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, [hl]`
			`and a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`ld [hl], 2 ; clear status and set number of turns asleep to 2`
			`ld hl, StartedSleepingEffect ; if mon didn't have an status`
			`jr z, .printRestText`
			`ld hl, FellAsleepBecameHealthyText ; if mon had an status`
			`.printRestText`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`call PrintText`
			`pop af`
			`pop de`
			`pop hl`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.healHP`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, [hld]`
			`ld [wHPBarMaxHP], a`
			`ld c, a`
			`ld a, [hl]`
			`ld [wHPBarMaxHP+1], a`
			`ld b, a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr z, .gotHPAmountToHeal`
			`; Recover and Softboiled only heal for half the mon's max HP`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`srl b`
			`rr c`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.gotHPAmountToHeal`
			`; update HP`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, [de]`
			`ld [wHPBarOldHP], a`
			`add c`
			`ld [de], a`
			`ld [wHPBarNewHP], a`
			`dec de`
			`ld a, [de]`
			`ld [wHPBarOldHP+1], a`
			`adc b`
			`ld [de], a`
			`ld [wHPBarNewHP+1], a`
			`inc hl`
			`inc de`
			`ld a, [de]`
			`dec de`
			`sub [hl]`
			`dec hl`
			`ld a, [de]`
			`sbc [hl]`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr c, .playAnim`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; copy max HP to current HP if an overflow ocurred`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, [hli]`
			`ld [de], a`
			`ld [wHPBarNewHP+1], a`
			`inc de`
			`ld a, [hl]`
			`ld [de], a`
			`ld [wHPBarNewHP], a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.playAnim`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld hl, PlayCurrentMoveAnimation`
			`call BankswitchEtoF`
			`ld a, [H_WHOSETURN]`
			`and a`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 10, 9`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld a, $1`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`jr z, .updateHPBar`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 2, 2`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`xor a`
Document move effects Document mist effect Document recoil effect Document heal effect Update conversion_effect.asm Update haze_effect.asm Update leech_seed_effect.asm Update pay_day_effect.asm Update reflect_light_screen_effect.asm Update substitute_effect.asm Update transform_effect.asm 2015-04-08 10:15:08 +00:00			`.updateHPBar`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`ld [wHPBarType], a`
			`predef UpdateHPBar2`
			`ld hl, DrawHUDsAndHPBars`
			`call BankswitchEtoF`
			`ld hl, RegainedHealthText`
			`jp PrintText`
			`.failed`
			`ld c, 50`
			`call DelayFrames`
			`ld hl, PrintButItFailedText_`
			`jp BankswitchEtoF`

remove address comments 2016-06-12 00:24:04 +00:00			`StartedSleepingEffect:`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`TX_FAR _StartedSleepingEffect`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`FellAsleepBecameHealthyText:`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`TX_FAR _FellAsleepBecameHealthyText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`RegainedHealthText:`
Rename battle files and split move effects Part 4 e.asm, e_2. asm, and 14.asm 2015-04-01 14:51:04 +00:00			`TX_FAR _RegainedHealthText`
			`db "@"`