pokered/scripts/Route5Gate.asm

Route5Gate_Script:
	call EnableAutoTextBoxDrawing
	ld a, [wRoute5GateCurScript]
	ld hl, Route5Gate_ScriptPointers
	jp CallFunctionInTable

Route5Gate_ScriptPointers:
	dw Route5GateScript0
	dw Route5GateScript1

Route5GateScript_1df43:
	ld a, D_UP
	ld [wSimulatedJoypadStatesEnd], a
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	jp StartSimulatingJoypadStates

Route5GateScript0:
	ld a, [wd728]
	bit 6, a
	ret nz
	ld hl, CoordsData_1df8f
	call ArePlayerCoordsInArray
	ret nc
	ld a, PLAYER_DIR_LEFT
	ld [wPlayerMovingDirection], a
	xor a
	ldh [hJoyHeld], a
	farcall RemoveGuardDrink
	ldh a, [hItemToRemoveID]
	and a
	jr nz, .asm_1df82
	ld a, $2
	ldh [hSpriteIndexOrTextID], a
	call DisplayTextID
	call Route5GateScript_1df43
	ld a, $1
	ld [wRoute5GateCurScript], a
	ret
.asm_1df82
	ld a, $3
	ldh [hSpriteIndexOrTextID], a
	call DisplayTextID
	ld hl, wd728
	set 6, [hl]
	ret

CoordsData_1df8f:
	dbmapcoord  3,  3
	dbmapcoord  4,  3
	db -1 ; end

Route5GateScript1:
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	xor a
	ld [wJoyIgnore], a
	ld [wRoute5GateCurScript], a
	ret

Route5Gate_TextPointers:
	dw Route5GateText1
	dw Route5GateText2
	dw Route5GateText3

Route8GateText1:
Route7GateText1:
Route6GateText1:
Route5GateText1:
	text_asm
	ld a, [wd728]
	bit 6, a
	jr nz, .asm_88856
	farcall RemoveGuardDrink
	ldh a, [hItemToRemoveID]
	and a
	jr nz, .asm_768a2
	ld hl, Route5GateText2
	call PrintText
	call Route5GateScript_1df43
	ld a, $1
	ld [wRoute5GateCurScript], a
	jp TextScriptEnd
.asm_768a2
	ld hl, Route5GateText3
	call PrintText
	ld hl, wd728
	set 6, [hl]
	jp TextScriptEnd
.asm_88856
	ld hl, SaffronGateText_1dff6
	call PrintText
	jp TextScriptEnd

Route8GateText2:
Route7GateText2:
Route6GateText2:
Route5GateText2:
	text_far _SaffronGateText_1dfe7
	text_end

Route8GateText3:
Route7GateText3:
Route6GateText3:
Route5GateText3:
	text_far _SaffronGateText_8aaa9
	sound_get_key_item
	text_far _SaffronGateText_1dff1
	text_end

SaffronGateText_1dff6:
	text_far _SaffronGateText_1dff6
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`Route5Gate_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call EnableAutoTextBoxDrawing`
No more W_ 2015-08-31 02:38:41 +00:00			`ld a, [wRoute5GateCurScript]`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, Route5Gate_ScriptPointers`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp CallFunctionInTable`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`Route5Gate_ScriptPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Route5GateScript0`
			`dw Route5GateScript1`

remove address comments 2016-06-12 00:24:04 +00:00			`Route5GateScript_1df43:`
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 [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`
			`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			`Route5GateScript0:`
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_1df8f`
			`call ArePlayerCoordsInArray`
			`ret nc`
naming 2015-07-20 00:52:26 +00:00			`ld a, PLAYER_DIR_LEFT`
			`ld [wPlayerMovingDirection], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hJoyHeld], a`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall RemoveGuardDrink`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hItemToRemoveID]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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_1df82`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
			`call Route5GateScript_1df43`
			`ld a, $1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute5GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ret`
			`.asm_1df82`
			`ld a, $3`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hSpriteIndexOrTextID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextID`
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]`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`CoordsData_1df8f:`
Reformat map scripts' coordinate and movement data 'dbmapcoord' has X, Y order like other coordinate-related data macros 2020-07-16 16:32:19 +00:00			`dbmapcoord 3, 3`
			`dbmapcoord 4, 3`
			`db -1 ; end`
$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			`Route5GateScript1:`
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 [wRoute5GateCurScript], 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$ Clean up white space 2014-06-09 20:58:02 +00:00
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`Route5Gate_TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw Route5GateText1`
			`dw Route5GateText2`
			`dw Route5GateText3`

remove address comments 2016-06-12 00:24:04 +00:00			`Route8GateText1:`
			`Route7GateText1:`
			`Route6GateText1:`
			`Route5GateText1:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
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`
$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_88856`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall RemoveGuardDrink`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh a, [hItemToRemoveID]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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_768a2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route5GateText2`
			`call PrintText`
			`call Route5GateScript_1df43`
			`ld a, $1`
No more W_ 2015-08-31 02:38:41 +00:00			`ld [wRoute5GateCurScript], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`
$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_768a2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Route5GateText3`
			`call PrintText`
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]`
			`jp TextScriptEnd`
$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_88856`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, SaffronGateText_1dff6`
			`call PrintText`
			`jp TextScriptEnd`

remove address comments 2016-06-12 00:24:04 +00:00			`Route8GateText2:`
			`Route7GateText2:`
			`Route6GateText2:`
			`Route5GateText2:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SaffronGateText_1dfe7`
			`text_end`
$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			`Route8GateText3:`
			`Route7GateText3:`
			`Route6GateText3:`
			`Route5GateText3:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SaffronGateText_8aaa9`
			`sound_get_key_item`
			`text_far _SaffronGateText_1dff1`
			`text_end`
$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			`SaffronGateText_1dff6:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_far _SaffronGateText_1dff6`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00