1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
CinnabarIslandScript: ; 1ca19 (7:4a19)
call EnableAutoTextBoxDrawing
ld hl, wd126
set 5, [hl]
ResetEvent EVENT_MANSION_SWITCH_ON
ResetEvent EVENT_LAB_STILL_REVIVING_FOSSIL
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, PLAYER_DIR_UP
ld [wPlayerMovingDirection], a
ld a, $8
ld [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [hJoyHeld], a
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
ld a, D_DOWN
ld [wSimulatedJoypadStatesEnd], a
call StartSimulatingJoypadStates
xor a
ld [wSpriteStateData1 + 9], a
ld [wJoyIgnore], a
ld a, $1
ld [W_CINNABARISLANDCURSCRIPT], a
ret
CinnabarIslandScript1: ; 1ca73 (7:4a73)
ld a, [wSimulatedJoypadStatesIndex]
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 "@"
|
