mirror of
https://github.com/pret/pokered.git
synced 2026-10-05 23:40:09 -04:00
vulcandth
d001ced41b
This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified.
89 lines
1.6 KiB
NASM
89 lines
1.6 KiB
NASM
SilphCoElevator_Script:
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
push hl
|
|
call nz, SilphCoElevatorScript_457dc
|
|
pop hl
|
|
bit 7, [hl]
|
|
res 7, [hl]
|
|
call nz, SilphCoElevatorShakeElevatorScript
|
|
xor a
|
|
ld [wAutoTextBoxDrawingControl], a
|
|
inc a
|
|
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
|
|
ret
|
|
|
|
SilphCoElevatorScript_457dc:
|
|
ld hl, wWarpEntries
|
|
ld a, [wWarpedFromWhichWarp]
|
|
ld b, a
|
|
ld a, [wWarpedFromWhichMap]
|
|
ld c, a
|
|
call .StoreWarpEntry
|
|
|
|
.StoreWarpEntry:
|
|
inc hl
|
|
inc hl
|
|
ld a, b
|
|
ld [hli], a
|
|
ld a, c
|
|
ld [hli], a
|
|
ret
|
|
|
|
SilphCoElevatorCopyWarpMapsScript:
|
|
ld hl, SilphCoElevatorFloors
|
|
call LoadItemList
|
|
ld hl, SilphCoElevatorWarpMaps
|
|
ld de, wElevatorWarpMaps
|
|
ld bc, SilphCoElevatorWarpMapsEnd - SilphCoElevatorWarpMaps
|
|
call CopyData
|
|
ret
|
|
|
|
SilphCoElevatorFloors:
|
|
db 11 ; #
|
|
db FLOOR_1F
|
|
db FLOOR_2F
|
|
db FLOOR_3F
|
|
db FLOOR_4F
|
|
db FLOOR_5F
|
|
db FLOOR_6F
|
|
db FLOOR_7F
|
|
db FLOOR_8F
|
|
db FLOOR_9F
|
|
db FLOOR_10F
|
|
db FLOOR_11F
|
|
db -1 ; end
|
|
|
|
; These specify where the player goes after getting out of the elevator.
|
|
SilphCoElevatorWarpMaps:
|
|
; warp number, map id
|
|
db 3, SILPH_CO_1F
|
|
db 2, SILPH_CO_2F
|
|
db 2, SILPH_CO_3F
|
|
db 2, SILPH_CO_4F
|
|
db 2, SILPH_CO_5F
|
|
db 2, SILPH_CO_6F
|
|
db 2, SILPH_CO_7F
|
|
db 2, SILPH_CO_8F
|
|
db 2, SILPH_CO_9F
|
|
db 2, SILPH_CO_10F
|
|
db 1, SILPH_CO_11F
|
|
SilphCoElevatorWarpMapsEnd:
|
|
|
|
SilphCoElevatorShakeElevatorScript:
|
|
call Delay3
|
|
farcall ShakeElevator
|
|
ret
|
|
|
|
SilphCoElevator_TextPointers:
|
|
def_text_pointers
|
|
dw_const SilphCoElevatorElevatorText, TEXT_SILPHCOELEVATOR_ELEVATOR
|
|
|
|
SilphCoElevatorElevatorText:
|
|
text_asm
|
|
call SilphCoElevatorCopyWarpMapsScript
|
|
ld hl, SilphCoElevatorWarpMaps
|
|
predef DisplayElevatorFloorMenu
|
|
jp TextScriptEnd
|