ref: c01409be5a9930d6f0687ce53c1c898e1855c884
dir: /engine/battle/move_effects/perish_song.asm/
BattleCommand_PerishSong: ld hl, wPlayerSubStatus1 ld de, wEnemySubStatus1 bit SUBSTATUS_PERISH, [hl] jr z, .ok ld a, [de] bit SUBSTATUS_PERISH, a jr nz, .failed .ok bit SUBSTATUS_PERISH, [hl] jr nz, .enemy set SUBSTATUS_PERISH, [hl] ld a, 4 ld [wPlayerPerishCount], a .enemy ld a, [de] bit SUBSTATUS_PERISH, a jr nz, .done set SUBSTATUS_PERISH, a ld [de], a ld a, 4 ld [wEnemyPerishCount], a .done call AnimateCurrentMove ld hl, StartPerishText jp StdBattleTextbox .failed call AnimateFailedMove jp PrintButItFailed