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
|
.set LOCALID_ATTENDANT, 1
FallarborTown_BattleTentLobby_MapScripts:: @ 81FFE66
map_script MAP_SCRIPT_ON_FRAME_TABLE, FallarborTown_BattleTentLobby_OnFrame
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, FallarborTown_BattleTentLobby_OnWarp
.byte 0
FallarborTown_BattleTentLobby_OnWarp: @ 81FFE71
map_script_2 VAR_TEMP_1, 0, FallarborTown_BattleTentLobby_EventScript_TurnPlayerNorth
.2byte 0
FallarborTown_BattleTentLobby_EventScript_TurnPlayerNorth:: @ 81FFE7B
setvar VAR_TEMP_1, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
FallarborTown_BattleTentLobby_OnFrame: @ 81FFE85
map_script_2 VAR_TEMP_0, 0, FallarborTown_BattleTentLobby_EventScript_GetChallengeStatus
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_SAVING, FallarborTown_BattleTentLobby_EventScript_QuitWithoutSaving
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_PAUSED, FallarborTown_BattleTentLobby_EventScript_ResumeChallenge
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_WON, FallarborTown_BattleTentLobby_EventScript_WonChallenge
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_LOST, FallarborTown_BattleTentLobby_EventScript_LostChallenge
.2byte 0
FallarborTown_BattleTentLobby_EventScript_GetChallengeStatus:: @ 81FFEAF
frontier_getstatus
end
FallarborTown_BattleTentLobby_EventScript_QuitWithoutSaving:: @ 81FFEB8
lockall
msgbox FallarborTown_BattleTentLobby_Text_DidntSaveBeforeQuitting, MSGBOX_DEFAULT
closemessage
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
setvar VAR_TEMP_0, 255
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_50
releaseall
end
FallarborTown_BattleTentLobby_EventScript_WonChallenge:: @ 81FFEED
lockall
msgbox FallarborTown_BattleTentLobby_Text_BeatThreeTrainers, MSGBOX_DEFAULT
message FallarborTown_BattleTentLobby_Text_WaitWhileSaveGame
waitmessage
fallarbortent_setrandomprize
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_50
fallarbortent_save 0
playse SE_SAVE
waitse
FallarborTown_BattleTentLobby_EventScript_GivePrize:: @ 81FFF27
msgbox FallarborTown_BattleTentLobby_Text_PresentYouWithPrize, MSGBOX_DEFAULT
fallarbortent_giveprize
switch VAR_RESULT
case FALSE, FallarborTown_BattleTentLobby_EventScript_NoRoomForPrize
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
message FallarborTown_BattleTentLobby_Text_ReceivedPrize
waitmessage
playfanfare MUS_OBTAIN_ITEM
waitfanfare
msgbox FallarborTown_BattleTentLobby_Text_AwaitAnotherChallenge2, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_0, 255
releaseall
end
FallarborTown_BattleTentLobby_EventScript_NoRoomForPrize:: @ 81FFF73
msgbox FallarborTown_BattleTentLobby_Text_BagFullReturnForPrize, MSGBOX_DEFAULT
waitmessage
closemessage
setvar VAR_TEMP_0, 255
releaseall
end
FallarborTown_BattleTentLobby_EventScript_PrizeWaiting:: @ 81FFF84
lockall
msgbox FallarborTown_BattleTentLobby_Text_BeatThreeTrainers, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_GivePrize
end
FallarborTown_BattleTentLobby_EventScript_LostChallenge:: @ 81FFF93
lockall
message FallarborTown_BattleTentLobby_Text_ThankYouWaitWhileSaving
waitmessage
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_50
fallarbortent_save 0
playse SE_SAVE
waitse
msgbox FallarborTown_BattleTentLobby_Text_AwaitAnotherChallenge2, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_0, 255
releaseall
end
FallarborTown_BattleTentLobby_EventScript_ResumeChallenge:: @ 81FFFCD
lockall
message FallarborTown_BattleTentLobby_Text_LookingForwardToArrival
waitmessage
fallarbortent_save CHALLENGE_STATUS_SAVING
playse SE_SAVE
waitse
frontier_set FRONTIER_DATA_PAUSED, FALSE
setvar VAR_TEMP_0, 255
goto FallarborTown_BattleTentLobby_EventScript_EnterChallenge
FallarborTown_BattleTentLobby_EventScript_Attendant:: @ 8200001
lock
faceplayer
fallarbortent_getprize
compare VAR_RESULT, ITEM_NONE
goto_if_ne FallarborTown_BattleTentLobby_EventScript_PrizeWaiting
special SavePlayerParty
msgbox FallarborTown_BattleTentLobby_Text_WelcomeToBattleTent, MSGBOX_DEFAULT
FallarborTown_BattleTentLobby_EventScript_AskEnterChallenge:: @ 8200021
message FallarborTown_BattleTentLobby_Text_TakeChallenge
waitmessage
multichoice 17, 6, MULTI_CHALLENGEINFO, 0
switch VAR_RESULT
case 0, FallarborTown_BattleTentLobby_EventScript_TryEnterChallenge
case 1, FallarborTown_BattleTentLobby_EventScript_ExplainChallenge
case 2, FallarborTown_BattleTentLobby_EventScript_CancelChallenge
case MULTI_B_PRESSED, FallarborTown_BattleTentLobby_EventScript_CancelChallenge
FallarborTown_BattleTentLobby_EventScript_TryEnterChallenge:: @ 820005D
setvar VAR_FRONTIER_FACILITY, FRONTIER_FACILITY_ARENA
setvar VAR_FRONTIER_BATTLE_MODE, FRONTIER_MODE_SINGLES
setvar VAR_RESULT, 2
frontier_checkineligible
compare VAR_0x8004, TRUE
goto_if_eq FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMons
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_TENT
msgbox FallarborTown_BattleTentLobby_Text_SelectThreeMons, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
setvar VAR_0x8004, 2
setvar VAR_0x8005, FRONTIER_PARTY_SIZE
special ChoosePartyForBattleFrontier
waitstate
compare VAR_RESULT, 0
goto_if_eq FallarborTown_BattleTentLobby_EventScript_LoadPartyCancelChallenge
msgbox FallarborTown_BattleTentLobby_Text_SaveBeforeChallenge, MSGBOX_YESNO
switch VAR_RESULT
case NO, FallarborTown_BattleTentLobby_EventScript_LoadPartyCancelChallenge
case YES, FallarborTown_BattleTentLobby_EventScript_SaveBeforeChallenge
case MULTI_B_PRESSED, FallarborTown_BattleTentLobby_EventScript_LoadPartyCancelChallenge
FallarborTown_BattleTentLobby_EventScript_SaveBeforeChallenge:: @ 82000E2
setvar VAR_TEMP_0, 0
frontier_set FRONTIER_DATA_SELECTED_MON_ORDER
fallarbortent_init
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, CHALLENGE_STATUS_SAVING
frontier_set FRONTIER_DATA_PAUSED, FALSE
special LoadPlayerParty
closemessage
delay 2
call Common_EventScript_SaveGame
setvar VAR_TEMP_0, 255
compare VAR_RESULT, 0
goto_if_eq FallarborTown_BattleTentLobby_EventScript_CancelChallengeSaveFailed
FallarborTown_BattleTentLobby_EventScript_EnterChallenge:: @ 820013C
special SavePlayerParty
frontier_setpartyorder FRONTIER_PARTY_SIZE
msgbox FallarborTown_BattleTentLobby_Text_GuideYouToBattleTent, MSGBOX_DEFAULT
closemessage
call FallarborTown_BattleTentLobby_EventScript_WalkToDoor
warp MAP_FALLARBOR_TOWN_BATTLE_TENT_CORRIDOR, 255, 2, 7
setvar VAR_TEMP_0, 0
waitstate
end
FallarborTown_BattleTentLobby_EventScript_ExplainChallenge:: @ 8200169
msgbox FallarborTown_BattleTentLobby_Text_ExplainFallarborTent, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_AskEnterChallenge
FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMons:: @ 8200176
switch VAR_RESULT
case FRONTIER_LVL_50, FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMonsLv50
case FRONTIER_LVL_OPEN, FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMonsLvOpen
FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMonsLv50:: @ 8200191
msgbox FallarborTown_BattleTentLobby_Text_NotEnoughValidMonsLv50, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_EndCancelChallenge
FallarborTown_BattleTentLobby_EventScript_NotEnoughValidMonsLvOpen:: @ 820019E
msgbox FallarborTown_BattleTentLobby_Text_NotEnoughValidMonsLvOpen, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_EndCancelChallenge
FallarborTown_BattleTentLobby_EventScript_CancelChallengeSaveFailed:: @ 82001AB
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
goto FallarborTown_BattleTentLobby_EventScript_CancelChallenge
FallarborTown_BattleTentLobby_EventScript_LoadPartyCancelChallenge:: @ 82001C2
special LoadPlayerParty
FallarborTown_BattleTentLobby_EventScript_CancelChallenge:: @ 82001C5
msgbox FallarborTown_BattleTentLobby_Text_AwaitAnotherChallenge, MSGBOX_DEFAULT
FallarborTown_BattleTentLobby_EventScript_EndCancelChallenge:: @ 82001CD
release
end
FallarborTown_BattleTentLobby_EventScript_WalkToDoor:: @ 82001CF
applymovement LOCALID_ATTENDANT, FallarborTown_BattleTentLobby_Movement_AttendantWalkToDoor
applymovement OBJ_EVENT_ID_PLAYER, FallarborTown_BattleTentLobby_Movement_PlayerWalkToDoor
waitmovement 0
opendoor 6, 1
waitdooranim
applymovement LOCALID_ATTENDANT, FallarborTown_BattleTentLobby_Movement_AttendantEnterDoor
applymovement OBJ_EVENT_ID_PLAYER, FallarborTown_BattleTentLobby_Movement_PlayerEnterDoor
waitmovement 0
closedoor 6, 1
waitdooranim
return
FallarborTown_BattleTentLobby_Movement_AttendantWalkToDoor: @ 82001FE
walk_up
walk_up
walk_up
step_end
FallarborTown_BattleTentLobby_Movement_AttendantEnterDoor: @ 8200202
walk_up
set_invisible
step_end
FallarborTown_BattleTentLobby_Movement_PlayerWalkToDoor: @ 8200205
walk_up
walk_up
walk_up
step_end
FallarborTown_BattleTentLobby_Movement_PlayerEnterDoor: @ 8200209
walk_up
walk_up
set_invisible
step_end
FallarborTown_BattleTentLobby_EventScript_Hiker:: @ 820020D
msgbox FallarborTown_BattleTentLobby_Text_CameToCampOut, MSGBOX_NPC
end
FallarborTown_BattleTentLobby_EventScript_LittleBoy:: @ 8200216
msgbox FallarborTown_BattleTentLobby_Text_MakeThinkImJustKid, MSGBOX_NPC
end
FallarborTown_BattleTentLobby_EventScript_Lass:: @ 820021F
msgbox FallarborTown_BattleTentLobby_Text_FallarborTentMyFavorite, MSGBOX_NPC
end
FallarborTown_BattleTentLobby_EventScript_Scott:: @ 8200228
lock
faceplayer
goto_if_set FLAG_MET_SCOTT_IN_FALLARBOR, FallarborTown_BattleTentLobby_EventScript_ScottAlreadySpokenTo
msgbox FallarborTown_BattleTentLobby_Text_ScottLookingForSomeone, MSGBOX_DEFAULT
addvar VAR_SCOTT_STATE, 1
setflag FLAG_MET_SCOTT_IN_FALLARBOR
release
end
FallarborTown_BattleTentLobby_EventScript_ScottAlreadySpokenTo:: @ 8200245
msgbox FallarborTown_BattleTentLobby_Text_ScottMakeChallenge, MSGBOX_DEFAULT
release
end
FallarborTown_BattleTentLobby_EventScript_RulesBoard:: @ 820024F
lockall
msgbox BattleFrontier_BattleArenaLobby_Text_RulesAreListed, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard:: @ 820025E
message BattleFrontier_BattleArenaLobby_Text_ReadWhichHeading
waitmessage
multichoice 17, 0, MULTI_FALLARBOR_TENT_RULES, 0
switch VAR_RESULT
case 0, FallarborTown_BattleTentLobby_EventScript_RulesLevel
case 1, FallarborTown_BattleTentLobby_EventScript_RulesBattle
case 2, FallarborTown_BattleTentLobby_EventScript_RulesMind
case 3, FallarborTown_BattleTentLobby_EventScript_RulesSkill
case 4, FallarborTown_BattleTentLobby_EventScript_RulesBody
case 5, FallarborTown_BattleTentLobby_EventScript_ExitRules
case MULTI_B_PRESSED, FallarborTown_BattleTentLobby_EventScript_ExitRules
end
FallarborTown_BattleTentLobby_EventScript_RulesLevel:: @ 82002BC
msgbox BattleTentLobby_Text_ExplainLevelRules, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_RulesBattle:: @ 82002CA
msgbox BattleFrontier_BattleArenaLobby_Text_ExplainBattleRules, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_RulesMind:: @ 82002D8
msgbox BattleFrontier_BattleArenaLobby_Text_ExplainMindRules, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_RulesSkill:: @ 82002E6
msgbox BattleFrontier_BattleArenaLobby_Text_ExplainSkillRules, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_RulesBody:: @ 82002F4
msgbox BattleFrontier_BattleArenaLobby_Text_ExplainBodyRules, MSGBOX_DEFAULT
goto FallarborTown_BattleTentLobby_EventScript_ReadRulesBoard
end
FallarborTown_BattleTentLobby_EventScript_ExitRules:: @ 8200302
releaseall
end
FallarborTown_BattleTentLobby_Text_MakeThinkImJustKid: @ 8200304
.string "Fufufufufu.\p"
.string "I'm going to make everyone think\n"
.string "I'm just a kid and let them play down.\p"
.string "Then, I'll shock them and grab\n"
.string "the title!$"
FallarborTown_BattleTentLobby_Text_FallarborTentMyFavorite: @ 8200382
.string "You know how BATTLE TENTS offer\n"
.string "different events in different towns?\p"
.string "My favorite is definitely the BATTLE\n"
.string "TENT in FALLARBOR TOWN.\p"
.string "I think it's fantastic how TRAINERS\n"
.string "try to win with all their faith in\l"
.string "their POKéMON.$"
FallarborTown_BattleTentLobby_Text_CameToCampOut: @ 820045A
.string "I heard something about some tent,\n"
.string "so I came to camp out.\p"
.string "I didn't know that tents these days\n"
.string "are so luxurious!\p"
.string "Since I'm here, I may as well try\n"
.string "my hand at battling!$"
FallarborTown_BattleTentLobby_Text_ScottLookingForSomeone: @ 8200501
.string "SCOTT: Hi, {PLAYER}{KUN}!\n"
.string "So you came out to this BATTLE TENT!\p"
.string "The people in these parts tend to be\n"
.string "easygoing and laid-back.\p"
.string "But, you see, what I'm looking for are\n"
.string "people with…\p"
.string "How should I say this?\p"
.string "Someone bursting with the desire\n"
.string "and the drive to win.\p"
.string "If there were a TRAINER like that,\n"
.string "I'd immediately…\p"
.string "Whoops! Never mind!\n"
.string "Keep working at it!$"
FallarborTown_BattleTentLobby_Text_ScottMakeChallenge: @ 8200653
.string "SCOTT: Instead of wasting your\n"
.string "time with the likes of me, why not\l"
.string "make a challenge?$"
|
