summaryrefslogtreecommitdiff
path: root/maps/Route35NationalParkgate.asm
blob: e0a07a0cc8b58592d506f14b0fb0b91046571c8f (plain)
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
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
Route35NationalParkgate_MapScriptHeader: ; 0x6a189
	; trigger count
	db 3

	; triggers
	dw UnknownScript_0x6a19d, $0000
	dw UnknownScript_0x6a19e, $0000
	dw UnknownScript_0x6a19f, $0000

	; callback count
	db 2

	; callbacks

	dbw 5, UnknownScript_0x6a1a3

	dbw 2, UnknownScript_0x6a1af
; 0x6a19d

UnknownScript_0x6a19d: ; 0x6a19d
	end
; 0x6a19e

UnknownScript_0x6a19e: ; 0x6a19e
	end
; 0x6a19f

UnknownScript_0x6a19f: ; 0x6a19f
	priorityjump UnknownScript_0x6a1d1
	end
; 0x6a1a3

UnknownScript_0x6a1a3: ; 0x6a1a3
	checkflag $0011
	iftrue UnknownScript_0x6a1ac
	dotrigger $0
	return
; 0x6a1ac

UnknownScript_0x6a1ac: ; 0x6a1ac
	dotrigger $2
	return
; 0x6a1af

UnknownScript_0x6a1af: ; 0x6a1af
	checkcode $b
	if_equal TUESDAY, UnknownScript_0x6a1ca
	if_equal THURSDAY, UnknownScript_0x6a1ca
	if_equal SATURDAY, UnknownScript_0x6a1ca
	checkflag $0011
	iftrue UnknownScript_0x6a1ac
	disappear $2
	appear $3
	appear $4
	return
; 0x6a1ca

UnknownScript_0x6a1ca: ; 0x6a1ca
	appear $2
	disappear $3
	disappear $4
	return
; 0x6a1d1

UnknownScript_0x6a1d1: ; 0x6a1d1
	applymovement $0, MovementData_0x6a2e2
	spriteface $2, $3
	loadfont
	checkcode $11
	addvar $1
	RAM2MEM $0
	2writetext UnknownText_0x6a79a
	yesorno
	iffalse UnknownScript_0x6a1ee
	2writetext UnknownText_0x6a7db
	closetext
	loadmovesprites
	jumpstd $0016
; 0x6a1ee

UnknownScript_0x6a1ee: ; 0x6a1ee
	2writetext UnknownText_0x6a823
	closetext
	loadmovesprites
	2call UnknownScript_0x6a261
	playsound $001f
	special $002e
	waitbutton
	warpfacing $1, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $a, $2f
	end
; 0x6a204

OfficerScript_0x6a204: ; 0x6a204
	checkcode $b
	if_equal SUNDAY, UnknownScript_0x6a2c7
	if_equal MONDAY, UnknownScript_0x6a2c7
	if_equal WEDNESDAY, UnknownScript_0x6a2c7
	if_equal FRIDAY, UnknownScript_0x6a2c7
	faceplayer
	loadfont
	checkflag $0051
	iftrue UnknownScript_0x6a2c1
	2call UnknownScript_0x6a2de
	2writetext UnknownText_0x6a2eb
	yesorno
	iffalse UnknownScript_0x6a2a3
	checkcode $1
	if_greater_than $1, UnknownScript_0x6a271
	special $0016
	clearevent $0308
UnknownScript_0x6a234: ; 0x6a234
	setflag $0011
	special $003c
	2writetext UnknownText_0x6a39d
	keeptextopen
	2writetext UnknownText_0x6a3c7
	playsound $0001
	waitbutton
	2writetext UnknownText_0x6a3e2
	closetext
	loadmovesprites
	special $0018
	2call UnknownScript_0x6a261
	playsound $001f
	special $002e
	waitbutton
	special $0047
	warpfacing $1, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $a, $2f
	end
; 0x6a261

UnknownScript_0x6a261: ; 0x6a261
	checkcode $9
	if_equal $2, UnknownScript_0x6a26c
	applymovement $0, MovementData_0x6a2e5
	end
; 0x6a26c

UnknownScript_0x6a26c: ; 0x6a26c
	applymovement $0, MovementData_0x6a2e9
	end
; 0x6a271

UnknownScript_0x6a271: ; 0x6a271
	checkcode $1
	if_less_than $6, $627d
	checkcode $10
	if_equal $0, UnknownScript_0x6a2b5
	special $005a
	if_equal $1, UnknownScript_0x6a2bb
	2writetext UnknownText_0x6a4c6
	yesorno
	iffalse UnknownScript_0x6a2a9
	special $0016
	iftrue UnknownScript_0x6a2af
	setevent $0308
	2writetext UnknownText_0x6a537
	keeptextopen
	2writetext UnknownText_0x6a56b
	playsound $000c
	waitbutton
	keeptextopen
	2jump UnknownScript_0x6a234
; 0x6a2a3

UnknownScript_0x6a2a3: ; 0x6a2a3
	2writetext UnknownText_0x6a5dc
	closetext
	loadmovesprites
	end
; 0x6a2a9

UnknownScript_0x6a2a9: ; 0x6a2a9
	2writetext UnknownText_0x6a597
	closetext
	loadmovesprites
	end
; 0x6a2af

UnknownScript_0x6a2af: ; 0x6a2af
	2writetext UnknownText_0x6a608
	closetext
	loadmovesprites
	end
; 0x6a2b5

UnknownScript_0x6a2b5: ; 0x6a2b5
	2writetext UnknownText_0x6a67c
	closetext
	loadmovesprites
	end
; 0x6a2bb

UnknownScript_0x6a2bb: ; 0x6a2bb
	2writetext UnknownText_0x6a71f
	closetext
	loadmovesprites
	end
; 0x6a2c1

UnknownScript_0x6a2c1: ; 0x6a2c1
	2writetext UnknownText_0x6a84f
	closetext
	loadmovesprites
	end
; 0x6a2c7

UnknownScript_0x6a2c7: ; 0x6a2c7
	jumptextfaceplayer UnknownText_0x6a894
; 0x6a2ca

OfficerScript_0x6a2ca: ; 0x6a2ca
	faceplayer
	loadfont
	checkflag $0051
	iftrue UnknownScript_0x6a2c1
	2writetext UnknownText_0x6a894
	closetext
	loadmovesprites
	end
; 0x6a2d8

YoungsterScript_0x6a2d8: ; 0x6a2d8
	jumptextfaceplayer UnknownText_0x6a8d8
; 0x6a2db

MapRoute36NationalParkgateSignpost0Script: ; 0x6a2db
	jumptext UnknownText_0x6a90e
; 0x6a2de

UnknownScript_0x6a2de: ; 0x6a2de
	jumpstd $0015
	end
; 0x6a2e2

MovementData_0x6a2e2: ; 0x6a2e2
	step_down
	turn_head_left
	step_end
; 0x6a2e5

MovementData_0x6a2e5: ; 0x6a2e5
	step_right
	step_up
	step_up
	step_end
; 0x6a2e9

MovementData_0x6a2e9: ; 0x6a2e9
	step_up
	step_end
; 0x6a2eb

UnknownText_0x6a2eb: ; 0x6a2eb
	text "Today's @"
	text_from_ram $d099
	text "."
	line "That means the"

	para "Bug-Catching Con-"
	line "test is on today."

	para "The rules are sim-"
	line "ple."

	para "Using one of your"
	line "#MON, catch a"

	para "bug #MON to be"
	line "judged."

	para "Would you like to"
	line "give it a try?"
	done
; 0x6a39d

UnknownText_0x6a39d: ; 0x6a39d
	text "Here are the PARK"
	line "BALLS for the"
	cont "Contest."
	done
; 0x6a3c7

UnknownText_0x6a3c7: ; 0x6a3c7
	text $52, " received"
	line "20 PARK BALLS."
	done
; 0x6a3e2

UnknownText_0x6a3e2: ; 0x6a3e2
	text "The person who"
	line "gets the strong-"
	cont "est bug #MON"
	cont "is the winner."

	para "You have 20"
	line "minutes."

	para "If you run out of"
	line "PARK BALLS, you're"
	cont "done."

	para "You can keep the"
	line "last #MON you"
	cont "catch as your own."

	para "Go out and catch"
	line "the strongest bug"

	para "#MON you can"
	line "find!"
	done
; 0x6a4c6

UnknownText_0x6a4c6: ; 0x6a4c6
	text "Uh-oh…"

	para "You have more than"
	line "one #MON."

	para "You'll have to use"
	line "@"
	text_from_ram $d099
	text ", the"

	para "first #MON in"
	line "your party."

	para "Is that OK with"
	line "you?"
	done
; 0x6a537

UnknownText_0x6a537: ; 0x6a537
	text "Fine, we'll hold"
	line "your other #MON"
	cont "while you compete."
	done
; 0x6a56b

UnknownText_0x6a56b: ; 0x6a56b
	text $52, "'s #MON"
	line "were left with the"
	cont "CONTEST HELPER."
	done
; 0x6a597

UnknownText_0x6a597: ; 0x6a597
	text "Please choose the"
	line "#MON to be used"

	para "in the Contest,"
	line "then come see me."
	done
; 0x6a5dc

UnknownText_0x6a5dc: ; 0x6a5dc
	text "OK. We hope you'll"
	line "take part in the"
	cont "future."
	done
; 0x6a608

UnknownText_0x6a608: ; 0x6a608
	text "Uh-oh…"
	line "The first #MON"

	para "in your party"
	line "can't battle."

	para "Please switch it"
	line "with the #MON"

	para "you want to use,"
	line "then come see me."
	done
; 0x6a67c

UnknownText_0x6a67c: ; 0x6a67c
	text "Uh-oh…"
	line "Both your party"

	para "and your PC BOX"
	line "are full."

	para "You have no room"
	line "to put the bug"
	cont "#MON you catch."

	para "Please make room"
	line "in your party or"

	para "your PC BOX, then"
	line "come see me."
	done
; 0x6a71f

UnknownText_0x6a71f: ; 0x6a71f
	text "Uh-oh…"
	line "You have an EGG as"

	para "the first #MON"
	line "in your party."

	para "Please switch it"
	line "with the #MON"

	para "you want to use,"
	line "then come see me."
	done
; 0x6a79a

UnknownText_0x6a79a: ; 0x6a79a
	text "You still have @"
	text_from_ram $d099
	db $0
	line "minute(s) left."

	para "Do you want to"
	line "finish now?"
	done
; 0x6a7db

UnknownText_0x6a7db: ; 0x6a7db
	text "OK. Please wait at"
	line "the North Gate for"

	para "the announcement"
	line "of the winners."
	done
; 0x6a823

UnknownText_0x6a823: ; 0x6a823
	text "OK. Please get"
	line "back outside and"
	cont "finish up."
	done
; 0x6a84f

UnknownText_0x6a84f: ; 0x6a84f
	text "Today's Contest is"
	line "over. We hope you"

	para "will participate"
	line "in the future."
	done
; 0x6a894

UnknownText_0x6a894: ; 0x6a894
	text "We hold Contests"
	line "regularly in the"

	para "PARK. You should"
	line "give it a shot."
	done
; 0x6a8d8

UnknownText_0x6a8d8: ; 0x6a8d8
	text "When is the next"
	line "Bug-Catching Con-"
	cont "test going to be?"
	done
; 0x6a90e

UnknownText_0x6a90e: ; 0x6a90e
	text "The Bug-Catching"
	line "Contest is held on"

	para "Tuesday, Thursday"
	line "and Saturday."

	para "Not only do you"
	line "earn a prize just"

	para "for participating,"
	line "you also get to"

	para "keep the bug"
	line "#MON you may"

	para "have at the end of"
	line "the contest."
	done
; 0x6a9d2

Route35NationalParkgate_MapEventHeader: ; 0x6a9d2
	; filler
	db 0, 0

	; warps
	db 4
	warp_def $0, $3, 3, GROUP_NATIONAL_PARK, MAP_NATIONAL_PARK
	warp_def $0, $4, 4, GROUP_NATIONAL_PARK, MAP_NATIONAL_PARK
	warp_def $7, $3, 3, GROUP_ROUTE_35, MAP_ROUTE_35
	warp_def $7, $4, 3, GROUP_ROUTE_35, MAP_ROUTE_35

	; xy triggers
	db 0

	; signposts
	db 1
	signpost 0, 5, $0, MapRoute36NationalParkgateSignpost0Script

	; people-events
	db 3
	person_event SPRITE_OFFICER, 5, 6, $6, $0, 255, 255, $a0, 0, OfficerScript_0x6a204, $0745
	person_event SPRITE_YOUNGSTER, 9, 10, $2, $11, 255, 255, $80, 0, YoungsterScript_0x6a2d8, $0734
	person_event SPRITE_OFFICER, 7, 4, $9, $0, 255, 255, $a0, 0, OfficerScript_0x6a2ca, $0746
; 0x6aa18