pokered/scripts/celadonmartelevator.asm

CeladonMartElevatorScript: ; 48600 (12:4600)
	ld hl, wCurrentMapScriptFlags
	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, wElevatorWarpMaps
	ld bc, CeldaonMartElevatorWarpMapsEnd - CeldaonMartElevatorWarpMaps
	jp CopyData

CeladonMartElavatorFloors: ; 48643 (12:4643)
	db $05 ; num elements in list
	db FLOOR_1F
	db FLOOR_2F
	db FLOOR_3F
	db FLOOR_4F
	db FLOOR_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
CeldaonMartElevatorWarpMapsEnd:

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
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`CeladonMartElevatorScript: ; 48600 (12:4600)`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
$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, CeladonMartElevatorScript_4861c`
			`pop hl`
			`bit 7, [hl]`
			`res 7, [hl]`
			`call nz, CeladonMartElevatorScript_48654`
			`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`

			`CeladonMartElevatorScript_4861c: ; 4861c (12:461c)`
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 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)`
$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, CeladonMartElavatorFloors`
$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, CeldaonMartElevatorWarpMaps`
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, CeldaonMartElevatorWarpMapsEnd - CeldaonMartElevatorWarpMaps`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp CopyData`

			`CeladonMartElavatorFloors: ; 48643 (12:4643)`
			`db $05 ; 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`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`CeldaonMartElevatorWarpMapsEnd:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`CeladonMartElevatorScript_48654: ; 48654 (12:4654)`
jpab/jpba macros 2015-07-19 18:56:13 +00:00			`jpba ShakeElevator`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`CeladonMartElevatorTextPointers: ; 4865c (12:465c)`
			`dw CeladonMartElevatorText1`

			`CeladonMartElevatorText1: ; 4865e (12:465e)`
$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 CeladonMartElevatorScript_48631`
$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, CeldaonMartElevatorWarpMaps`
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`