mirror of https://github.com/pret/pokecrystal.git
29 lines
383 B
NASM
29 lines
383 B
NASM
BattleCommand56: ; 37683
|
|
; spikes
|
|
|
|
ld hl, EnemyScreens
|
|
ld a, [hBattleTurn]
|
|
and a
|
|
jr z, .asm_3768e
|
|
ld hl, PlayerScreens
|
|
.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 Function0x37e01
|
|
|
|
ld hl, SpikesText
|
|
jp StdBattleTextBox
|
|
|
|
.failed
|
|
jp Function0x37354
|
|
; 376a0
|
|
|