pokecrystal/engine/battle/move_effects/spikes.asm

27 lines
369 B
NASM
Raw Normal View History

2018-06-24 14:09:41 +00:00
BattleCommand_Spikes:
; spikes
2018-01-23 22:39:09 +00:00
ld hl, wEnemyScreens
ld a, [hBattleTurn]
and a
jr z, .asm_3768e
2018-01-23 22:39:09 +00: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