ref: f658aff5383fa1e22343efc17e4551c6e7685a39
dir: /scripts/celadonmartelevator.asm/
CeladonMartElevatorScript: ; 48600 (12:4600) ld hl, wd126 bit 5, [hl] res 5, [hl] push hl call nz, CeladonMartElevatorScript_4861c pop hl bit 7, [hl] res 7, [hl] call nz, CeladonMartElevatorScript_48654 xor a ld [wAutoTextBoxDrawingControl], a inc a ld [wDoNotWaitForButtonPressAfterDisplayingText], a ret CeladonMartElevatorScript_4861c: ; 4861c (12:461c) ld hl, wWarpEntries ld a, [wWarpedFromWhichWarp] ld b, a ld a, [wWarpedFromWhichMap] ld c, a call CeladonMartElevatorScript_4862a CeladonMartElevatorScript_4862a: ; 4862a (12:462a) inc hl inc hl ld a, b ld [hli], a ld a, c ld [hli], a ret CeladonMartElevatorScript_48631: ; 48631 (12:4631) ld hl, CeladonMartElavatorFloors call LoadItemList ld hl, CeldaonMartElevatorWarpMaps ld de, wcc5b ld bc, $000a jp CopyData CeladonMartElavatorFloors: ; 48643 (12:4643) db $05 ; num elements in list db $56, $57, $58, $59, $5A ; "1F", "2F", "3F", "4F, "5F" db $FF ; terminator CeldaonMartElevatorWarpMaps: ; 4864a (12:464a) ; first byte is warp number ; second byte is map number ; These specify where the player goes after getting out of the elevator. db $05, CELADON_MART_1 db $02, CELADON_MART_2 db $02, CELADON_MART_3 db $02, CELADON_MART_4 db $02, CELADON_MART_5 CeladonMartElevatorScript_48654: ; 48654 (12:4654) jpba ShakeElevator CeladonMartElevatorTextPointers: ; 4865c (12:465c) dw CeladonMartElevatorText1 CeladonMartElevatorText1: ; 4865e (12:465e) TX_ASM call CeladonMartElevatorScript_48631 ld hl, CeldaonMartElevatorWarpMaps predef DisplayElevatorFloorMenu jp TextScriptEnd