mirror of https://github.com/pret/pokecrystal.git
63 lines
739 B
NASM
63 lines
739 B
NASM
SetMenuAttributes::
|
|
push hl
|
|
push bc
|
|
ld hl, w2DMenuCursorInitY
|
|
ld b, $8
|
|
.loop
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
dec b
|
|
jr nz, .loop
|
|
ld a, $1
|
|
ld [hli], a
|
|
ld [hli], a
|
|
xor a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
|
|
StaticMenuJoypad::
|
|
callfar _StaticMenuJoypad
|
|
call GetMenuJoypad
|
|
ret
|
|
|
|
ScrollingMenuJoypad::
|
|
callfar _ScrollingMenuJoypad
|
|
call GetMenuJoypad
|
|
ret
|
|
|
|
GetMenuJoypad::
|
|
push bc
|
|
push af
|
|
ldh a, [hJoyLast]
|
|
and D_PAD
|
|
ld b, a
|
|
ldh a, [hJoyPressed]
|
|
and BUTTONS
|
|
or b
|
|
ld b, a
|
|
pop af
|
|
ld a, b
|
|
pop bc
|
|
ret
|
|
|
|
PlaceHollowCursor::
|
|
ld hl, wCursorCurrentTile
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld [hl], "▷"
|
|
ret
|
|
|
|
HideCursor::
|
|
ld hl, wCursorCurrentTile
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ld [hl], " "
|
|
ret
|