pokecrystal-board/home/hm_moves.asm
2018-06-24 16:13:22 +02:00

26 lines
244 B
NASM

; HM moves can't be forgotten
IsHM::
cp HM01
jr c, .NotHM
scf
ret
.NotHM:
and a
ret
IsHMMove::
ld hl, .HMMoves
ld de, 1
jp IsInArray
.HMMoves:
db CUT
db FLY
db SURF
db STRENGTH
db FLASH
db WATERFALL
db WHIRLPOOL
db -1 ; end