pokered/engine/battle/move_effects/heal.asm

HealEffect_:
	ldh a, [hWhoseTurn]
	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
	ldh a, [hWhoseTurn]
	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 occurred
	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 EffectCallBattleCore
	ldh a, [hWhoseTurn]
	and a
	hlcoord 10, 9
	ld a, $1
	jr z, .updateHPBar
	hlcoord 2, 2
	xor a
.updateHPBar
	ld [wHPBarType], a
	predef UpdateHPBar2
	ld hl, DrawHUDsAndHPBars
	call EffectCallBattleCore
	ld hl, RegainedHealthText
	jp PrintText
.failed
	ld c, 50
	call DelayFrames
	ld hl, PrintButItFailedText_
	jp EffectCallBattleCore

StartedSleepingEffect:
	text_far _StartedSleepingEffect
	text_end

FellAsleepBecameHealthyText:
	text_far _FellAsleepBecameHealthyText
	text_end

RegainedHealthText:
	text_far _RegainedHealthText
	text_end
remove address comments 2016-06-12 00:24:04 +00:00			`HealEffect_:`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hWhoseTurn]`
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			`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`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hWhoseTurn]`
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			`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`
Fix typos in comments 2017-06-24 20:01:43 +00:00			`; copy max HP to current HP if an overflow occurred`
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`
Sync more with pokeyellow 2020-11-05 21:55:39 +00:00			`call EffectCallBattleCore`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hWhoseTurn]`
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			`and a`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 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`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 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`
Sync more with pokeyellow 2020-11-05 21:55:39 +00:00			`call EffectCallBattleCore`
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, RegainedHealthText`
			`jp PrintText`
			`.failed`
			`ld c, 50`
			`call DelayFrames`
			`ld hl, PrintButItFailedText_`
Sync more with pokeyellow 2020-11-05 21:55:39 +00:00			`jp EffectCallBattleCore`
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
remove address comments 2016-06-12 00:24:04 +00:00			`StartedSleepingEffect:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _StartedSleepingEffect`
			`text_end`
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
remove address comments 2016-06-12 00:24:04 +00:00			`FellAsleepBecameHealthyText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _FellAsleepBecameHealthyText`
			`text_end`
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
remove address comments 2016-06-12 00:24:04 +00:00			`RegainedHealthText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _RegainedHealthText`
			`text_end`