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