shithub: pokered

ref: 36f8cd1477b8ebe0537e99abd3ba53471a2e16c4
dir: /scripts/Route5Gate.asm/

View raw version
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
	ld [hJoyHeld], a
	callba RemoveGuardDrink
	ld a, [hItemToRemoveID]
	and a
	jr nz, .asm_1df82
	ld a, $2
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	call Route5GateScript_1df43
	ld a, $1
	ld [wRoute5GateCurScript], a
	ret
.asm_1df82
	ld a, $3
	ld [hSpriteIndexOrTextID], a
	call DisplayTextID
	ld hl, wd728
	set 6, [hl]
	ret

CoordsData_1df8f:
	db 3,3
	db 3,4
	db $ff

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:
	TX_ASM
	ld a, [wd728]
	bit 6, a
	jr nz, .asm_88856
	callba RemoveGuardDrink
	ld 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:
	TX_FAR _SaffronGateText_1dfe7
	db "@"

Route8GateText3:
Route7GateText3:
Route6GateText3:
Route5GateText3:
	TX_FAR _SaffronGateText_8aaa9
	TX_SFX_KEY_ITEM
	TX_FAR _SaffronGateText_1dff1
	db "@"

SaffronGateText_1dff6:
	TX_FAR _SaffronGateText_1dff6
	db "@"