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
|
INCLUDE "constants.asm"
SECTION "scripts/SilentHillHouse.asm", ROMX
SilentHillHouse_ScriptLoader::
ld hl, SilentHillHouseScriptPointers
call RunMapScript
call WriteBackMapScriptNumber
ret
SilentHillHouseScriptPointers:
dw SilentHillHouseScript1
dw SilentHillHouseNPCIDs1
dw SilentHillHouseScript2
dw SilentHillHouseNPCIDs2
dw SilentHillHouseScript3
dw SilentHillHouseNPCIDs1
SilentHillHouseScript1:
ld hl, SilentHillHouseNPCIDs1
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseScript2:
ld hl, SilentHillHouseNPCIDs2
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseScript3:
ld hl, SilentHillHouseNPCIDs1
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseNPCIDs1:
db 0
db $FF
SilentHillHouseNPCIDs2:
db 0
db 1
db $FF
SilentHillHouseTextPointers2::
dw SilentHillHouseNPCText1
dw Function38bd
dw Function3899
dw Function38b4
dw Function38ab
dw Function38cf
SilentHillHouseNPCText1:
ld hl, wd41a
bit 6, [hl]
jr nz, .jump
ld hl, SilentHillHouseTextString1
call OpenTextbox
ret
.jump
call RefreshScreen
callab PokemonCenterPC
call Function1fea
ret
SilentHillHouseTextString1:
text "おや？ <RIVAL>あてに メールが"
line "とどいている ようだ"
cont "よんでみる？@"
db $08
SilentHillHouseNPCText2: ; (unused due to typo in the text pointers?)
call YesNoBox
jr c, .jump
ld hl, wd41a
set 6, [hl]
ld hl, SilentHillHouseTextString2
call PrintText
call Function3036
ret
.jump
ld hl, SilentHillHouseTextString3
call PrintText
call Function3036
ret
SilentHillHouseTextString2:
text "とつぜん メールを さしあげる"
line "しつれいを おゆるしあれ"
para "じつは きみに どうしても"
line "わたしたい ものが あるのじゃが"
cont "うけとって もらえんかのう"
cont "ポケモンけんきゅうしゃ オーキド"
done
SilentHillHouseTextString3:
text "ひとのメールは"
line "みちゃ いけないよな<⋯⋯>"
done
SilentHillHouse_TextPointers::
dw SilentHillHouseNPCText3
dw SilentHillHouseNPCText4
SilentHillHouseNPCText3:
ld hl, SilentHillHouseTextString4
call OpenTextbox
ret
SilentHillHouseTextString4:
text "このまえ かわったいろの"
line "ポッポを みかけたわ"
done
SilentHillHouseNPCText4:
ld hl, wd41e
bit 2, [hl]
jr nz, .jump
ld hl, wd41e
set 2, [hl]
ld hl, SilentHillHouseTextString5
call OpenTextbox
call WaitBGMap
ld hl, SilentHillHouseTextString6
jr .skip
.jump
ld hl, SilentHillHouseTextString7
.skip
call OpenTextbox
ret
SilentHillHouseTextString5:
text "ケン『ななな"
line "なんだ <PLAYER> じゃないか！"
para "おれは ちょっと あのー"
line"がっこうの しゅくだいを"
cont "おしえに きてるんだ！"
para "えっ マップ？"
line "そうか そんな やくそくも してたな"
cont "わかった"
cont "トレーナーギアを かしてみな"
para "スロットに マップの カセットを "
line "さしこんでっと⋯⋯"
cont "よし これで マップが みれるぞ！"
done
SilentHillHouseTextString6:
text "もし オールドにいくなら"
line "マサキって やつに あうといい"
para "おれの ともだちで"
line "すごい ポケモン マニアだ！"
cont "きっと おまえの"
cont "てだすけを してくれるぜ"
done
SilentHillHouseTextString7:
text "ケン『<PLAYER>"
line "オーキドはかせに みこまれて"
cont "ポケモンずかんを つくるんだって？"
cont "すごいじゃないか がんばれよ"
done
|
