pokered/engine/battle/moveEffects/substitute_effect.asm

SubstituteEffect_: ; 17dad (5:7dad)
	ld c, 50
	call DelayFrames
	ld hl, wBattleMonMaxHP
	ld de, wPlayerSubstituteHP
	ld bc, W_PLAYERBATTSTATUS2
	ld a, [H_WHOSETURN]
	and a
	jr z, .notEnemy
	ld hl, wEnemyMonMaxHP
	ld de, wEnemySubstituteHP
	ld bc, W_ENEMYBATTSTATUS2
.notEnemy
	ld a, [bc]
	bit HasSubstituteUp, a ; user already has substitute?
	jr nz, .alreadyHasSubstitute
; quarter health to remove from user
; assumes max HP is 1023 or lower
	push bc
	ld a, [hli]
	ld b, [hl]
	srl a
	rr b
	srl a
	rr b ; max hp / 4
	push de
	ld de, wBattleMonHP - wBattleMonMaxHP
	add hl, de ; point hl to current HP low byte
	pop de
	ld a, b
	ld [de], a ; save copy of HP to subtract in ccd7/ccd8 [how much HP substitute has]
	ld a, [hld]
; subtract [max hp / 4] to current HP
	sub b
	ld d, a
	ld a, [hl]
	sbc 0
	pop bc
	jr c, .notEnoughHP ; underflow means user would be left with negative health
                           ; bug: since it only brances on carry, it will possibly leave user with 0 HP
.userHasZeroOrMoreHP
	ldi [hl], a ; save resulting HP after substraction into current HP
	ld [hl], d
	ld h, b
	ld l, c
	set HasSubstituteUp, [hl]
	ld a, [W_OPTIONS]
	bit 7, a ; battle animation is enabled?
	ld hl, PlayCurrentMoveAnimation
	ld b, BANK(PlayCurrentMoveAnimation)
	jr z, .animationEnabled
	ld hl, AnimationSubstitute
	ld b, BANK(AnimationSubstitute)
.animationEnabled
	call Bankswitch ; jump to routine depending on animation setting
	ld hl, SubstituteText
	call PrintText
	jpab DrawHUDsAndHPBars
.alreadyHasSubstitute
	ld hl, HasSubstituteText
	jr .printText
.notEnoughHP
	ld hl, TooWeakSubstituteText
.printText
	jp PrintText

SubstituteText: ; 17e1d (5:7e1d)
	TX_FAR _SubstituteText
	db "@"

HasSubstituteText: ; 17e22 (5:7e22)
	TX_FAR _HasSubstituteText
	db "@"

TooWeakSubstituteText: ; 17e27 (5:7e27)
	TX_FAR _TooWeakSubstituteText
	db "@"
Rename battle files and split move effects Part 2 5.asm, 9.asm, and a.asm 2015-04-01 09:41:20 +00:00			`SubstituteEffect_: ; 17dad (5:7dad)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, 50`
			`call DelayFrames`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld hl, wBattleMonMaxHP`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld de, wPlayerSubstituteHP`
			`ld bc, W_PLAYERBATTSTATUS2`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld a, [H_WHOSETURN]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
			`jr z, .notEnemy`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld hl, wEnemyMonMaxHP`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld de, wEnemySubstituteHP`
			`ld bc, W_ENEMYBATTSTATUS2`
			`.notEnemy`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld a, [bc]`
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			`bit HasSubstituteUp, a ; user already has substitute?`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`jr nz, .alreadyHasSubstitute`
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			`; quarter health to remove from user`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; assumes max HP is 1023 or lower`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push bc`
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 a, [hli]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, [hl]`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`srl a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`rr b`
			`srl 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			`rr b ; max hp / 4`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push de`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld de, wBattleMonHP - wBattleMonMaxHP`
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			`add hl, de ; point hl to current HP low byte`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop de`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld a, b`
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 [de], a ; save copy of HP to subtract in ccd7/ccd8 [how much HP substitute has]`
			`ld a, [hld]`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`; subtract [max hp / 4] to current HP`
			`sub b`
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 d, a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`sbc 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`pop bc`
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, .notEnoughHP ; underflow means user would be left with negative health`
			`; bug: since it only brances on carry, it will possibly leave user with 0 HP`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.userHasZeroOrMoreHP`
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			`ldi [hl], a ; save resulting HP after substraction into current HP`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld [hl], d`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld h, b`
			`ld l, c`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`set HasSubstituteUp, [hl]`
			`ld a, [W_OPTIONS]`
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			`bit 7, a ; battle animation is enabled?`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld hl, PlayCurrentMoveAnimation`
commented battle stuff 2015-02-08 00:24:16 +00:00			`ld b, BANK(PlayCurrentMoveAnimation)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr z, .animationEnabled`
$U-Daniel-PC\Daniel$ Clean up white space 2015-06-11 22:41:33 +00:00			`ld hl, AnimationSubstitute`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, BANK(AnimationSubstitute)`
			`.animationEnabled`
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			`call Bankswitch ; jump to routine depending on animation setting`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, SubstituteText`
			`call PrintText`
jpab/jpba macros 2015-07-19 18:56:13 +00:00			`jpab DrawHUDsAndHPBars`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.alreadyHasSubstitute`
			`ld hl, HasSubstituteText`
			`jr .printText`
			`.notEnoughHP`
			`ld hl, TooWeakSubstituteText`
			`.printText`
			`jp PrintText`

			`SubstituteText: ; 17e1d (5:7e1d)`
			`TX_FAR _SubstituteText`
			`db "@"`

			`HasSubstituteText: ; 17e22 (5:7e22)`
			`TX_FAR _HasSubstituteText`
			`db "@"`

			`TooWeakSubstituteText: ; 17e27 (5:7e27)`
			`TX_FAR _TooWeakSubstituteText`
			`db "@"`