shithub: pokecrystal

ref: 5e9de74735d09b2a43e8d1c6314f2a7839b6e55a
dir: /engine/battle/move_effects/perish_song.asm/

View raw version 
BattleCommand_PerishSong:
; 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