pokered/scripts/route8gate.asm

71 lines
1.1 KiB
NASM
Raw Normal View History

2014-05-18 18:19:10 +00:00
Route8GateScript: ; 1e1c7 (7:61c7)
call EnableAutoTextBoxDrawing
ld hl, Route8GateScriptPointers
ld a, [W_ROUTE8GATECURSCRIPT]
jp CallFunctionInTable
Route8GateScriptPointers: ; 1e1d3 (7:61d3)
dw Route8GateScript0
dw Route8GateScript1
Route8GateScript_1e1d7: ; 1e1d7 (7:61d7)
ld hl, $d730
set 7, [hl]
ld a, $10
ld [$ccd3], a
ld a, $1
ld [$cd38], a
xor a
ld [$c206], a
ld [$cd3b], a
ret
Route8GateScript0: ; 1e1ee (7:61ee)
ld a, [$d728]
bit 6, a
ret nz
ld hl, CoordsData_1e22c
call ArePlayerCoordsInArray
ret nc
ld a, $2
ld [$d528], a
xor a
2014-05-25 17:51:53 +00:00
ld [hJoyHeld], a
callba RemoveGuardDrink
2014-05-18 18:19:10 +00:00
ld a, [$ffdb]
and a
jr nz, .asm_1e220 ; 0x1e20e $10
ld a, $2
ld [$ff8c], a
call DisplayTextID
call Route8GateScript_1e1d7
ld a, $1
ld [W_ROUTE8GATECURSCRIPT], a
ret
.asm_1e220
ld hl, $d728
set 6, [hl]
ld a, $3
ld [$ff8c], a
jp DisplayTextID
CoordsData_1e22c: ; 1e22c (7:622c)
db 3,2
db 4,2
db $ff
Route8GateScript1: ; 1e231 (7:6231)
ld a, [$cd38]
and a
ret nz
call Delay3
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2014-05-18 18:19:10 +00:00
ld [W_ROUTE8GATECURSCRIPT], a
ret
Route8GateTextPointers: ; 1e241 (7:6241)
dw Route8GateText1
dw Route8GateText2
dw Route8GateText3