mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
77 lines
2.1 KiB
NASM
Executable file
77 lines
2.1 KiB
NASM
Executable file
SubstituteEffectHandler: ; 17dad (5:7dad)
|
|
ld c, 50
|
|
call DelayFrames
|
|
ld hl, W_PLAYERMONMAXHP
|
|
ld de, wPlayerSubstituteHP
|
|
ld bc, W_PLAYERBATTSTATUS2
|
|
ld a, [$fff3] ;whose turn?
|
|
and a
|
|
jr z, .notEnemy
|
|
ld hl, W_ENEMYMONMAXHP
|
|
ld de, wEnemySubstituteHP
|
|
ld bc, W_ENEMYBATTSTATUS2
|
|
.notEnemy
|
|
ld a, [bc] ;load flags
|
|
bit 4, a ;user already has substitute?
|
|
jr nz, .alreadyHasSubstitute ;skip this code if so
|
|
;user doesn't have a substitute [yet]
|
|
push bc
|
|
ld a, [hli] ;load max hp
|
|
ld b, [hl]
|
|
srl a ;max hp / 4, [quarter health to remove from user]
|
|
rr b
|
|
srl a
|
|
rr b
|
|
push de
|
|
ld de, $fff2 ;subtract 8 to point to [current hp] instead of [max hp]
|
|
add hl, de ;HL -= 8
|
|
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] ;load current hp
|
|
sub b ;subtract [max hp / 4]
|
|
ld d, a ;save low byte result in D
|
|
ld a, [hl]
|
|
sbc a, 0 ;borrow from high byte if needed
|
|
pop bc
|
|
jr c, .notEnoughHP ;underflow means user would be left with negative health
|
|
;bug: note since it only brances on carry, it will possibly leave user with 0HP
|
|
.userHasZeroOrMoreHP
|
|
ldi [hl], a ;store high byte HP
|
|
ld [hl], d ;store low byte HP
|
|
ld h, b
|
|
ld l, c
|
|
set 4, [hl] ;set bit 4 of flags, user now has substitute
|
|
ld a, [$d355] ;load options
|
|
bit 7, a ;battle animation is enabled?
|
|
ld hl, Func_3fba8 ; $7ba8 ;animation enabled: 0F:7BA8
|
|
ld b, BANK(Func_3fba8)
|
|
jr z, .animationEnabled
|
|
ld hl, AnimationSubstitute ;animation disabled: 1E:56E0
|
|
ld b, BANK(AnimationSubstitute)
|
|
.animationEnabled
|
|
call Bankswitch ;jump to routine depending on animation setting
|
|
ld hl, SubstituteText
|
|
call PrintText
|
|
ld hl, Func_3cd5a
|
|
ld b, BANK(Func_3cd5a)
|
|
jp Bankswitch
|
|
.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 "@"
|