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
215
216
217
218
219
220
221
222
223
224
|
object_const_def
const LAKEOFRAGEMAGIKARPHOUSE_FISHING_GURU
LakeOfRageMagikarpHouse_MapScripts:
def_scene_scripts
def_callbacks
MagikarpLengthRaterScript:
faceplayer
opentext
checkevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
iftrue .GetReward
checkevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
iftrue .AskedForMagikarp
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .ClearedRocketHideout
checkevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
iftrue .ExplainedHistory
writetext MagikarpLengthRaterText_LakeOfRageHistory
waitbutton
closetext
setevent EVENT_LAKE_OF_RAGE_EXPLAINED_WEIRD_MAGIKARP
end
.ExplainedHistory:
writetext MagikarpLengthRaterText_MenInBlack
waitbutton
closetext
end
.ClearedRocketHideout:
writetext MagikarpLengthRaterText_WorldsLargestMagikarp
waitbutton
closetext
setevent EVENT_LAKE_OF_RAGE_ASKED_FOR_MAGIKARP
end
.AskedForMagikarp:
setval MAGIKARP
special FindPartyMonThatSpecies
iffalse .ClearedRocketHideout
writetext MagikarpLengthRaterText_YouHaveAMagikarp
waitbutton
special CheckMagikarpLength
ifequal MAGIKARPLENGTH_NOT_MAGIKARP, .NotMagikarp
ifequal MAGIKARPLENGTH_REFUSED, .Refused
ifequal MAGIKARPLENGTH_TOO_SHORT, .TooShort
; MAGIKARPLENGTH_BEAT_RECORD
sjump .GetReward
.GetReward:
writetext MagikarpLengthRaterText_Memento
promptbutton
verbosegiveitem ELIXER
iffalse .NoRoom
writetext MagikarpLengthRaterText_Bonus
waitbutton
closetext
clearevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
end
.NoRoom:
closetext
setevent EVENT_LAKE_OF_RAGE_ELIXIR_ON_STANDBY
end
.TooShort:
writetext MagikarpLengthRaterText_TooShort
waitbutton
closetext
end
.NotMagikarp:
writetext MagikarpLengthRaterText_NotMagikarp
waitbutton
closetext
end
.Refused:
writetext MagikarpLengthRaterText_Refused
waitbutton
closetext
end
LakeOfRageMagikarpHouseUnusedRecordSign: ; unreferenced
jumptext LakeOfRageMagikarpHouseUnusedRecordText
MagikarpHouseBookshelf:
jumpstd DifficultBookshelfScript
MagikarpLengthRaterText_LakeOfRageHistory:
text "LAKE OF RAGE is"
line "actually a crater"
para "made by rampaging"
line "GYARADOS."
para "The crater filled"
line "up with rainwater"
para "and the LAKE was"
line "formed."
para "That's the story"
line "passed on from my"
para "Grandpa's great-"
line "great-grandpa."
para "It used to be that"
line "you could catch"
para "lively MAGIKARP"
line "there, but…"
para "I don't understand"
line "what's happening."
done
MagikarpLengthRaterText_MenInBlack:
text "The LAKE hasn't"
line "been normal since"
para "those men wearing"
line "black arrived."
done
MagikarpLengthRaterText_WorldsLargestMagikarp:
text "LAKE OF RAGE is"
line "back to normal."
para "The MAGIKARP have"
line "returned."
para "I may yet realize"
line "my dream of see-"
cont "ing the world's"
cont "largest MAGIKARP."
para "Do you have a ROD?"
line "Please help me if"
cont "you do."
done
MagikarpLengthRaterText_YouHaveAMagikarp:
text "Ah, you have a"
line "MAGIKARP! Let's"
para "see how big that"
line "baby is."
done
MagikarpLengthRaterText_Memento:
text "Wow! This one is"
line "outstanding!"
para "I tip my hat to"
line "you!"
para "Take this as a"
line "memento!"
done
MagikarpLengthRaterText_Bonus:
text "The record is the"
line "important thing."
para "Think of that as"
line "a bonus!"
done
MagikarpLengthRaterText_TooShort:
text "Wow! This one is"
line "outstanding!"
para "…I wish I could"
line "say that, but I've"
para "seen a bigger one"
line "before."
done
MagikarpLengthRaterText_NotMagikarp:
text "What? That's not a"
line "MAGIKARP!"
done
MagikarpLengthRaterText_Refused:
text "Oh… So you didn't"
line "get one good"
para "enough to show me?"
line "Maybe next time."
done
LakeOfRageMagikarpHouseUnusedRecordText:
text "CURRENT RECORD"
para "@"
text_ram wStringBuffer3
text " caught by"
line "@"
text_ram wStringBuffer4
text_end
LakeOfRageMagikarpHouseUnusedDummyText: ; unreferenced
text_end
LakeOfRageMagikarpHouse_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 2, 7, LAKE_OF_RAGE, 2
warp_event 3, 7, LAKE_OF_RAGE, 2
def_coord_events
def_bg_events
bg_event 0, 1, BGEVENT_READ, MagikarpHouseBookshelf
bg_event 1, 1, BGEVENT_READ, MagikarpHouseBookshelf
def_object_events
object_event 2, 3, SPRITE_FISHING_GURU, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MagikarpLengthRaterScript, -1
|
