ref: 3648afda1694fcb4d6fe6625b14f5a3f8bc29c38
dir: /engine/events/elevator.asm/
Elevator:: call .LoadPointer call .FindCurrentFloor jr c, .quit ld [wElevatorOriginFloor], a call Elevator_AskWhichFloor jr c, .quit ld hl, wElevatorOriginFloor cp [hl] jr z, .quit call Elevator_GoToFloor and a ret .quit scf ret .LoadPointer: ld a, b ld [wElevatorPointerBank], a ld a, e ld [wElevatorPointer], a ld a, d ld [wElevatorPointer + 1], a call .LoadFloors ret .LoadFloors: ld de, wCurElevatorCount ld bc, wElevatorDataEnd - wElevatorData ld hl, wElevatorPointer ld a, [hli] ld h, [hl] ld l, a ld a, [wElevatorPointerBank] call GetFarByte inc hl ld [de], a inc de assert wCurElevatorCount + 1 == wCurElevatorFloors .loop ld a, [wElevatorPointerBank] call GetFarByte ld [de], a inc de add hl, bc cp -1 jr nz, .loop ret .FindCurrentFloor: ld hl, wElevatorPointer ld a, [hli] ld h, [hl] ld l, a ld a, [wElevatorPointerBank] call GetFarByte ld c, a inc hl ld a, [wBackupMapGroup] ld d, a ld a, [wBackupMapNumber] ld e, a ld b, 0 .loop2 ld a, [wElevatorPointerBank] call GetFarByte cp -1 jr z, .fail inc hl inc hl ld a, [wElevatorPointerBank] call GetFarByte inc hl cp d jr nz, .next1 ld a, [wElevatorPointerBank] call GetFarByte inc hl cp e jr nz, .next2 jr .done .next1 inc hl .next2 inc b jr .loop2 .done xor a ld a, b ret .fail scf ret Elevator_GoToFloor: push af ld hl, wElevatorPointer ld a, [hli] ld h, [hl] ld l, a inc hl pop af ld bc, wElevatorDataEnd - wElevatorData call AddNTimes inc hl ld de, wBackupWarpNumber ld a, [wElevatorPointerBank] ld bc, wElevatorDataEnd - wElevatorData - 1 call FarCopyBytes ret Elevator_AskWhichFloor: call LoadStandardMenuHeader ld hl, AskFloorElevatorText call PrintText call Elevator_GetCurrentFloorText ld hl, Elevator_MenuHeader call CopyMenuHeader call InitScrollingMenu call UpdateSprites xor a ld [wMenuScrollPosition], a call ScrollingMenu call CloseWindow ld a, [wMenuJoypad] cp B_BUTTON jr z, .cancel xor a ld a, [wScrollingMenuCursorPosition] ret .cancel scf ret AskFloorElevatorText: text_far _AskFloorElevatorText text_end Elevator_GetCurrentFloorText: ld hl, wOptions ld a, [hl] push af set NO_TEXT_SCROLL, [hl] hlcoord 0, 0 ld b, 4 ld c, 8 call Textbox hlcoord 1, 2 ld de, Elevator_CurrentFloorText call PlaceString hlcoord 4, 4 call Elevator_GetCurrentFloorString pop af ld [wOptions], a ret Elevator_CurrentFloorText: db "Now on:@" Elevator_GetCurrentFloorString: push hl ld a, [wElevatorOriginFloor] ld e, a ld d, 0 ld hl, wCurElevatorFloors add hl, de ld a, [hl] pop de call GetFloorString ret Elevator_MenuHeader: db MENU_BACKUP_TILES ; flags menu_coords 12, 1, 18, 9 dw Elevator_MenuData db 1 ; default option Elevator_MenuData: db SCROLLINGMENU_DISPLAY_ARROWS ; flags db 4, 0 ; rows, columns db SCROLLINGMENU_ITEMS_NORMAL ; item format dbw 0, wCurElevatorCount dba GetElevatorFloorStrings dba NULL dba NULL GetElevatorFloorStrings: ld a, [wMenuSelection] GetFloorString: push de call FloorToString ld d, h ld e, l pop hl jp PlaceString FloorToString: push de ld e, a ld d, 0 ld hl, ElevatorFloorNames add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a pop de ret INCLUDE "data/events/elevator_floors.asm"