pokered-rematch/scripts/rockethideoutelevator.asm

RocketHideoutElevatorScript:
	ld hl, wCurrentMapScriptFlags
	bit 5, [hl]
	res 5, [hl]
	push hl
	call nz, RocketHideoutElevatorScript_4572c
	pop hl
	bit 7, [hl]
	res 7, [hl]
	call nz, RocketHideoutElevatorScript_4575f
	xor a
	ld [wAutoTextBoxDrawingControl], a
	inc a
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ret

RocketHideoutElevatorScript_4572c:
	ld hl, wWarpEntries
	ld a, [wWarpedFromWhichWarp]
	ld b, a
	ld a, [wWarpedFromWhichMap]
	ld c, a
	call RocketHideoutElevatorScript_4573a

RocketHideoutElevatorScript_4573a:
	inc hl
	inc hl
	ld a, b
	ld [hli], a
	ld a, c
	ld [hli], a
	ret

RocketHideoutElevatorScript_45741:
	ld hl, RocketHideoutElavatorFloors
	call LoadItemList
	ld hl, RocketHideoutElevatorWarpMaps
	ld de, wElevatorWarpMaps
	ld bc, RocketHideoutElevatorWarpMapsEnd - RocketHideoutElevatorWarpMaps
	call CopyData
	ret

RocketHideoutElavatorFloors:
	db $03 ; num elements in list
	db FLOOR_B1F
	db FLOOR_B2F
	db FLOOR_B4F
	db $FF ; terminator

RocketHideoutElevatorWarpMaps:
; first byte is warp number
; second byte is map number
; These specify where the player goes after getting out of the elevator.
	db $04, ROCKET_HIDEOUT_1
	db $04, ROCKET_HIDEOUT_2
	db $02, ROCKET_HIDEOUT_4
RocketHideoutElevatorWarpMapsEnd:

RocketHideoutElevatorScript_4575f:
	call Delay3
	callba ShakeElevator
	ret

RocketHideoutElevatorTextPointers:
	dw RocketHideoutElevatorText1

RocketHideoutElevatorText1:
	TX_ASM
	ld b, LIFT_KEY
	call IsItemInBag
	jr z, .asm_45782
	call RocketHideoutElevatorScript_45741
	ld hl, RocketHideoutElevatorWarpMaps
	predef DisplayElevatorFloorMenu
	jr .asm_45788
.asm_45782
	ld hl, RocketHideoutElevatorText_4578b
	call PrintText
.asm_45788
	jp TextScriptEnd

RocketHideoutElevatorText_4578b:
	TX_FAR _RocketElevatorText_4578b
	TX_WAIT
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorScript:`
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, RocketHideoutElevatorScript_4572c`
			`pop hl`
			`bit 7, [hl]`
			`res 7, [hl]`
			`call nz, RocketHideoutElevatorScript_4575f`
			`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`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorScript_4572c:`
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 RocketHideoutElevatorScript_4573a`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorScript_4573a:`
$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`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorScript_45741:`
$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, RocketHideoutElavatorFloors`
$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, RocketHideoutElevatorWarpMaps`
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, RocketHideoutElevatorWarpMapsEnd - RocketHideoutElevatorWarpMaps`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CopyData`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElavatorFloors:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $03 ; num elements in list`
Use constants for elevator floors 2015-08-10 15:03:55 +00:00			`db FLOOR_B1F`
			`db FLOOR_B2F`
			`db FLOOR_B4F`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $FF ; terminator`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorWarpMaps:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`; first byte is warp number`
			`; second byte is map number`
			`; These specify where the player goes after getting out of the elevator.`
			`db $04, ROCKET_HIDEOUT_1`
			`db $04, ROCKET_HIDEOUT_2`
			`db $02, ROCKET_HIDEOUT_4`
Replace some hardcoded data sizes 2015-08-10 04:56:20 +00:00			`RocketHideoutElevatorWarpMapsEnd:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorScript_4575f:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorTextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw RocketHideoutElevatorText1`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorText1:`
$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			`ld b, LIFT_KEY`
			`call IsItemInBag`
$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			`jr z, .asm_45782`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call RocketHideoutElevatorScript_45741`
$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, RocketHideoutElevatorWarpMaps`
named function 2015-07-24 04:00:30 +00:00			`predef DisplayElevatorFloorMenu`
$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			`jr .asm_45788`
			`.asm_45782`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, RocketHideoutElevatorText_4578b`
			`call PrintText`
$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			`.asm_45788`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`RocketHideoutElevatorText_4578b:`
$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			`TX_FAR _RocketElevatorText_4578b`
Clean up text commands 2016-07-18 06:17:03 +00:00			`TX_WAIT`
			`db "@"`