mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2025-01-23 09:16:20 -08:00
97c511cd2f
Renamed `game` to `games` and `menu` to `menus`. Moved some functions from `engine/routines/` to their fitting subdirectories. Made two new subdirectories: * engine/rtc: Contains all RTC-related things. Menus, hardware, misc functions. * engine/items: Contains all item-related things. Pack, item effects, other item handlers.
56 lines
579 B
NASM
56 lines
579 B
NASM
PlaceGraphic: ; 2ef6e
|
|
; Fill wBoxAlignment-aligned box width b height c
|
|
; with iterating tile starting from hGraphicStartTile at hl.
|
|
|
|
ld de, SCREEN_WIDTH
|
|
|
|
ld a, [wBoxAlignment]
|
|
and a
|
|
jr nz, .right
|
|
|
|
ld a, [hGraphicStartTile]
|
|
.x1
|
|
push bc
|
|
push hl
|
|
|
|
.y1
|
|
ld [hl], a
|
|
add hl, de
|
|
inc a
|
|
dec c
|
|
jr nz, .y1
|
|
|
|
pop hl
|
|
inc hl
|
|
pop bc
|
|
dec b
|
|
jr nz, .x1
|
|
ret
|
|
|
|
.right
|
|
; Right-aligned.
|
|
push bc
|
|
ld b, 0
|
|
dec c
|
|
add hl, bc
|
|
pop bc
|
|
|
|
ld a, [hGraphicStartTile]
|
|
.x2
|
|
push bc
|
|
push hl
|
|
|
|
.y2
|
|
ld [hl], a
|
|
add hl, de
|
|
inc a
|
|
dec c
|
|
jr nz, .y2
|
|
|
|
pop hl
|
|
dec hl
|
|
pop bc
|
|
dec b
|
|
jr nz, .x2
|
|
ret
|