mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
48 lines
776 B
NASM
Executable file
48 lines
776 B
NASM
Executable file
DisplayElevatorFloorMenu:
|
|
ld hl, WhichFloorText
|
|
call PrintText
|
|
ld hl, wItemList
|
|
ld a, l
|
|
ld [wListPointer], a
|
|
ld a, h
|
|
ld [wListPointer + 1], a
|
|
ld a, [wListScrollOffset]
|
|
push af
|
|
xor a
|
|
ld [wCurrentMenuItem], a
|
|
ld [wListScrollOffset], a
|
|
ld [wPrintItemPrices], a
|
|
ld a, SPECIALLISTMENU
|
|
ld [wListMenuID], a
|
|
call DisplayListMenuID
|
|
pop bc
|
|
ld a, b
|
|
ld [wListScrollOffset], a
|
|
ret c
|
|
ld hl, wCurrentMapScriptFlags
|
|
set 7, [hl]
|
|
ld hl, wElevatorWarpMaps
|
|
ld a, [wWhichPokemon]
|
|
add a
|
|
ld d, 0
|
|
ld e, a
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld b, a
|
|
ld a, [hl]
|
|
ld c, a
|
|
ld hl, wWarpEntries
|
|
call .UpdateWarp
|
|
|
|
.UpdateWarp
|
|
inc hl
|
|
inc hl
|
|
ld a, b
|
|
ld [hli], a ; destination warp ID
|
|
ld a, c
|
|
ld [hli], a ; destination map ID
|
|
ret
|
|
|
|
WhichFloorText:
|
|
text_far _WhichFloorText
|
|
text_end
|