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
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
|
BattleFrontier_Lounge3_MapScripts::
.byte 0
.set BET_AMOUNT_5, 5
.set BET_AMOUNT_10, 10
.set BET_AMOUNT_15, 15
BattleFrontier_Lounge3_EventScript_Gambler::
lock
faceplayer
goto_if_set FLAG_MET_BATTLE_FRONTIER_GAMBLER, BattleFrontier_Lounge3_EventScript_AlreadyMetGambler
call BattleFrontier_Lounge3_EventScript_CountSilverSymbols
goto_if_le VAR_0x8004, 2, BattleFrontier_Lounge3_EventScript_NotEnoughSilverSymbols
setflag FLAG_MET_BATTLE_FRONTIER_GAMBLER
msgbox BattleFrontier_Lounge3_Text_YouLookToughExplainGambling, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_AskToEnterChallenge
end
BattleFrontier_Lounge3_EventScript_AskToEnterChallenge::
special ShowFrontierGamblerLookingMessage
waitmessage
waitbuttonpress
msgbox BattleFrontier_Lounge3_Text_HowAboutEnteringEventForMe, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, BattleFrontier_Lounge3_EventScript_DeclineChallenge
msgbox BattleFrontier_Lounge3_Text_SpotMeSomeBattlePoints, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, BattleFrontier_Lounge3_EventScript_DeclineChallenge
message BattleFrontier_Lounge3_Text_HowMuchCanYouSpot
waitmessage
special ShowBattlePointsWindow
goto BattleFrontier_Lounge3_EventScript_ChooseBetAmount
end
BattleFrontier_Lounge3_EventScript_ChooseBetAmount::
multichoice 20, 4, MULTI_FRONTIER_GAMBLER_BET, FALSE
copyvar VAR_FRONTIER_GAMBLER_AMOUNT_BET, VAR_RESULT
switch VAR_RESULT
case FRONTIER_GAMBLER_BET_5, BattleFrontier_Lounge3_EventScript_Bet5
case FRONTIER_GAMBLER_BET_10, BattleFrontier_Lounge3_EventScript_Bet10
case FRONTIER_GAMBLER_BET_15, BattleFrontier_Lounge3_EventScript_Bet15
case FRONTIER_GAMBLER_BET_CANCEL, BattleFrontier_Lounge3_EventScript_CancelBet
case MULTI_B_PRESSED, BattleFrontier_Lounge3_EventScript_CancelBet
end
BattleFrontier_Lounge3_EventScript_Bet5::
setvar VAR_0x8008, BET_AMOUNT_5
goto BattleFrontier_Lounge3_EventScript_TryPlaceBet
end
BattleFrontier_Lounge3_EventScript_Bet10::
setvar VAR_0x8008, BET_AMOUNT_10
goto BattleFrontier_Lounge3_EventScript_TryPlaceBet
end
BattleFrontier_Lounge3_EventScript_Bet15::
setvar VAR_0x8008, BET_AMOUNT_15
goto BattleFrontier_Lounge3_EventScript_TryPlaceBet
end
BattleFrontier_Lounge3_EventScript_TryPlaceBet::
specialvar VAR_TEMP_1, GetFrontierBattlePoints
goto_if_ge VAR_TEMP_1, VAR_0x8008, BattleFrontier_Lounge3_EventScript_PlaceBet
msgbox BattleFrontier_Lounge3_Text_YouDontHaveEnoughPoints, MSGBOX_DEFAULT
message BattleFrontier_Lounge3_Text_HowMuchCanYouSpot
waitmessage
goto BattleFrontier_Lounge3_EventScript_ChooseBetAmount
end
BattleFrontier_Lounge3_EventScript_PlaceBet::
copyvar VAR_0x8004, VAR_0x8008
special TakeFrontierBattlePoints
setvar VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_PLACED_BET
special UpdateBattlePointsWindow
playse SE_SHOP
msgbox BattleFrontier_Lounge3_Text_ThanksOffYouGo, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_FinishBet
end
BattleFrontier_Lounge3_EventScript_FinishBet::
special ShowFrontierGamblerGoMessage
waitmessage
waitbuttonpress
special CloseBattlePointsWindow
release
end
BattleFrontier_Lounge3_EventScript_CountSilverSymbols::
setvar VAR_0x8004, 0
call_if_set FLAG_SYS_TOWER_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_DOME_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_PALACE_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_ARENA_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_FACTORY_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_PIKE_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
call_if_set FLAG_SYS_PYRAMID_SILVER, BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount
return
BattleFrontier_Lounge3_EventScript_AddSilverSymbolCount::
addvar VAR_0x8004, 1
return
BattleFrontier_Lounge3_EventScript_NotEnoughSilverSymbols::
msgbox BattleFrontier_Lounge3_Text_CantYouSeeWereBusyHere, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_FaceOriginalDirection
end
BattleFrontier_Lounge3_EventScript_AlreadyMetGambler::
msgbox BattleFrontier_Lounge3_Text_Oh, MSGBOX_DEFAULT
goto_if_ge VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_PLACED_BET, BattleFrontier_Lounge3_EventScript_CheckBetResults
goto BattleFrontier_Lounge3_EventScript_AskToEnterChallenge
end
BattleFrontier_Lounge3_EventScript_CheckBetResults::
goto_if_eq VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_PLACED_BET, BattleFrontier_Lounge3_EventScript_ChallengeNotAttempted
goto_if_eq VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_WON, BattleFrontier_Lounge3_EventScript_WonChallenge
goto BattleFrontier_Lounge3_EventScript_LostChallenge
end
BattleFrontier_Lounge3_EventScript_WonChallenge::
msgbox BattleFrontier_Lounge3_Text_HelloChampHeresYourPoints, MSGBOX_DEFAULT
call_if_eq VAR_FRONTIER_GAMBLER_AMOUNT_BET, FRONTIER_GAMBLER_BET_5, BattleFrontier_Lounge3_EventScript_RewardBet5
call_if_eq VAR_FRONTIER_GAMBLER_AMOUNT_BET, FRONTIER_GAMBLER_BET_10, BattleFrontier_Lounge3_EventScript_RewardBet10
call_if_eq VAR_FRONTIER_GAMBLER_AMOUNT_BET, FRONTIER_GAMBLER_BET_15, BattleFrontier_Lounge3_EventScript_RewardBet15
msgbox BattleFrontier_Lounge3_Text_ObtainedBattlePoints, MSGBOX_GETPOINTS
special GiveFrontierBattlePoints
msgbox BattleFrontier_Lounge3_Text_ThinkOfMeForAnotherChallenge, MSGBOX_DEFAULT
setvar VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_WAITING
release
end
BattleFrontier_Lounge3_EventScript_LostChallenge::
msgbox BattleFrontier_Lounge3_Text_NiceTryCantReturnPoints, MSGBOX_DEFAULT
setvar VAR_FRONTIER_GAMBLER_STATE, FRONTIER_GAMBLER_WAITING
release
end
BattleFrontier_Lounge3_EventScript_RewardBet5::
buffernumberstring STR_VAR_1, (BET_AMOUNT_5 * 2)
setvar VAR_0x8004, (BET_AMOUNT_5 * 2)
return
BattleFrontier_Lounge3_EventScript_RewardBet10::
buffernumberstring STR_VAR_1, (BET_AMOUNT_10 * 2)
setvar VAR_0x8004, (BET_AMOUNT_10 * 2)
return
BattleFrontier_Lounge3_EventScript_RewardBet15::
buffernumberstring STR_VAR_1, (BET_AMOUNT_15 * 2)
setvar VAR_0x8004, (BET_AMOUNT_15 * 2)
return
BattleFrontier_Lounge3_EventScript_ChallengeNotAttempted::
special ShowFrontierGamblerGoMessage
waitmessage
waitbuttonpress
release
end
BattleFrontier_Lounge3_EventScript_DeclineChallenge::
msgbox BattleFrontier_Lounge3_Text_NotInterested, MSGBOX_DEFAULT
release
end
BattleFrontier_Lounge3_EventScript_CancelBet::
special CloseBattlePointsWindow
goto BattleFrontier_Lounge3_EventScript_DeclineChallenge
end
BattleFrontier_Lounge3_EventScript_Man::
msgbox BattleFrontier_Lounge3_Text_ShouldBeTakingChallenges, MSGBOX_NPC
end
BattleFrontier_Lounge3_EventScript_Woman::
lock
faceplayer
msgbox BattleFrontier_Lounge3_Text_BackedWrongTrainer, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_FaceOriginalDirection
end
BattleFrontier_Lounge3_EventScript_PokefanF::
lock
faceplayer
msgbox BattleFrontier_Lounge3_Text_KnowWinnerWhenISeeOne, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_FaceOriginalDirection
end
BattleFrontier_Lounge3_EventScript_FatMan::
lock
faceplayer
msgbox BattleFrontier_Lounge3_Text_TrainerGoodButRattled, MSGBOX_DEFAULT
goto BattleFrontier_Lounge3_EventScript_FaceOriginalDirection
end
BattleFrontier_Lounge3_EventScript_FaceOriginalDirection::
closemessage
applymovement VAR_LAST_TALKED, Common_Movement_FaceOriginalDirection
waitmovement 0
release
end
BattleFrontier_Lounge3_Text_CantYouSeeWereBusyHere::
.string "…What's that you want?\p"
.string "Can't you see we're kind of busy here?\n"
.string "Can't your business wait till later?$"
BattleFrontier_Lounge3_Text_YouLookToughExplainGambling::
.string "…Huh?\n"
.string "You look to me like a tough TRAINER.\p"
.string "Heheh…\n"
.string "Listen, I have this proposition.\p"
.string "We have a little group going here,\n"
.string "and we play a little game with what\l"
.string "goes on in the BATTLE FRONTIER.\p"
.string "The rules are really simple.\p"
.string "First, we pick one of the facilities\n"
.string "in the BATTLE FRONTIER.\p"
.string "Then, we each pick a different TRAINER\n"
.string "who's taking that facility's challenge,\l"
.string "and bet with our Battle Points.\p"
.string "The guy who bet on the TRAINER with\n"
.string "the best record takes all the Battle\l"
.string "Points in the pool.\p"
.string "Sounds simple, huh?\n"
.string "So, anyway…$"
BattleFrontier_Lounge3_Text_ChallengeBattleTowerSingle::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be challenging the BATTLE\l"
.string "TOWER's SINGLE BATTLE ROOMS.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleTowerDouble::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be challenging the BATTLE\l"
.string "TOWER's DOUBLE BATTLE ROOMS.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleTowerMulti::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be challenging the BATTLE\l"
.string "TOWER's MULTI BATTLE ROOMS.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleDomeSingle::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "DOME's SINGLE BATTLE Tourney.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleDomeDouble::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "DOME's DOUBLE BATTLE Tourney.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleFactorySingle::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "FACTORY's Battle Swap Single Tourney.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleFactoryDouble::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "FACTORY's Battle Swap Double Tourney.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattlePalaceSingle::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be challenging the BATTLE\l"
.string "PALACE's SINGLE BATTLE HALLS.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattlePalaceDouble::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be challenging the BATTLE\l"
.string "PALACE's DOUBLE BATTLE HALLS.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattleArena::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "ARENA's Set KO Tourney.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattlePike::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE PIKE's\l"
.string "Battle Choice.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_ChallengeBattlePyramid::
.string "What I'm looking for is a TRAINER who's\n"
.string "going to be entering the BATTLE\l"
.string "PYRAMID's Battle Quest.\p"
.string "But so far, I haven't seen a TRAINER\n"
.string "that has that winning quality.$"
BattleFrontier_Lounge3_Text_HowAboutEnteringEventForMe::
.string "I'll see to it that you benefit, too.\n"
.string "So how about it?\l"
.string "How about entering that event for me?$"
BattleFrontier_Lounge3_Text_SpotMeSomeBattlePoints::
.string "All right, that's perfect.\n"
.string "So, uh… How about spotting me some\l"
.string "of your Battle Points?\p"
.string "Trust me, I'll show you my gratitude\n"
.string "afterward.$"
BattleFrontier_Lounge3_Text_HowMuchCanYouSpot::
.string "Great, great!\n"
.string "So, how much can you spot me?$"
BattleFrontier_Lounge3_Text_YouDontHaveEnoughPoints::
.string "Oh, no, no, no!\n"
.string "You don't have enough Battle Points!\p"
.string "I wish you wouldn't monkey around and\n"
.string "waste everyone's time!$"
BattleFrontier_Lounge3_Text_ThanksOffYouGo::
.string "Heheh! Thanks much!\n"
.string "So, off you go!$"
BattleFrontier_Lounge3_Text_GetToBattleTowerSingle::
.string "Get to the BATTLE TOWER's\n"
.string "SINGLE BATTLE ROOMS pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleTowerDouble::
.string "Get to the BATTLE TOWER's\n"
.string "DOUBLE BATTLE ROOMS pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleTowerMulti::
.string "Get to the BATTLE TOWER's\n"
.string "MULTI BATTLE ROOMS pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleDomeSingle::
.string "Get to the BATTLE DOME's\n"
.string "SINGLE BATTLE Tourney pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleDomeDouble::
.string "Get to the BATTLE DOME's\n"
.string "DOUBLE BATTLE Tourney pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleFactorySingle::
.string "Get to the BATTLE FACTORY's\n"
.string "Battle Swap Single Tourney pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleFactoryDouble::
.string "Get to the BATTLE FACTORY's\n"
.string "Battle Swap Double Tourney pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattlePalaceSingle::
.string "Get to the BATTLE PALACE's\n"
.string "SINGLE BATTLE HALLS pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattlePalaceDouble::
.string "Get to the BATTLE PALACE's\n"
.string "DOUBLE BATTLE HALLS pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattleArena::
.string "Get to the BATTLE ARENA's\n"
.string "Set KO Tourney pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattlePike::
.string "Get to the BATTLE PIKE's\n"
.string "Battle Choice pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_GetToBattlePyramid::
.string "Get to the BATTLE PYRAMID's\n"
.string "Battle Quest pronto!\p"
.string "It's a must-win situation!\n"
.string "Don't blow your chance!\l"
.string "Both of our futures depend on you!$"
BattleFrontier_Lounge3_Text_NiceTryCantReturnPoints::
.string "Oh, it's you…\n"
.string "Nice try…\p"
.string "I hate to break it to you, but I can't\n"
.string "return your Battle Points…\p"
.string "I guess we'll have to let it motivate\n"
.string "us to try harder next time!$"
BattleFrontier_Lounge3_Text_HelloChampHeresYourPoints::
.string "Oh, yes!\n"
.string "Hello there, champ!\p"
.string "I knew you could!\n"
.string "I knew you would!\l"
.string "We're both big winners!\p"
.string "I'll return your Battle Points and,\n"
.string "of course, a little extra from me!$"
BattleFrontier_Lounge3_Text_ObtainedBattlePoints::
.string "{PLAYER} obtained\n"
.string "{STR_VAR_1} Battle Points.$"
BattleFrontier_Lounge3_Text_ThinkOfMeForAnotherChallenge::
.string "If you're up for another challenge,\n"
.string "please do think of me!$"
BattleFrontier_Lounge3_Text_NotInterested::
.string "Not interested?! You shouldn't be\n"
.string "so afraid to take a chance!$"
BattleFrontier_Lounge3_Text_Oh::
.string "Oh…$"
BattleFrontier_Lounge3_Text_BackedWrongTrainer::
.string "I backed the wrong TRAINER again!\p"
.string "Maybe I should be battling normally\n"
.string "like everyone else…$"
BattleFrontier_Lounge3_Text_TrainerGoodButRattled::
.string "That TRAINER…\p"
.string "He's good, but he gets rattled too\n"
.string "easily to survive the BATTLE DOME…$"
BattleFrontier_Lounge3_Text_KnowWinnerWhenISeeOne::
.string "Giggle!\n"
.string "I know a winner when I see one!$"
BattleFrontier_Lounge3_Text_ShouldBeTakingChallenges::
.string "Those TRAINERS…\n"
.string "What are they doing?\l"
.string "They should be taking challenges.$"
|
