pokegold/engine/gfx/load_font.asm
Rangi d2c9e2d74f
Some checks are pending
CI / build (push) Waiting to run
Use features of RGBDS 1.0.0 (#138)
2025-11-12 15:44:00 -05:00

104 lines
2.3 KiB
NASM

_LoadStandardFont::
ld de, Font
ld hl, vTiles1
lb bc, BANK(Font), 128 ; 'A' to '9'
jp Get1bpp
_LoadFontsExtra::
ld de, FontsExtra_SolidBlackAndUpArrowGFX
ld hl, vTiles2 tile '■' ; $60
lb bc, BANK(FontsExtra_SolidBlackAndUpArrowGFX), 2
call Get1bpp
ld de, PokegearPhoneIconGFX
ld hl, vTiles2 tile '☎' ; $62
lb bc, BANK(PokegearPhoneIconGFX), 1
call Get2bpp
ld de, FontExtra + 3 tiles ; '<BOLD_D>'
ld hl, vTiles2 tile '<BOLD_D>'
lb bc, BANK(FontExtra), 22 ; '<BOLD_D>' to 'ぉ'
call Get2bpp
jr LoadFrame
_LoadFontsBattleExtra::
ld de, FontBattleExtra
ld hl, vTiles2 tile $60
lb bc, BANK(FontBattleExtra), 25
call Get2bpp
jr LoadFrame
LoadFrame:
ld a, [wTextboxFrame]
maskbits NUM_FRAMES
ld bc, TEXTBOX_FRAME_TILES * TILE_1BPP_SIZE
ld hl, Frames
call AddNTimes
ld d, h
ld e, l
ld hl, vTiles2 tile '┌' ; $79
lb bc, BANK(Frames), TEXTBOX_FRAME_TILES ; '┌' to '┘'
call Get1bpp
ld hl, vTiles2 tile ' ' ; $7f
ld de, TextboxSpaceGFX
lb bc, BANK(TextboxSpaceGFX), 1
call Get1bpp
ret
LoadBattleFontsHPBar:
ld de, FontBattleExtra
ld hl, vTiles2 tile $60
lb bc, BANK(FontBattleExtra), 12
call Get2bpp
ld hl, vTiles2 tile $70
ld de, FontBattleExtra + 16 tiles ; '<DO>'
lb bc, BANK(FontBattleExtra), 3 ; '<DO>' to '『'
call Get2bpp
call LoadFrame
LoadHPBar:
ld de, EnemyHPBarBorderGFX
ld hl, vTiles2 tile $6c
lb bc, BANK(EnemyHPBarBorderGFX), 4
call Get1bpp
ld de, HPExpBarBorderGFX
ld hl, vTiles2 tile $73
lb bc, BANK(HPExpBarBorderGFX), 6
call Get1bpp
ld de, ExpBarGFX
ld hl, vTiles2 tile $55
lb bc, BANK(ExpBarGFX), 9
call Get2bpp
ret
StatsScreen_LoadFont::
call _LoadFontsBattleExtra
ld de, EnemyHPBarBorderGFX
ld hl, vTiles2 tile $6c
lb bc, BANK(EnemyHPBarBorderGFX), 4
call Get1bpp
ld de, HPExpBarBorderGFX
ld hl, vTiles2 tile $78
lb bc, BANK(HPExpBarBorderGFX), 1
call Get1bpp
ld de, HPExpBarBorderGFX + 3 * TILE_1BPP_SIZE
ld hl, vTiles2 tile $76
lb bc, BANK(HPExpBarBorderGFX), 2
call Get1bpp
ld de, ExpBarGFX
ld hl, vTiles2 tile $55
lb bc, BANK(ExpBarGFX), 8
call Get2bpp
LoadStatsScreenPageTilesGFX:
ld de, StatsScreenPageTilesGFX
ld hl, vTiles2 tile $31
lb bc, BANK(StatsScreenPageTilesGFX), 17
call Get2bpp
ret
LoadFontsBattleLevel: ; unreferenced
ld de, FontBattleExtra + 14 tiles
ld hl, vTiles2 tile '<LV>' ; $6e
lb bc, BANK(FontBattleExtra), 1
jp Get2bpp
INCLUDE "gfx/font.asm"