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/SilentHillHouse.asm", ROMX
SilentHillHouseScriptLoader:: ; 4839
ld hl, SilentHillHouseScriptPointers
call RunMapScript
call WriteBackMapScriptNumber
ret
SilentHillHouseScriptPointers: ; 4843
dw SilentHillHouseScript1
dw SilentHillHouseNPCIDs1
dw SilentHillHouseScript2
dw SilentHillHouseNPCIDs2
dw SilentHillHouseScript3
dw SilentHillHouseNPCIDs1
SilentHillHouseScript1: ; 484F
ld hl, SilentHillHouseNPCIDs1
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseScript2: ; 4859
ld hl, SilentHillHouseNPCIDs2
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseScript3: ; 4863
ld hl, SilentHillHouseNPCIDs1
ld de, SilentHillHouseTextPointers2
call CallMapTextSubroutine
ret
SilentHillHouseNPCIDs1:
db 0
db $FF
SilentHillHouseNPCIDs2:
db 0
db 1
db $FF
SilentHillHouseTextPointers2:: ; 4872
dw SilentHillHouseNPCText1
dw Function38bd
dw Function3899
dw Function38b4
dw Function38ab
dw Function38cf
SilentHillHouseNPCText1: ; 487E
ld hl, wd41a
bit 6, [hl]
jr nz, .jump
ld hl, SilentHillHouseTextString1
call OpenTextbox
ret
.jump
; 488C
call RefreshScreen
callab Function1477D
call Function1fea
ret
SilentHillHouseTextString1: ; 489B
text "おや？ <RIVAL>あてに メールが"
line "とどいている ようだ"
cont "よんでみる？@"
db $08
SilentHillHouseNPCText2: ; 48BD (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: ; 48DB
text "とつぜん メールを さしあげる"
line "しつれいを おゆるしあれ"
para "じつは きみに どうしても"
line "わたしたい ものが あるのじゃが"
cont "うけとって もらえんかのう"
cont "ポケモンけんきゅうしゃ オーキド"
done
SilentHillHouseTextString3: ; 4937
text "ひとのメールは"
line "みちゃ いけないよな<⋯⋯>"
done
SilentHillHouseTextPointers:: ; 494C
dw SilentHillHouseNPCText3
dw SilentHillHouseNPCText4
SilentHillHouseNPCText3: ; 4950
ld hl, SilentHillHouseTextString4
call OpenTextbox
ret
SilentHillHouseTextString4: ; 4957
text "このまえ かわったいろの"
line "ポッポを みかけたわ"
done
SilentHillHouseNPCText4: ; 4970
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: ; 4991
text "ケン『ななな"
line "なんだ <PLAYER> じゃないか！"
para "おれは ちょっと あのー"
line"がっこうの しゅくだいを"
cont "おしえに きてるんだ！"
para "えっ マップ？"
line "そうか そんな やくそくも してたな"
cont "わかった"
cont "トレーナーギアを かしてみな"
para "スロットに マップの カセットを "
line "さしこんでっと⋯⋯"
cont "よし これで マップが みれるぞ！"
done
SilentHillHouseTextString6: ; 4A29
text "もし オールドにいくなら"
line "マサキって やつに あうといい"
para "おれの ともだちで"
line "すごい ポケモン マニアだ！"
cont "きっと おまえの"
cont "てだすけを してくれるぜ"
done
SilentHillHouseTextString7: ; 4A76
text "ケン『<PLAYER>"
line "オーキドはかせに みこまれて"
cont "ポケモンずかんを つくるんだって？"
cont "すごいじゃないか がんばれよ"
done
; 4AAC
|
