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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
object_const_def
const ROUTE35GOLDENRODGATE_RANDY
const ROUTE35GOLDENRODGATE_POKEFAN_F
const ROUTE35GOLDENRODGATE_FISHER
Route35GoldenrodGate_MapScripts:
def_scene_scripts
def_callbacks
RandyScript:
faceplayer
opentext
checkevent EVENT_GOT_HP_UP_FROM_RANDY
iftrue .gothpup
checkevent EVENT_GAVE_KENYA
iftrue .questcomplete
checkevent EVENT_GOT_KENYA
iftrue .alreadyhavekenya
writetext Route35GoldenrodGateRandyAskTakeThisMonToMyFriendText
yesorno
iffalse .refused
writetext Route35GoldenrodGateRandyThanksText
promptbutton
waitsfx
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .partyfull
writetext Route35GoldenrodGatePlayerReceivedAMonWithMailText
playsound SFX_KEY_ITEM
waitsfx
givepoke SPEAROW, 10, NO_ITEM, GiftSpearowName, GiftSpearowOTName
givepokemail GiftSpearowMail
setevent EVENT_GOT_KENYA
.alreadyhavekenya
writetext Route35GoldenrodGateRandyWeirdTreeBlockingRoadText
waitbutton
closetext
end
.partyfull
writetext Route35GoldenrodGateRandyCantCarryAnotherMonText
waitbutton
closetext
end
.refused
writetext Route35GoldenrodGateRandyOhNeverMindThenText
waitbutton
closetext
end
.questcomplete
writetext Route35GoldenrodGateRandySomethingForYourTroubleText
promptbutton
verbosegiveitem HP_UP
iffalse .bagfull
setevent EVENT_GOT_HP_UP_FROM_RANDY
.gothpup
writetext Route35GoldenrodGateRandyMyPalWasSnoozingRightText
waitbutton
.bagfull
closetext
end
GiftSpearowMail:
db FLOWER_MAIL
db "DARK CAVE leads"
next "to another road@"
GiftSpearowName:
db "KENYA@"
GiftSpearowOTName:
db "RANDY@"
db 0 ; unused
Route35GoldenrodGatePokefanFScript:
faceplayer
opentext
checkevent EVENT_FOUGHT_SUDOWOODO
iftrue .FoughtSudowoodo
writetext Route35GoldenrodGatePokefanFText
waitbutton
closetext
end
.FoughtSudowoodo
writetext Route35GoldenrodGatePokefanFText_FoughtSudowoodo
waitbutton
closetext
end
Route35GoldenrodGateFisherScript:
jumptextfaceplayer Route35GoldenrodGateFisherText
Route35GoldenrodGateRandyAskTakeThisMonToMyFriendText:
text "Excuse me, kid!"
line "Can you do a guy"
cont "a favor?"
para "Can you take this"
line "#MON with MAIL"
cont "to my friend?"
para "He's on ROUTE 31."
done
Route35GoldenrodGateRandyThanksText:
text "You will? Perfect!"
line "Thanks, kid!"
para "My pal's a chubby"
line "guy who snoozes"
cont "all the time."
para "You'll recognize"
line "him right away!"
done
Route35GoldenrodGatePlayerReceivedAMonWithMailText:
text "<PLAYER> received a"
line "#MON with MAIL."
done
Route35GoldenrodGateRandyWeirdTreeBlockingRoadText:
text "You can read it,"
line "but don't lose it!"
cont "ROUTE 31!"
para "Oh, yeah. There"
line "was a weird tree"
cont "blocking the road."
para "I wonder if it's"
line "been cleared?"
done
Route35GoldenrodGateRandyCantCarryAnotherMonText:
text "You can't carry"
line "another #MON…"
done
Route35GoldenrodGateRandyOhNeverMindThenText:
text "Oh… Never mind,"
line "then…"
done
Route35GoldenrodGateRandySomethingForYourTroubleText:
text "Thanks, kid! You"
line "made the delivery"
cont "for me!"
para "Here's something"
line "for your trouble!"
done
Route35GoldenrodGateRandyMyPalWasSnoozingRightText:
text "My pal was snooz-"
line "ing, right? Heh,"
cont "what'd I say?"
done
Route35GoldenrodGatePokefanFText:
text "A strange tree is"
line "blocking the road."
para "It wriggles around"
line "if you talk to it."
para "I heard it became"
line "wild when someone"
para "watered it with a"
line "SQUIRTBOTTLE."
done
Route35GoldenrodGatePokefanFText_FoughtSudowoodo:
text "I like the #MON"
line "Lullaby they play"
cont "on the radio."
done
Route35GoldenrodGateFisherText:
text "I wonder how many"
line "kinds of #MON"
para "there are in the"
line "world."
para "Three years ago,"
line "PROF.OAK said that"
para "there were 150"
line "different kinds."
done
Route35GoldenrodGate_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 4, 0, ROUTE_35, 1
warp_event 5, 0, ROUTE_35, 2
warp_event 4, 7, GOLDENROD_CITY, 12
warp_event 5, 7, GOLDENROD_CITY, 12
def_coord_events
def_bg_events
def_object_events
object_event 0, 4, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, RandyScript, -1
object_event 6, 4, SPRITE_POKEFAN_F, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, Route35GoldenrodGatePokefanFScript, -1
object_event 3, 2, SPRITE_FISHER, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, Route35GoldenrodGateFisherScript, -1
|
