shithub: pokecrystal

ref: 37dd85797a7c5c5581b8fb21bae83d5d34ae0321
dir: /battle/effects/perish_song.asm/

View raw version 
BattleCommand58: ; 376c2
; perishsong


	ld hl, PlayerSubStatus1
	ld de, EnemySubStatus1
	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 [PlayerPerishCount], a

.enemy
	ld a, [de]
	bit SUBSTATUS_PERISH, a
	jr nz, .done

	set SUBSTATUS_PERISH, a
	ld [de], a
	ld a, 4
	ld [EnemyPerishCount], a

.done
	call Function0x37e01
	ld hl, StartPerishText
	jp StdBattleTextBox

.failed
	call Function0x37e77
	jp PrintButItFailed
; 376f8