mirror of
https://github.com/pret/pokeyellow.git
synced 2024-11-23 14:00:03 +00:00
88 lines
1.6 KiB
NASM
88 lines
1.6 KiB
NASM
|
CinnabarIslandScript: ; 1ca19 (7:4a19)
|
||
|
|
call EnableAutoTextBoxDrawing
|
||
|
|
ld hl, $d126
|
||
|
|
set 5, [hl]
|
||
|
|
ld hl, $d796
|
||
|
|
res 0, [hl]
|
||
|
|
ld hl, $d7a3
|
||
|
|
res 1, [hl]
|
||
|
|
ld hl, CinnabarIslandScriptPointers
|
||
|
|
ld a, [W_CINNABARISLANDCURSCRIPT]
|
||
|
|
jp CallFunctionInTable
|
||
|
|
|
||
|
|
CinnabarIslandScriptPointers: ; 1ca34 (7:4a34)
|
||
|
|
dw CinnabarIslandScript0
|
||
|
|
dw CinnabarIslandScript1
|
||
|
|
|
||
|
|
CinnabarIslandScript0: ; 1ca38 (7:4a38)
|
||
|
|
ld b, SECRET_KEY
|
||
|
|
call IsItemInBag
|
||
|
|
ret nz
|
||
|
|
ld a, [W_YCOORD]
|
||
|
|
cp $4
|
||
|
|
ret nz
|
||
|
|
ld a, [W_XCOORD]
|
||
|
|
cp $12
|
||
|
|
ret nz
|
||
|
|
ld a, $8
|
||
|
|
ld [$d528], a
|
||
|
|
ld a, $8
|
||
|
|
ld [$ff8c], a
|
||
|
|
call DisplayTextID
|
||
|
|
xor a
|
||
|
|
ld [H_CURRENTPRESSEDBUTTONS], a
|
||
|
|
ld a, $1
|
||
|
|
ld [$cd38], a
|
||
|
|
ld a, $80
|
||
|
|
ld [$ccd3], a
|
||
|
|
call Func_3486
|
||
|
|
xor a
|
||
|
|
ld [$c109], a
|
||
|
|
ld [wJoypadForbiddenButtonsMask], a
|
||
|
|
ld a, $1
|
||
|
|
ld [W_CINNABARISLANDCURSCRIPT], a
|
||
|
|
ret
|
||
|
|
|
||
|
|
CinnabarIslandScript1: ; 1ca73 (7:4a73)
|
||
|
|
ld a, [$cd38]
|
||
|
|
and a
|
||
|
|
ret nz
|
||
|
|
call Delay3
|
||
|
|
ld a, $0
|
||
|
|
ld [W_CINNABARISLANDCURSCRIPT], a
|
||
|
|
ret
|
||
|
|
|
||
|
|
CinnabarIslandTextPointers: ; 1ca81 (7:4a81)
|
||
|
|
dw CinnabarIslandText1
|
||
|
|
dw CinnabarIslandText2
|
||
|
|
dw CinnabarIslandText3
|
||
|
|
dw MartSignText
|
||
|
|
dw PokeCenterSignText
|
||
|
|
dw CinnabarIslandText6
|
||
|
|
dw CinnabarIslandText7
|
||
|
|
dw CinnabarIslandText8
|
||
|
|
|
||
|
|
CinnabarIslandText8: ; 1ca91 (7:4a91)
|
||
|
|
TX_FAR _CinnabarIslandText8
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
CinnabarIslandText1: ; 1ca96 (7:4a96)
|
||
|
|
TX_FAR _CinnabarIslandText1
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
CinnabarIslandText2: ; 1ca9b (7:4a9b)
|
||
|
|
TX_FAR _CinnabarIslandText2
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
CinnabarIslandText3: ; 1caa0 (7:4aa0)
|
||
|
|
TX_FAR _CinnabarIslandText3
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
CinnabarIslandText6: ; 1caa5 (7:4aa5)
|
||
|
|
TX_FAR _CinnabarIslandText6
|
||
|
|
db "@"
|
||
|
|
|
||
|
|
CinnabarIslandText7: ; 1caaa (7:4aaa)
|
||
|
|
TX_FAR _CinnabarIslandText7
|
||
|
|
db "@"
|