mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
27 lines
374 B
NASM
27 lines
374 B
NASM
BattleCommand_Spikes:
|
|
; spikes
|
|
|
|
ld hl, wEnemyScreens
|
|
ldh a, [hBattleTurn]
|
|
and a
|
|
jr z, .got_screens
|
|
ld hl, wPlayerScreens
|
|
.got_screens
|
|
|
|
; 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
|