mirror of https://github.com/pret/pokecrystal.git
92 lines
1.3 KiB
NASM
92 lines
1.3 KiB
NASM
BattleCommand_PainSplit:
|
|
ld a, [wAttackMissed]
|
|
and a
|
|
jp nz, .ButItFailed
|
|
call CheckSubstituteOpp
|
|
jp nz, .ButItFailed
|
|
call AnimateCurrentMove
|
|
ld hl, wBattleMonMaxHP + 1
|
|
ld de, wEnemyMonMaxHP + 1
|
|
call .PlayerShareHP
|
|
ld a, $1
|
|
ld [wWhichHPBar], a
|
|
hlcoord 10, 9
|
|
predef AnimateHPBar
|
|
ld hl, wEnemyMonHP
|
|
ld a, [hli]
|
|
ld [wHPBuffer2 + 1], a
|
|
ld a, [hli]
|
|
ld [wHPBuffer2], a
|
|
ld a, [hli]
|
|
ld [wHPBuffer1 + 1], a
|
|
ld a, [hl]
|
|
ld [wHPBuffer1], a
|
|
call .EnemyShareHP
|
|
xor a
|
|
ld [wWhichHPBar], a
|
|
call ResetDamage
|
|
hlcoord 2, 2
|
|
predef AnimateHPBar
|
|
farcall _UpdateBattleHUDs
|
|
|
|
ld hl, SharedPainText
|
|
jp StdBattleTextbox
|
|
|
|
.PlayerShareHP:
|
|
ld a, [hld]
|
|
ld [wHPBuffer1], a
|
|
ld a, [hld]
|
|
ld [wHPBuffer1 + 1], a
|
|
ld a, [hld]
|
|
ld b, a
|
|
ld [wHPBuffer2], a
|
|
ld a, [hl]
|
|
ld [wHPBuffer2 + 1], a
|
|
dec de
|
|
dec de
|
|
ld a, [de]
|
|
dec de
|
|
add b
|
|
ld [wCurDamage + 1], a
|
|
ld b, [hl]
|
|
ld a, [de]
|
|
adc b
|
|
srl a
|
|
ld [wCurDamage], a
|
|
ld a, [wCurDamage + 1]
|
|
rr a
|
|
ld [wCurDamage + 1], a
|
|
inc hl
|
|
inc hl
|
|
inc hl
|
|
inc de
|
|
inc de
|
|
inc de
|
|
|
|
.EnemyShareHP:
|
|
ld c, [hl]
|
|
dec hl
|
|
ld a, [wCurDamage + 1]
|
|
sub c
|
|
ld b, [hl]
|
|
dec hl
|
|
ld a, [wCurDamage]
|
|
sbc b
|
|
jr nc, .skip
|
|
|
|
ld a, [wCurDamage]
|
|
ld b, a
|
|
ld a, [wCurDamage + 1]
|
|
ld c, a
|
|
.skip
|
|
ld a, c
|
|
ld [hld], a
|
|
ld [wHPBuffer3], a
|
|
ld a, b
|
|
ld [hli], a
|
|
ld [wHPBuffer3 + 1], a
|
|
ret
|
|
|
|
.ButItFailed:
|
|
jp PrintDidntAffect2
|