pokered/scripts/silphcoelevator.asm

SilphCoElevatorScript: ; 457c0 (11:57c0)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	push hl
	call nz, SilphCoElevatorScript_457dc
	pop hl
	bit 7, [hl]
	res 7, [hl]
	call nz, SilphCoElevatorScript_45827
	xor a
	ld [wAutoTextBoxDrawingControl], a
	inc a
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ret

SilphCoElevatorScript_457dc: ; 457dc (11:57dc)
	ld hl, wWarpEntries
	ld a, [wWarpedFromWhichWarp]
	ld b, a
	ld a, [wWarpedFromWhichMap]
	ld c, a
	call SilphCoElevatorScript_457ea

SilphCoElevatorScript_457ea: ; 457ea (11:57ea)
	inc hl
	inc hl
	ld a, b
	ld [hli], a
	ld a, c
	ld [hli], a
	ret

SilphCoElevatorScript_457f1: ; 457f1 (11:57f1)
	ld hl, SilphCoElavatorFloors
	call LoadItemList
	ld hl, SilphCoElevatorWarpMaps
	ld de, wElevatorWarpMaps
	ld bc, SilphCoElevatorWarpMapsEnd - SilphCoElevatorWarpMaps
	call CopyData
	ret

SilphCoElavatorFloors: ; 45804 (11:45804)
	db $0B ; num elements in list
	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 $FF ; terminator

SilphCoElevatorWarpMaps: ; 45811 (11:45811)
; first byte is warp number
; second byte is map number
; These specify where the player goes after getting out of the elevator.
	db $03, SILPH_CO_1F
	db $02, SILPH_CO_2F
	db $02, SILPH_CO_3F
	db $02, SILPH_CO_4F
	db $02, SILPH_CO_5F
	db $02, SILPH_CO_6F
	db $02, SILPH_CO_7F
	db $02, SILPH_CO_8F
	db $02, SILPH_CO_9F
	db $02, SILPH_CO_10F
	db $01, SILPH_CO_11F
SilphCoElevatorWarpMapsEnd:

SilphCoElevatorScript_45827: ; 45827 (11:5827)
	call Delay3
	callba ShakeElevator
	ret

SilphCoElevatorTextPointers: ; 45833 (11:5833)
	dw SilphCoElevatorText1

SilphCoElevatorText1: ; 45835 (11:5835)
	TX_ASM
	call SilphCoElevatorScript_457f1
	ld hl, SilphCoElevatorWarpMaps
	predef DisplayElevatorFloorMenu
	jp TextScriptEnd
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`SilphCoElevatorScript: ; 457c0 (11:57c0)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd126`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 5, [hl]`
			`res 5, [hl]`
			`push hl`
			`call nz, SilphCoElevatorScript_457dc`
			`pop hl`
			`bit 7, [hl]`
			`res 7, [hl]`
			`call nz, SilphCoElevatorScript_45827`
			`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`

			`SilphCoElevatorScript_457dc: ; 457dc (11:57dc)`
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`
			`call SilphCoElevatorScript_457ea`

			`SilphCoElevatorScript_457ea: ; 457ea (11:57ea)`
			`inc hl`
			`inc hl`
			`ld a, b`
			`ld [hli], a`
			`ld a, c`
			`ld [hli], a`
			`ret`

			`SilphCoElevatorScript_457f1: ; 457f1 (11:57f1)`
$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, SilphCoElavatorFloors`
$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`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`ld bc, SilphCoElevatorWarpMapsEnd - SilphCoElevatorWarpMaps`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CopyData`
			`ret`

			`SilphCoElavatorFloors: ; 45804 (11:45804)`
			`db $0B ; num elements in list`
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`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF ; terminator`

			`SilphCoElevatorWarpMaps: ; 45811 (11:45811)`
			`; first byte is warp number`
			`; second byte is map number`
			`; These specify where the player goes after getting out of the elevator.`
			`db $03, SILPH_CO_1F`
			`db $02, SILPH_CO_2F`
			`db $02, SILPH_CO_3F`
			`db $02, SILPH_CO_4F`
			`db $02, SILPH_CO_5F`
			`db $02, SILPH_CO_6F`
			`db $02, SILPH_CO_7F`
			`db $02, SILPH_CO_8F`
			`db $02, SILPH_CO_9F`
			`db $02, SILPH_CO_10F`
			`db $01, SILPH_CO_11F`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`SilphCoElevatorWarpMapsEnd:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`SilphCoElevatorScript_45827: ; 45827 (11:5827)`
			`call Delay3`
$U-Fish-PC\Daniel$ Merge branch 'master' of https://github.com/huderlem/pokered into pull-data Conflicts: main.asm text.asm text/maps/route_22.asm 2014-05-19 14:38:20 +00:00			`callba ShakeElevator`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`SilphCoElevatorTextPointers: ; 45833 (11:5833)`
			`dw SilphCoElevatorText1`

			`SilphCoElevatorText1: ; 45835 (11:5835)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call SilphCoElevatorScript_457f1`
$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`