pokered/engine/predefs7.asm

DisplayElevatorFloorMenu: ; 1c9c6 (7:49c6)
	ld hl, WhichFloorText
	call PrintText
	ld hl, wItemList
	ld a, l
	ld [wListPointer], a
	ld a, h
	ld [wListPointer + 1], a
	ld a, [wListScrollOffset]
	push af
	xor a
	ld [wCurrentMenuItem], a
	ld [wListScrollOffset], a
	ld [wPrintItemPrices], a
	ld a, SPECIALLISTMENU
	ld [wListMenuID], a
	call DisplayListMenuID
	pop bc
	ld a, b
	ld [wListScrollOffset], a
	ret c
	ld hl, wCurrentMapScriptFlags
	set 7, [hl]
	ld hl, wElevatorWarpMaps
	ld a, [wWhichPokemon]
	add a
	ld d, 0
	ld e, a
	add hl, de
	ld a, [hli]
	ld b, a
	ld a, [hl]
	ld c, a
	ld hl, wWarpEntries
	call .UpdateWarp

.UpdateWarp
	inc hl
	inc hl
	ld a, b
	ld [hli], a ; destination warp ID
	ld a, c
	ld [hli], a ; destination map ID
	ret

WhichFloorText: ; 1ca14 (7:4a14)
	TX_FAR _WhichFloorText
	db "@"
named function 2015-07-24 04:00:30 +00:00			`DisplayElevatorFloorMenu: ; 1c9c6 (7:49c6)`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, WhichFloorText`
			`call PrintText`
named wram variables 2015-07-15 06:16:06 +00:00			`ld hl, wItemList`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, l`
named wram variables 2015-07-15 06:16:06 +00:00			`ld [wListPointer], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, h`
named wram variables 2015-07-15 06:16:06 +00:00			`ld [wListPointer + 1], a`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`ld a, [wListScrollOffset]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`push af`
			`xor a`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`ld [wCurrentMenuItem], a`
			`ld [wListScrollOffset], a`
named wram variables 2015-07-13 06:00:48 +00:00			`ld [wPrintItemPrices], a`
named function 2015-07-24 04:00:30 +00:00			`ld a, SPECIALLISTMENU`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`ld [wListMenuID], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call DisplayListMenuID`
			`pop bc`
			`ld a, b`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`ld [wListScrollOffset], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret c`
Fix game time labels 2016-01-03 19:17:10 +00:00			`ld hl, wCurrentMapScriptFlags`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 7, [hl]`
named more variables 2015-08-13 05:14:31 +00:00			`ld hl, wElevatorWarpMaps`
fixed hp bar wram label and misc 2015-02-08 06:18:42 +00:00			`ld a, [wWhichPokemon]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`add a`
named function 2015-07-24 04:00:30 +00:00			`ld d, 0`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld e, a`
			`add hl, de`
			`ld a, [hli]`
			`ld b, a`
			`ld a, [hl]`
			`ld c, a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld hl, wWarpEntries`
named function 2015-07-24 04:00:30 +00:00			`call .UpdateWarp`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
named function 2015-07-24 04:00:30 +00:00			`.UpdateWarp`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
			`inc hl`
			`ld a, b`
named function 2015-07-24 04:00:30 +00:00			`ld [hli], a ; destination warp ID`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, c`
named function 2015-07-24 04:00:30 +00:00			`ld [hli], a ; destination map ID`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

			`WhichFloorText: ; 1ca14 (7:4a14)`
			`TX_FAR _WhichFloorText`
			`db "@"`