Rooba
/
pokecrystal
mirror of https://github.com/pret/pokecrystal.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
pokecrystal/home/hp_pals.asm

20 lines
335 B
NASM
Raw Normal View History

Factor out GetHPPals and SetHPPals from home.asm The remaining code in home.asm is almost all "generic", unrelated to Pokémon-specific game logic, so leaving it as-is might be neater than little home/*.asm files for each routine.
2018-05-23 15:08:23 +00:00
SetHPPal:: ; 334e
; Set palette for hp bar pixel length e at hl.
call GetHPPal
ld [hl], d
ret
; 3353
GetHPPal:: ; 3353
; Get palette for hp bar pixel length e in d.
ld d, HP_GREEN
ld a, e
Use constants
2018-05-23 15:14:15 +00:00
cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
Factor out GetHPPals and SetHPPals from home.asm The remaining code in home.asm is almost all "generic", unrelated to Pokémon-specific game logic, so leaving it as-is might be neater than little home/*.asm files for each routine.
2018-05-23 15:08:23 +00:00
ret nc
inc d ; HP_YELLOW
Use constants
2018-05-23 15:14:15 +00:00
cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
Factor out GetHPPals and SetHPPals from home.asm The remaining code in home.asm is almost all "generic", unrelated to Pokémon-specific game logic, so leaving it as-is might be neater than little home/*.asm files for each routine.
2018-05-23 15:08:23 +00:00
ret nc
inc d ; HP_RED
ret
; 335f