pokered/scripts/SilphCoElevator.asm

SilphCoElevator_Script:
	ld hl, wCurrentMapScriptFlags
	bit BIT_CUR_MAP_LOADED_1, [hl]
	res BIT_CUR_MAP_LOADED_1, [hl]
	push hl
	call nz, SilphCoElevatorStoreWarpEntriesScript
	pop hl
	bit BIT_CUR_MAP_USED_ELEVATOR, [hl]
	res BIT_CUR_MAP_USED_ELEVATOR, [hl]
	call nz, SilphCoElevatorShakeScript
	xor a
	ld [wAutoTextBoxDrawingControl], a
	inc a
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ret

SilphCoElevatorStoreWarpEntriesScript:
	ld hl, wWarpEntries
	ld a, [wWarpedFromWhichWarp]
	ld b, a
	ld a, [wWarpedFromWhichMap]
	ld c, a
	call .StoreWarpEntry
	; fallthrough
.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, SilphCoElevatorWarpMaps.End - 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
.End:

SilphCoElevatorShakeScript:
	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
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCoElevator_Script:`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
Identify `wCurrentMapScriptFlags` bits (#467) 2024-09-24 15:39:44 +00:00			`bit BIT_CUR_MAP_LOADED_1, [hl]`
			`res BIT_CUR_MAP_LOADED_1, [hl]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`push hl`
Identify more map script labels 2023-11-19 00:44:03 +00:00			`call nz, SilphCoElevatorStoreWarpEntriesScript`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop hl`
Identify `wCurrentMapScriptFlags` bits (#467) 2024-09-24 15:39:44 +00:00			`bit BIT_CUR_MAP_USED_ELEVATOR, [hl]`
			`res BIT_CUR_MAP_USED_ELEVATOR, [hl]`
Identify more map script labels 2023-11-19 00:44:03 +00:00			`call nz, SilphCoElevatorShakeScript`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wAutoTextBoxDrawingControl], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`inc a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Identify more map script labels 2023-11-19 00:44:03 +00:00			`SilphCoElevatorStoreWarpEntriesScript:`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld hl, wWarpEntries`
yet more naming 2015-07-26 02:26:54 +00:00			`ld a, [wWarpedFromWhichWarp]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
yet more naming 2015-07-26 02:26:54 +00:00			`ld a, [wWarpedFromWhichMap]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld c, a`
Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`call .StoreWarpEntry`
Identify more map script labels 2023-11-19 00:44:03 +00:00			`; fallthrough`
Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`.StoreWarpEntry:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`inc hl`
			`inc hl`
			`ld a, b`
			`ld [hli], a`
			`ld a, c`
			`ld [hli], a`
			`ret`

Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`SilphCoElevatorCopyWarpMapsScript:`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, SilphCoElevatorFloors`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call LoadItemList`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`ld hl, SilphCoElevatorWarpMaps`
named more variables 2015-08-13 05:14:31 +00:00			`ld de, wElevatorWarpMaps`
Identify more map script labels 2023-11-19 00:44:03 +00:00			`ld bc, SilphCoElevatorWarpMaps.End - SilphCoElevatorWarpMaps`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CopyData`
			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCoElevatorFloors:`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`db 11 ; #`
Use constants for elevator floors 2015-08-10 15:03:55 +00:00			`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`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`db -1 ; end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`; These specify where the player goes after getting out of the elevator.`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`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`
Identify more map script labels 2023-11-19 00:44:03 +00:00			`.End:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Identify more map script labels 2023-11-19 00:44:03 +00:00			`SilphCoElevatorShakeScript:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Delay3`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall ShakeElevator`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`SilphCoElevator_TextPointers:`
Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`def_text_pointers`
			`dw_const SilphCoElevatorElevatorText, TEXT_SILPHCOELEVATOR_ELEVATOR`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`SilphCoElevatorElevatorText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
Add macros, constants, and labels for map scripts and text (#367) 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. 2023-07-14 01:27:56 +00:00			`call SilphCoElevatorCopyWarpMapsScript`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`ld hl, SilphCoElevatorWarpMaps`
named function 2015-07-24 04:00:30 +00:00			`predef DisplayElevatorFloorMenu`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`