pokered/scripts/route16gate.asm

Route16GateScript: ; 496be (12:56be)
	ld hl, wd732
	res 5, [hl]
	call EnableAutoTextBoxDrawing
	ld a, [wRoute16GateCurScript]
	ld hl, Route16GateScriptPointers
	jp CallFunctionInTable

Route16GateScriptPointers: ; 496cf (12:56cf)
	dw Route16GateScript0
	dw Route16GateScript1
	dw Route16GateScript2
	dw Route16GateScript3

Route16GateScript0: ; 496d7 (12:56d7)
	call Route16GateScript_49755
	ret nz
	ld hl, CoordsData_49714
	call ArePlayerCoordsInArray
	ret nc
	ld a, $3
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	xor a
	ld [hJoyHeld], a
	ld a, [wCoordIndex]
	cp $1
	jr z, .asm_4970e
	ld a, [wCoordIndex]
	dec a
	ld [wSimulatedJoypadStatesIndex], a
	ld b, $0
	ld c, a
	ld a, D_UP
	ld hl, wSimulatedJoypadStatesEnd
	call FillMemory
	call StartSimulatingJoypadStates
	ld a, $1
	ld [wRoute16GateCurScript], a
	ret
.asm_4970e
	ld a, $2
	ld [wRoute16GateCurScript], a
	ret

CoordsData_49714: ; 49714 (12:5714)
	db $07,$04
	db $08,$04
	db $09,$04
	db $0A,$04
	db $FF

Route16GateScript1: ; 4971d (12:571d)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	ld a, $f0
	ld [wJoyIgnore], a

Route16GateScript2: ; 49727 (12:5727)
	ld a, $1
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	ld a, D_RIGHT
	ld [wSimulatedJoypadStatesEnd], a
	call StartSimulatingJoypadStates
	ld a, $3
	ld [wRoute16GateCurScript], a
	ret

Route16GateScript3: ; 49741 (12:5741)
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	xor a
	ld [wJoyIgnore], a
	ld hl, wd730
	res 7, [hl]
	ld a, $0
	ld [wRoute16GateCurScript], a
	ret

Route16GateScript_49755: ; 49755 (12:5755)
	ld b, BICYCLE
	jp IsItemInBag

Route16GateTextPointers: ; 4975a (12:575a)
	dw Route16GateText1
	dw Route16GateText2
	dw Route16GateText3

Route16GateText1: ; 49760 (12:5760)
	TX_ASM
	call Route16GateScript_49755
	jr z, .asm_0bdf3
	ld hl, Route16GateText_4977c
	call PrintText
	jr .asm_56c9d
.asm_0bdf3
	ld hl, Route16GateText_49777
	call PrintText
.asm_56c9d
	jp TextScriptEnd

Route16GateText_49777: ; 49777 (12:5777)
	TX_FAR _Route16GateText_49777
	db "@"

Route16GateText_4977c: ; 4977c (12:577c)
	TX_FAR _Route16GateText_4977c
	db "@"

Route16GateText3: ; 49781 (12:5781)
	TX_FAR _Route16GateText_49781
	db "@"

Route16GateText2: ; 49786 (12:5786)
	TX_FAR _Route16GateText2
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`Route16GateScript: ; 496be (12:56be)`
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, wd732`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 5, [hl]`
			`call EnableAutoTextBoxDrawing`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wRoute16GateCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route16GateScriptPointers`
			`jp CallFunctionInTable`

			`Route16GateScriptPointers: ; 496cf (12:56cf)`
			`dw Route16GateScript0`
			`dw Route16GateScript1`
			`dw Route16GateScript2`
			`dw Route16GateScript3`

			`Route16GateScript0: ; 496d7 (12:56d7)`
$U-Fish-PC\Daniel$ Relabel a few missed map scripts and TheEndTextString 2014-05-31 14:35:46 +00:00			`call Route16GateScript_49755`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret nz`
			`ld hl, CoordsData_49714`
			`call ArePlayerCoordsInArray`
			`ret nc`
			`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			`call DisplayTextID`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyHeld], a`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld a, [wCoordIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $1`
$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_4970e`
fix variable naming 2015-07-18 15:17:29 +00:00			`ld a, [wCoordIndex]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dec a`
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			`ld b, $0`
			`ld c, a`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`ld a, D_UP`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld hl, wSimulatedJoypadStatesEnd`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call FillMemory`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute16GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`
			`.asm_4970e`
			`ld a, $2`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute16GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`CoordsData_49714: ; 49714 (12:5714)`
			`db $07,$04`
			`db $08,$04`
			`db $09,$04`
			`db $0A,$04`
			`db $FF`

			`Route16GateScript1: ; 4971d (12:571d)`
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`
			`ld a, $f0`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`Route16GateScript2: ; 49727 (12:5727)`
			`ld a, $1`
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`
			`ld a, $1`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesIndex], a`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`ld a, D_RIGHT`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], a`
			`call StartSimulatingJoypadStates`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $3`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute16GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

			`Route16GateScript3: ; 49741 (12:5741)`
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`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], 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 hl, wd730`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 7, [hl]`
			`ld a, $0`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute16GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`

$U-Fish-PC\Daniel$ Relabel a few missed map scripts and TheEndTextString 2014-05-31 14:35:46 +00:00			`Route16GateScript_49755: ; 49755 (12:5755)`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, BICYCLE`
			`jp IsItemInBag`

			`Route16GateTextPointers: ; 4975a (12:575a)`
			`dw Route16GateText1`
			`dw Route16GateText2`
			`dw Route16GateText3`

			`Route16GateText1: ; 49760 (12:5760)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Relabel a few missed map scripts and TheEndTextString 2014-05-31 14:35:46 +00:00			`call Route16GateScript_49755`
$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_0bdf3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route16GateText_4977c`
			`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			`jr .asm_56c9d`
			`.asm_0bdf3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route16GateText_49777`
			`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_56c9d`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`Route16GateText_49777: ; 49777 (12:5777)`
			`TX_FAR _Route16GateText_49777`
			`db "@"`

			`Route16GateText_4977c: ; 4977c (12:577c)`
			`TX_FAR _Route16GateText_4977c`
			`db "@"`

			`Route16GateText3: ; 49781 (12:5781)`
			`TX_FAR _Route16GateText_49781`
			`db "@"`

			`Route16GateText2: ; 49786 (12:5786)`
			`TX_FAR _Route16GateText2`
			`db "@"`