pokered/scripts/route22gate.asm

Route22GateScript:
	call EnableAutoTextBoxDrawing
	ld hl, Route22GateScriptPointers
	ld a, [wRoute22GateCurScript]
	call CallFunctionInTable
	ld a, [wYCoord]
	cp $4
	ld a, ROUTE_23
	jr c, .asm_1e69a
	ld a, ROUTE_22
.asm_1e69a
	ld [wLastMap], a
	ret

Route22GateScriptPointers:
	dw Route22GateScript0
	dw Route22GateScript1
	dw Route22GateScript2

Route22GateScript0:
	ld hl, Route22GateScriptCoords
	call ArePlayerCoordsInArray
	ret nc
	xor a
	ld [hJoyHeld], a
	ld a, $1
	ld [hSpriteIndexOrTextID], a
	jp DisplayTextID

Route22GateScriptCoords:
	db 2,4
	db 2,5
	db $ff

Route22GateScript_1e6ba:
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	ld a, D_DOWN
	ld [wSimulatedJoypadStatesEnd], a
	ld [wSpriteStateData1 + 9], a
	ld [wJoyIgnore], a
	jp StartSimulatingJoypadStates

Route22GateScript1:
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	xor a
	ld [wJoyIgnore], a
	call Delay3
	ld a, $0
	ld [wRoute22GateCurScript], a
Route22GateScript2:
	ret

Route22GateTextPointers:
	dw Route22GateText1

Route22GateText1:
	TX_ASM
	ld a, [wObtainedBadges]
	bit 0, a
	jr nz, .asm_1e6f6
	ld hl, Route22GateText_1e704
	call PrintText
	call Route22GateScript_1e6ba
	ld a, $1
	jr .asm_1e6fe
.asm_1e6f6
	ld hl, Route22GateText_1e71a
	call PrintText
	ld a, $2
.asm_1e6fe
	ld [wRoute22GateCurScript], a
	jp TextScriptEnd

Route22GateText_1e704:
	TX_FAR _Route22GateText_1e704
	TX_ASM
	ld a, SFX_DENIED
	call PlaySoundWaitForCurrent
	call WaitForSoundToFinish
	ld hl, Route22GateText_1e715
	ret

Route22GateText_1e715:
	TX_FAR _Route22GateText_1e715
	db "@"

Route22GateText_1e71a:
	TX_FAR _Route22GateText_1e71a
	TX_SFX_ITEM_1
	db "@"
remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateScript:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call EnableAutoTextBoxDrawing`
			`ld hl, Route22GateScriptPointers`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wRoute22GateCurScript]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call CallFunctionInTable`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wYCoord]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $4`
$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			`ld a, ROUTE_23`
$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 c, .asm_1e69a`
$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			`ld a, ROUTE_22`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_1e69a`
$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			`ld [wLastMap], 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			`Route22GateScriptPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Route22GateScript0`
			`dw Route22GateScript1`
			`dw Route22GateScript2`

remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateScript0:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route22GateScriptCoords`
			`call ArePlayerCoordsInArray`
			`ret nc`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyHeld], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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			`jp DisplayTextID`

remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateScriptCoords:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db 2,4`
			`db 2,5`
			`db $ff`

remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateScript_1e6ba:`
$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`
More direction constants facing directions, npc movement, joypad 2015-07-17 07:52:25 +00:00			`ld a, D_DOWN`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`ld [wSimulatedJoypadStatesEnd], 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 [wSpriteStateData1 + 9], a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`jp StartSimulatingJoypadStates`
$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			`Route22GateScript1:`
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`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Delay3`
			`ld a, $0`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute22GateCurScript], a`
remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateScript2:`
$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			`Route22GateTextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Route22GateText1`

remove address comments 2016-06-12 00:24:04 +00:00			`Route22GateText1:`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wObtainedBadges]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, 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_1e6f6`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route22GateText_1e704`
			`call PrintText`
			`call Route22GateScript_1e6ba`
			`ld a, $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 .asm_1e6fe`
			`.asm_1e6f6`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route22GateText_1e71a`
			`call PrintText`
			`ld a, $2`
$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_1e6fe`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute22GateCurScript], a`
$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			`Route22GateText_1e704:`
$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 _Route22GateText_1e704`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
Name sound effects 2015-07-19 08:46:12 +00:00			`ld a, SFX_DENIED`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PlaySoundWaitForCurrent`
			`call WaitForSoundToFinish`
$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, Route22GateText_1e715`
$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			`Route22GateText_1e715:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _Route22GateText_1e715`
			`db "@"`

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