pokered/scripts/Route6Gate.asm

Route6Gate_Script:
	call EnableAutoTextBoxDrawing
	ld hl, Route6Gate_ScriptPointers
	ld a, [wRoute6GateCurScript]
	call CallFunctionInTable
	ret

Route6Gate_ScriptPointers:
	dw Route6GateScript0
	dw Route6GateScript1

Route6GateScript0:
	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
	ldh [hJoyHeld], a
	farcall RemoveGuardDrink
	ldh a, [hItemToRemoveID]
	and a
	jr nz, .asm_1e080
	ld a, $2
	ldh [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
	ldh [hSpriteIndexOrTextID], a
	jp DisplayTextID

CoordsData_1e08c:
	dbmapcoord  3,  2
	dbmapcoord  4,  2
	db -1 ; end

Route6GateScript1:
	ld a, [wSimulatedJoypadStatesIndex]
	and a
	ret nz
	call Delay3
	xor a
	ld [wJoyIgnore], a
	ld [wRoute6GateCurScript], a
	ret

Route6GateScript_1e0a1:
	ld hl, wd730
	set 7, [hl]
	ld a, $80
	ld [wSimulatedJoypadStatesEnd], a
	ld a, $1
	ld [wSimulatedJoypadStatesIndex], a
	xor a
	ld [wSpritePlayerStateData2MovementByte1], a
	ld [wOverrideSimulatedJoypadStatesMask], a
	ret

Route6Gate_TextPointers:
	dw Route6GateText1
	dw Route6GateText2
	dw Route6GateText3
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`Route6Gate_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call EnableAutoTextBoxDrawing`
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`ld hl, Route6Gate_ScriptPointers`
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`

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

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

remove address comments 2016-06-12 00:24:04 +00:00			`CoordsData_1e08c:`
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, 2`
			`dbmapcoord 4, 2`
			`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			`Route6GateScript1:`
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`

remove address comments 2016-06-12 00:24:04 +00:00			`Route6GateScript_1e0a1:`
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`
Identify wSpriteStateData1 and wSpriteStateData2 offsets, like pokeyellow 2020-07-05 21:29:11 +00:00			`ld [wSpritePlayerStateData2MovementByte1], 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`

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