pokecrystal/engine/battle/move_effects/perish_song.asm

39 lines
562 B
NASM
Raw Normal View History

2018-06-24 14:09:41 +00:00
BattleCommand_PerishSong:
2013-12-01 19:19:57 +00:00
; perishsong
2018-01-23 22:39:09 +00:00
ld hl, wPlayerSubStatus1
ld de, wEnemySubStatus1
2013-12-01 19:19:57 +00:00
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
2018-01-23 22:39:09 +00:00
ld [wPlayerPerishCount], a
2013-12-01 19:19:57 +00:00
.enemy
ld a, [de]
bit SUBSTATUS_PERISH, a
jr nz, .done
set SUBSTATUS_PERISH, a
ld [de], a
ld a, 4
2018-01-23 22:39:09 +00:00
ld [wEnemyPerishCount], a
2013-12-01 19:19:57 +00:00
.done
call AnimateCurrentMove
2013-12-01 19:19:57 +00:00
ld hl, StartPerishText
2019-04-08 12:15:10 +00:00
jp StdBattleTextbox
2013-12-01 19:19:57 +00:00
.failed
call AnimateFailedMove
2013-12-01 19:19:57 +00:00
jp PrintButItFailed