pokered/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, [wd73b]
	ld b, a
	ld a, [wd73c]
	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)
	ld b, BANK(ShakeElevator)
	ld hl, ShakeElevator
	jp Bankswitch

CeladonMartElevatorTextPointers: ; 4865c (12:465c)
	dw CeladonMartElevatorText1

CeladonMartElevatorText1: ; 4865e (12:465e)
	TX_ASM
	call CeladonMartElevatorScript_48631
	ld hl, CeldaonMartElevatorWarpMaps
	predef Func_1c9c6
	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)`
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, 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`
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 a, [wd73b]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
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 a, [wd73c]`
$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`
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 de, wcc5b`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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)`
			`ld b, BANK(ShakeElevator)`
			`ld hl, ShakeElevator`
			`jp Bankswitch`

			`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`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef Func_1c9c6`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`