pokecrystal-board/home/hp_pals.asm

18 lines
307 B
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
SetHPPal::
; Set palette for hp bar pixel length e at hl.
call GetHPPal
ld [hl], d
ret
2018-06-24 07:09:41 -07:00
GetHPPal::
; Get palette for hp bar pixel length e in d.
ld d, HP_GREEN
ld a, e
2018-05-23 08:14:15 -07:00
cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
ret nc
inc d ; HP_YELLOW
2018-05-23 08:14:15 -07:00
cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
ret nc
inc d ; HP_RED
ret