pokecrystal-board/engine/battle/move_effects/spikes.asm

27 lines
370 B
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
BattleCommand_Spikes:
; spikes
2018-01-23 14:39:09 -08:00
ld hl, wEnemyScreens
ldh a, [hBattleTurn]
and a
jr z, .asm_3768e
2018-01-23 14:39:09 -08:00
ld hl, wPlayerScreens
.asm_3768e
; Fails if spikes are already down!
bit SCREENS_SPIKES, [hl]
jr nz, .failed
; Nothing else stops it from working.
set SCREENS_SPIKES, [hl]
call AnimateCurrentMove
ld hl, SpikesText
jp StdBattleTextBox
.failed
jp FailMove