pokecrystal-board/home/hp_pals.asm

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
	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
; 335f
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			`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 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`
			`; 335f`