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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
include "constants.asm"
SECTION "maps/SilentHouse.asm", ROMX
SilentHouseScriptLoader:: ; 4839
ld hl, SilentHouseScriptPointers
call RunMapScript
call WriteBackMapScriptNumber
ret
SilentHouseScriptPointers: ; 4843
dw SilentHouseScript1
dw SilentHouseNPCIDs1
dw SilentHouseScript2
dw SilentHouseNPCIDs2
dw SilentHouseScript3
dw SilentHouseNPCIDs1
SilentHouseScript1: ; 484F
ld hl, SilentHouseNPCIDs1
ld de, SilentHouseTextPointers1
call CallMapTextSubroutine
ret
SilentHouseScript2: ; 4859
ld hl, SilentHouseNPCIDs2
ld de, SilentHouseTextPointers1
call CallMapTextSubroutine
ret
SilentHouseScript3: ; 4863
ld hl, SilentHouseNPCIDs1
ld de, SilentHouseTextPointers1
call CallMapTextSubroutine
ret
SilentHouseNPCIDs1:
db 0
db $FF
SilentHouseNPCIDs2:
db 0
db 1
db $FF
SilentHouseTextPointers1:: ; 4872
dw SilentHouseNPCText1
dw Function38bd
dw Function3899
dw Function38b4
dw Function38ab
dw Function38cf
SilentHouseNPCText1: ; 487E
ld hl, wd41a
bit 6, [hl]
jr nz, .jump
ld hl, SilentHouseTextString1
call OpenTextbox
ret
.jump
; 488C
call RefreshScreen
callab Function1477D
call Function1fea
ret
SilentHouseTextString1: ; 489B
text "おや？ <RIVAL>あてに メールが"
line "とどいている ようだ"
cont "よんでみる？@"
db $08
SilentHouseNPCText2: ; 48BD (unused due to typo in the text pointers?)
call YesNoBox
jr c, .jump
ld hl, wd41a
set 6, [hl]
ld hl, SilentHouseTextString2
call PrintText
call Function3036
ret
.jump
ld hl, SilentHouseTextString3
call PrintText
call Function3036
ret
SilentHouseTextString2: ; 48DB
text "とつぜん メールを さしあげる"
line "しつれいを おゆるしあれ"
para "じつは きみに どうしても"
line "わたしたい ものが あるのじゃが"
cont "うけとって もらえんかのう"
cont "ポケモンけんきゅうしゃ オーキド"
done
SilentHouseTextString3: ; 4937
text "ひとのメールは"
line "みちゃ いけないよな<⋯⋯>"
done
SilentHouseTextPointers2:: ; 494C
dw SilentHouseNPCText3
dw SilentHouseNPCText4
SilentHouseNPCText3: ; 4950
ld hl, SilentHouseTextString4
call OpenTextbox
ret
SilentHouseTextString4: ; 4957
text "このまえ かわったいろの"
line "ポッポを みかけたわ"
done
SilentHouseNPCText4: ; 4970
ld hl, wd41e
bit 2, [hl]
jr nz, .jump
ld hl, wd41e
set 2, [hl]
ld hl, SilentHouseTextString5
call OpenTextbox
call WaitBGMap
ld hl, SilentHouseTextString6
jr .skip
.jump
ld hl, SilentHouseTextString7
.skip
call OpenTextbox
ret
SilentHouseTextString5: ; 4991
text "ケン『ななな"
line "なんだ <PLAYER> じゃないか！"
para "おれは ちょっと あのー"
line"がっこうの しゅくだいを"
cont "おしえに きてるんだ！"
para "えっ マップ？"
line "そうか そんな やくそくも してたな"
cont "わかった"
cont "トレーナーギアを かしてみな"
para "スロットに マップの カセットを "
line "さしこんでっと⋯⋯"
cont "よし これで マップが みれるぞ！"
done
SilentHouseTextString6: ; 4A29
text "もし オールドにいくなら"
line "マサキって やつに あうといい"
para "おれの ともだちで"
line "すごい ポケモン マニアだ！"
cont "きっと おまえの"
cont "てだすけを してくれるぜ"
done
SilentHouseTextString7: ; 4A76
text "ケン『<PLAYER>"
line "オーキドはかせに みこまれて"
cont "ポケモンずかんを つくるんだって？"
cont "すごいじゃないか がんばれよ"
done
; 4AAC
|
