pokecrystal-board/home/hp_pals.asm

SetHPPal::
; Set palette for hp bar pixel length e at hl.
	call GetHPPal
	ld [hl], d
	ret

GetHPPal::
; Get palette for hp bar pixel length e in d.
	ld d, HP_GREEN
	ld a, e
	cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
	ret nc
	inc d ; HP_YELLOW
	cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
	ret nc
	inc d ; HP_RED
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`SetHPPal::`
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 08:08:23 -07:00			`; Set palette for hp bar pixel length e at hl.`
			`call GetHPPal`
			`ld [hl], d`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`GetHPPal::`
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 08:08:23 -07:00			`; Get palette for hp bar pixel length e in d.`
			`ld d, HP_GREEN`
			`ld a, e`
Use constants 2018-05-23 08:14:15 -07: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 08:08:23 -07:00			`ret nc`
			`inc d ; HP_YELLOW`
Use constants 2018-05-23 08:14:15 -07: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 08:08:23 -07:00			`ret nc`
			`inc d ; HP_RED`
			`ret`