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
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
BattleFrontier_Lounge1_MapScripts::
.byte 0
@ NPC that rates pokemon based on their IVs
BattleFrontier_Lounge1_EventScript_Breeder::
lock
faceplayer
call_if_unset FLAG_MET_BATTLE_FRONTIER_BREEDER, BattleFrontier_Lounge1_EventScript_BreederIntro
call_if_set FLAG_MET_BATTLE_FRONTIER_BREEDER, BattleFrontier_Lounge1_EventScript_AlreadyMetBreeder
setflag FLAG_MET_BATTLE_FRONTIER_BREEDER
goto BattleFrontier_Lounge1_EventScript_ChooseMonToShowBreeder
end
BattleFrontier_Lounge1_EventScript_ChooseMonToShowBreeder::
special ChoosePartyMon
waitstate
goto_if_ne VAR_0x8004, PARTY_NOTHING_CHOSEN, BattleFrontier_Lounge1_EventScript_ShowMonToBreeder
goto_if_eq VAR_0x8004, PARTY_NOTHING_CHOSEN, BattleFrontier_Lounge1_EventScript_CancelMonSelect
end
BattleFrontier_Lounge1_EventScript_BreederIntro::
msgbox BattleFrontier_Lounge1_Text_PokemonBreederIntro, MSGBOX_DEFAULT
return
BattleFrontier_Lounge1_EventScript_AlreadyMetBreeder::
msgbox BattleFrontier_Lounge1_Text_LetsLookAtYourPokemon, MSGBOX_DEFAULT
return
@ BufferVarsForIVRater buffers the following values
@ VAR_0x8005: Sum of the mons IVs
@ VAR_0x8006: Stat id of highest IV stat
@ VAR_0x8007: IV of the highest IV stat
BattleFrontier_Lounge1_EventScript_ShowMonToBreeder::
specialvar VAR_RESULT, ScriptGetPartyMonSpecies
goto_if_eq VAR_RESULT, SPECIES_EGG, BattleFrontier_Lounge1_EventScript_ShowEggToBreeder
special BufferVarsForIVRater
goto_if_le VAR_0x8005, 90, BattleFrontier_Lounge1_EventScript_AverageTotalIVs @ Average of 15
goto_if_le VAR_0x8005, 120, BattleFrontier_Lounge1_EventScript_AboveAverageTotalIVs @ Average of 20
goto_if_le VAR_0x8005, 150, BattleFrontier_Lounge1_EventScript_HighTotalIVs @ Average of 25
goto_if_ge VAR_0x8005, 151, BattleFrontier_Lounge1_EventScript_VeryHighTotalIVs @ Average of > 25
end
BattleFrontier_Lounge1_EventScript_ShowEggToBreeder::
msgbox BattleFrontier_Lounge1_Text_EvenICantTell, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_ChooseMonToShowBreeder
end
@ Comment on the highest IV stat
BattleFrontier_Lounge1_EventScript_HighestIVStat::
goto_if_eq VAR_0x8006, STAT_HP, BattleFrontier_Lounge1_EventScript_HighestIVHP
goto_if_eq VAR_0x8006, STAT_ATK, BattleFrontier_Lounge1_EventScript_HighestIVAtk
goto_if_eq VAR_0x8006, STAT_DEF, BattleFrontier_Lounge1_EventScript_HighestIVDef
goto_if_eq VAR_0x8006, STAT_SPEED, BattleFrontier_Lounge1_EventScript_HighestIVSpeed
goto_if_eq VAR_0x8006, STAT_SPATK, BattleFrontier_Lounge1_EventScript_HighestIVSpAtk
goto_if_eq VAR_0x8006, STAT_SPDEF, BattleFrontier_Lounge1_EventScript_HighestIVSpDef
end
@ Comment on the highest IV value
BattleFrontier_Lounge1_EventScript_HighestIVValue::
goto_if_le VAR_0x8007, 15, BattleFrontier_Lounge1_EventScript_HighestIVLow
goto_if_le VAR_0x8007, 25, BattleFrontier_Lounge1_EventScript_HighestIVMid
goto_if_le VAR_0x8007, 30, BattleFrontier_Lounge1_EventScript_HighestIVHigh
goto_if_ge VAR_0x8007, 31, BattleFrontier_Lounge1_EventScript_HighestIVMax
end
BattleFrontier_Lounge1_EventScript_EndBreederComments::
release
end
BattleFrontier_Lounge1_EventScript_AverageTotalIVs::
msgbox BattleFrontier_Lounge1_Text_AverageAbility, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVStat
end
BattleFrontier_Lounge1_EventScript_AboveAverageTotalIVs::
msgbox BattleFrontier_Lounge1_Text_BetterThanAverageAbility, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVStat
end
BattleFrontier_Lounge1_EventScript_HighTotalIVs::
msgbox BattleFrontier_Lounge1_Text_ImpressiveAbility, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVStat
end
BattleFrontier_Lounge1_EventScript_VeryHighTotalIVs::
msgbox BattleFrontier_Lounge1_Text_OutstandingAbility, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVStat
end
BattleFrontier_Lounge1_EventScript_HighestIVHP::
msgbox BattleFrontier_Lounge1_Text_BestAspectHP, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVAtk::
msgbox BattleFrontier_Lounge1_Text_BestAspectAtk, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVDef::
msgbox BattleFrontier_Lounge1_Text_BestAspectDef, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVSpeed::
msgbox BattleFrontier_Lounge1_Text_BestAspectSpeed, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVSpAtk::
msgbox BattleFrontier_Lounge1_Text_BestAspectSpAtk, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVSpDef::
msgbox BattleFrontier_Lounge1_Text_BestAspectSpDef, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_HighestIVValue
end
BattleFrontier_Lounge1_EventScript_HighestIVLow::
msgbox BattleFrontier_Lounge1_Text_StatRelativelyGood, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_EndBreederComments
end
BattleFrontier_Lounge1_EventScript_HighestIVMid::
msgbox BattleFrontier_Lounge1_Text_StatImpressive, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_EndBreederComments
end
BattleFrontier_Lounge1_EventScript_HighestIVHigh::
msgbox BattleFrontier_Lounge1_Text_StatOutstanding, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_EndBreederComments
end
BattleFrontier_Lounge1_EventScript_HighestIVMax::
msgbox BattleFrontier_Lounge1_Text_StatFlawless, MSGBOX_DEFAULT
goto BattleFrontier_Lounge1_EventScript_EndBreederComments
end
BattleFrontier_Lounge1_EventScript_CancelMonSelect::
msgbox BattleFrontier_Lounge1_Text_NoTimeForMyAdvice, MSGBOX_DEFAULT
release
end
BattleFrontier_Lounge1_EventScript_Boy1::
msgbox BattleFrontier_Lounge1_Text_SaidMyMonIsOutstanding, MSGBOX_NPC
end
BattleFrontier_Lounge1_EventScript_Boy2::
msgbox BattleFrontier_Lounge1_Text_DidntDoAnythingSpecialRaisingIt, MSGBOX_NPC
end
BattleFrontier_Lounge1_Text_PokemonBreederIntro:
.string "For 70 years I have raised POKéMON!\n"
.string "I am the man they revere as\l"
.string "the legendary top POKéMON BREEDER!\p"
.string "If you ever become as seasoned as me,\n"
.string "you'll see the abilities of POKéMON\l"
.string "at a glance.\p"
.string "You're a TRAINER. Doesn't it interest\n"
.string "you to know your own POKéMON's\l"
.string "abilities?\p"
.string "Here!\n"
.string "Let's have a look at your POKéMON!$"
BattleFrontier_Lounge1_Text_AverageAbility:
.string "…Hmm…\p"
.string "This one, overall, I would describe\n"
.string "as being of average ability.$"
BattleFrontier_Lounge1_Text_BetterThanAverageAbility:
.string "…Hmm…\p"
.string "This one, overall, I would describe as\n"
.string "having better-than-average ability.$"
BattleFrontier_Lounge1_Text_ImpressiveAbility:
.string "…Hmm…\p"
.string "This one, overall, I would say is\n"
.string "quite impressive in ability!$"
BattleFrontier_Lounge1_Text_OutstandingAbility:
.string "…Hmm…\p"
.string "This one, overall, I would say is\n"
.string "wonderfully outstanding in ability!$"
BattleFrontier_Lounge1_Text_BestAspectHP:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its HP…$"
BattleFrontier_Lounge1_Text_BestAspectAtk:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its ATTACK…$"
BattleFrontier_Lounge1_Text_BestAspectDef:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its DEFENSE…$"
BattleFrontier_Lounge1_Text_BestAspectSpAtk:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its SPECIAL ATTACK…$"
BattleFrontier_Lounge1_Text_BestAspectSpDef:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its SPECIAL DEFENSE…$"
BattleFrontier_Lounge1_Text_BestAspectSpeed:
.string "Incidentally, the best aspect of it,\n"
.string "I would say, is its SPEED…$"
BattleFrontier_Lounge1_Text_StatRelativelyGood:
.string "That stat is relatively good.\n"
.string "…Hm… That's how I call it.$"
BattleFrontier_Lounge1_Text_StatImpressive:
.string "That stat is quite impressive.\n"
.string "…Hm… That's how I call it.$"
BattleFrontier_Lounge1_Text_StatOutstanding:
.string "That stat is outstanding!\n"
.string "…Hm… That's how I call it.$"
BattleFrontier_Lounge1_Text_StatFlawless:
.string "It's flawless! A thing of perfection!\n"
.string "…Hm… That's how I call it.$"
BattleFrontier_Lounge1_Text_NoTimeForMyAdvice:
.string "What?\n"
.string "You have no time for my advice?\p"
.string "You should always be eager to learn\n"
.string "from the experiences of your elders!$"
@ Unused
BattleFrontier_Lounge1_Text_HaveBusinessNeedsTending:
.string "Yes, what is it now?\p"
.string "I have business that needs tending!\n"
.string "Save it for next time!$"
BattleFrontier_Lounge1_Text_LetsLookAtYourPokemon:
.string "Ah, youngster! Do your POKéMON's\n"
.string "abilities intrigue you?\p"
.string "Here, here!\n"
.string "Let's have a look at your POKéMON!$"
BattleFrontier_Lounge1_Text_EvenICantTell:
.string "An expert I am, but even I can't tell\n"
.string "anything about an unhatched POKéMON!\p"
.string "Show me a POKéMON!\n"
.string "A POKéMON is what I need to see!$"
BattleFrontier_Lounge1_Text_SaidMyMonIsOutstanding:
.string "He said my POKéMON is outstanding!\n"
.string "I'm glad I raised it carefully!$"
BattleFrontier_Lounge1_Text_DidntDoAnythingSpecialRaisingIt:
.string "He said my POKéMON is outstanding!\n"
.string "But I didn't do anything special\l"
.string "raising it…$"
|
