pokered/scripts/route5gate.asm
2016-07-18 01:17:03 -05:00

117 lines
1.9 KiB
NASM
Executable file

Route5GateScript:
call EnableAutoTextBoxDrawing
ld a, [wRoute5GateCurScript]
ld hl, Route5GateScriptPointers
jp CallFunctionInTable
Route5GateScriptPointers:
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, [$ffdb]
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
Route5GateTextPointers:
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, [$ffdb]
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 "@"