pokered/scripts/route6gate.asm

Route6GateScript: ; 1e03d (7:603d)
	call EnableAutoTextBoxDrawing
	ld hl, Route6GateScriptPointers
	ld a, [wRoute6GateCurScript]
	call CallFunctionInTable
	ret

Route6GateScriptPointers: ; 1e04a (7:604a)
	dw Route6GateScript0
	dw Route6GateScript1

Route6GateScript0: ; 1e04e (7:604e)
	ld a, [wd728]
	bit 6, a
	ret nz
	ld hl, CoordsData_1e08c
	call ArePlayerCoordsInArray
	ret nc
	ld a, PLAYER_DIR_RIGHT
	ld [wPlayerMovingDirection], a
	xor a
	ld [hJoyHeld], a
	callba RemoveGuardDrink
	ld a, [$ffdb]
	and a
	jr nz, .asm_1e080
	ld a, $2
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	call Route6GateScript_1e0a1
	ld a, $1
	ld [wRoute6GateCurScript], a
	ret
.asm_1e080
	ld hl, wd728
	set 6, [hl]
	ld a, $3
	ld [hSpriteIndexOrTextID], a
	jp DisplayTextID

CoordsData_1e08c: ; 1e08c (7:608c)
	db $02,$03
	db $02,$04,$FF

Route6GateScript1: ; 1e091 (7:6091)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	xor a
	ld [wJoyIgnore], a
	ld [wRoute6GateCurScript], a
	ret

Route6GateScript_1e0a1: ; 1e0a1 (7:60a1)
	ld hl, wd730
	set 7, [hl]
	ld a, $80
	ld [wSimulatedJoypadStatesEnd], a
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	xor a
	ld [wSpriteStateData2 + $06], a
	ld [wOverrideSimulatedJoypadStatesMask], a
	ret

Route6GateTextPointers: ; 1e0b8 (7:60b8)
	dw Route6GateText1
	dw Route6GateText2
	dw Route6GateText3
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`Route6GateScript: ; 1e03d (7:603d)`
			`call EnableAutoTextBoxDrawing`
			`ld hl, Route6GateScriptPointers`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wRoute6GateCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CallFunctionInTable`
			`ret`

			`Route6GateScriptPointers: ; 1e04a (7:604a)`
			`dw Route6GateScript0`
			`dw Route6GateScript1`

			`Route6GateScript0: ; 1e04e (7:604e)`
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, [wd728]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 6, a`
			`ret nz`
			`ld hl, CoordsData_1e08c`
			`call ArePlayerCoordsInArray`
			`ret nc`
naming 2015-07-20 00:52:26 +00:00			`ld a, PLAYER_DIR_RIGHT`
			`ld [wPlayerMovingDirection], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyHeld], a`
$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 RemoveGuardDrink`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [$ffdb]`
			`and a`
$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 nz, .asm_1e080`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
			`call Route6GateScript_1e0a1`
			`ld a, $1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute6GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`
			`.asm_1e080`
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, wd728`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 6, [hl]`
			`ld a, $3`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp DisplayTextID`

			`CoordsData_1e08c: ; 1e08c (7:608c)`
			`db $02,$03`
			`db $02,$04,$FF`

			`Route6GateScript1: ; 1e091 (7:6091)`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld a, [wSimulatedJoypadStatesIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`ret nz`
			`call Delay3`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute6GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`Route6GateScript_1e0a1: ; 1e0a1 (7:60a1)`
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, wd730`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 7, [hl]`
			`ld a, $80`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor 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 [wSpriteStateData2 + $06], a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wOverrideSimulatedJoypadStatesMask], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`Route6GateTextPointers: ; 1e0b8 (7:60b8)`
			`dw Route6GateText1`
			`dw Route6GateText2`
			`dw Route6GateText3`