Context Navigation

quests_juperos.txt @ 23

Revision 1, 135.8 kB (checked in by jinshiro, 17 years ago)

Line
1	//===== eAthena Script =======================================
2	//= Juperos Dungeon Quests
3	//===== By ===================================================
4	//= MasterOfMuppets
5	//===== Version ==============================================
6	//= 1.5
7	//===== Compatible With ======================================
8	//= eAthena SVN
9	//===== Description ==========================================
10	//= [Partial Aegis COnversion]
11	//= Juperos Ruins related Quests/Events
12	//===== Comments =============================================
13	//= 1.0 First version, partly implemented [MasterOfMuppets]
14	//= 1.1 Added official Juperos Ruins History Quest. Thanks
15	//= to Keplerk for his first version. [SinSloth]
16	//= 1.2 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
17	//= 1.3 Removed semi-official core access NPCs, replaced with [L0ne_W0lf]
18	//= event-driven story progressive NPCs. Optimization needed.
19	//= 1.3a Adjusted the elevafor timer. (132000 -> 142000) [L0ne_W0lf]
20	//= 1.3b Minor updates to juperos elevator NPCs. [L0ne_W0lf]
21	//= 1.4 Fixed Elevator not working after failing once. [L0ne_W0lf]
22	//= 1.5 Lots of Fixes, missing stopnpctimers, cleanup. [Zephyrus]
23	//============================================================
24
25	yuno_in04,190,125,4 script Scholar 700,{
26
27	switch(yuno_hist)
28	{
29	case 0:
30	mes "[Scholar]";
31	mes "...Mm? ";
32	mes "...Yes?";
33	next;
34	mes "[Scholar]";
35	mes "...";
36	mes "......";
37	mes "May I help you?";
38	next;
39	switch( select( "Oh! N-Nothing!","Excuse me..." ) )
40	{
41	case 1:
42	mes "[Scholar]";
43	mes "...";
44	mes "......";
45	mes "Hmm?";
46	mes "...........";
47	mes "Hmpf.";
48	close;
49
50	case 2:
51	mes "[Scholar]";
52	mes "...";
53	mes "......";
54	mes "Hmm?";
55	mes "...........";
56	mes "Hmmm...";
57	next;
58	mes "[Scholar]";
59	mes "You must be lost.";
60	mes "This is the scholarly";
61	mes "research section, you know,";
62	mes "content you couldn't possibly";
63	mes "fathom. The popular novels and picture books are someplace else.";
64	next;
65	mes "["+strcharinfo(0)+"]";
66	mes "...";
67	mes "......";
68	next;
69	mes "[Scholar]";
70	mes "Why don't you rummage";
71	mes "through the bookshelves?";
72	mes "I'm sure you can find some";
73	mes "book there that can hold your";
74	mes "interest. Well, depending on";
75	mes "your actual attention span...";
76	next;
77	mes "["+strcharinfo(0)+"]";
78	mes "(What's her damage?!";
79	mes "Does she have an attitude problem or is she just stuck-up?)";
80	close;
81	}
82
83	case 1:
84	mes "[Scholar]";
85	mes "...Mm? ";
86	mes "...Yes?";
87	next;
88	mes "[Scholar]";
89	mes "...";
90	mes "......";
91	mes "May I help you?";
92	next;
93	switch( select( "Oh! N-Nothing!","By any chance..." ) )
94	{
95	case 1:
96	mes "[Scholar]";
97	mes "...";
98	mes "......";
99	mes "Hmm?";
100	mes "...........";
101	mes "Hmpf.";
102	close;
103
104	case 2:
105	mes "["+strcharinfo(0)+"]";
106	mes "By any chance...";
107	mes "Are you conducting";
108	mes "research about Juperos?";
109	next;
110	mes "[Scholar]";
111	mes "Why yes, that is";
112	mes "correct. But how did";
113	mes "you come to learn about";
114	mes "my current research project?";
115	next;
116	mes "["+strcharinfo(0)+"]";
117	mes "Oh, I managed to read";
118	mes "a thesis paper entitled,";
119	mes "''The Fall of Juperos,'' and";
120	mes "I just thought that the writing";
121	mes "style and your personality";
122	mes "seem to match for some reason.";
123	next;
124	mes "[Scholar]";
125	mes "Oh...! You read my";
126	mes "thesis? So what did";
127	mes "you think about it?";
128	next;
129	mes "["+strcharinfo(0)+"]";
130	mes "So far, it's alright, but";
131	mes "quite frankly it's incomplete.";
132	mes "I mean, you don't have much in";
133	mes "in the way of conjecture, much";
134	mes "less any evidence to back up";
135	mes "any of your statements.";
136	next;
137	mes "[Scholar]";
138	mes "....";
139	mes "Let me apologize for";
140	mes "being rude to you earlier.";
141	mes "As you know, my name is";
142	mes "Fayruz Khrhiyha. May I ask";
143	mes "what your name might be?";
144	next;
145	mes "["+strcharinfo(0)+"]";
146	mes "I'm "+strcharinfo(0)+",";
147	mes "a brave adventurer in the";
148	mes "service of his royal majesty,";
149	mes "the wise and benevolent";
150	mes "King Tristram III.";
151	set yuno_hist,2;
152	next;
153	mes "[Fayruz]";
154	mes "Well, "+strcharinfo(0)+",";
155	mes "I understand that my thesis";
156	mes "still requires more evidence.";
157	mes "But I'd need some ancient";
158	mes "documents from Juperos";
159	mes "to complete my research...";
160	next;
161	mes "[Fayruz]";
162	mes "If you happen to travel";
163	mes "through Juperos and find";
164	mes "any ancient documents, would";
165	mes "you bring them to me? Having";
166	mes "those would help my research";
167	mes "efforts immensely. Thank you...";
168	close;
169	}
170
171	case 2:
172	if((countitem(7352)) \|\| (countitem(7353)) \|\| (countitem(7354)) \|\| (countitem(7355)))
173	{
174	mes "[Fayruz]";
175	mes "Ah, it's you! Listen,";
176	mes "I just found a record of";
177	mes "an adventurer who explored";
178	mes "Juperos. There's mention";
179	mes "of a stone statue here that";
180	mes "just might be noteworthy...";
181	next;
182	mes "[Fayruz]";
183	mes "If you happen to find";
184	mes "yourself in Juperos,";
185	mes "would you find the stone";
186	mes "statue at the entrance of";
187	mes "its dungeon and read the";
188	mes "engraved message for me?";
189	next;
190	mes "[Fayruz]";
191	mes "According to my notes,";
192	mes "there's a spell that will";
193	mes "make its reader memorize";
194	mes "its message, even if they don't";
195	mes "know the language. So come";
196	mes "to me if you manage to read it.";
197	close;
198	}
199	mes "[Fayruz]";
200	mes "If you ever chance to";
201	mes "travel through Juperos,";
202	mes "would you let me know if you";
203	mes "find anything that might help";
204	mes "my research there? I'd be";
205	mes "very grateful for your help.";
206	close;
207
208	case 3:
209	mes "[Fayruz]";
210	mes "Well, you look";
211	mes "quite pleased.";
212	mes "May I asked what";
213	mes "happened to put that";
214	mes "expression on your face?";
215	next;
216	switch( select( "I found something in Juperos.","Nothing much." ) )
217	{
218
219	case 1:
220	mes "[" +strcharinfo(0)+"]";
221	mes "I went to Juperos like";
222	mes "you asked and found that";
223	mes "stone statue you were talking";
224	mes "about. Just like you said, there was an engraved message on it.";
225	next;
226	mes "[Fayruz]";
227	mes "Fascinating!";
228	mes "So is it really enchanted";
229	mes "so anyone can memorize it?";
230	mes "Wh-what does the message say?";
231	next;
232	mes "^3355FFYou recite the message";
233	mes "engraved on the stone";
234	mes "statue, unable to interpret";
235	mes "the sounds you're uttering,";
236	mes "but weirdly enough, you can";
237	mes "easily recall them from memory.^000000";
238	next;
239	mes "[Fayruz]";
240	mes "Ah, I see! Wait,";
241	mes "give me a moment to";
242	mes "properly translate this...";
243	next;
244	mes "...";
245	mes "......";
246	mes ".........";
247	next;
248	mes "[Fayruz]";
249	mes "It means, ''Do you wish to";
250	mes "see the end of the madness?";
251	mes "He is waiting where the three";
252	mes "columns were destroyed, where";
253	mes "two hundred illusions wander.''";
254	next;
255	mes "[Fayruz]";
256	mes "''You will see him, the one";
257	mes "who was vain and extravagant,";
258	mes "with your own eyes at the place where the light passes through.";
259	set yuno_hist,4;
260	next;
261	mes "[Fayruz]";
262	mes "Ah, usually, descriptions";
263	mes "of the ''vain and extravagant";
264	mes "one'' refer to the mad scientist rumored to have lived in that";
265	mes "ancient era. But if this is true, I may have to rework my thesis...";
266	next;
267	mes "[Fayruz]";
268	mes "I have another favor to";
269	mes "ask of you. If you find any";
270	mes "object of historical significance in Juperos, would you bring it to";
271	mes "me? I'll reward you, of course.";
272	next;
273	mes "[Fayruz]";
274	mes "It would be most helpful";
275	mes "if you could manage to find";
276	mes "documents that existed from that era. Fortunately, back then,";
277	mes "they made all their records on material more durable than paper.";
278	close;
279
280	case 2:
281	mes "[Fayruz]";
282	mes "Nothing, huh?";
283	mes "My life is also fairly";
284	mes "uneventful, but somehow,";
285	mes "I'm don't think I'm content.";
286	close;
287	}
288
289	case 4:
290	mes "[Fayruz]";
291	mes "Oh hello, "+strcharinfo(0)+".";
292	mes "So what brings you to";
293	mes "the Juno Library today?";
294	next;
295	switch( select ( "Nice weather today, isn't it?","I found something in Juperos.","Nothing much.") )
296	{
297	case 1:
298	mes "[Fayruz]";
299	mes "Well, I wouldn't know.";
300	mes "It's late whenever I go";
301	mes "out, so I always happen to";
302	mes "miss the sunlight. I guess";
303	mes "I really miss nice weather";
304	mes "sometimes, you know?";
305	close;
306
307	case 2:
308	if((countitem(7352)) \|\| (countitem(7353)) \|\| (countitem(7354)) \|\| (countitem(7355)))
309	{
310	mes "[Fayruz]";
311	mes "Oh, really?!";
312	mes "That's great news!";
313	mes "W-what did you find?";
314	next;
315	mes "^3355FFIn her excitement,";
316	mes "Fayruz begins to";
317	mes "rummage through your";
318	mes "things before you get";
319	mes "the chance to answer her.^000000";
320	next;
321	mes "[Fayruz]";
322	mes "Oh, this must be it!";
323	mes "Would you mind if I keep";
324	mes "this Transparent Plate for";
325	mes "my research? In return, I'll";
326	mes "tell you some tales about";
327	mes "Juperos that I've learned.";
328	next;
329	switch( select ("Please, be my guest.","No way, you can't have it.") )
330	{
331	case 1:
332	if(countitem(7352)) callfunc "Func_JupHist",7352,1;
333	else if(countitem(7353)) callfunc "Func_JupHist",7353,2;
334	else if(countitem(7354)) callfunc "Func_JupHist",7354,4;
335	else if(countitem(7355)) callfunc "Func_JupHist",7352,8;
336
337
338	case 2:
339	mes "[Fayruz]";
340	mes "Mm? Are you serious?";
341	mes "This object is very valuable";
342	mes "to a researcher like me, but";
343	mes "I have no idea what use it";
344	mes "would be for an adventurer.";
345	mes "Well, you have your reasons...";
346	close;
347	}
348	}
349	mes "[Fayruz]";
350	mes "Oh, really?!";
351	mes "That's great news!";
352	mes "W-what did you find?";
353	next;
354	mes "^3355FFIn her excitement,";
355	mes "Fayruz begins to";
356	mes "rummage through your";
357	mes "things before you get";
358	mes "the chance to answer her.^000000";
359	next;
360	mes "[Fayruz]";
361	mes "Oh. There isn't anything";
362	mes "here that would help in my";
363	mes "research, but thank you anyway.";
364	mes "If you find anything else while";
365	mes "you're in Juperos, please come back and show it to me, alright?";
366	close;
367
368	case 3:
369	mes "[Fayruz]";
370	mes "Ah, I see. Well, while";
371	mes "you're here, why don't you";
372	mes "read something? There are";
373	mes "many books that cover some";
374	mes "interesting topics, like the";
375	mes "Schwaltzvalt economy...";
376	next;
377	mes "[Fayruz]";
378	mes "Oh, in any case, please";
379	mes "don't forget the favor I asked";
380	mes "of you. If you find anything";
381	mes "in Juperos that's historically";
382	mes "significant, I'd appreciate it";
383	mes "if you bring it right away.";
384	close;
385
386	}
387
388	case 5:
389	mes "[Fayruz]";
390	mes "Oh, "+strcharinfo(0)+"!";
391	mes "Have you come back with";
392	mes "something from Juperos?";
393	mes "I've been hoping you'd come";
394	mes "back with something that'd";
395	mes "help me in my research!";
396	next;
397	switch( select( "Take a look at this.","Oh, I'm sorry...") )
398	{
399	case 1:
400	switch(jupe_hist)
401	{
402	case 1:
403	callfunc "Func_JupHist",7353,7354,7355,7352;
404
405	case 2:
406	callfunc "Func_JupHist",7352,7354,7355,7353;
407
408	case 4:
409	callfunc "Func_JupHist",7352,7353,7355,7354;
410
411	case 8:
412	callfunc "Func_JupHist",7352,7353,7354,7355;
413	}
414
415	case 2:
416	mes "[Fayruz]";
417	mes "Ah, I see. Well, while";
418	mes "you're here, why don't you";
419	mes "read something? There are";
420	mes "many books that cover some";
421	mes "interesting topics, like...";
422	mes "like... Self-Honesty (?).";
423	next;
424	mes "[Fayruz]";
425	mes "Oh, in any case, please";
426	mes "don't forget the favor I asked";
427	mes "of you. If you find anything";
428	mes "in Juperos that's historically";
429	mes "significant, I'd appreciate it";
430	mes "if you bring it right away.";
431	close;
432	}
433
434	case 6:
435	mes "[Fayruz]";
436	mes "Oh, "+strcharinfo(0)+"!";
437	mes "The Transparent Plate";
438	mes "that you brought for me";
439	mes "last time is really helping me";
440	mes "in my research. If you get the";
441	mes "chance, please bring me more!";
442	set yuno_hist,7;
443	next;
444	mes "[Fayruz]";
445	mes "This new data is adding";
446	mes "a lot more credibility to my";
447	mes "thesis. Oh, I'll be with you";
448	mes "in a moment, let me finish";
449	mes "translating this one last";
450	mes "passage really quickly...";
451	close;
452
453	case 7:
454	mes "[Fayruz]";
455	mes "Hello, "+strcharinfo(0)+"~";
456	mes "Oh, were you able to look";
457	mes "in Juperos for anything that";
458	mes "might help me in my research?";
459	next;
460	switch( select( "Yeah, take a look at this.","No, I'm sorry...") )
461	{
462	case 1:
463	switch(jupe_hist)
464	{
465	case 3:
466	callfunc "Func_JupHist",7354,7355,7352,7353;
467
468	case 5:
469	callfunc "Func_JupHist",7353,7355,7352,7354;
470
471	case 6:
472	callfunc "Func_JupHist",7352,7355,7353,7354;
473
474	case 9:
475	callfunc "Func_JupHist",7353,7354,7352,7355;
476
477	case 10:
478	callfunc "Func_JupHist",7352,7354,7353,7355;
479
480	case 12:
481	callfunc "Func_JupHist",7352,7353,7354,7355;
482	}
483
484	case 2:
485	mes "[Fayruz]";
486	mes "Oh, that's fine.";
487	mes "Besides, I don't really";
488	mes "have a deadline to complete";
489	mes "this research project. Still,";
490	mes "I just want you to know that";
491	mes "I really appreciate your help.";
492	close;
493	}
494
495	case 8:
496	mes "[Fayruz]";
497	mes ""+strcharinfo(0)+"...";
498	mes "I'm having great difficulty in";
499	mes "translating that Transparent";
500	mes "Plate you brought for me that";
501	mes "last time. I'm so frustrated...";
502	next;
503	mes "[Fayruz]";
504	mes "Wait a minute...";
505	mes "This here means...";
506	mes "Alright. Okay. Yes.";
507	mes "Yes! Of course, how";
508	mes "could I not see it before!";
509	set yuno_hist,9;
510	next;
511	mes "[Fayruz]";
512	mes "I'll be with you";
513	mes "in just a second!";
514	mes "I think I just made";
515	mes "a real through...!";
516	next;
517
518	case 9:
519	mes "[Fayruz]";
520	mes "Ah, I've been";
521	mes "expecting you, "+strcharinfo(0)+".";
522	mes "So did you have been to Juperos again? I'm really hoping that you";
523	mes "were able to find something new that would help in my research...";
524	next;
525	switch( select("Actually, I did find this...","I'm sorry, I haven't...") )
526	{
527	case 1:
528	switch(jupe_hist)
529	{
530	case 7:
531	callfunc "Func_JupHist",7355,7352,7353,7354;
532
533	case 11:
534	callfunc "Func_JupHist",7354,7352,7353,7355;
535
536	case 13:
537	callfunc "Func_JupHist",7353,7352,7354,7355;
538
539	case 14:
540	callfunc "Func_JupHist",7352,7353,7354,7355;
541	}
542
543	case 2:
544	mes "[Fayruz]";
545	mes "Ah, I see. Well, while";
546	mes "you're here, why don't you";
547	mes "read something? There are";
548	mes "many books that cover some";
549	mes "interesting topics, like";
550	mes "modern adventure history.";
551	next;
552	mes "[Fayruz]";
553	mes "Oh, in any case, please";
554	mes "don't forget the favor I asked";
555	mes "of you. If you find anything";
556	mes "in Juperos that's historically";
557	mes "significant, I'd appreciate it";
558	mes "if you bring it right away.";
559	close;
560	}
561
562	case 10:
563	mes "[Fayruz]";
564	mes "Oh hello, "+strcharinfo(0)+"...";
565	mes "So what exactly brings you";
566	mes "to the Juno Library this time?";
567	next;
568	switch( select("I found another Transparent Plate.","Just visiting, really.") )
569	{
570	case 1:
571	if((countitem(7352)) \|\| (countitem(7353)) \|\| (countitem(7354)) \|\| (countitem(7355)))
572	{
573	mes "[Fayruz]";
574	mes "Hmm, well, we've made as";
575	mes "much headway as we can";
576	mes "with the Transparent Plates";
577	mes "you've already given me, but";
578	mes "it can't hurt to have too much";
579	mes "evidence to back my theories.";
580	next;
581	mes "[Fayruz]";
582	mes "I really appreciate";
583	mes "your continuing efforts";
584	mes "to help me. Please, would";
585	mes "you take this as my way";
586	mes "saying ''Thanks?'' You've been";
587	mes "great, "+strcharinfo(0)+"...";
588	if(countitem(7352)) delitem 7352,1;
589	else if(countitem(7353)) delitem 7353,1;
590	else if(countitem(7354)) delitem 7354,1;
591	else delitem 7355,1;
592	getitem 644,1;
593	close;
594	}
595	mes "[Fayruz]";
596	mes "Mmm...?";
597	mes "It doesn't look like";
598	mes "you brought another";
599	mes "Transparent Plate.";
600	mes "Are you sure that you";
601	mes "didn't misplace it?";
602	close;
603
604	case 2:
605	mes "[Fayruz]";
606	mes "Ah, I see. Well,";
607	mes "thanks to your help,";
608	mes "I've made a great deal";
609	mes "of progress on my thesis.";
610	mes "I really appreciate what you";
611	mes "have done for me, adventurer.";
612	close;
613	}
614	}
615
616
617	}
618
619	function script Func_JupHist {
620
621	switch(yuno_hist)
622	{
623	case 4:
624	mes "[Fayruz]";
625	mes "Thank you so much,";
626	mes "you don't know what";
627	mes "this means to me! Okay,";
628	mes "please relax and take a";
629	mes "seat. Close your eyes while";
630	mes "I tell you this ancient story.";
631	next;
632	mes "^3355FFFayruz begins to";
633	mes "relate an ancient tale";
634	mes "about Juperos that seems";
635	mes "typical for a classic story, but her way of storytelling subtly";
636	mes "draws you into a vicarious, yet extremely vivid experience.";
637	next;
638	mes "^3355FFYou feel the protagonist's";
639	mes "glories and tragedies as if";
640	mes "you were actually there with";
641	mes "the hero on his journeys. The";
642	mes "tale eventually comes to an end";
643	mes "and you awaken from the trance,";
644	mes "gently brought back to reality.^000000";
645	delitem getarg(0),1;
646	set yuno_hist,5;
647	set jupe_hist,getarg(1);
648	getexp 100000,0;
649	next;
650	mes "[Fayruz]";
651	mes "Everyone can relate";
652	mes "to these old, classic";
653	mes "stories. I hope this tale had";
654	mes "as meaning for you as it did";
655	mes "for me when I first heard it.";
656	next;
657	mes "[Fayruz]";
658	mes "If you can find me";
659	mes "another artifact from";
660	mes "Juperos, I'll share another";
661	mes "tale like that with you. Now";
662	mes "how does that sound? Okay";
663	mes "then, I'll see you, adventurer~";
664	close;
665
666	case 5:
667	if((countitem(getarg(0))) \|\| (countitem(getarg(1))) \|\| (countitem(getarg(2))))
668	{
669	mes "[Fayruz]";
670	mes "Oh, that's unexpected.";
671	mes "This Transparent Plate";
672	mes "seems to have been made";
673	mes "in a different era than the";
674	mes "one you gave me earlier.";
675	mes "How intriguing...";
676	next;
677	mes "[Fayruz]";
678	mes "Sigh I really wish";
679	mes "that I could explore";
680	mes "Juperos on my own, but";
681	mes "I'm just not strong enough.";
682	mes "In a way, I'm quite jealous of you. But it can't be helped...";
683	next;
684	mes "[Fayruz]";
685	mes "You know, that reminds";
686	mes "me of this great story of";
687	mes "a tragic hero that I'd like to";
688	mes "share with you. Let your";
689	mes "mind wander as I relate this ageless, yet bittersweet tale...";
690	next;
691	mes "^3355FFFayruz tells you a story";
692	mes "with a bright beginning, full";
693	mes "of hope that fills you with the";
694	mes "bliss of the heavens, but then";
695	mes "suddenly plummets you into all the despair and torment of hell.^000000";
696	next;
697	mes "^3355FFThe story finally";
698	mes "reaches its ending";
699	mes "and you're surprised";
700	mes "to find yourself sitting";
701	mes "in the Juno Library.^000000";
702	next;
703	mes "[Fayruz]";
704	mes "I know it's a very";
705	mes "depressing story, but";
706	mes "I hope you enjoyed it.";
707	mes "I think you'd agree that";
708	mes "it contains a truth about";
709	mes "mankind that can't be ignored.";
710	if(countitem(getarg(0)))
711	{
712	delitem getarg(0),1;
713	if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
714	else set jupe_hist,jupe_hist +2;
715	}
716	else if(countitem(getarg(1)))
717	{
718	delitem getarg(1),1;
719	if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
720	else set jupe_hist,jupe_hist +4;
721	}
722	else
723	{
724	delitem getarg(2),1;
725	if(getarg(2) == 7354) set jupe_hist,jupe_hist +4;
726	else set jupe_hist,jupe_hist +8;
727	}
728	set yuno_hist,6;
729	getexp 100000,0;
730	next;
731	mes "[Fayruz]";
732	mes "By now I'm sure you've";
733	mes "figured that these classic";
734	mes "tales are like condensed";
735	mes "experiences, refined and";
736	mes "immutable truths that we";
737	mes "can see in our own reality.";
738	next;
739	mes "[Fayruz]";
740	mes "If you find more of";
741	mes "these Transparent";
742	mes "Plates in Juperos, I'd be";
743	mes "very happy to share another";
744	mes "story with you, "+strcharinfo(0)+".";
745	close;
746	}
747	else if(countitem(getarg(3)))
748	{
749	mes "[Fayruz]";
750	mes "Oh, this one seems";
751	mes "to have been created";
752	mes "in a similar era as the";
753	mes "one you gave me earlier.";
754	mes "I'm not sure how much new";
755	mes "information this may provide...";
756	next;
757	mes "[Fayruz]";
758	mes "Still, I'm sure this will";
759	mes "helpful in my research. I just";
760	mes "won't be as making progress";
761	mes "as quickly as I had projected.";
762	mes "Please, I'd like you to take this as a token of my gratitude.";
763	delitem getarg(3),1;
764	getitem 644,1;
765	next;
766	mes "[Fayruz]";
767	mes "Now if you'll excuse";
768	mes "me, I need to go back";
769	mes "to compiling my research...";
770	mes "Thank you so much for";
771	mes "your help, "+strcharinfo(0)+".";
772	close;
773	}
774	else
775	{
776	mes "[Fayruz]";
777	mes "Oh. There isn't anything";
778	mes "here that would help in my";
779	mes "research, but thank you anyway.";
780	mes "If you find anything else while";
781	mes "you're in Juperos, please come back and show it to me, alright?";
782	close;
783	}
784
785	case 7:
786	if((countitem(getarg(0))) \|\| (countitem(getarg(1))))
787	{
788	mes "[Fayruz]";
789	mes "Is this another";
790	mes "Transparent Plate?";
791	mes "Yes, it's quite different";
792	mes "than the last one you";
793	mes "brought over to me...";
794	mes "This is so exciting!";
795	next;
796	mes "[Fayruz]";
797	mes "Oh. You must be thinking";
798	mes "that I'm a complete academia";
799	mes "addict. Well, my life might be";
800	mes "a little uneventful, but there";
801	mes "are other things I think about!";
802	mes "Like, well... It's weird but...";
803	next;
804	mes "[Fayruz]";
805	mes "You see, there's this";
806	mes "guy that I like. I'm not sure";
807	mes "where he might be now, but";
808	mes "his name is Nadim Amal. He's";
809	mes "my friend's brother who I first";
810	mes "met 10 years ago. ^333333Sigh...^000000";
811	next;
812	mes "[Fayruz]";
813	mes "Just recently, I saw";
814	mes "him with his sister, my";
815	mes "friend from Morroc. It's";
816	mes "weird to think that I'd have";
817	mes "these feelings for him after";
818	mes "all this time, isn't it? Oh...!";
819	next;
820	mes "[Fayruz]";
821	mes "I really should repay";
822	mes "you for this Transparent";
823	mes "Plate. Why don't I tell you";
824	mes "the scariest story that I know?";
825	next;
826	mes "^3355FFFayruz tells you a";
827	mes "creepy horror story that";
828	mes "makes you shiver with fear.";
829	mes "You've heard other ghost";
830	mes "stories, but you've never been";
831	mes "so deeply immersed in one before.^000000";
832	next;
833	mes "It is only when the";
834	mes "story ends and you return";
835	mes "to your senses that you notice that you're soaked in cold sweat.^000000";
836	next;
837	mes "[Fayruz]";
838	mes "It may be a natural";
839	mes "response, but all people";
840	mes "fear the unknown in one way";
841	mes "or another. Scary stories are";
842	mes "appealing because we actually";
843	mes "like the strange and grotesque.";
844	if(countitem(getarg(0)))
845	{
846	delitem getarg(0),1;
847	if(getarg(0) == 7352) set jupe_hist,jupe_hist +1;
848	else if(getarg(0) == 7353) set jupe_hist,jupe_hist +2;
849	else set jupe_hist,jupe_hist +4;
850	}
851	else if(countitem(getarg(1)))
852	{
853	delitem getarg(1),1;
854	if(getarg(1) == 7353) set jupe_hist,jupe_hist +2;
855	else if(getarg(1) == 7354) set jupe_hist,jupe_hist +4;
856	else set jupe_hist,jupe_hist +8;
857	}
858	set yuno_hist,8;
859	getexp 100000,0;
860	next;
861	mes "[Fayruz]";
862	mes "Well... That's just my";
863	mes "opinion. Anyway, if you";
864	mes "find anything else in Juperos";
865	mes "that may help in my research,";
866	mes "please come back and show it";
867	mes "to me, alright? See you later~";
868	close;
869	}
870	else if((countitem(getarg(2))) \|\| (countitem(getarg(3))))
871	{
872	mes "[Fayruz]";
873	mes "Oh, this one seems";
874	mes "to have been created";
875	mes "in a similar era as the";
876	mes "one you gave me earlier.";
877	mes "I'm not sure how much new";
878	mes "information this may provide...";
879	next;
880	mes "[Fayruz]";
881	mes "Still, I'm sure this will";
882	mes "helpful in my research. I just";
883	mes "won't be as making progress";
884	mes "as quickly as I had projected.";
885	mes "Please, I'd like you to take this as a token of my gratitude.";
886	next;
887	mes "[Fayruz]";
888	mes "Now if you'll excuse";
889	mes "me, I need to go back";
890	mes "to compiling my research...";
891	mes "Thank you so much for";
892	mes "your help, "+strcharinfo(0)+".";
893	if(countitem(getarg(2))) delitem getarg(2),1;
894	else if(countitem(getarg(3))) delitem getarg(3),1;
895	getitem 644,1;
896	close;
897	}
898	else
899	{
900	mes "[Fayruz]";
901	mes "Oh. There isn't anything";
902	mes "here that would help in my";
903	mes "research, but thank you anyway.";
904	mes "If you find anything else while";
905	mes "you're in Juperos, please come back and show it to me, alright?";
906	close;
907	}
908
909	case 9:
910	if(countitem(getarg(0)))
911	{
912	mes "[Fayruz]";
913	mes "Oooh...! This one is";
914	mes "much different than the";
915	mes "other ones you gave me";
916	mes "before. This should provide";
917	mes "a wealth of brand new insights";
918	mes "into the Juperos civilization!";
919	next;
920	mes "[Fayruz]";
921	mes "All the Transparent";
922	mes "Plates you've given me";
923	mes "should contain more than";
924	mes "enough data for me to fully";
925	mes "complete my research thesis.";
926	mes "Once again, thank you so much~";
927	next;
928	mes "[Fayruz]";
929	mes "Still, that doesn't mean that";
930	mes "I will stop collecting data for";
931	mes "my research. Anyway, I have one last story to tell you, about";
932	mes "a man of pure heart chosen by the gods to serve and protect mankind.";
933	next;
934	mes "[Fayruz]";
935	mes "For this purpose he was given";
936	mes "gaudy armor which contained";
937	mes "amazing powers, as well as a";
938	mes "book detailing the instructions";
939	mes "for its use. However, he promptly";
940	mes "lost these instructions...";
941	next;
942	mes "^3355FFThe story about the";
943	mes "greatest Juperosian hero";
944	mes "that Fayruz tells you is very";
945	mes "humorous at first, but then it";
946	mes "covers the entire spectrum";
947	mes "of emotion and humanity...";
948	next;
949	mes "^3355FFThe story ends and you";
950	mes "are left with a swelling";
951	mes "feeling of indefatigable";
952	mes "hope and inspiration...";
953	mes "You can make it if you try!^000000";
954	if(getarg(0) == 7352) set jupe_hist,jupe_hist+1;
955	else if(getarg(0) == 7353) set jupe_hist,jupe_hist+2;
956	else if(getarg(0) == 7354) set jupe_hist,jupe_hist+4;
957	else set jupe_hist,jupe_hist+8;
958	set yuno_hist,10;
959	delitem getarg(0),1;
960	getexp 100000,0;
961	next;
962	mes "[Fayruz]";
963	mes "Well, that is the";
964	mes "last and the best story";
965	mes "that I have to share";
966	mes "with you. Perhaps next";
967	mes "time, I'll fill you in on my";
968	mes "research progress~";
969	close;
970	}
971	else if((countitem(getarg(1))) \|\| (countitem(getarg(2))) \|\| (countitem(getarg(3))))
972	{
973	mes "[Fayruz]";
974	mes "Hmm...";
975	mes "This one seems to be created in a similar time";
976	mes "as the previous one.";
977	next;
978	mes "[Fayruz]";
979	mes "Don't you worry.";
980	mes "This will help my research of course,";
981	mes "although I do not think this will";
982	mes "help me in advancing my research";
983	mes "with a great speed unlike this other one.";
984	next;
985	mes "[Fayruz]";
986	mes "Please take this as a token of my gratitude.";
987	next;
988	mes "[Fayruz]";
989	mes "Now, excuse me. I need to go back to my research.";
990	if(countitem(getarg(1))) delitem getarg(1),1;
991	else if(countitem(getarg(2))) delitem getarg(2),1;
992	else delitem getarg(3),1;
993	getitem 644,1;
994	close;
995	}
996	else
997	{
998	mes "[Fayruz]";
999	mes "Oh. There isn't anything";
1000	mes "here that would help in my";
1001	mes "research, but thank you anyway.";
1002	mes "If you find anything else while";
1003	mes "you're in Juperos, please come back and show it to me, alright?";
1004	close;
1005	}
1006	}
1007	}
1008
1009	yuno_in04,186,125,4 script Bundle of Files 111,{
1010
1011	mes "^8B6914Thesis: The Fall of Juperos";
1012	mes "By Fayruz Khrhiyha";
1013	mes "Sage Castle Researcher^000000";
1014	next;
1015	switch( select("Table of Contents.","Leave it alone.") )
1016	{
1017	case 1:
1018	if(yuno_hist > 4)
1019	{
1020	mes "^8B6914 1. Preface";
1021	mes " 2. Juperos Background";
1022	mes " 3. Theory Behind Its Fall^000000";
1023	next;
1024	switch( select("Preface","Juperos Background","Theory Behind Its Fall","Leave it alone.") )
1025	{
1026	case 1:
1027	mes "^8B6914Scholars are certain";
1028	mes "that the Juperos civilization";
1029	mes "used to be located above the";
1030	mes "ground, but it is now buried";
1031	mes "beneath the El Mes Plateau.";
1032	mes "The reasons for the city's";
1033	if(yuno_hist < 9)
1034	{
1035	mes "ruin are still nebulous...^000000";
1036	next;
1037	mes "^8B6914There is much speculation";
1038	mes "about the reasons for Jupero's";
1039	mes "downfall, but any documentation";
1040	mes "from that time period has been";
1041	mes "difficult to find. As for now, any evidence we have regarding";
1042	mes "Juperos is inconclusive.^000000";
1043	next;
1044	mes "^8B6914In spite of this lack";
1045	mes "of empirical or concrete";
1046	mes "data on the civilization of";
1047	mes "Juperos, our modern world";
1048	mes "may be able to learn much";
1049	mes "from that ancient city's ruins.";
1050	mes "..................^000000";
1051	if(yuno_hist < 7)
1052	{
1053	next;
1054	mes "["+strcharinfo(0)+"]";
1055	mes "Hmmm...";
1056	mes "A whole chapter";
1057	mes "dedicated to saying,";
1058	mes "''We know absolutely";
1059	mes "nothing about something.''";
1060	mes "I should write a book~";
1061	}
1062	close;
1063	}
1064	mes "ruin are still in debate...^000000";
1065	next;
1066	mes "^8B6914However, new findings";
1067	mes "regarding the history";
1068	mes "of Juperos have allowed";
1069	mes "us to make a few conclusions.^000000";
1070	close;
1071
1072	case 2:
1073	if(yuno_hist < 9)
1074	{
1075	mes "^8B6914...";
1076	mes "......";
1077	mes "..........^000000";
1078	next;
1079	mes "["+strcharinfo(0)+"]";
1080	mes "This is all just idle";
1081	mes "conjecture! This paper";
1082	mes "isn't developed enough";
1083	mes "yet to be a real thesis...";
1084	close;
1085	}
1086	else if(yuno_hist == 9)
1087	{
1088	mes "^8B6914Juperos was built over";
1089	mes "a thousand years ago in";
1090	mes "an era of peace just after";
1091	mes "a major war. Contrary to";
1092	mes "popular belief, there isn't any";
1093	mes "evidence proving that Juno may";
1094	mes "have descended from Juperos.^000000";
1095	next;
1096	mes "^8B6914In fact, there is a";
1097	mes "strong possibility that";
1098	mes "another war, between Juno";
1099	mes "and Juperos, resulted in Juno's";
1100	mes "independence from Juperos and";
1101	mes "the destruction of any existing";
1102	mes "documentation from that era.^000000";
1103	next;
1104	mes "["+strcharinfo(0)+"]";
1105	mes "Yes... Of course!";
1106	mes "It all makes sense now!";
1107	close;
1108	}
1109	mes "^8B6914Juperos was built over";
1110	mes "a thousand years ago in";
1111	mes "an era of peace just after";
1112	mes "a major war. There is now";
1113	mes "direct evidence linking Juno";
1114	mes "to Juperos proving that Juno";
1115	mes "was but a part of Juperos.^000000";
1116	next;
1117	mes "^8B6914Just like Juno, Juperos";
1118	mes "was a society that prided";
1119	mes "itself on its advancement";
1120	mes "in the sciences which played";
1121	mes "a permeating role in civilized";
1122	mes "life. Science was reponsible for Juperos's rise and downfall.";
1123	close;
1124
1125	case 3:
1126	if(yuno_hist < 10)
1127	{
1128	mes "^8B6914...";
1129	mes "......";
1130	mes "..........^000000";
1131	next;
1132	mes "["+strcharinfo(0)+"]";
1133	mes "Huh. This writer keeps";
1134	mes "talking about theories,";
1135	mes "but the more I read, the";
1136	mes "less clear I am on what";
1137	mes "the theory actually is.";
1138	mes "I don't think there is one...";
1139	emotion 4,1;
1140	close;
1141	}
1142	mes "^8B6914What is most unsettling";
1143	mes "is recent evidence, including";
1144	mes "a first hand written account,";
1145	mes "regarding the role of one of";
1146	mes "Jupero's foremost scientists";
1147	mes "in that city's rise and fall.";
1148	next;
1149	mes "^8B6914If these writings are";
1150	mes "authentic, then what actually";
1151	mes "happened was that a scientific";
1152	mes "revolution occurred as a direct";
1153	mes "result of one scientist's effort to manipulate the energies of the";
1154	mes "artifact known as Ymir's heart.";
1155	next;
1156	mes "^8B6914This one man and Ymir's";
1157	mes "Heart are credited with";
1158	mes "the success and prosperity";
1159	mes "of the Jupero's civilization.";
1160	mes "However, there are various accounts prior to Jupero's fall";
1161	mes "detailing his work with chimera...^000000";
1162	next;
1163	mes "^8B6914This scientist, supposedly";
1164	mes "in his passion to benefit his";
1165	mes "people by finding a scientific";
1166	mes "method for immortality by using";
1167	mes "chimera for testing, was driven";
1168	mes "insane. He experimented on";
1169	mes "himself with disatrous results.^000000";
1170	next;
1171	mes "^8B6914There was an error in the";
1172	mes "energy calibration of Ymir's";
1173	mes "Heart and the scientist was";
1174	mes "transformed into the monster";
1175	mes "we now know as Chimera. He";
1176	mes "and his test subjects were set";
1177	mes "loose into the city of Juperos.^000000";
1178	next;
1179	mes "^8B6914These immortal Chimeras";
1180	mes "razed the entire city, killing";
1181	mes "countless people. Apparently,";
1182	mes "a team of scientists were able";
1183	mes "to salvage a fragment of Ymir's";
1184	mes "Heart, and use it to lauch part";
1185	mes "of Juperos into the sky.^000000";
1186	next;
1187	mes "^8B6914That section of Juperos";
1188	mes "eventually developed into";
1189	mes "the city of Juno. Since the";
1190	mes "scientists who launched Juno into the sky all immediately died";
1191	mes "afterwards from an unknown cause, they left no documentation.^000000";
1192	next;
1193	mes "^8B6914The Chimera, and the";
1194	mes "laboratory in which it";
1195	mes "was created, is rumored to";
1196	mes "remain beneath the ruins of";
1197	mes "the once great city of Juperos.^000000";
1198	close;
1199
1200	case 4:
1201	mes "["+strcharinfo(0)+"]";
1202	mes "Ugh... My head hurts";
1203	mes "too much from reading";
1204	mes "a book for smarty people.";
1205	mes "I know! I'll play videogames!";
1206	close;
1207	}
1208	}
1209	switch( select( "Preface","Close the file.") )
1210	{
1211	case 1:
1212	mes "^8B6914Scholars are certain";
1213	mes "that the Juperos civilization";
1214	mes "used to be located above the";
1215	mes "ground, but it is now buried";
1216	mes "beneath the El Mes Plateau.";
1217	mes "The reasons for the city's";
1218	mes "ruin are still nebulous...^000000";
1219	next;
1220	mes "^8B6914There is much speculation";
1221	mes "about the reasons for Jupero's";
1222	mes "downfall, but any documentation";
1223	mes "from that time period has been";
1224	mes "difficult to find. As for now, any evidence we have regarding";
1225	mes "Juperos is inconclusive.^000000";
1226	next;
1227	mes "^8B6914In spite of this lack";
1228	mes "of empirical or concrete";
1229	mes "data on the civilization of";
1230	mes "Juperos, our modern world";
1231	mes "may be able to learn much";
1232	mes "from that ancient city's ruins.";
1233	mes "..................^000000";
1234	if(!yuno_hist) set yuno_hist,1;
1235	next;
1236	mes "["+strcharinfo(0)+"]";
1237	mes "This...";
1238	mes "This is supposed to";
1239	mes "be a research thesis?";
1240	mes "There's barely any";
1241	mes "research in it...";
1242	close;
1243
1244	case 2:
1245	mes "["+strcharinfo(0)+"]";
1246	mes "Hmm...";
1247	mes "This isn't heavy";
1248	mes "enough to be a real";
1249	mes "academic work. It must";
1250	mes "not even be finished yet.";
1251	close;
1252	}
1253	case 2:
1254	if(yuno_hist < 5)
1255	{
1256	mes "["+strcharinfo(0)+"]";
1257	mes "Nah...";
1258	mes "I'm tired of reading.";
1259	mes "Ironically enough.";
1260	close;
1261	}
1262	else if(yuno_hist < 7)
1263	{
1264	mes "["+strcharinfo(0)+"]";
1265	mes "I don't feel like";
1266	mes "reading this. Not";
1267	mes "enough pictures...";
1268	close;
1269	}
1270	else if(yuno_hist < 9)
1271	{
1272	mes "["+strcharinfo(0)+"]";
1273	mes "It looks very sophisticated...";
1274	close;
1275	}
1276	else if(yuno_hist < 10)
1277	{
1278	mes "["+strcharinfo(0)+"]";
1279	mes "I know this book...";
1280	mes "But I don't feel like";
1281	mes "reading it right now.";
1282	close;
1283	}
1284	else
1285	{
1286	mes "["+strcharinfo(0)+"]";
1287	mes "This thesis is";
1288	mes "looking pretty good~";
1289	mes "Of course, I did have";
1290	mes "a hand in making it...";
1291	close;
1292	}
1293	}
1294	}
1295
1296	yuno_in04,188,118,4 script Book#juperos 111,{
1297
1298	if(yuno_hist > 7)
1299	{
1300	mes "^8B6914Self-Honesty";
1301	mes "'Benefits Fo' Life!'";
1302	mes "By Stephen Oyoung";
1303	mes " ";
1304	mes " ";
1305	mes "Publisher:";
1306	mes "Wushu Publishing, Co.^000000";
1307	next;
1308	mes "["+strcharinfo(0)+"]";
1309	mes "W-whoa!";
1310	mes "This book wasn't";
1311	mes "here before! It looks";
1312	mes "pretty interesting...";
1313	close;
1314	}
1315	mes "["+strcharinfo(0)+"]";
1316	mes "You know what?";
1317	mes "I think I'll just flip";
1318	mes "through some pages";
1319	mes "from a random book.";
1320	mes "Hmmm, let's see...";
1321	next;
1322	mes "^8B6914''Admiral, the Kylorians are";
1323	mes "still advancing!'' Commander";
1324	mes "McKenrick announced without";
1325	mes "his usual swagger. ''They're...";
1326	mes "They're not stopping!'' But";
1327	mes "Admiral Leh's eyes were a cold,";
1328	mes "unfeeling shade of sternness.^000000";
1329	next;
1330	mes "^8B6914''Let the goddamned space";
1331	mes "aliens come,'' hissed Leh.";
1332	mes "''We don't stand a chance";
1333	mes "without the Zenoi Sword";
1334	mes "to summon the power of";
1335	mes "GOD-POING. It's... It's";
1336	mes "all over. Damn it all...''^000000";
1337	next;
1338	mes "^8B6914The doors burst open as";
1339	mes "Bucky flew into the room.";
1340	mes "''The Zenoi Sword! The";
1341	mes "Zenoi Sword! Someone's";
1342	mes "found it!'' the boy yelled.";
1343	mes "''Really?! We better hurry:";
1344	mes "Earth doesn't have much time!''^000000";
1345	next;
1346	mes "["+strcharinfo(0)+"]";
1347	mes "...";
1348	mes "......";
1349	mes "Whoa. I really";
1350	mes "should have read";
1351	mes "this masterpiece";
1352	mes "from the beginning...";
1353	close;
1354	}
1355
1356	// Bronze Statue - juperos_01 99 112
1357
1358	juperos_01,99,112,4 script Bronze Statue#1 844,{
1359
1360	if(yuno_hist > 3)
1361	{
1362	mes "^3355FF''Do you wish to see";
1363	mes "the end of the madness?";
1364	mes "He is waiting where the three";
1365	mes "columns were destroyed, where";
1366	mes "two hundred illusions wander.''^000000";
1367	close;
1368	}
1369	else if(yuno_hist == 3)
1370	{
1371	mes "["+strcharinfo(0)+"]";
1372	mes "I better go and";
1373	mes "see Fayruz in the";
1374	mes "Juno Library and tell";
1375	mes "her about the inscription.";
1376	close;
1377	}
1378	else
1379	{
1380	mes "^3355FFThere's a peculiar";
1381	mes "engraving on the";
1382	mes "Bronze Statue's rod.^000000";
1383	next;
1384	switch( select( "Investigate","Ignore it" ) )
1385	{
1386	case 1 :
1387	mes "^3355FFIt's an inscription that's";
1388	mes "written in an old language";
1389	mes "that you can't understand,";
1390	mes "but have no problem reading";
1391	mes "and making out the sounds";
1392	mes "for some weird reason.^000000";
1393	next;
1394	mes "["+strcharinfo(0)+"]";
1395	mes "This is creepy!";
1396	mes "I know that I'm not";
1397	mes "supposed to be able";
1398	mes "to read this, but here";
1399	mes "I am. I know what sounds";
1400	mes "all of these letters make...";
1401	next;
1402	if(yuno_hist == 2)
1403	{
1404	mes "["+strcharinfo(0)+"]";
1405	mes "Then again, Fayruz did";
1406	mes "say this was enchanted.";
1407	mes "Okay, I guess I'll go back";
1408	mes "to the Juno Library and";
1409	mes "tell her what I found.";
1410	set yuno_hist,3;
1411	close;
1412	}
1413	mes "["+strcharinfo(0)+"]";
1414	mes "Huh. Only a scholar,";
1415	mes "maybe someone even in";
1416	mes "Juno, could make sense";
1417	mes "of what this stuff says.";
1418	close;
1419
1420	case 2 :
1421	close;
1422	}
1423	}
1424	}
1425
1426	yuno_in04,169,109,1 script Ambitious Hollgrehenn 111,{
1427
1428	mes "Hollgrehenn: The Ambition";
1429	mes "By Aragham Caul*";
1430	mes "";
1431	mes "";
1432	mes "";
1433	mes "";
1434	mes "Publisher:";
1435	mes "Muha Books, Co.";
1436	next;
1437	mes "...";
1438	mes "He would stop at nothing";
1439	mes "to have the greatest weapon";
1440	mes "in the world in his possession.";
1441	mes "He became a smith so that he";
1442	mes "could discern which weapons";
1443	mes "were the most powerful...";
1444	next;
1445	mes "[" + strcharinfo(0) + "]";
1446	mes "That's strange...";
1447	mes "The next page";
1448	mes "has been torn out.";
1449	close;
1450	}
1451
1452	yuno_in04,174,111,1 script Penniless Hollgrehenn 111,{
1453
1454	mes "^8B6914Penniless Hollgrehenn";
1455	mes " * Pennyless Hollgrehenn * ";
1456	mes "By Hollgrehenn";
1457	mes " ";
1458	mes " ";
1459	mes "Publisher:";
1460	mes "Muha Books, Co.^000000";
1461	next;
1462	mes "["+strcharinfo(0)+"]";
1463	mes "This book looks";
1464	mes "like a total piece of";
1465	mes "crap. I'd have more";
1466	mes "fun getting my teeth";
1467	mes "drilled by a blindfolded";
1468	mes "dentist. Or would I...?";
1469	close;
1470	}
1471
1472	yuno_in04,102,106,1 script Popular Feasts 111,{
1473
1474	mes "^8B6914Popular Feasts";
1475	mes "By Cabbage Pickle Community";
1476	mes " ";
1477	mes " ";
1478	mes " ";
1479	mes "Publisher:";
1480	mes "Muha Books, Co.^000000";
1481	next;
1482	switch( select( " 1. Fried Yoyo Tails"," 14. Poring Salad"," 252. Beak Soup" ) )
1483	{
1484	case 1:
1485	mes "^8B6914...";
1486	mes "If possible, try";
1487	mes "to use tails cut";
1488	mes "from live Yoyos.";
1489	mes "Now, as for skinning...^000000";
1490	next;
1491	mes "["+strcharinfo(0)+"]";
1492	mes "Um...";
1493	mes "Barf?";
1494	close;
1495
1496	case 2:
1497	mes "["+strcharinfo(0)+"]";
1498	mes "Hey, this page is gone!";
1499	mes "I guess Poring Salad is";
1500	mes "the most popular feast";
1501	mes "in this entire book.";
1502
1503	case 3:
1504	mes "^8B6914...";
1505	mes "Fry the cut beaks";
1506	mes "using herbal oil until";
1507	mes "crisp. Then, pour the";
1508	mes "feathers into a blender...^000000";
1509	next;
1510	mes "["+strcharinfo(0)+"]";
1511	mes "Hmm...";
1512	mes "Sounds a little";
1513	mes "too gourmet for my";
1514	mes "taste. And by ''gourmet,''";
1515	mes "I mean, ''totally gross.''";
1516	close;
1517	}
1518	}
1519
1520	yuno_in04,111,108,1 script Hamerun, Rat Hunter 111,{
1521
1522	mes "["+strcharinfo(0)+"]";
1523	mes "I can't...";
1524	mes "reach it...!";
1525	close;
1526	}
1527
1528	yuno_in04,167,127,1 script Red Book 111,{
1529
1530	mes "^3355FFYou find a book";
1531	mes "with red binding.^000000";
1532	next;
1533	switch( select( "Read.","Leave it alone." ) )
1534	{
1535	case 1:
1536	mes "^8B6914...^000000";
1537	next;
1538	mes "^8B6914...";
1539	mes "......^000000";
1540	next;
1541	mes "^8B6914...";
1542	mes "......";
1543	mes ".........^000000";
1544	next;
1545	mes "^8B6914...";
1546	mes "......";
1547	mes ".........";
1548	mes "............^000000";
1549	next;
1550	mes "["+strcharinfo(0)+"]";
1551	mes "This is...";
1552	mes "A compilation of";
1553	mes "Shakespeare in ";
1554	mes "coloring book format?";
1555	next;
1556	mes "["+strcharinfo(0)+"]";
1557	mes "Wait...";
1558	mes "Why would fans of";
1559	mes "Shakespeare even";
1560	mes "want a coloring book?";
1561	next;
1562	mes "["+strcharinfo(0)+"]";
1563	mes "Hmm... Well...";
1564	mes "I suppose little kids who";
1565	mes "read Shakespeare would";
1566	mes "appreciate something like that.";
1567	next;
1568	mes "["+strcharinfo(0)+"]";
1569	mes "Hold on...";
1570	mes "Do little kids who";
1571	mes "are able to read the";
1572	mes "works of Shakespeare";
1573	mes "even exist? I hope not...";
1574	close;
1575
1576	case 2:
1577	mes "["+strcharinfo(0)+"]";
1578	mes "What a strange";
1579	mes "and mysterious book.";
1580	mes "I'll never know what's";
1581	mes "inside unless I read it!";
1582	mes "Come on! Doesn't the red";
1583	mes "binding mean something?";
1584	close;
1585	}
1586	}
1587
1588	yuno_in04,121,109,1 script Scroll 111,{
1589
1590	mes "^3355FFYou've found an";
1591	mes "antiquated scroll";
1592	mes "that's collected a";
1593	mes "layer of fine dust.^000000";
1594	next;
1595	switch( select( "Peruse","Leave it alone" ) )
1596	{
1597	case 1:
1598	mes "^8B6914Item Upgrade Introduction";
1599	mes " ";
1600	mes " ";
1601	mes " ";
1602	mes "1. Item Upgrade Definition";
1603	mes " ";
1604	mes "The key to success when";
1605	mes "upgrading items comes from";
1606	mes "only one place: Your ''Mind.''";
1607	mes " ";
1608	mes " ";
1609	mes " ";
1610	mes "2. Power of a Positive Attitude";
1611	mes "Before trying to upgrade";
1612	mes "an item, plan out how high";
1613	mes "you want to upgrade and how";
1614	mes "much you'll spend beforehand.";
1615	mes "But like all ladies, Lady Luck";
1616	mes "smiles when you fully splurge.^000000";
1617	mes " ";
1618	mes " ";
1619	next;
1620	mes "["+strcharinfo(0)+"]";
1621	mes "Wait, wait...";
1622	mes "This thing IS old.";
1623	mes "I mean, it's obviously";
1624	mes "written from a patriarchal";
1625	mes "standpoint that promotes";
1626	mes "bipartisan gender roles.";
1627	next;
1628	mes "["+strcharinfo(0)+"]";
1629	mes "I'm...";
1630	mes "I'm so offended.";
1631	close;
1632
1633	case 2:
1634	mes "["+strcharinfo(0)+"]";
1635	mes "This scroll is far too";
1636	mes "primitive. There's been";
1637	mes "all sorts of technological";
1638	mes "reading advances that I can't";
1639	mes "live without... Like pages.";
1640	close;
1641	}
1642	}
1643
1644	yuno_in04,118,116,4 script Paper 111,{
1645
1646	mes "^3355FFIt's a piece of";
1647	mes "paper that looks";
1648	mes "like a personal letter.^000000";
1649	next;
1650	switch( select("Read it.","Leave it alone.") )
1651	{
1652	case 1:
1653	if(yuno_hist > 7)
1654	{
1655	mes "^8B6914P.S.";
1656	mes "Please...";
1657	mes "Come back to me.";
1658	mes " ";
1659	mes " ";
1660	mes "Love,";
1661	mes "Fayruz^000000";
1662	close;
1663	}
1664	mes "^8B6914...";
1665	mes "I can't forget your smile.";
1666	mes "No matter what, even if you";
1667	mes "hate me, I'll always have these";
1668	mes "feelings just for you. You are";
1669	mes "the one who is most special,";
1670	mes "who means the most to my heart.^000000";
1671	next;
1672	mes "^8B6914I know we've had our";
1673	mes "differences, but please";
1674	mes "don't refuse my love. By";
1675	mes "your hands, I hope that";
1676	mes "you can forgive me for us.";
1677	mes "- Love, Fayruz^000000";
1678	next;
1679	if(getpartnerid())
1680	{
1681	mes "["+strcharinfo(0)+"]";
1682	mes "Ahhhhhh~";
1683	mes "Love sure is nice!";
1684	close;
1685	}
1686	mes "["+strcharinfo(0)+"]";
1687	mes "What th--?!";
1688	mes "Booooooooo!";
1689	mes "Love stinks!";
1690	close;
1691
1692	case 2:
1693	mes "["+strcharinfo(0)+"]";
1694	mes "I guess I better";
1695	mes "not look at this.";
1696	mes "I mean, I might";
1697	mes "regret reading it.";
1698	close;
1699	}
1700	}
1701
1702	juperos_01,123,92,4 script Stone Statue 844,{
1703
1704	if(yuno_hist)
1705	{
1706	mes "^3355FFIt's a stone statue";
1707	mes "that looks exactly like";
1708	mes "the one in the Juno Library.";
1709	mes "However, it has sculptures";
1710	mes "of books instead of real ones.^000000";
1711	next;
1712	mes "^3355FFIt's possible that the";
1713	mes "statue in the Juno Library";
1714	mes "was made after this one.";
1715	mes "But who can be sure?^000000";
1716	close;
1717	}
1718	mes "^3355FFIt's an old";
1719	mes "statue sculpted";
1720	mes "out of stone.^000000";
1721	close;
1722	}
1723
1724	juperos_01,99,71,4 script Bronze Statue#2 844,{
1725
1726	mes "^3355FFIt's an elaborate";
1727	mes "bronze statue that";
1728	mes "is twice the height of";
1729	mes "a normal human being.^000000";
1730	close;
1731	}
1732
1733	juperos_01,79,92,4 script Sculpture 844,{
1734
1735	mes "^3355FFIt's a sculpture that";
1736	mes "looks familiar to you.^000000";
1737	close;
1738	}
1739
1740	juperos_01,215,127,4 script Machine Statue 844,{
1741
1742	mes "^3355FFThis is the bust of a";
1743	mes "humanoid machine with";
1744	mes "a familiar Crest Piece";
1745	mes "carved into the middle.^000000";
1746	next;
1747	mes "^3355FFThe statue's entire";
1748	mes "form is mind boggling,";
1749	mes "but you manage to note";
1750	mes "that its outstretched";
1751	mes "arm points westward.^000000";
1752	close;
1753	}
1754
1755	//============================================================
1756	// Jupers Core access Story Event
1757	//============================================================
1758	//============================================================
1759	// 1rd Floor -> 2nd Floor
1760	//============================================================
1761	juperos_01,100,91,0 script jupe_goto#1 -1,2,2,{
1762	end;
1763
1764	OnTouch:
1765	initnpctimer "jupe_goto#1",1;
1766	mes "^777777["+ strcharinfo(0) +"]^000000";
1767	mes "This light...";
1768	mes "It feels like...";
1769	mes "Its warmth is...";
1770	mes "Wrapping all over me...";
1771	next;
1772	switch(select("Ah, it's so nice...:No! This is wrong!")) {
1773	case 1:
1774	mes "^777777["+ strcharinfo(0) +"]^000000";
1775	mes "Ahhhh...";
1776	mes "It feels like";
1777	mes "I'm floating...";
1778	specialeffect2 348; // EF_LIGHTSPHERE
1779	close2;
1780	stopnpctimer;
1781	warp "juperos_02",128,278;
1782	case 2:
1783	mes "^777777["+ strcharinfo(0) +"]^000000";
1784	mes "N-No! This is";
1785	mes "wrong! Something";
1786	mes "weird's happening!";
1787	mes "I gotta get away!";
1788	close2;
1789	stopnpctimer;
1790	warp "juperos_01",96,91;
1791	}
1792	end;
1793
1794	OnTimer10000:
1795	stopnpctimer;
1796	warp "juperos_02",128,278;
1797	donpcevent "jupe_goto#2::OnEnable";
1798	end;
1799	}
1800
1801	juperos_01,100,91,0 script jupe_goto#2 -1,2,2,{
1802	OnInit:
1803	disablenpc "jupe_goto#2";
1804	end;
1805
1806	OnEnable:
1807	enablenpc "jupe_goto#2";
1808	disablenpc "jupe_goto#1";
1809	initnpctimer;
1810	end;
1811
1812	OnTouch:
1813	warp "juperos_02",128,278;
1814	end;
1815
1816	OnTimer2000:
1817	enablenpc "jupe_goto#1";
1818	disablenpc "jupe_goto#2";
1819	end;
1820	}
1821
1822	//============================================================
1823	// 2nd Floor
1824	//============================================================
1825
1826	juperos_02,97,70,0 script 3F Gate Switch#jupe -1,{
1827	OnInit:
1828	initnpctimer;
1829	end;
1830
1831	Onreset:
1832	killmonster "juperos_02","3F Gate Switch#jupe::OnMyMobDead";
1833	end;
1834
1835	OnEnable:
1836	enablenpc "3F Gate Switch#jupe";
1837	initnpctimer;
1838	end;
1839
1840	OnTimer5000:
1841	set .MyMobs,3;
1842	monster "juperos_02",24,275,"1st Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1843	monster "juperos_02",240,29,"2nd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1844	monster "juperos_02",282,183,"3rd Gate Switch",1674,1,"3F Gate Switch#jupe::OnMyMobDead";
1845	stopnpctimer;
1846	end;
1847
1848	OnMyMobDead:
1849	set .MyMobs,.MyMobs-1;
1850	if (.MyMobs == 2)
1851	mapannounce "juperos_02","Who are you to come here?",bc_map,"0xFF0000";
1852	else if (.MyMobs == 1)
1853	mapannounce "juperos_02","Have you come seeking Juperos?! It no longer exists...",bc_map,"0xFF0000";
1854	else if (.MyMobs == 0) {
1855	mapannounce "juperos_02","Have you come to see me? Fine! Find me first!",bc_map,"0xFF0000";
1856	specialeffect2 563; // 563
1857	soundeffectall "earth_quake.wav",0;
1858	disablenpc "3F Gate Switch#jupe";
1859	donpcevent "Restricted Area#jupe::OnEnable";
1860	}
1861	end;
1862	}
1863
1864
1865	juperos_02,130,149,0 script Restricted Area#jupe 139,2,2,{
1866	OnInit:
1867	disablenpc "Restricted Area#jupe";
1868	end;
1869
1870	OnEnable:
1871	enablenpc "Restricted Area#jupe";
1872	initnpctimer;
1873	end;
1874
1875	OnTimer5000:
1876	mapannounce "juperos_02","Vroom! Vroom!",bc_map,"0xE559A2";
1877	end;
1878
1879	OnTimer7000:
1880	mapannounce "juperos_02","Attention, visitors.",bc_map,"0xE559A2";
1881	end;
1882
1883	OnTimer9000:
1884	mapannounce "juperos_02","You are allowed to enter the next zone for a short period of time. Please use the portal in the center of the map.",bc_map,"0xE559A2";
1885	end;
1886
1887	OnTimer9001:
1888	OnTimer23000:
1889	OnTimer46000:
1890	OnTimer69000:
1891	OnTimer92000:
1892	OnTimer115000:
1893	OnTimer161000:
1894	OnTimer184000:
1895	OnTimer207000:
1896	OnTimer230000:
1897	OnTimer253000:
1898	OnTimer276000:
1899	OnTimer299000:
1900	OnTimer322000:
1901	OnTimer345000:
1902	OnTimer368000:
1903	OnTimer391000:
1904	OnTimer414000:
1905	OnTimer460000:
1906	OnTimer483000:
1907	OnTimer506000:
1908	OnTimer529000:
1909	OnTimer552000:
1910	specialeffect 561; //"Restricted Area#jupe" 561
1911	end;
1912
1913	OnTimer556000:
1914	mapannounce "juperos_02","Attention, visitors. The gate to the next zone will close shortly.",bc_map,"0xE559A2";
1915	end;
1916
1917	OnTimer561000:
1918	mapannounce "juperos_02","1 minute remaining until Gate Closure. ",bc_map,"0xE559A2";
1919	end;
1920
1921	OnTimer598000:
1922	specialeffect 561; //"Restricted Area#jupe" 561
1923	end;
1924
1925	OnTimer600000:
1926	mapannounce "juperos_02","The gate is being closed...",bc_map,"0xE559A2";
1927	end;
1928
1929	OnTimer603000:
1930	mapannounce "juperos_02"," Switches will reactivate shortly.",bc_map,"0xE559A2";
1931	end;
1932
1933	OnTimer621000:
1934	disablenpc "Restricted Area#jupe";
1935	end;
1936
1937	OnTimer1200000:
1938	donpcevent "3F Gate Switch#jupe::OnEnable";
1939	stopnpctimer;
1940	end;
1941
1942	OnTouch:
1943	warp "jupe_gate",50,167;
1944	end;
1945	}
1946
1947	//============================================================
1948	// Security Checkpoint 1-1
1949	//============================================================
1950	jupe_area1,88,224,0 script #hole#1-1 844,{
1951	cutin "1",2;
1952	if ($@JupreArea1InUse == 1) {
1953	mes "^3355FFThis seems like";
1954	mes "some kind of device";
1955	mes "that will allow you to";
1956	mes "pass to the other side.";
1957	mes "There's a slot where you";
1958	mes "probably need to insert";
1959	mes "some kind of object...^000000";
1960	close2;
1961	cutin "1",255;
1962	end;
1963	}
1964	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
1965	mes "^3355FFThis seems like";
1966	mes "some kind of device";
1967	mes "that will allow you to";
1968	mes "pass to the other side.";
1969	mes "There's a slot where you";
1970	mes "probably need to insert";
1971	mes "some kind of object...^000000";
1972	next;
1973	switch(select("Insert a Crest Piece.:Cancel.")) {
1974	case 1:
1975	if (countitem(7356) > 0) {
1976	mes "^3355FFYou take out your";
1977	mes "Crest Piece and place";
1978	mes "it into the slot where it";
1979	mes "happens to fit perfectly.^000000";
1980	specialeffect 159; //"#hole#1-1" EF_TOPRANK
1981	cutin "1-1",2;
1982	next;
1983	if ($@JupreArea1InUse == 1) {
1984	mes "^3355FFNothing happens.";
1985	mes "Perhaps an alarm or";
1986	mes "some other safety measure";
1987	mes "was activated to keep the";
1988	mes "Crest Piece from activating";
1989	mes "this transportation device.";
1990	mes "You retrieve the Crest Piece.^000000";
1991	close2;
1992	cutin "1-1",255;
1993	end;
1994	}
1995	else {
1996	mes "^3355FFThe slot rotates and";
1997	mes "the Crest Piece moves as";
1998	mes "if it were turning a key. You";
1999	mes "feel a weak tremor as a Warp";
2000	mes "Portal to the other side is";
2001	mes "activated. You then retrieve";
2002	mes "your Crest Piece.^000000";
2003	initnpctimer;
2004	donpcevent "Warp#1-1::OnEnable";
2005	enablenpc "Red Alarm#1-1";
2006	disablenpc "#hole#1-1";
2007	close2;
2008	cutin "1-1",255;
2009	end;
2010	}
2011	}
2012	else {
2013	mes "^3355FFUnfortunately, you're";
2014	mes "not carrying anything";
2015	mes "that might be able to fit";
2016	mes "into the slot and activate";
2017	mes "this mechanical device.^000000";
2018	close2;
2019	cutin "1",255;
2020	end;
2021	}
2022	case 2:
2023	mes "[" + strcharinfo(0) + "]";
2024	mes "Hmmm...";
2025	mes "Do I have anything";
2026	mes "that might make this";
2027	mes "weird machine work?";
2028	close2;
2029	cutin "1",255;
2030	end;
2031	}
2032	close;
2033	}
2034	else {
2035	mes "^3355FFThis seems like";
2036	mes "some kind of device";
2037	mes "that will allow you to";
2038	mes "pass to the other side.";
2039	mes "There's a slot where you";
2040	mes "probably need to insert";
2041	mes "some kind of object...^000000";
2042	close2;
2043	cutin "1",255;
2044	end;
2045	}
2046
2047	Onstop_timer:
2048	stopnpctimer;
2049	end;
2050
2051	OnTimer22500:
2052	stopnpctimer;
2053	enablenpc "#hole#1-1";
2054	disablenpc "Red Alarm#1-1";
2055	end;
2056	}
2057
2058	jupe_area1,83,221,0 script Warp#1-1 139,2,2,{
2059	OnInit:
2060	disablenpc "Warp#1-1";
2061	end;
2062
2063	OnEnable:
2064	enablenpc "Warp#1-1";
2065	specialeffect 561; //"Warp#1-1" 561
2066	soundeffectall "jupe_warp.wav",0;
2067	initnpctimer;
2068	end;
2069
2070	OnTouch:
2071	warp "jupe_area1",47,259;
2072	end;
2073
2074	OnTimer22500:
2075	stopnpctimer;
2076	disablenpc "Warp#1-1";
2077	end;
2078	}
2079
2080	jupe_area1,47,259,0 script Red Alarm#1-1 -1,2,2,{
2081	OnInit:
2082	disablenpc "Red Alarm#1-1";
2083	end;
2084
2085	OnTouch:
2086	donpcevent "Red Alarm On#1-1::OnEnable";
2087	disablenpc "Red Alarm#1-1";
2088	donpcevent "#hole#1-1::Onstop_timer";
2089	set $@JupreArea1InUse,1;
2090	disablenpc "#hole#1-1";
2091	end;
2092	}
2093
2094	- script Red Alarm On#1-1 -1,{
2095	OnInit:
2096	disablenpc "Red Alarm On#1-1";
2097	end;
2098
2099	OnEnable:
2100	enablenpc "Red Alarm On#1-1";
2101	initnpctimer;
2102	end;
2103
2104	OnTimer1000:
2105	mapannounce "jupe_area1","Those of you who have come here...",bc_map,"0xFF0000";
2106	end;
2107
2108	OnTimer3000:
2109	mapannounce "jupe_area1","I do not intend to stop you.",bc_map,"0xFF0000";
2110	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2111	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2112	end;
2113
2114	OnTimer5000:
2115	mapannounce "jupe_area1","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
2116	donpcevent "Monster1#1-1::OnEnable";
2117	end;
2118
2119	OnTimer7000:
2120	mapannounce "jupe_area1","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
2121	end;
2122
2123	OnTimer8000:
2124	disablenpc "Red Alarm On#1-1";
2125	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2126	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2127	stopnpctimer;
2128	end;
2129	}
2130
2131	- script Monster1#1-1 -1,{
2132	OnInit:
2133	disablenpc "Monster1#1-1";
2134	end;
2135
2136	OnDisable:
2137	disablenpc "Monster1#1-1";
2138	killmonster "jupe_area1","Monster1#1-1::OnMyMobDead";
2139	end;
2140
2141	OnEnable:
2142	enablenpc "Monster1#1-1";
2143	initnpctimer;
2144	set .MyMobs,8;
2145	monster "jupe_area1",30,263,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2146	monster "jupe_area1",30,262,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2147	monster "jupe_area1",30,261,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2148	monster "jupe_area1",30,260,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2149	monster "jupe_area1",30,259,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2150	monster "jupe_area1",30,258,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2151	monster "jupe_area1",30,257,"Security Guard",1675,1,"Monster1#1-1::OnMyMobDead";
2152	monster "jupe_area1",30,256,"Security Guard",1669,1,"Monster1#1-1::OnMyMobDead";
2153	end;
2154
2155	OnTimer300000:
2156	mapannounce "jupe_area1","Do you realize this is a hallucination?",bc_map,"0xFF0000";
2157	set $@JupreArea1InUse,0;
2158	end;
2159
2160	OnTimer300002:
2161	enablenpc "#hole#1-1";
2162	stopnpctimer;
2163	donpcevent "Monster1#1-1::OnDisable";
2164	end;
2165
2166	OnMyMobDead:
2167	set .MyMobs,.MyMobs-1;
2168	if (.MyMobs < 1) {
2169	donpcevent "Monster2#1-1::OnEnable";
2170	disablenpc "Monster1#1-1";
2171	stopnpctimer;
2172	}
2173	end;
2174	}
2175
2176	- script Monster2#1-1 -1,{
2177	OnInit:
2178	disablenpc "Monster2#1-1";
2179	end;
2180
2181	OnDisable:
2182	disablenpc "Monster2#1-1";
2183	killmonster "jupe_area1","Monster2#1-1::OnMyMobDead";
2184	end;
2185
2186	OnEnable:
2187	enablenpc "Monster2#1-1";
2188	initnpctimer;
2189	end;
2190
2191	OnTimer2000:
2192	mapannounce "jupe_area1","How about now?",bc_map,"0xFF0000";
2193	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2194	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2195	end;
2196
2197	OnTimer4000:
2198	mapannounce "jupe_area1","Let me see...",bc_map,"0xFF0000";
2199	end;
2200
2201	OnTimer7000:
2202	mapannounce "jupe_area1","Just how strong you are!",bc_map,"0xFF0000";
2203	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2204	soundeffectall "jupe_warning.wav",0,"jupe_area1";
2205	set .MyMobs,8;
2206	monster "jupe_area1",30,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2207	monster "jupe_area1",31,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2208	monster "jupe_area1",32,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2209	monster "jupe_area1",33,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2210	monster "jupe_area1",34,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2211	monster "jupe_area1",35,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2212	monster "jupe_area1",36,238,"Security Guard",1675,1,"Monster2#1-1::OnMyMobDead";
2213	monster "jupe_area1",37,238,"Security Guard",1669,1,"Monster2#1-1::OnMyMobDead";
2214	end;
2215
2216	OnTimer300000:
2217	mapannounce "jupe_area1","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
2218	set $@JupreArea1InUse,0;
2219	end;
2220
2221	OnTimer300002:
2222	enablenpc "#hole#1-1";
2223	stopnpctimer;
2224	donpcevent "Monster2#1-1::OnDisable";
2225	end;
2226
2227	OnMyMobDead:
2228	set .MyMobs,.MyMobs-1;
2229	if (.MyMobs < 1) {
2230	mapannounce "jupe_area1","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
2231	disablenpc "Monster2#1-1";
2232	enablenpc "#hole#1-1";
2233	set $@JupreArea1InUse,0;
2234	stopnpctimer;
2235	}
2236	end;
2237	}
2238
2239	//============================================================
2240	// Security Checkpoint 1-2
2241	//============================================================
2242	jupe_area1,25,238,0 script #hole#1-2 844,{
2243	cutin "2",2;
2244	if ($@JupreArea1InUse == 1) {
2245	mes "^3355FFThis seems like";
2246	mes "some kind of device";
2247	mes "that will allow you to";
2248	mes "pass to the other side.";
2249	mes "There's a slot where you";
2250	mes "probably need to insert";
2251	mes "some kind of object...^000000";
2252	close2;
2253	cutin "2",255;
2254	end;
2255	}
2256	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
2257	mes "^3355FFThis seems like";
2258	mes "some kind of device";
2259	mes "that will allow you to";
2260	mes "pass to the other side.";
2261	mes "There's a slot where you";
2262	mes "probably need to insert";
2263	mes "some kind of object...^000000";
2264	next;
2265	switch(select("Insert a Crest Piece.:Cancel.")) {
2266	case 1:
2267	if (countitem(7357) > 0) {
2268	mes "^3355FFYou take out your";
2269	mes "Crest Piece and place";
2270	mes "it into the slot where it";
2271	mes "happens to fit perfectly.^000000";
2272	specialeffect 159; //"#hole#1-2" EF_TOPRANK
2273	cutin "2-1",2;
2274	next;
2275	if ($@JupreArea1InUse == 1) {
2276	mes "^3355FFNothing happens.";
2277	mes "Perhaps an alarm or";
2278	mes "some other safety measure";
2279	mes "was activated to keep the";
2280	mes "Crest Piece from activating";
2281	mes "this transportation device.";
2282	mes "You retrieve the Crest Piece.^000000";
2283	close2;
2284	cutin "2-1",255;
2285	end;
2286	}
2287	else {
2288	mes "^3355FFThe slot rotates and";
2289	mes "the Crest Piece moves as";
2290	mes "if it were turning a key. You";
2291	mes "feel a weak tremor as a Warp";
2292	mes "Portal to the other side is";
2293	mes "activated. You then retrieve";
2294	mes "your Crest Piece.^000000";
2295	initnpctimer;
2296	donpcevent "Warp#1-2::OnEnable";
2297	enablenpc "Red Alarm#1-2";
2298	disablenpc "#hole#1-2";
2299	close2;
2300	cutin "2-1",255;
2301	end;
2302	}
2303	}
2304	else {
2305	mes "^3355FFUnfortunately, you're";
2306	mes "not carrying anything";
2307	mes "that might be able to fit";
2308	mes "into the slot and activate";
2309	mes "this mechanical device.^000000";
2310	close2;
2311	cutin "2",255;
2312	end;
2313	}
2314	break;
2315	case 2:
2316	mes "[" + strcharinfo(0) + "]";
2317	mes "Hmmm...";
2318	mes "Do I have anything";
2319	mes "that might make this";
2320	mes "weird machine work?";
2321	close2;
2322	cutin "2",255;
2323	end;
2324	}
2325	close;
2326	}
2327	else {
2328	mes "^3355FFThis seems like";
2329	mes "some kind of device";
2330	mes "that will allow you to";
2331	mes "pass to the other side.";
2332	mes "There's a slot where you";
2333	mes "probably need to insert";
2334	mes "some kind of object...^000000";
2335	close2;
2336	cutin "2",255;
2337	end;
2338	}
2339	end;
2340
2341	Onstop_timer:
2342	stopnpctimer;
2343	end;
2344
2345	OnTimer22500:
2346	stopnpctimer;
2347	enablenpc "#hole#1-2";
2348	disablenpc "Red Alarm#1-2";
2349	end;
2350	}
2351
2352	jupe_area1,21,225,0 script Warp#1-2 139,2,2,{
2353	OnInit:
2354	disablenpc "Warp#1-2";
2355	end;
2356
2357	OnEnable:
2358	enablenpc "Warp#1-2";
2359	specialeffect 561; //"Warp#1-2" 561
2360	soundeffectall "jupe_warp.wav",0;
2361	initnpctimer;
2362	end;
2363
2364	OnTouch:
2365	warp "jupe_area1",21,191;
2366	end;
2367
2368	OnTimer22500:
2369	disablenpc "Warp#1-2";
2370	end;
2371	}
2372
2373	jupe_area1,21,191,0 script Red Alarm#1-2 -1,2,2,{
2374	OnInit:
2375	disablenpc "Red Alarm#1-2";
2376	end;
2377
2378	OnTouch:
2379	set $@JupreArea1InUse,1;
2380	donpcevent "Red Alarm On#1-2::OnEnable";
2381	disablenpc "Red Alarm#1-2";
2382	disablenpc "#hole#1-2";
2383	end;
2384	}
2385
2386	- script Red Alarm On#1-2 -1,{
2387	OnInit:
2388	disablenpc "Red Alarm On#1-2";
2389	end;
2390
2391	OnEnable:
2392	enablenpc "Red Alarm On#1-2";
2393	initnpctimer;
2394	end;
2395
2396	OnTimer1000:
2397	mapannounce "jupe_area1","Come on, come on!",bc_map,"0xFF0000";
2398	end;
2399
2400	OnTimer3000:
2401	mapannounce "jupe_area1","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
2402	end;
2403
2404	OnTimer5000:
2405	mapannounce "jupe_area1","Do you want to know who I am?",bc_map,"0xFF0000";
2406	donpcevent "Monster1#1-2::OnEnable";
2407	end;
2408
2409	OnTimer7000:
2410	mapannounce "jupe_area1","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
2411	end;
2412
2413	OnTimer8000:
2414	disablenpc "Red Alarm On#1-2";
2415	stopnpctimer;
2416	end;
2417	}
2418
2419	- script Monster1#1-2 -1,{
2420	OnInit:
2421	disablenpc "Monster1#1-2";
2422	end;
2423
2424	OnDisable:
2425	disablenpc "Monster1#1-2";
2426	killmonster "jupe_area1","Monster1#1-2::OnMyMobDead";
2427	end;
2428
2429	OnEnable:
2430	initnpctimer;
2431	enablenpc "Monster1#1-2";
2432	set .MyMobs,8;
2433	monster "jupe_area1",30,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2434	monster "jupe_area1",31,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2435	monster "jupe_area1",32,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2436	monster "jupe_area1",33,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2437	monster "jupe_area1",34,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2438	monster "jupe_area1",35,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2439	monster "jupe_area1",36,176,"High Guard",1669,1,"Monster1#1-2::OnMyMobDead";
2440	monster "jupe_area1",37,176,"High Guard",1675,1,"Monster1#1-2::OnMyMobDead";
2441	end;
2442
2443	OnTimer300000:
2444	mapannounce "jupe_area1","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
2445	set $@JupreArea1InUse,0;
2446	end;
2447
2448	OnTimer300002:
2449	enablenpc "#hole#1-2";
2450	stopnpctimer;
2451	donpcevent "Monster1#1-2::OnDisable";
2452	end;
2453
2454	OnMyMobDead:
2455	set .MyMobs,.MyMobs-1;
2456	if (.MyMobs < 1) {
2457	donpcevent "Monster2#1-2::OnEnable";
2458	disablenpc "Monster1#1-2";
2459	stopnpctimer;
2460	}
2461	end;
2462	}
2463
2464	- script Monster2#1-2 -1,{
2465	OnInit:
2466	disablenpc "Monster2#1-2";
2467	end;
2468
2469	OnDisable:
2470	disablenpc "Monster2#1-2";
2471	killmonster "jupe_area1","Monster2#1-2::OnMyMobDead";
2472	end;
2473
2474	OnEnable:
2475	enablenpc "Monster2#1-2";
2476	initnpctimer;
2477	end;
2478
2479	OnTimer2000:
2480	mapannounce "jupe_area1","I was the head of this underground laboratory.",bc_map,"0xFF0000";
2481	end;
2482
2483	OnTimer4000:
2484	mapannounce "jupe_area1","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
2485	end;
2486
2487	OnTimer6000:
2488	mapannounce "jupe_area1","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
2489	set .MyMobs,13;
2490	monster "jupe_area1",30,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2491	monster "jupe_area1",31,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2492	monster "jupe_area1",32,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2493	monster "jupe_area1",33,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2494	monster "jupe_area1",34,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2495	monster "jupe_area1",35,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2496	monster "jupe_area1",36,152,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2497	monster "jupe_area1",37,152,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2498	monster "jupe_area1",30,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2499	monster "jupe_area1",31,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2500	monster "jupe_area1",32,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2501	monster "jupe_area1",33,150,"Security Guard",1675,1,"Monster2#1-2::OnMyMobDead";
2502	monster "jupe_area1",34,150,"Security Guard",1669,1,"Monster2#1-2::OnMyMobDead";
2503	end;
2504
2505	OnTimer300000:
2506	mapannounce "jupe_area1","...Not yet.",bc_map,"0xFF0000";
2507	set $@JupreArea1InUse,0;
2508	end;
2509
2510	OnTimer300002:
2511	enablenpc "#hole#1-2";
2512	stopnpctimer;
2513	donpcevent "Monster2#1-2::OnDisable";
2514	end;
2515
2516	OnMyMobDead:
2517	set .MyMobs,.MyMobs-1;
2518	if (.MyMobs < 1) {
2519	mapannounce "jupe_area1","Not yet!",bc_map,"0xFF0000";
2520	disablenpc "Monster2#1-2";
2521	enablenpc "#hole#1-2";
2522	set $@JupreArea1InUse,0;
2523	stopnpctimer;
2524	}
2525	end;
2526	}
2527
2528	//============================================================
2529	// Security Checkpoint 1-3
2530	//============================================================
2531	jupe_area1,36,146,0 script #hole#1-3 844,{
2532	cutin "3",2;
2533	if ($@JupreArea1InUse == 1) {
2534	mes "^3355FFThis seems like";
2535	mes "some kind of device";
2536	mes "that will allow you to";
2537	mes "pass to the other side.";
2538	mes "There's a slot where you";
2539	mes "probably need to insert";
2540	mes "some kind of object...^000000";
2541	close2;
2542	cutin "3",255;
2543	end;
2544	}
2545	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
2546	mes "^3355FFThis seems like";
2547	mes "some kind of device";
2548	mes "that will allow you to";
2549	mes "pass to the other side.";
2550	mes "There's a slot where you";
2551	mes "probably need to insert";
2552	mes "some kind of object...^000000";
2553	next;
2554	switch(select("Insert a Crest Piece.:Cancel.")) {
2555	case 1:
2556	if (countitem(7358) > 0) {
2557	mes "^3355FFYou take out your";
2558	mes "Crest Piece and place";
2559	mes "it into the slot where it";
2560	mes "happens to fit perfectly.^000000";
2561	specialeffect 159; //"#hole#1-3" EF_TOPRANK
2562	cutin "3-1",2;
2563	next;
2564	if ($@JupreArea1InUse == 1) {
2565	mes "^3355FFNothing happens.";
2566	mes "Perhaps an alarm or";
2567	mes "some other safety measure";
2568	mes "was activated to keep the";
2569	mes "Crest Piece from activating";
2570	mes "this transportation device.";
2571	mes "You retrieve the Crest Piece.^000000";
2572	close2;
2573	cutin "3-1",255;
2574	end;
2575	}
2576	else {
2577	mes "^3355FFThe slot rotates and";
2578	mes "the Crest Piece moves as";
2579	mes "if it were turning a key. You";
2580	mes "feel a weak tremor as a Warp";
2581	mes "Portal to the other side is";
2582	mes "activated. You then retrieve";
2583	mes "your Crest Piece.^000000";
2584	initnpctimer;
2585	donpcevent "Warp#1-3::OnEnable";
2586	enablenpc "Red Alarm#1-3";
2587	disablenpc "#hole#1-3";
2588	close2;
2589	cutin "3-1",255;
2590	end;
2591	}
2592	}
2593	else {
2594	mes "^3355FFUnfortunately, you're";
2595	mes "not carrying anything";
2596	mes "that might be able to fit";
2597	mes "into the slot and activate";
2598	mes "this mechanical device.^000000";
2599	close2;
2600	cutin "3",255;
2601	end;
2602	}
2603	case 2:
2604	mes "[" + strcharinfo(0) + "]";
2605	mes "Hmmm...";
2606	mes "Do I have anything";
2607	mes "that might make this";
2608	mes "weird machine work?";
2609	close2;
2610	cutin "3",255;
2611	end;
2612	}
2613	}
2614	else {
2615	mes "^3355FFThis seems like";
2616	mes "some kind of device";
2617	mes "that will allow you to";
2618	mes "pass to the other side.";
2619	mes "There's a slot where you";
2620	mes "probably need to insert";
2621	mes "some kind of object...^000000";
2622	close2;
2623	cutin "3",255;
2624	end;
2625	}
2626	end;
2627
2628	Onstop_timer:
2629	stopnpctimer;
2630	end;
2631
2632	OnTimer22500:
2633	stopnpctimer;
2634	enablenpc "#hole#1-3";
2635	disablenpc "Red Alarm#1-3";
2636	end;
2637	}
2638
2639	jupe_area1,33,137,0 script Warp#1-3 139,2,2,{
2640	OnInit:
2641	disablenpc "Warp#1-3";
2642	end;
2643
2644	OnEnable:
2645	enablenpc "Warp#1-3";
2646	specialeffect 561; //"Warp#1-3" 561
2647	soundeffectall "jupe_warp.wav",0;
2648	initnpctimer;
2649	end;
2650
2651	OnTouch:
2652	warp "jupe_area1",33,105;
2653	end;
2654
2655	OnTimer22500:
2656	disablenpc "Warp#1-3";
2657	end;
2658	}
2659
2660	jupe_area1,33,105,0 script Red Alarm#1-3 -1,0,4,{
2661	OnInit:
2662	disablenpc "Red Alarm#1-3";
2663	end;
2664
2665	OnTouch:
2666	set $@JupreArea1InUse,1;
2667	donpcevent "Red Alarm On#1-3::OnEnable";
2668	disablenpc "Red Alarm#1-3";
2669	disablenpc "#hole#1-3";
2670	end;
2671	}
2672
2673	- script Red Alarm On#1-3 -1,{
2674	OnInit:
2675	disablenpc "Red Alarm On#1-3";
2676	end;
2677
2678	OnEnable:
2679	enablenpc "Red Alarm On#1-3";
2680	initnpctimer;
2681	end;
2682
2683	OnTimer1000:
2684	mapannounce "jupe_area1","These security systems...",bc_map,"0xFF0000";
2685	end;
2686
2687	OnTimer3000:
2688	mapannounce "jupe_area1","They're not really for protection.",bc_map,"0xFF0000";
2689	end;
2690
2691	OnTimer5000:
2692	mapannounce "jupe_area1","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
2693	donpcevent "Monster1#1-3::OnEnable";
2694	end;
2695
2696	OnTimer7000:
2697	mapannounce "jupe_area1","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
2698	end;
2699
2700	OnTimer8000:
2701	disablenpc "Red Alarm On#1-3";
2702	stopnpctimer;
2703	end;
2704	}
2705
2706	- script Monster1#1-3 -1,{
2707	OnInit:
2708	disablenpc "Monster1#1-3";
2709	end;
2710
2711	OnDisable:
2712	disablenpc "Monster1#1-3";
2713	killmonster "jupe_area1","Monster1#1-3::OnMyMobDead";
2714	end;
2715
2716	OnEnable:
2717	initnpctimer;
2718	enablenpc "Monster1#1-3";
2719	set .MyMobs,8;
2720	monster "jupe_area1",30,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2721	monster "jupe_area1",31,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2722	monster "jupe_area1",32,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2723	monster "jupe_area1",33,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2724	monster "jupe_area1",34,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2725	monster "jupe_area1",35,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2726	monster "jupe_area1",36,89,"Security Guard",1675,1,"Monster1#1-3::OnMyMobDead";
2727	monster "jupe_area1",37,89,"Security Guard",1669,1,"Monster1#1-3::OnMyMobDead";
2728	end;
2729
2730	OnTimer300000:
2731	mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
2732	set $@JupreArea1InUse,0;
2733	end;
2734
2735	OnTimer300002:
2736	donpcevent "Monster1#1-3::OnDisable";
2737	enablenpc "#hole#1-3";
2738	end;
2739
2740	OnMyMobDead:
2741	set .MyMobs,.MyMobs-1;
2742	if (.MyMobs < 1) {
2743	donpcevent "Monster2#1-3::OnEnable";
2744	disablenpc "Monster1#1-3";
2745	stopnpctimer;
2746	}
2747	end;
2748	}
2749
2750	- script Monster2#1-3 -1,{
2751	OnInit:
2752	disablenpc "Monster2#1-3";
2753	end;
2754
2755	OnDisable:
2756	disablenpc "Monster2#1-3";
2757	killmonster "jupe_area1","Monster2#1-3::OnMyMobDead";
2758	end;
2759
2760	OnEnable:
2761	initnpctimer;
2762	enablenpc "Monster2#1-3";
2763	end;
2764
2765	OnTimer2000:
2766	mapannounce "jupe_area1","Why have you come?",bc_map,"0xFF0000";
2767	end;
2768
2769	OnTimer5000:
2770	mapannounce "jupe_area1","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
2771	end;
2772
2773	OnTimer8000:
2774	mapannounce "jupe_area1","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
2775	set .MyMobs,15;
2776	monster "jupe_area1",42,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2777	monster "jupe_area1",43,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2778	monster "jupe_area1",44,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2779	monster "jupe_area1",45,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2780	monster "jupe_area1",46,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2781	monster "jupe_area1",47,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2782	monster "jupe_area1",48,64,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2783	monster "jupe_area1",49,64,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2784	monster "jupe_area1",42,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2785	monster "jupe_area1",43,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2786	monster "jupe_area1",44,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2787	monster "jupe_area1",45,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2788	monster "jupe_area1",46,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2789	monster "jupe_area1",47,62,"Security Guard",1675,1,"Monster2#1-3::OnMyMobDead";
2790	monster "jupe_area1",48,62,"Security Guard",1669,1,"Monster2#1-3::OnMyMobDead";
2791	end;
2792
2793	OnTimer300000:
2794	mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
2795	set $@JupreArea1InUse,0;
2796	end;
2797
2798	OnTimer300002:
2799	enablenpc "#hole#1-3";
2800	stopnpctimer;
2801	donpcevent "Monster2#1-3::OnDisable";
2802	end;
2803
2804	OnMyMobDead:
2805	set .MyMobs,.MyMobs-1;
2806	if (.MyMobs < 1) {
2807	mapannounce "jupe_area1","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
2808	disablenpc "Monster2#1-3";
2809	enablenpc "#hole#1-3";
2810	set $@JupreArea1InUse,0;
2811	stopnpctimer;
2812	}
2813	end;
2814	}
2815
2816	//============================================================
2817	// Security Checkpoint 1-4
2818	//============================================================
2819	jupe_area1,50,49,0 script #hole#1-4 844,{
2820	cutin "4",2;
2821	if ($@JupreArea1InUse == 1) {
2822	mes "^3355FFThis seems like";
2823	mes "some kind of device";
2824	mes "that will allow you to";
2825	mes "pass to the other side.";
2826	mes "There's a slot where you";
2827	mes "probably need to insert";
2828	mes "some kind of object...^000000";
2829	close2;
2830	cutin "4",255;
2831	end;
2832	}
2833	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
2834	mes "^3355FFThis seems like";
2835	mes "some kind of device";
2836	mes "that will allow you to";
2837	mes "pass to the other side.";
2838	mes "There's a slot where you";
2839	mes "probably need to insert";
2840	mes "some kind of object...^000000";
2841	next;
2842	switch(select("Insert a Crest Piece.:Cancel.")) {
2843	case 1:
2844	if (countitem(7359) > 0) {
2845	mes "^3355FFYou take out your";
2846	mes "Crest Piece and place";
2847	mes "it into the slot where it";
2848	mes "happens to fit perfectly.^000000";
2849	specialeffect 159; //"#hole#1-4" EF_TOPRANK
2850	cutin "4-1",2;
2851	next;
2852	if ($@JupreArea1InUse == 1) {
2853	mes "^3355FFNothing happens.";
2854	mes "Perhaps an alarm or";
2855	mes "some other safety measure";
2856	mes "was activated to keep the";
2857	mes "Crest Piece from activating";
2858	mes "this transportation device.";
2859	mes "You retrieve the Crest Piece.^000000";
2860	close2;
2861	cutin "4-1",255;
2862	end;
2863	}
2864	else {
2865	mes "^3355FFThe slot rotates and";
2866	mes "the Crest Piece moves as";
2867	mes "if it were turning a key. You";
2868	mes "feel a weak tremor as a Warp";
2869	mes "Portal to the other side is";
2870	mes "activated. You then retrieve";
2871	mes "your Crest Piece.^000000";
2872	initnpctimer;
2873	donpcevent "Warp#1-4::OnEnable";
2874	donpcevent "Red Alarm#1-4::OnEnable";
2875	disablenpc "#hole#1-4";
2876	close2;
2877	cutin "4-1",255;
2878	end;
2879	}
2880	}
2881	else {
2882	mes "^3355FFUnfortunately, you're";
2883	mes "not carrying anything";
2884	mes "that might be able to fit";
2885	mes "into the slot and activate";
2886	mes "this mechanical device.^000000";
2887	close2;
2888	cutin "4",255;
2889	end;
2890	}
2891	break;
2892	case 2:
2893	mes "[" + strcharinfo(0) + "]";
2894	mes "Hmmm...";
2895	mes "Do I have anything";
2896	mes "that might make this";
2897	mes "weird machine work?";
2898	close2;
2899	cutin "4",255;
2900	end;
2901	}
2902	}
2903	else {
2904	mes "^3355FFThis seems like";
2905	mes "some kind of device";
2906	mes "that will allow you to";
2907	mes "pass to the other side.";
2908	mes "There's a slot where you";
2909	mes "probably need to insert";
2910	mes "some kind of object...^000000";
2911	close2;
2912	cutin "4",255;
2913	end;
2914	}
2915	end;
2916
2917	Onstop_timer:
2918	stopnpctimer;
2919	end;
2920
2921	OnTimer5000:
2922	stopnpctimer;
2923	enablenpc "#hole#1-4";
2924	disablenpc "Red Alarm#1-4";
2925	end;
2926	}
2927
2928	jupe_area1,57,53,0 script Warp#1-4 139,2,2,{
2929	OnInit:
2930	disablenpc "Warp#1-4";
2931	end;
2932
2933	OnEnable:
2934	enablenpc "Warp#1-4";
2935	specialeffect 561; //"Warp#1-4" 561
2936	soundeffectall "jupe_warp.wav",0;
2937	initnpctimer;
2938	end;
2939
2940	OnTouch:
2941	warp "jupe_area1",83,157;
2942	end;
2943
2944	OnTimer5000:
2945	disablenpc "Warp#1-4";
2946	end;
2947	}
2948
2949	jupe_area1,83,157,0 script Red Alarm#1-4 -1,2,2,{
2950	OnInit:
2951	disablenpc "Red Alarm#1-4";
2952	end;
2953
2954	OnEnable:
2955	enablenpc "Red Alarm#1-4";
2956	end;
2957
2958	OnTouch:
2959	set $@JupreArea1InUse,1;
2960	donpcevent "Red Alarm On#1-4::OnEnable";
2961	disablenpc "Red Alarm#1-4";
2962	disablenpc "#hole#1-4";
2963	end;
2964	}
2965
2966	- script Red Alarm On#1-4 -1,{
2967	OnInit:
2968	disablenpc "Red Alarm On#1-4";
2969	end;
2970
2971	OnEnable:
2972	enablenpc "Red Alarm On#1-4";
2973	initnpctimer;
2974	end;
2975
2976	OnTimer1000:
2977	mapannounce "jupe_area1","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
2978	end;
2979
2980	OnTimer3000:
2981	mapannounce "jupe_area1","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
2982	end;
2983
2984	OnTimer5000:
2985	mapannounce "jupe_area1","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
2986	donpcevent "Monster1#1-4::OnEnable";
2987	end;
2988
2989	OnTimer7000:
2990	mapannounce "jupe_area1","Is somewhere down here, wandering...",bc_map,"0xFF0000";
2991	end;
2992
2993	OnTimer8000:
2994	stopnpctimer;
2995	disablenpc "Red Alarm On#1-4";
2996	end;
2997	}
2998
2999	- script Monster1#1-4 -1,{
3000	OnInit:
3001	disablenpc "Monster1#1-4";
3002	end;
3003
3004	OnDisable:
3005	disablenpc "Monster1#1-4";
3006	killmonster "jupe_area1","Monster1#1-4::OnMyMobDead";
3007	end;
3008
3009	OnEnable:
3010	initnpctimer;
3011	enablenpc "Monster1#1-4";
3012	set .MyMobs,8;
3013	monster "jupe_area1",92,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
3014	monster "jupe_area1",96,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
3015	monster "jupe_area1",100,154,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
3016	monster "jupe_area1",104,154,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
3017	monster "jupe_area1",92,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
3018	monster "jupe_area1",96,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
3019	monster "jupe_area1",100,161,"Security Guard",1669,1,"Monster1#1-4::OnMyMobDead";
3020	monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster1#1-4::OnMyMobDead";
3021	end;
3022
3023	OnTimer300000:
3024	mapannounce "jupe_area1","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
3025	set $@JupreArea1InUse,0;
3026	end;
3027
3028	OnTimer300002:
3029	stopnpctimer;
3030	enablenpc "#hole#1-4";
3031	donpcevent "Monster1#1-4::OnDisable";
3032	end;
3033
3034	OnMyMobDead:
3035	set .MyMobs,.MyMobs-1;
3036	if (.MyMobs < 1) {
3037	donpcevent "Monster2#1-4::OnEnable";
3038	disablenpc "Monster1#1-4";
3039	stopnpctimer;
3040	}
3041	end;
3042	}
3043
3044	- script Monster2#1-4 -1,{
3045	OnInit:
3046	disablenpc "Monster2#1-4";
3047	end;
3048
3049	OnDisable:
3050	killmonster "jupe_area1","Monster2#1-4::OnMyMobDead";
3051	disablenpc "Monster2#1-4";
3052	end;
3053
3054	OnEnable:
3055	enablenpc "Monster2#1-4";
3056	initnpctimer;
3057	end;
3058
3059	OnTimer2000:
3060	mapannounce "jupe_area1","I can never rest in peace...",bc_map,"0xFF0000";
3061	end;
3062
3063	OnTimer4000:
3064	mapannounce "jupe_area1","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
3065	end;
3066
3067	OnTimer6000:
3068	mapannounce "jupe_area1","I will be waiting for you!",bc_map,"0xFF0000";
3069	set .MyMobs,10;
3070	monster "jupe_area1",104,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
3071	monster "jupe_area1",108,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
3072	monster "jupe_area1",111,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
3073	monster "jupe_area1",112,161,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
3074	monster "jupe_area1",115,161,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
3075	monster "jupe_area1",104,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
3076	monster "jupe_area1",108,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
3077	monster "jupe_area1",111,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
3078	monster "jupe_area1",112,154,"Security Guard",1675,1,"Monster2#1-4::OnMyMobDead";
3079	monster "jupe_area1",115,154,"Security Guard",1669,1,"Monster2#1-4::OnMyMobDead";
3080	end;
3081
3082	OnTimer300000:
3083	set $@JupreArea1InUse,0;
3084	mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
3085	end;
3086
3087	OnTimer300002:
3088	enablenpc "#hole#1-4";
3089	donpcevent "Monster2#1-4::OnDisable";
3090	end;
3091
3092	OnMyMobDead:
3093	set .MyMobs,.MyMobs-1;
3094	if (.MyMobs < 1) {
3095	mapannounce "jupe_area1","It's funny... Isn't it?",bc_map,"0xFF0000";
3096	disablenpc "Monster2#1-4";
3097	enablenpc "#hole#1-4";
3098	set $@JupreArea1InUse,0;
3099	stopnpctimer;
3100	}
3101	end;
3102	}
3103
3104	//============================================================
3105	// Move to Elevator
3106	//============================================================
3107	jupe_area1,112,162,0 script Lever#ufe 844,{
3108	mes "^3355FFIt's a lever";
3109	mes "whose function";
3110	mes "is not known to you.^000000";
3111	next;
3112	switch(select("Pull.:Cancel.")) {
3113	case 1:
3114	if($@JupreArea1InUse == 1) close;
3115	initnpctimer;
3116	donpcevent "LeverWarp#ufe::OnEnable";
3117	disablenpc "Lever#ufe";
3118	close;
3119	case 2:
3120	mes "[" + strcharinfo(0) + "]";
3121	mes "Pull this lever?";
3122	mes "I don't even know";
3123	mes "what will happen...";
3124	close;
3125	}
3126	close;
3127
3128	OnTimer3000:
3129	enablenpc "Lever#ufe";
3130	stopnpctimer;
3131	end;
3132	}
3133
3134	jupe_area1,117,157,0 script LeverWarp#ufe 139,2,2,{
3135	OnInit:
3136	disablenpc "LeverWarp#ufe";
3137	end;
3138
3139	OnEnable:
3140	enablenpc "LeverWarp#ufe";
3141	specialeffect 561; //"LeverWarp#ufe" 561
3142	soundeffectall "jupe_warp.wav",0;
3143	initnpctimer;
3144	end;
3145
3146	OnTouch:
3147	warp "jupe_gate",28,30;
3148	end;
3149
3150	OnTimer3000:
3151	stopnpctimer;
3152	disablenpc "LeverWarp#ufe";
3153	end;
3154	}
3155
3156	//============================================================
3157	// Security Checkpoint 2-1
3158	//============================================================
3159	jupe_area2,74,224,0 script #hole#2-1 844,{
3160	cutin "1",2;
3161	if ($@JupreArea2InUse == 1) {
3162	mes "^3355FFThis seems like";
3163	mes "some kind of device";
3164	mes "that will allow you to";
3165	mes "pass to the other side.";
3166	mes "There's a slot where you";
3167	mes "probably need to insert";
3168	mes "some kind of object...^000000";
3169	close2;
3170	cutin "1",255;
3171	end;
3172	}
3173	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
3174	mes "^3355FFThis seems like";
3175	mes "some kind of device";
3176	mes "that will allow you to";
3177	mes "pass to the other side.";
3178	mes "There's a slot where you";
3179	mes "probably need to insert";
3180	mes "some kind of object...^000000";
3181	next;
3182	switch(select("Insert a Crest Piece.:Cancel.")) {
3183	case 1:
3184	if (countitem(7356) > 0) {
3185	mes "^3355FFYou take out your";
3186	mes "Crest Piece and place";
3187	mes "it into the slot where it";
3188	mes "happens to fit perfectly.^000000";
3189	specialeffect 159; //"#hole#2-1" EF_TOPRANK
3190	cutin "1-1",2;
3191	next;
3192	if ($@JupreArea2InUse == 1) {
3193	mes "^3355FFNothing happens.";
3194	mes "Perhaps an alarm or";
3195	mes "some other safety measure";
3196	mes "was activated to keep the";
3197	mes "Crest Piece from activating";
3198	mes "this transportation device.";
3199	mes "You retrieve the Crest Piece.^000000";
3200	close2;
3201	cutin "1-1",255;
3202	end;
3203	}
3204	else {
3205	mes "^3355FFThe slot rotates and";
3206	mes "the Crest Piece moves as";
3207	mes "if it were turning a key. You";
3208	mes "feel a weak tremor as a Warp";
3209	mes "Portal to the other side is";
3210	mes "activated. You then retrieve";
3211	mes "your Crest Piece.^000000";
3212	initnpctimer;
3213	donpcevent "Warp#2-1::OnEnable";
3214	enablenpc "Red Alarm#2-1";
3215	disablenpc "#hole#2-1";
3216	close2;
3217	cutin "1-1",255;
3218	end;
3219	}
3220	}
3221	else {
3222	mes "^3355FFUnfortunately, you're";
3223	mes "not carrying anything";
3224	mes "that might be able to fit";
3225	mes "into the slot and activate";
3226	mes "this mechanical device.^000000";
3227	close2;
3228	cutin "1",255;
3229	end;
3230	}
3231	case 2:
3232	mes "[" + strcharinfo(0) + "]";
3233	mes "Hmmm...";
3234	mes "Do I have anything";
3235	mes "that might make this";
3236	mes "weird machine work?";
3237	close2;
3238	cutin "1",255;
3239	end;
3240	}
3241	close;
3242	}
3243	else {
3244	mes "^3355FFThis seems like";
3245	mes "some kind of device";
3246	mes "that will allow you to";
3247	mes "pass to the other side.";
3248	mes "There's a slot where you";
3249	mes "probably need to insert";
3250	mes "some kind of object...^000000";
3251	close2;
3252	cutin "1",255;
3253	end;
3254	}
3255
3256	Onstop_timer:
3257	stopnpctimer;
3258	end;
3259
3260	OnTimer22500:
3261	stopnpctimer;
3262	enablenpc "#hole#2-1";
3263	disablenpc "Red Alarm#2-1";
3264	end;
3265	}
3266
3267	jupe_area2,80,221,0 script Warp#2-1 139,2,2,{
3268	OnInit:
3269	disablenpc "Warp#2-1";
3270	end;
3271
3272	OnEnable:
3273	enablenpc "Warp#2-1";
3274	specialeffect 561; //"Warp#2-1" 561
3275	soundeffectall "jupe_warp.wav",0;
3276	initnpctimer;
3277	end;
3278
3279	OnTouch:
3280	warp "jupe_area2",116,259;
3281	end;
3282
3283	OnTimer22500:
3284	stopnpctimer;
3285	disablenpc "Warp#2-1";
3286	end;
3287	}
3288
3289	jupe_area2,116,259,0 script Red Alarm#2-1 -1,2,2,{
3290	OnInit:
3291	disablenpc "Red Alarm#2-1";
3292	end;
3293
3294	OnTouch:
3295	donpcevent "Red Alarm On#2-1::OnEnable";
3296	disablenpc "Red Alarm#2-1";
3297	donpcevent "#hole#2-1::Onstop_timer";
3298	set $@JupreArea2InUse,1;
3299	disablenpc "#hole#2-1";
3300	end;
3301	}
3302
3303	- script Red Alarm On#2-1 -1,{
3304	OnInit:
3305	disablenpc "Red Alarm On#2-1";
3306	end;
3307
3308	OnEnable:
3309	enablenpc "Red Alarm On#2-1";
3310	initnpctimer;
3311	end;
3312
3313	OnTimer1000:
3314	mapannounce "jupe_area2","Those of you who have come here...",bc_map,"0xFF0000";
3315	end;
3316
3317	OnTimer3000:
3318	mapannounce "jupe_area2","I do not intend to stop you.",bc_map,"0xFF0000";
3319	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3320	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3321	end;
3322
3323	OnTimer5000:
3324	mapannounce "jupe_area2","But I assume you are prepared for a few obstacles...",bc_map,"0xFF0000";
3325	donpcevent "Monster1#2-1::OnEnable";
3326	end;
3327
3328	OnTimer7000:
3329	mapannounce "jupe_area2","After all, you are venturing through a forbidden area!",bc_map,"0xFF0000";
3330	end;
3331
3332	OnTimer8000:
3333	disablenpc "Red Alarm On#2-1";
3334	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3335	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3336	stopnpctimer;
3337	end;
3338	}
3339
3340	- script Monster1#2-1 -1,{
3341	OnInit:
3342	disablenpc "Monster1#2-1";
3343	end;
3344
3345	OnDisable:
3346	disablenpc "Monster1#2-1";
3347	killmonster "jupe_area2","Monster1#2-1::OnMyMobDead";
3348	end;
3349
3350	OnEnable:
3351	enablenpc "Monster1#2-1";
3352	initnpctimer;
3353	set .MyMobs,8;
3354	monster "jupe_area2",126,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3355	monster "jupe_area2",127,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3356	monster "jupe_area2",128,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3357	monster "jupe_area2",129,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3358	monster "jupe_area2",130,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3359	monster "jupe_area2",131,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3360	monster "jupe_area2",132,252,"Security Guard",1669,1,"Monster1#2-1::OnMyMobDead";
3361	monster "jupe_area2",133,252,"Security Guard",1675,1,"Monster1#2-1::OnMyMobDead";
3362	end;
3363
3364	OnTimer300000:
3365	mapannounce "jupe_area2","Do you realize this is a hallucination?",bc_map,"0xFF0000";
3366	set $@JupreArea2InUse,0;
3367	end;
3368
3369	OnTimer300002:
3370	enablenpc "#hole#2-1";
3371	stopnpctimer;
3372	donpcevent "Monster1#2-1::OnDisable";
3373	end;
3374
3375	OnMyMobDead:
3376	set .MyMobs,.MyMobs-1;
3377	if (.MyMobs < 1) {
3378	donpcevent "Monster2#2-1::OnEnable";
3379	disablenpc "Monster1#2-1";
3380	stopnpctimer;
3381	}
3382	end;
3383	}
3384
3385	- script Monster2#2-1 -1,{
3386	OnInit:
3387	disablenpc "Monster2#2-1";
3388	end;
3389
3390	OnDisable:
3391	disablenpc "Monster2#2-1";
3392	killmonster "jupe_area2","Monster2#2-1::OnMyMobDead";
3393	end;
3394
3395	OnEnable:
3396	enablenpc "Monster2#2-1";
3397	initnpctimer;
3398	end;
3399
3400	OnTimer2000:
3401	mapannounce "jupe_area2","How about now?",bc_map,"0xFF0000";
3402	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3403	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3404	end;
3405
3406	OnTimer4000:
3407	mapannounce "jupe_area2","Let me see...",bc_map,"0xFF0000";
3408	end;
3409
3410	OnTimer7000:
3411	mapannounce "jupe_area2","Just how strong you are!",bc_map,"0xFF0000";
3412	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3413	soundeffectall "jupe_warning.wav",0,"jupe_area2";
3414	set .MyMobs,8;
3415	monster "jupe_area2",126,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3416	monster "jupe_area2",127,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3417	monster "jupe_area2",128,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3418	monster "jupe_area2",129,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3419	monster "jupe_area2",130,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3420	monster "jupe_area2",131,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3421	monster "jupe_area2",132,236,"Security Guard",1675,1,"Monster2#2-1::OnMyMobDead";
3422	monster "jupe_area2",133,236,"Security Guard",1669,1,"Monster2#2-1::OnMyMobDead";
3423	end;
3424
3425	OnTimer300000:
3426	mapannounce "jupe_area2","Bwahaha! You're only good at running away!",bc_map,"0xFF0000";
3427	set $@JupreArea2InUse,0;
3428	end;
3429
3430	OnTimer300002:
3431	enablenpc "#hole#2-1";
3432	stopnpctimer;
3433	donpcevent "Monster2#2-1::OnDisable";
3434	end;
3435
3436	OnMyMobDead:
3437	set .MyMobs,.MyMobs-1;
3438	if (.MyMobs < 1) {
3439	mapannounce "jupe_area2","Zzzzt. Zzzzt..... ",bc_map,"0xFF0000";
3440	disablenpc "Monster2#2-1";
3441	enablenpc "#hole#2-1";
3442	set $@JupreArea2InUse,0;
3443	stopnpctimer;
3444	}
3445	end;
3446	}
3447
3448	//============================================================
3449	// Security Checkpoint 2-2
3450	//============================================================
3451	jupe_area2,138,238,0 script #hole#2-2 844,{
3452	cutin "2",2;
3453	if ($@JupreArea2InUse == 1) {
3454	mes "^3355FFThis seems like";
3455	mes "some kind of device";
3456	mes "that will allow you to";
3457	mes "pass to the other side.";
3458	mes "There's a slot where you";
3459	mes "probably need to insert";
3460	mes "some kind of object...^000000";
3461	close2;
3462	cutin "2",255;
3463	end;
3464	}
3465	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
3466	mes "^3355FFThis seems like";
3467	mes "some kind of device";
3468	mes "that will allow you to";
3469	mes "pass to the other side.";
3470	mes "There's a slot where you";
3471	mes "probably need to insert";
3472	mes "some kind of object...^000000";
3473	next;
3474	switch(select("Insert a Crest Piece.:Cancel.")) {
3475	case 1:
3476	if (countitem(7357) > 0) {
3477	mes "^3355FFYou take out your";
3478	mes "Crest Piece and place";
3479	mes "it into the slot where it";
3480	mes "happens to fit perfectly.^000000";
3481	specialeffect 159; //"#hole#2-2" EF_TOPRANK
3482	cutin "2-1",2;
3483	next;
3484	if ($@JupreArea2InUse == 1) {
3485	mes "^3355FFNothing happens.";
3486	mes "Perhaps an alarm or";
3487	mes "some other safety measure";
3488	mes "was activated to keep the";
3489	mes "Crest Piece from activating";
3490	mes "this transportation device.";
3491	mes "You retrieve the Crest Piece.^000000";
3492	close2;
3493	cutin "2-1",255;
3494	end;
3495	}
3496	else {
3497	mes "^3355FFThe slot rotates and";
3498	mes "the Crest Piece moves as";
3499	mes "if it were turning a key. You";
3500	mes "feel a weak tremor as a Warp";
3501	mes "Portal to the other side is";
3502	mes "activated. You then retrieve";
3503	mes "your Crest Piece.^000000";
3504	initnpctimer;
3505	donpcevent "Warp#2-2::OnEnable";
3506	enablenpc "Red Alarm#2-2";
3507	disablenpc "#hole#2-2";
3508	close2;
3509	cutin "2-1",255;
3510	end;
3511	}
3512	}
3513	else {
3514	mes "^3355FFUnfortunately, you're";
3515	mes "not carrying anything";
3516	mes "that might be able to fit";
3517	mes "into the slot and activate";
3518	mes "this mechanical device.^000000";
3519	close2;
3520	cutin "2",255;
3521	end;
3522	}
3523	break;
3524	case 2:
3525	mes "[" + strcharinfo(0) + "]";
3526	mes "Hmmm...";
3527	mes "Do I have anything";
3528	mes "that might make this";
3529	mes "weird machine work?";
3530	close2;
3531	cutin "2",255;
3532	end;
3533	}
3534	close;
3535	}
3536	else {
3537	mes "^3355FFThis seems like";
3538	mes "some kind of device";
3539	mes "that will allow you to";
3540	mes "pass to the other side.";
3541	mes "There's a slot where you";
3542	mes "probably need to insert";
3543	mes "some kind of object...^000000";
3544	close2;
3545	cutin "2",255;
3546	end;
3547	}
3548	end;
3549
3550	Onstop_timer:
3551	stopnpctimer;
3552	end;
3553
3554	OnTimer22500:
3555	stopnpctimer;
3556	enablenpc "#hole#2-2";
3557	disablenpc "Red Alarm#2-2";
3558	end;
3559	}
3560
3561	jupe_area2,142,225,0 script Warp#2-2 139,2,2,{
3562	OnInit:
3563	disablenpc "Warp#2-2";
3564	end;
3565
3566	OnEnable:
3567	enablenpc "Warp#2-2";
3568	specialeffect 561; //"Warp#2-2" 561
3569	soundeffectall "jupe_warp.wav",0;
3570	initnpctimer;
3571	end;
3572
3573	OnTouch:
3574	warp "jupe_area2",142,191;
3575	end;
3576
3577	OnTimer22500:
3578	disablenpc "Warp#2-2";
3579	end;
3580	}
3581
3582	jupe_area2,142,191,0 script Red Alarm#2-2 -1,2,2,{
3583	OnInit:
3584	disablenpc "Red Alarm#2-2";
3585	end;
3586
3587	OnTouch:
3588	set $@JupreArea2InUse,1;
3589	donpcevent "Red Alarm On#2-2::OnEnable";
3590	disablenpc "Red Alarm#2-2";
3591	disablenpc "#hole#2-2";
3592	end;
3593	}
3594
3595	- script Red Alarm On#2-2 -1,{
3596	OnInit:
3597	disablenpc "Red Alarm On#2-2";
3598	end;
3599
3600	OnEnable:
3601	enablenpc "Red Alarm On#2-2";
3602	initnpctimer;
3603	end;
3604
3605	OnTimer1000:
3606	mapannounce "jupe_area2","Come on, come on!",bc_map,"0xFF0000";
3607	end;
3608
3609	OnTimer3000:
3610	mapannounce "jupe_area2","Yes. Run... Right into my hands!",bc_map,"0xFF0000";
3611	end;
3612
3613	OnTimer5000:
3614	mapannounce "jupe_area2","Do you want to know who I am?",bc_map,"0xFF0000";
3615	donpcevent "Monster1#2-2::OnEnable";
3616	end;
3617
3618	OnTimer7000:
3619	mapannounce "jupe_area2","You will know, once you defeat all of my minions!",bc_map,"0xFF0000";
3620	end;
3621
3622	OnTimer8000:
3623	disablenpc "Red Alarm On#2-2";
3624	stopnpctimer;
3625	end;
3626	}
3627
3628	- script Monster1#2-2 -1,{
3629	OnInit:
3630	disablenpc "Monster1#2-2";
3631	end;
3632
3633	OnDisable:
3634	disablenpc "Monster1#2-2";
3635	killmonster "jupe_area2","Monster1#2-2::OnMyMobDead";
3636	end;
3637
3638	OnEnable:
3639	initnpctimer;
3640	enablenpc "Monster1#2-2";
3641	set .MyMobs,8;
3642	monster "jupe_area2",126,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3643	monster "jupe_area2",127,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3644	monster "jupe_area2",128,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3645	monster "jupe_area2",129,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3646	monster "jupe_area2",130,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3647	monster "jupe_area2",131,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3648	monster "jupe_area2",132,176,"High Guard",1669,1,"Monster1#2-2::OnMyMobDead";
3649	monster "jupe_area2",133,176,"High Guard",1675,1,"Monster1#2-2::OnMyMobDead";
3650	end;
3651
3652	OnTimer300000:
3653	mapannounce "jupe_area2","I can't believe how cowardly you really are...",bc_map,"0xFF0000";
3654	set $@JupreArea2InUse,0;
3655	end;
3656
3657	OnTimer300002:
3658	enablenpc "#hole#2-2";
3659	stopnpctimer;
3660	donpcevent "Monster1#2-2::OnDisable";
3661	end;
3662
3663	OnMyMobDead:
3664	set .MyMobs,.MyMobs-1;
3665	if (.MyMobs < 1) {
3666	donpcevent "Monster2#2-2::OnEnable";
3667	disablenpc "Monster1#2-2";
3668	stopnpctimer;
3669	}
3670	end;
3671	}
3672
3673	- script Monster2#2-2 -1,{
3674	OnInit:
3675	disablenpc "Monster2#2-2";
3676	end;
3677
3678	OnDisable:
3679	disablenpc "Monster2#2-2";
3680	killmonster "jupe_area2","Monster2#2-2::OnMyMobDead";
3681	end;
3682
3683	OnEnable:
3684	enablenpc "Monster2#2-2";
3685	initnpctimer;
3686	end;
3687
3688	OnTimer2000:
3689	mapannounce "jupe_area2","I was the head of this underground laboratory.",bc_map,"0xFF0000";
3690	end;
3691
3692	OnTimer4000:
3693	mapannounce "jupe_area2","But that was a long time ago, back when I was merely a human.",bc_map,"0xFF0000";
3694	end;
3695
3696	OnTimer6000:
3697	mapannounce "jupe_area2","I was called Vesper Newton. Hahah, they called me a mad man back then.",bc_map,"0xFF0000";
3698	set .MyMobs,13;
3699	monster "jupe_area2",126,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3700	monster "jupe_area2",127,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3701	monster "jupe_area2",128,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3702	monster "jupe_area2",129,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3703	monster "jupe_area2",130,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3704	monster "jupe_area2",131,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3705	monster "jupe_area2",132,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3706	monster "jupe_area2",133,156,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3707	monster "jupe_area2",133,156,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3708	monster "jupe_area2",127,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3709	monster "jupe_area2",129,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3710	monster "jupe_area2",130,152,"Security Guard",1669,1,"Monster2#2-2::OnMyMobDead";
3711	monster "jupe_area2",132,152,"Security Guard",1675,1,"Monster2#2-2::OnMyMobDead";
3712	end;
3713
3714	OnTimer300000:
3715	mapannounce "jupe_area2","...Not yet.",bc_map,"0xFF0000";
3716	set $@JupreArea2InUse,0;
3717	end;
3718
3719	OnTimer300002:
3720	enablenpc "#hole#2-2";
3721	stopnpctimer;
3722	donpcevent "Monster2#2-2::OnDisable";
3723	end;
3724
3725	OnMyMobDead:
3726	set .MyMobs,.MyMobs-1;
3727	if (.MyMobs < 1) {
3728	mapannounce "jupe_area2","Not yet!",bc_map,"0xFF0000";
3729	disablenpc "Monster2#2-2";
3730	enablenpc "#hole#2-2";
3731	set $@JupreArea2InUse,0;
3732	stopnpctimer;
3733	}
3734	end;
3735	}
3736
3737	//============================================================
3738	// Security Checkpoint 2-3
3739	//============================================================
3740	jupe_area2,127,146,0 script #hole#2-3 844,{
3741	cutin "3",2;
3742	if ($@JupreArea2InUse == 1) {
3743	mes "^3355FFThis seems like";
3744	mes "some kind of device";
3745	mes "that will allow you to";
3746	mes "pass to the other side.";
3747	mes "There's a slot where you";
3748	mes "probably need to insert";
3749	mes "some kind of object...^000000";
3750	close2;
3751	cutin "3",255;
3752	end;
3753	}
3754	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
3755	mes "^3355FFThis seems like";
3756	mes "some kind of device";
3757	mes "that will allow you to";
3758	mes "pass to the other side.";
3759	mes "There's a slot where you";
3760	mes "probably need to insert";
3761	mes "some kind of object...^000000";
3762	next;
3763	switch(select("Insert a Crest Piece.:Cancel.")) {
3764	case 1:
3765	if (countitem(7358) > 0) {
3766	mes "^3355FFYou take out your";
3767	mes "Crest Piece and place";
3768	mes "it into the slot where it";
3769	mes "happens to fit perfectly.^000000";
3770	specialeffect 159; //"#hole#2-3" EF_TOPRANK
3771	cutin "3-1",2;
3772	next;
3773	if ($@JupreArea2InUse == 1) {
3774	mes "^3355FFNothing happens.";
3775	mes "Perhaps an alarm or";
3776	mes "some other safety measure";
3777	mes "was activated to keep the";
3778	mes "Crest Piece from activating";
3779	mes "this transportation device.";
3780	mes "You retrieve the Crest Piece.^000000";
3781	close2;
3782	cutin "3-1",255;
3783	end;
3784	}
3785	else {
3786	mes "^3355FFThe slot rotates and";
3787	mes "the Crest Piece moves as";
3788	mes "if it were turning a key. You";
3789	mes "feel a weak tremor as a Warp";
3790	mes "Portal to the other side is";
3791	mes "activated. You then retrieve";
3792	mes "your Crest Piece.^000000";
3793	initnpctimer;
3794	donpcevent "Warp#2-3::OnEnable";
3795	enablenpc "Red Alarm#2-3";
3796	disablenpc "#hole#2-3";
3797	close2;
3798	cutin "3-1",255;
3799	end;
3800	}
3801	}
3802	else {
3803	mes "^3355FFUnfortunately, you're";
3804	mes "not carrying anything";
3805	mes "that might be able to fit";
3806	mes "into the slot and activate";
3807	mes "this mechanical device.^000000";
3808	close2;
3809	cutin "3",255;
3810	end;
3811	}
3812	case 2:
3813	mes "[" + strcharinfo(0) + "]";
3814	mes "Hmmm...";
3815	mes "Do I have anything";
3816	mes "that might make this";
3817	mes "weird machine work?";
3818	close2;
3819	cutin "3",255;
3820	end;
3821	}
3822	}
3823	else {
3824	mes "^3355FFThis seems like";
3825	mes "some kind of device";
3826	mes "that will allow you to";
3827	mes "pass to the other side.";
3828	mes "There's a slot where you";
3829	mes "probably need to insert";
3830	mes "some kind of object...^000000";
3831	close2;
3832	cutin "3",255;
3833	end;
3834	}
3835	end;
3836
3837	Onstop_timer:
3838	stopnpctimer;
3839	end;
3840
3841	OnTimer22500:
3842	stopnpctimer;
3843	enablenpc "#hole#2-3";
3844	disablenpc "Red Alarm#2-3";
3845	end;
3846	}
3847
3848	jupe_area2,130,137,0 script Warp#2-3 139,2,2,{
3849	OnInit:
3850	disablenpc "Warp#2-3";
3851	end;
3852
3853	OnEnable:
3854	enablenpc "Warp#2-3";
3855	specialeffect 561; //"Warp#2-3" 561
3856	soundeffectall "jupe_warp.wav",0;
3857	initnpctimer;
3858	end;
3859
3860	OnTouch:
3861	warp "jupe_area2",130,105;
3862	end;
3863
3864	OnTimer22500:
3865	disablenpc "Warp#2-3";
3866	end;
3867	}
3868
3869	jupe_area2,130,105,0 script Red Alarm#2-3 -1,0,4,{
3870	OnInit:
3871	disablenpc "Red Alarm#2-3";
3872	end;
3873
3874	OnTouch:
3875	set $@JupreArea2InUse,1;
3876	donpcevent "Red Alarm On#2-3::OnEnable";
3877	disablenpc "Red Alarm#2-3";
3878	disablenpc "#hole#2-3";
3879	end;
3880	}
3881
3882	- script Red Alarm On#2-3 -1,{
3883	OnInit:
3884	disablenpc "Red Alarm On#2-3";
3885	end;
3886
3887	OnEnable:
3888	enablenpc "Red Alarm On#2-3";
3889	initnpctimer;
3890	end;
3891
3892	OnTimer1000:
3893	mapannounce "jupe_area2","These security systems...",bc_map,"0xFF0000";
3894	end;
3895
3896	OnTimer3000:
3897	mapannounce "jupe_area2","They're not really for protection.",bc_map,"0xFF0000";
3898	disablenpc "#hole#2-3";
3899	end;
3900
3901	OnTimer5000:
3902	mapannounce "jupe_area2","It's sort of just a hobby to pass the time...",bc_map,"0xFF0000";
3903	donpcevent "Monster1#2-3::OnEnable";
3904	end;
3905
3906	OnTimer7000:
3907	mapannounce "jupe_area2","Being immortal, I have a lot of time on my hands...",bc_map,"0xFF0000";
3908	end;
3909
3910	OnTimer8000:
3911	disablenpc "Red Alarm On#2-3";
3912	stopnpctimer;
3913	end;
3914	}
3915
3916	- script Monster1#2-3 -1,{
3917	OnInit:
3918	disablenpc "Monster1#2-3";
3919	end;
3920
3921	OnDisable:
3922	disablenpc "Monster1#2-3";
3923	killmonster "jupe_area2","Monster1#2-3::OnMyMobDead";
3924	end;
3925
3926	OnEnable:
3927	initnpctimer;
3928	enablenpc "Monster1#2-3";
3929	set .MyMobs,8;
3930	monster "jupe_area2",126,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3931	monster "jupe_area2",127,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3932	monster "jupe_area2",128,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3933	monster "jupe_area2",129,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3934	monster "jupe_area2",130,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3935	monster "jupe_area2",131,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3936	monster "jupe_area2",132,89,"Security Guard",1675,1,"Monster1#2-3::OnMyMobDead";
3937	monster "jupe_area2",133,89,"Security Guard",1669,1,"Monster1#2-3::OnMyMobDead";
3938	end;
3939
3940	OnTimer300000:
3941	mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
3942	set $@JupreArea2InUse,0;
3943	end;
3944
3945	OnTimer300002:
3946	donpcevent "Monster1#2-3::OnDisable";
3947	enablenpc "#hole#2-3";
3948	end;
3949
3950	OnMyMobDead:
3951	set .MyMobs,.MyMobs-1;
3952	if (.MyMobs < 1) {
3953	donpcevent "Monster2#2-3::OnEnable";
3954	disablenpc "Monster1#2-3";
3955	stopnpctimer;
3956	}
3957	end;
3958	}
3959
3960	- script Monster2#2-3 -1,{
3961	OnInit:
3962	disablenpc "Monster2#2-3";
3963	end;
3964
3965	OnDisable:
3966	disablenpc "Monster2#2-3";
3967	killmonster "jupe_area2","Monster2#2-3::OnMyMobDead";
3968	end;
3969
3970	OnEnable:
3971	initnpctimer;
3972	enablenpc "Monster2#2-3";
3973	end;
3974
3975	OnTimer2000:
3976	mapannounce "jupe_area2","Why have you come?",bc_map,"0xFF0000";
3977	end;
3978
3979	OnTimer5000:
3980	mapannounce "jupe_area2","Were you hoping to find something wonderful? Something miraculous?",bc_map,"0xFF0000";
3981	end;
3982
3983	OnTimer8000:
3984	mapannounce "jupe_area2","You're wrong! Welcome to Hell!",bc_map,"0xFF0000";
3985	set .MyMobs,16;
3986	monster "jupe_area2",114,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3987	monster "jupe_area2",115,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3988	monster "jupe_area2",116,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3989	monster "jupe_area2",117,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3990	monster "jupe_area2",118,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3991	monster "jupe_area2",119,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3992	monster "jupe_area2",120,64,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3993	monster "jupe_area2",121,64,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3994	monster "jupe_area2",114,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3995	monster "jupe_area2",115,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3996	monster "jupe_area2",116,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3997	monster "jupe_area2",117,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
3998	monster "jupe_area2",118,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
3999	monster "jupe_area2",119,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
4000	monster "jupe_area2",120,62,"Security Guard",1675,1,"Monster2#2-3::OnMyMobDead";
4001	monster "jupe_area2",121,62,"Security Guard",1669,1,"Monster2#2-3::OnMyMobDead";
4002	end;
4003
4004	OnTimer300000:
4005	mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
4006	set $@JupreArea2InUse,0;
4007	end;
4008
4009	OnTimer300002:
4010	enablenpc "#hole#2-3";
4011	stopnpctimer;
4012	donpcevent "Monster2#2-3::OnDisable";
4013	end;
4014
4015	OnMyMobDead:
4016	set .MyMobs,.MyMobs-1;
4017	if (.MyMobs < 1) {
4018	mapannounce "jupe_area2","Do you still have your courage? Come. Prove it.",bc_map,"0xFF0000";
4019	disablenpc "Monster2#2-3";
4020	enablenpc "#hole#2-3";
4021	set $@JupreArea2InUse,0;
4022	stopnpctimer;
4023	}
4024	end;
4025	}
4026
4027	//============================================================
4028	// Security Checkpoint 2-4
4029	//============================================================
4030	jupe_area2,113,49,0 script #hole#2-4 844,{
4031	cutin "4",2;
4032	if ($@JupreArea2InUse == 1) {
4033	mes "^3355FFThis seems like";
4034	mes "some kind of device";
4035	mes "that will allow you to";
4036	mes "pass to the other side.";
4037	mes "There's a slot where you";
4038	mes "probably need to insert";
4039	mes "some kind of object...^000000";
4040	close2;
4041	cutin "4",255;
4042	end;
4043	}
4044	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
4045	mes "^3355FFThis seems like";
4046	mes "some kind of device";
4047	mes "that will allow you to";
4048	mes "pass to the other side.";
4049	mes "There's a slot where you";
4050	mes "probably need to insert";
4051	mes "some kind of object...^000000";
4052	next;
4053	switch(select("Insert a Crest Piece.:Cancel.")) {
4054	case 1:
4055	if (countitem(7359) > 0) {
4056	mes "^3355FFYou take out your";
4057	mes "Crest Piece and place";
4058	mes "it into the slot where it";
4059	mes "happens to fit perfectly.^000000";
4060	specialeffect 159; //"#hole#2-4" EF_TOPRANK
4061	cutin "4-1",2;
4062	next;
4063	if ($@JupreArea2InUse == 1) {
4064	mes "^3355FFNothing happens.";
4065	mes "Perhaps an alarm or";
4066	mes "some other safety measure";
4067	mes "was activated to keep the";
4068	mes "Crest Piece from activating";
4069	mes "this transportation device.";
4070	mes "You retrieve the Crest Piece.^000000";
4071	close2;
4072	cutin "4-1",255;
4073	end;
4074	}
4075	else {
4076	mes "^3355FFThe slot rotates and";
4077	mes "the Crest Piece moves as";
4078	mes "if it were turning a key. You";
4079	mes "feel a weak tremor as a Warp";
4080	mes "Portal to the other side is";
4081	mes "activated. You then retrieve";
4082	mes "your Crest Piece.^000000";
4083	initnpctimer;
4084	donpcevent "Warp#2-4::OnEnable";
4085	donpcevent "Red Alarm#2-4::OnEnable";
4086	disablenpc "#hole#2-4";
4087	close2;
4088	cutin "4-1",255;
4089	end;
4090	}
4091	}
4092	else {
4093	mes "^3355FFUnfortunately, you're";
4094	mes "not carrying anything";
4095	mes "that might be able to fit";
4096	mes "into the slot and activate";
4097	mes "this mechanical device.^000000";
4098	close2;
4099	cutin "4",255;
4100	end;
4101	}
4102	break;
4103	case 2:
4104	mes "[" + strcharinfo(0) + "]";
4105	mes "Hmmm...";
4106	mes "Do I have anything";
4107	mes "that might make this";
4108	mes "weird machine work?";
4109	close2;
4110	cutin "4",255;
4111	end;
4112	}
4113	}
4114	else {
4115	mes "^3355FFThis seems like";
4116	mes "some kind of device";
4117	mes "that will allow you to";
4118	mes "pass to the other side.";
4119	mes "There's a slot where you";
4120	mes "probably need to insert";
4121	mes "some kind of object...^000000";
4122	close2;
4123	cutin "4",255;
4124	end;
4125	}
4126	end;
4127
4128	Onstop_timer:
4129	stopnpctimer;
4130	end;
4131
4132	OnTimer5000:
4133	stopnpctimer;
4134	enablenpc "#hole#2-4";
4135	disablenpc "Red Alarm#2-4";
4136	end;
4137	}
4138
4139	jupe_area2,106,53,0 script Warp#2-4 139,2,2,{
4140	OnInit:
4141	disablenpc "Warp#2-4";
4142	end;
4143
4144	OnEnable:
4145	enablenpc "Warp#2-4";
4146	specialeffect 561; //"Warp#2-4" 561
4147	soundeffectall "jupe_warp.wav",0;
4148	initnpctimer;
4149	end;
4150
4151	OnTouch:
4152	warp "jupe_area2",80,157;
4153	end;
4154
4155	OnTimer5000:
4156	disablenpc "Warp#2-4";
4157	end;
4158	}
4159
4160	jupe_area2,80,157,0 script Red Alarm#2-4 -1,2,2,{
4161	OnInit:
4162	disablenpc "Red Alarm#2-4";
4163	end;
4164
4165	OnEnable:
4166	enablenpc "Red Alarm#2-4";
4167	end;
4168
4169	OnTouch:
4170	set $@JupreArea2InUse,1;
4171	donpcevent "Red Alarm On#2-4::OnEnable";
4172	disablenpc "Red Alarm#2-4";
4173	disablenpc "#hole#2-4";
4174	end;
4175	}
4176
4177	- script Red Alarm On#2-4 -1,{
4178	OnInit:
4179	disablenpc "Red Alarm On#2-4";
4180	end;
4181
4182	OnEnable:
4183	enablenpc "Red Alarm On#2-4";
4184	initnpctimer;
4185	end;
4186
4187	OnTimer1000:
4188	mapannounce "jupe_area2","I've been waiting for someone strong enough to compete with me.",bc_map,"0xFF0000";
4189	end;
4190
4191	OnTimer3000:
4192	mapannounce "jupe_area2","If you hear this, I wish you will be the one...",bc_map,"0xFF0000";
4193	end;
4194
4195	OnTimer5000:
4196	mapannounce "jupe_area2","Perhaps, a mere shadow of my former self...",bc_map,"0xFF0000";
4197	donpcevent "Monster1#2-4::OnEnable";
4198	end;
4199
4200	OnTimer7000:
4201	mapannounce "jupe_area2","Is somewhere down here, wandering...",bc_map,"0xFF0000";
4202	end;
4203
4204	OnTimer8000:
4205	stopnpctimer;
4206	disablenpc "Red Alarm On#2-4";
4207	end;
4208	}
4209
4210	- script Monster1#2-4 -1,{
4211	OnInit:
4212	disablenpc "Monster1#2-4";
4213	end;
4214
4215	OnDisable:
4216	disablenpc "Monster1#2-4";
4217	killmonster "jupe_area2","Monster1#2-4::OnMyMobDead";
4218	end;
4219
4220	OnEnable:
4221	initnpctimer;
4222	enablenpc "Monster1#2-4";
4223	set .MyMobs,8;
4224	monster "jupe_area2",75,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4225	monster "jupe_area2",72,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4226	monster "jupe_area2",71,161,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4227	monster "jupe_area2",68,161,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4228	monster "jupe_area2",75,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4229	monster "jupe_area2",72,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4230	monster "jupe_area2",71,154,"Security Guard",1675,1,"Monster1#2-4::OnMyMobDead";
4231	monster "jupe_area2",68,154,"Security Guard",1669,1,"Monster1#2-4::OnMyMobDead";
4232	end;
4233
4234	OnTimer300000:
4235	mapannounce "jupe_area2","Zzzzt...Zzzzt....",bc_map,"0xFF0000";
4236	set $@JupreArea2InUse,0;
4237	end;
4238
4239	OnTimer300002:
4240	stopnpctimer;
4241	enablenpc "#hole#2-4";
4242	donpcevent "Monster1#2-4::OnDisable";
4243	end;
4244
4245	OnMyMobDead:
4246	set .MyMobs,.MyMobs-1;
4247	if (.MyMobs < 1) {
4248	donpcevent "Monster2#2-4::OnEnable";
4249	disablenpc "Monster1#2-4";
4250	stopnpctimer;
4251	}
4252	end;
4253	}
4254
4255	- script Monster2#2-4 -1,{
4256	OnInit:
4257	disablenpc "Monster2#2-4";
4258	end;
4259
4260	OnDisable:
4261	killmonster "jupe_area2","Monster2#2-4::OnMyMobDead";
4262	disablenpc "Monster2#2-4";
4263	end;
4264
4265	OnEnable:
4266	enablenpc "Monster2#2-4";
4267	initnpctimer;
4268	end;
4269
4270	OnTimer2000:
4271	mapannounce "jupe_area2","I can never rest in peace...",bc_map,"0xFF0000";
4272	end;
4273
4274	OnTimer4000:
4275	mapannounce "jupe_area2","I'll wait forever or until someone can put me out of my misery...",bc_map,"0xFF0000";
4276	end;
4277
4278	OnTimer6000:
4279	mapannounce "jupe_area2","I will be waiting for you!",bc_map,"0xFF0000";
4280	set .MyMobs,12;
4281	monster "jupe_area2",63,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4282	monster "jupe_area2",61,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4283	monster "jupe_area2",59,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4284	monster "jupe_area2",57,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4285	monster "jupe_area2",55,161,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4286	monster "jupe_area2",53,161,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4287	monster "jupe_area2",53,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4288	monster "jupe_area2",55,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4289	monster "jupe_area2",57,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4290	monster "jupe_area2",59,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4291	monster "jupe_area2",61,154,"Security Guard",1675,1,"Monster2#2-4::OnMyMobDead";
4292	monster "jupe_area2",63,154,"Security Guard",1669,1,"Monster2#2-4::OnMyMobDead";
4293	end;
4294
4295	OnTimer300000:
4296	set $@JupreArea2InUse,0;
4297	mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
4298	end;
4299
4300	OnTimer300002:
4301	enablenpc "#hole#2-4";
4302	donpcevent "Monster2#2-4::OnDisable";
4303	end;
4304
4305	OnMyMobDead:
4306	set .MyMobs,.MyMobs-1;
4307	if (.MyMobs < 1) {
4308	mapannounce "jupe_area2","It's funny... Isn't it?",bc_map,"0xFF0000";
4309	disablenpc "Monster2#2-4";
4310	enablenpc "#hole#2-4";
4311	set $@JupreArea2InUse,0;
4312	stopnpctimer;
4313	}
4314	end;
4315	}
4316
4317	//============================================================
4318	// Move to Elevator
4319	//============================================================
4320	jupe_area2,51,162,0 script Lever#ufe2 844,{
4321	mes "^3355FFIt's a lever";
4322	mes "whose function";
4323	mes "is not known to you.^000000";
4324	next;
4325	switch(select("Pull.:Cancel.")) {
4326	case 1:
4327	if($@JupreArea2InUse == 1) close;
4328	initnpctimer;
4329	donpcevent "LeverWarp#ufe2::OnEnable";
4330	disablenpc "Lever#ufe2";
4331	close;
4332	case 2:
4333	mes "[" + strcharinfo(0) + "]";
4334	mes "Pull this lever?";
4335	mes "I don't even know";
4336	mes "what will happen...";
4337	close;
4338	}
4339	close;
4340
4341	OnTimer3000:
4342	enablenpc "Lever#ufe2";
4343	stopnpctimer;
4344	end;
4345	}
4346
4347	jupe_area2,46,157,0 script LeverWarp#ufe2 139,2,2,{
4348	OnInit:
4349	disablenpc "LeverWarp#ufe2";
4350	end;
4351
4352	OnEnable:
4353	enablenpc "LeverWarp#ufe2";
4354	specialeffect 561; //"LeverWarp#ufe2" 561
4355	soundeffectall "jupe_warp.wav",0;
4356	initnpctimer;
4357	end;
4358
4359	OnTouch:
4360	warp "jupe_gate",71,29;
4361	end;
4362
4363	OnTimer3000:
4364	stopnpctimer;
4365	disablenpc "LeverWarp#ufe2";
4366	end;
4367	}
4368
4369	//============================================================
4370	// Elevator Reception Room
4371	//============================================================
4372	jupe_ele_r,51,98,0 script Switch#ufe 844,{
4373	if ($@JupeElevatorInUse == 1) {
4374	mes "^3355FFIt's some sort of";
4375	mes "lever that looks like";
4376	mes "it was already pulled";
4377	mes "by someone else.^000000";
4378	close;
4379	}
4380	else {
4381	cutin "5",2;
4382	mes "^3355FFIt's some sort of";
4383	mes "lever that's located";
4384	mes "next to four empty slots.^000000";
4385	next;
4386	switch(select("Pull the lever.:Leave it alone.")) {
4387	case 1:
4388	mes "^3355FFSnap Snap^000000";
4389	next;
4390	mes "^3355FFYou pull the lever,";
4391	mes "but nothing happened.";
4392	mes "You probably need to";
4393	mes "insert the correct objects";
4394	mes "into the slots in order";
4395	mes "for the lever to operate.^000000";
4396	next;
4397	if (countitem(7356) > 0 && countitem(7359) > 0 && countitem(7357) > 0 && countitem(7358) > 0) {
4398	switch(select("Insert all of your Crest Pieces.")) {
4399	case 1:
4400	mes "^3300FFSnap!^000000";
4401	mes "^3300FFStrangely enough,";
4402	mes "all four of the Crest";
4403	mes "Pieces fit perfectly into";
4404	mes "the slots and begin to";
4405	mes "emit a strange light.^000000";
4406	cutin "5-1",2;
4407	specialeffect 72; //"Switch#ufe" EF_SPHERE
4408	delitem 7356,1; //Piece_Of_Crest1
4409	delitem 7359,1; //Piece_Of_Crest4
4410	delitem 7357,1; //Piece_Of_Crest2
4411	delitem 7358,1; //Piece_Of_Crest3
4412	next;
4413	switch(select("Pull out the Crest Pieces.:Pull the lever.")) {
4414	case 1:
4415	cutin "5",2;
4416	mes "^3355FFYou pull out all";
4417	mes "the Crest Pieces";
4418	mes "that you inserted";
4419	mes "into the slots.^000000";
4420	getitem 7356,1; //Piece_Of_Crest1
4421	getitem 7359,1; //Piece_Of_Crest4
4422	getitem 7357,1; //Piece_Of_Crest2
4423	getitem 7358,1; //Piece_Of_Crest3
4424	close2;
4425	cutin "5",255;
4426	end;
4427	case 2:
4428	if ($@JupeElevatorInUse == 1) {
4429	mes "^3355FFIt's strange,";
4430	mes "but this lever has";
4431	mes "already been pulled.^000000";
4432	close2;
4433	cutin "5",255;
4434	end;
4435	}
4436	else {
4437	mes "^3355FFOnce you pull the lever,";
4438	mes "the Crest Piece slots are";
4439	mes "suddenly covered, making";
4440	mes "them irretrievable, and the";
4441	mes "ground begins to shake";
4442	mes "violently. This isn't normal!^000000";
4443	next;
4444	set $@JupeElevatorInUse,1;
4445	disablenpc "Switch#ufe";
4446	enablenpc "Switch On#ufe";
4447	initnpctimer;
4448	specialeffect2 563; // 563
4449	soundeffectall "earth_quake.wav",0;
4450	close2;
4451	cutin "5-1",255;
4452	end;
4453	}
4454	}
4455	}
4456	}
4457	else if (countitem(7356) > 0 \|\| countitem(7359) > 0 \|\| countitem(7357) > 0 \|\| countitem(7358) > 0) {
4458	select("Insert Crest Pieces.");
4459	mes "^3355FFRight now, you don't";
4460	mes "have enough Crest Pieces";
4461	mes "to place into all four of these";
4462	mes "slots. You'll need to find and^FFFFFF ^3355FF bring them all to make this work.^000000";
4463	close2;
4464	cutin "5-1",255;
4465	end;
4466	}
4467	else {
4468	mes "^3355FFYou need to find";
4469	mes "some kind of object";
4470	mes "that you can fit into";
4471	mes "each of these four slots...^000000";
4472	close2;
4473	cutin "5-1",255;
4474	end;
4475	}
4476	case 2:
4477	mes "^3355FFWho knows what";
4478	mes "this lever may do?";
4479	mes "You'll never know unless";
4480	mes "you have the courage to try.^000000";
4481	close2;
4482	cutin "5",255;
4483	end;
4484	}
4485	}
4486	end;
4487
4488	OnTimer2000:
4489	mapannounce "jupe_ele_r","My descendents...",bc_map,"0x66FF00";
4490	end;
4491
4492	OnTimer3000:
4493	mapannounce "jupe_ele_r","Do you want to know why this city was buried beneath the earth...?",bc_map,"0x66FF00";
4494	end;
4495
4496	OnTimer7000:
4497	mapannounce "jupe_ele_r","If so, follow my voice...",bc_map,"0x66FF00";
4498	end;
4499
4500	OnTimer10000:
4501	mapannounce "jupe_ele_r","I shall let you see for yourself what you desire to know...",bc_map,"0x66FF00";
4502	end;
4503
4504	OnTimer17000:
4505	mapannounce "jupe_ele_r","Overcome all the hallucinations.",bc_map,"0xCC6600";
4506	end;
4507
4508	OnTimer20000:
4509	mapannounce "jupe_ele_r","Open your eyes and see past all of the lies.",bc_map,"0xFF0000";
4510	end;
4511
4512	OnTimer23000:
4513	mapannounce "jupe_ele_r","I can only maintain this vision for you for 20 minutes.",bc_map,"0xFF0000";
4514	donpcevent "Elevator Guard1#ufe::OnEnable";
4515	end;
4516
4517	OnTimer27000:
4518	mapannounce "jupe_ele_r","Look! And remember!",bc_map,"0xFF0000";
4519	stopnpctimer;
4520	end;
4521	}
4522
4523	jupe_ele_r,51,98,0 script Switch On#ufe 844,{
4524	mes "^3355FFIt seems like";
4525	mes "someone else is";
4526	mes "using this machine...^000000";
4527	close;
4528
4529	OnInit:
4530	disablenpc "Switch On#ufe";
4531	end;
4532	}
4533
4534	//============================================================
4535	// Elevator Receptoin Guards
4536	//============================================================
4537	jupe_ele_r,10,50,0 script Elevator Guard1#ufe -1,{
4538	OnInit:
4539	disablenpc "Elevator Guard1#ufe";
4540	end;
4541
4542	OnEnable:
4543	set .MyMobs,9;
4544	enablenpc "Elevator Guard1#ufe";
4545	initnpctimer;
4546	end;
4547
4548	OnTimer1000:
4549	monster "jupe_ele_r",44,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4550	end;
4551
4552	OnTimer1200:
4553	monster "jupe_ele_r",55,99,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
4554	end;
4555
4556	OnTimer1400:
4557	monster "jupe_ele_r",45,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4558	end;
4559
4560	OnTimer1600:
4561	monster "jupe_ele_r",54,84,"Guard",1675,1,"Elevator Guard1#ufe::OnMyMobDead";
4562	end;
4563
4564	OnTimer1800:
4565	monster "jupe_ele_r",45,99,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4566	end;
4567
4568	OnTimer2000:
4569	monster "jupe_ele_r",54,99,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4570	end;
4571
4572	OnTimer2200:
4573	monster "jupe_ele_r",48,84,"Guard",1669,1,"Elevator Guard1#ufe::OnMyMobDead";
4574	end;
4575
4576	OnTimer2400:
4577	monster "jupe_ele_r",52,84,"Guard",1683,1,"Elevator Guard1#ufe::OnMyMobDead";
4578	end;
4579
4580	OnTimer2600:
4581	monster "jupe_ele_r",50,84,"Chief Guard",1684,1,"Elevator Guard1#ufe::OnMyMobDead";
4582	end;
4583
4584	OnTimer120000:
4585	mapannounce "jupe_ele_r","It is disappointing to see that you are too weak to even defeat a hallucination...",bc_map,"0x66FF00";
4586	enablenpc "Switch#ufe";
4587	disablenpc "Switch On#ufe";
4588	donpcevent "Annihilation#ufe::OnEnable";
4589	set $@JupeElevatorInUse,0;
4590	end;
4591
4592	OnTimer120005:
4593	killmonster "jupe_ele_r","Elevator Guard1#ufe::OnMyMobDead";
4594	stopnpctimer;
4595	end;
4596
4597	OnMyMobDead:
4598	set .MyMobs,.MyMobs-1;
4599	if (.MyMobs < 1) {
4600	donpcevent "Elevator Safety#ufe::OnEnable";
4601	stopnpctimer;
4602	}
4603	end;
4604	}
4605
4606	jupe_ele_r,10,52,0 script Elevator Safety#ufe -1,{
4607	OnInit:
4608	disablenpc "Elevator Safety#ufe";
4609	end;
4610
4611	OnEnable:
4612	enablenpc "Elevator Safety#ufe";
4613	initnpctimer;
4614	end;
4615
4616	OnTimer5000:
4617	mapannounce "jupe_ele_r","Those of you who have defeated the hallucination, step forward.",bc_map,"0x66FF00";
4618	soundeffectall "earth_quake.wav",0;
4619	end;
4620
4621	OnTimer8000:
4622	donpcevent "Elevator On#ufe::OnEnable";
4623	end;
4624
4625	OnTimer10000:
4626	disablenpc "Elevator Safety#ufe";
4627	stopnpctimer;
4628	end;
4629	}
4630
4631	jupe_ele_r,50,89,0 script Annihilation#ufe -1,35,50,{
4632	OnInit:
4633	disablenpc "Annihilation#ufe";
4634	end;
4635
4636	OnEnable:
4637	enablenpc "Annihilation#ufe";
4638	initnpctimer;
4639	end;
4640
4641	OnTouch:
4642	percentheal -99,-100;
4643	end;
4644
4645	OnTimer1000:
4646	mapwarp "jupe_ele_r", "jupe_gate",49,138;
4647	end;
4648
4649	OnTimer1600:
4650	enablenpc "Elevator Escape#ufe";
4651	end;
4652
4653	OnTimer3000:
4654	disablenpc "Annihilation#ufe";
4655	disablenpc "Elevator Escape#ufe";
4656	end;
4657	}
4658
4659	jupe_ele_r,50,89,0 script Elevator Escape#ufe -1,35,50,{
4660	OnInit:
4661	disablenpc "Elevator Escape#ufe";
4662	end;
4663
4664	OnTouch:
4665	mapwarp "jupe_ele_r", "jupe_gate",49,138;
4666	end;
4667	}
4668
4669	jupe_ele_r,10,54,0 script Elevator On#ufe -1,{
4670	OnInit:
4671	disablenpc "Elevator On#ufe";
4672	end;
4673
4674	OnEnable:
4675	enablenpc "Elevator On#ufe";
4676	initnpctimer;
4677	end;
4678
4679	OnTimer1000:
4680	mapwarp "jupe_ele_r", "jupe_ele",42,47;
4681	set $@JupeElevatorInUse2,0;
4682	donpcevent "TimeOut#ufe::OnEnable";
4683	donpcevent "Guard-1#ufe::OnEnable";
4684	end;
4685
4686	OnTimer10000:
4687	stopnpctimer;
4688	disablenpc "Elevator On#ufe";
4689	end;
4690	}
4691
4692	//============================================================
4693	// Elevator NPCs
4694	//============================================================
4695	jupe_ele,14,6,1 script TimeOut#ufe 844,{
4696	OnEnable:
4697	initnpctimer;
4698	end;
4699
4700	OnDisable:
4701	stopnpctimer;
4702	end;
4703
4704	OnTimer59000:
4705	if (getmapusers("jupe_ele") == 0) {
4706	killmonsterall "jupe_ele";
4707	donpcevent "Guard-1#ufe::OnDisable";
4708	donpcevent "Guard-2#ufe::OnDisable";
4709	donpcevent "Guard-3#ufe::OnDisable";
4710	donpcevent "Guard-4#ufe::OnDisable";
4711	stopnpctimer;
4712	set $@JupeElevatorInUse2,0;
4713	set $@JupeElevatorInUse,0;
4714	disablenpc "Switch On#ufe";
4715	enablenpc "Switch#ufe";
4716	}
4717	end;
4718
4719	OnTimer120000:
4720	killmonsterall "jupe_ele";
4721	donpcevent "Guard-1#ufe::OnDisable";
4722	donpcevent "Guard-2#ufe::OnDisable";
4723	donpcevent "Guard-3#ufe::OnDisable";
4724	donpcevent "Guard-4#ufe::OnDisable";
4725	mapannounce "jupe_ele","In the end, you can't even overcome your inner fear...",bc_map,"0xFF0000";
4726	end;
4727
4728	OnTimer122000:
4729	mapannounce "jupe_ele","You have never encountered your inner fears, have you?",bc_map,"0xFF0000";
4730	end;
4731
4732	OnTimer125000:
4733	mapannounce "jupe_ele","Did you expect this would be the end of the hallucination?",bc_map,"0xFF0000";
4734	end;
4735
4736	OnTimer127000:
4737	mapannounce "jupe_ele","What if the voice you're hearing is also a hallucination?",bc_map,"0xFF0000";
4738	end;
4739
4740	OnTimer129000:
4741	mapannounce "jupe_ele","What if you're just dreaming all of this?",bc_map,"0xFF0000";
4742	end;
4743
4744	OnTimer131000:
4745	mapannounce "jupe_ele","What if the existence of this city is a lie?",bc_map,"0xFF0000";
4746	end;
4747
4748	OnTimer133000:
4749	mapannounce "jupe_ele","Are you even real?",bc_map,"0xFF0000";
4750	end;
4751
4752	OnTimer134000:
4753	OnTimer135000:
4754	mapwarp "jupe_ele", "jupe_gate",49,138;
4755	end;
4756
4757	OnTimer142000:
4758	disablenpc "GuardEnd#ufe";
4759	disablenpc "4F Enter#ufe";
4760	donpcevent "TimeOut#ufe::OnDisable";
4761	set $@JupeElevatorInUse2,0;
4762	set $@JupeElevatorInUse,0;
4763	disablenpc "Switch On#ufe";
4764	enablenpc "Switch#ufe";
4765	stopnpctimer;
4766	end;
4767	}
4768
4769	jupe_ele,15,6,1 script Guard-1#ufe 844,{
4770	OnEnable:
4771	initnpctimer;
4772	end;
4773
4774	OnDisable:
4775	stopnpctimer;
4776	end;
4777
4778	OnTimer2000:
4779	mapannounce "jupe_ele","I admire your patience.",bc_map,"0xFF0000";
4780	end;
4781
4782	OnTimer5000:
4783	mapannounce "jupe_ele","Let's see if everything you have experienced",bc_map,"0xFF0000";
4784	end;
4785
4786	OnTimer8000:
4787	mapannounce "jupe_ele","were traps for intruders...",bc_map,"0xFF0000";
4788	end;
4789
4790	OnTimer12000:
4791	set .MyMobs,8;
4792	monster "jupe_ele",48,44,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4793	monster "jupe_ele",45,42,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4794	monster "jupe_ele",38,42,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4795	monster "jupe_ele",35,44,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4796	monster "jupe_ele",35,51,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4797	monster "jupe_ele",38,53,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4798	monster "jupe_ele",45,53,"Guard",1675,1,"Guard-1#ufe::OnMyMobDead";
4799	monster "jupe_ele",48,51,"Guard",1669,1,"Guard-1#ufe::OnMyMobDead";
4800	set $@JupeElevatorInUse2,1;
4801	end;
4802
4803	OnTimer30000:
4804	if ($@JupeElevatorInUse2 == 1) {
4805	donpcevent "Guard-2#ufe::OnEnable";
4806	stopnpctimer;
4807	}
4808	end;
4809
4810	OnMyMobDead:
4811	set .MyMobs,.MyMobs-1;
4812	if (.MyMobs < 1) {
4813	if ($@JupeElevatorInUse2 == 1) {
4814	donpcevent "Guard-2#ufe::OnEnable";
4815	stopnpctimer;
4816	} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4817	donpcevent "GuardEnd#ufe::OnEnable";
4818	stopnpctimer;
4819	}
4820	}
4821	end;
4822	}
4823
4824	jupe_ele,16,6,1 script Guard-2#ufe 844,{
4825	OnEnable:
4826	initnpctimer;
4827	end;
4828
4829	OnDisable:
4830	stopnpctimer;
4831	end;
4832
4833	OnTimer2000:
4834	mapannounce "jupe_ele","This city was not",bc_map,"0xFF0000";
4835	end;
4836
4837	OnTimer5000:
4838	mapannounce "jupe_ele","as magnificient as you thought.",bc_map,"0xFF0000";
4839	end;
4840
4841	OnTimer8000:
4842	mapannounce "jupe_ele","This is a place where all the fears of humans flourish.",bc_map,"0xFF0000";
4843	end;
4844
4845	OnTimer11000:
4846	mapannounce "jupe_ele","Yes. Nobody leaves alive!",bc_map,"0xFF0000";
4847	end;
4848
4849	OnTimer12000:
4850	set .MyMobs,8;
4851	monster "jupe_ele",48,44,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4852	monster "jupe_ele",45,42,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4853	monster "jupe_ele",38,42,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4854	monster "jupe_ele",35,44,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4855	monster "jupe_ele",35,51,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4856	monster "jupe_ele",38,53,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4857	monster "jupe_ele",45,53,"Guard",1683,1,"Guard-2#ufe::OnMyMobDead";
4858	monster "jupe_ele",48,51,"Guard",1669,1,"Guard-2#ufe::OnMyMobDead";
4859	set $@JupeElevatorInUse2,2;
4860	end;
4861
4862	OnTimer30000:
4863	if ($@JupeElevatorInUse2 == 2) {
4864	donpcevent "Guard-3#ufe::OnEnable";
4865	stopnpctimer;
4866	}
4867	end;
4868
4869	OnMyMobDead:
4870	set .MyMobs,.MyMobs-1;
4871	if (.MyMobs < 1) {
4872	if ($@JupeElevatorInUse2 == 2) {
4873	donpcevent "Guard-3#ufe::OnEnable";
4874	stopnpctimer;
4875	} else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4876	donpcevent "GuardEnd#ufe::OnEnable";
4877	stopnpctimer;
4878	}
4879	}
4880	end;
4881	}
4882
4883	jupe_ele,17,6,1 script Guard-3#ufe 844,{
4884	OnEnable:
4885	initnpctimer;
4886	end;
4887
4888	OnDisable:
4889	stopnpctimer;
4890	end;
4891
4892	OnTimer2000:
4893	mapannounce "jupe_ele","What do you see?",bc_map,"0xFF0000";
4894	end;
4895
4896	OnTimer5000:
4897	mapannounce "jupe_ele","Are your eyes actually seeing something?",bc_map,"0xFF0000";
4898	end;
4899
4900	OnTimer8000:
4901	mapannounce "jupe_ele","Or do you just believe you are seeing?",bc_map,"0xFF0000";
4902	end;
4903
4904	OnTimer12000:
4905	set .MyMobs,8;
4906	monster "jupe_ele",48,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4907	monster "jupe_ele",45,42,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4908	monster "jupe_ele",38,42,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
4909	monster "jupe_ele",35,44,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4910	monster "jupe_ele",35,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4911	monster "jupe_ele",38,53,"Guard",1683,1,"Guard-3#ufe::OnMyMobDead";
4912	monster "jupe_ele",45,53,"Guard",1675,1,"Guard-3#ufe::OnMyMobDead";
4913	monster "jupe_ele",48,51,"Guard",1669,1,"Guard-3#ufe::OnMyMobDead";
4914	set $@JupeElevatorInUse2,3;
4915	end;
4916
4917	OnTimer30000:
4918	if ($@JupeElevatorInUse2 == 3) {
4919	donpcevent "Guard-4#ufe::OnEnable";
4920	stopnpctimer;
4921	}
4922	end;
4923
4924	OnMyMobDead:
4925	set .MyMobs,.MyMobs-1;
4926	if (.MyMobs < 1) {
4927	if ($@JupeElevatorInUse2 == 3) {
4928	donpcevent "Guard-4#ufe::OnEnable";
4929	stopnpctimer;
4930	}
4931	else if ($@JupeElevatorInUse2 == 4 && getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-4#ufe") < 1) {
4932	donpcevent "GuardEnd#ufe::OnEnable";
4933	stopnpctimer;
4934	}
4935	}
4936	end;
4937	}
4938
4939	jupe_ele,18,6,1 script Guard-4#ufe 844,{
4940	OnEnable:
4941	initnpctimer;
4942	end;
4943
4944	OnDisable:
4945	stopnpctimer;
4946	end;
4947
4948	OnTimer2000:
4949	mapannounce "jupe_ele","Do not forget. That which limits you is nothing but yourself.",bc_map,"0xFF0000";
4950	end;
4951
4952	OnTimer5000:
4953	mapannounce "jupe_ele","Nothing is what you fear and you have nothing to fear...",bc_map,"0xFF0000";
4954	end;
4955
4956	OnTimer8000:
4957	set .MyMobs,8;
4958	monster "jupe_ele",48,44,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
4959	monster "jupe_ele",45,42,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4960	monster "jupe_ele",38,42,"Guard",1684,1,"Guard-4#ufe::OnMyMobDead";
4961	monster "jupe_ele",35,44,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4962	monster "jupe_ele",35,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
4963	monster "jupe_ele",38,53,"Guard",1669,1,"Guard-4#ufe::OnMyMobDead";
4964	monster "jupe_ele",45,53,"Guard",1683,1,"Guard-4#ufe::OnMyMobDead";
4965	monster "jupe_ele",48,51,"Guard",1675,1,"Guard-4#ufe::OnMyMobDead";
4966	set $@JupeElevatorInUse2,4;
4967	end;
4968
4969	OnMyMobDead:
4970	set .MyMobs,.MyMobs-1;
4971	if (.MyMobs < 1) {
4972	if(getvariableofnpc(.MyMobs,"Guard-1#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-2#ufe") < 1 && getvariableofnpc(.MyMobs,"Guard-3#ufe") < 1)
4973	{
4974	donpcevent "GuardEnd#ufe::OnEnable";
4975	stopnpctimer;
4976	}
4977	}
4978	end;
4979	}
4980
4981	jupe_ele,19,6,1 script GuardEnd#ufe 844,{
4982	OnInit:
4983	disablenpc "GuardEnd#ufe";
4984	end;
4985
4986	OnEnable:
4987	enablenpc "GuardEnd#ufe";
4988	donpcevent "TimeOut#ufe::OnDisable";
4989	initnpctimer;
4990	end;
4991
4992	OnDisable:
4993	disablenpc "GuardEnd#ufe";
4994	stopnpctimer;
4995	end;
4996
4997	OnTimer2000:
4998	mapannounce "jupe_ele","I am not going to tell you anything.",bc_map,"0x66FF00";
4999	end;
5000
5001	OnTimer5000:
5002	mapannounce "jupe_ele","My city, my people are now but a memory.",bc_map,"0x66FF00";
5003	end;
5004
5005	OnTimer8000:
5006	mapannounce "jupe_ele","Everything was a mistake. We were not supposed to be here.",bc_map,"0x66FF00";
5007	end;
5008
5009	OnTimer11000:
5010	mapannounce "jupe_ele","Is this a place where humans are forbidden?",bc_map,"0x66FF00";
5011	end;
5012
5013	OnTimer12000:
5014	mapannounce "jupe_ele","You want to know, don't you? Go ahead... Go deeper.",bc_map,"0x66FF00";
5015	enablenpc "4F Enter#ufe";
5016	end;
5017
5018	OnTimer22000:
5019	mapannounce "jupe_ele","It's not real anyway. All of it's safe, it can't hurt you...",bc_map,"0x66FF00";
5020	soundeffectall "earth_quake.wav",0;
5021	disablenpc "4F Enter#ufe";
5022	end;
5023
5024	OnTimer24000:
5025	mapwarp "jupe_ele","jupe_core",150,286;
5026	end;
5027
5028	OnTimer25000:
5029	mapwarp "jupe_ele","jupe_core",151,286;
5030	end;
5031
5032	OnTimer26000:
5033	set $@JupeElevatorInUse2,0;
5034	set $@JupeElevatorInUse,0;
5035	disablenpc "Switch On#ufe";
5036	enablenpc "Switch#ufe";
5037	donpcevent "GuardEnd#ufe::OnDisable";
5038	}
5039
5040	jupe_ele,41,33,0 script 4F Enter#ufe 45,4,4,{
5041	OnInit:
5042	disablenpc "4F Enter#ufe";
5043	end;
5044
5045	OnTouch:
5046	warp "jupe_core",rand(149,151),286;
5047	end;
5048	}
5049
5050	//============================================================
5051	// Warps
5052	//============================================================
5053	jupe_gate,50,173,0 script gate#start -1,2,3,{
5054	end;
5055
5056	OnTouch:
5057	initnpctimer "gate#start",1;
5058	mes "^3355FFIt's a Warp Portal";
5059	mes "that will teleport you";
5060	mes "to the previous floor.^000000";
5061	next;
5062	switch(select("Use it.:Ignore it.")) {
5063	case 1:
5064	specialeffect2 348; // EF_LIGHTSPHERE
5065	close2;
5066	stopnpctimer;
5067	warp "juperos_02",130,142;
5068	case 2:
5069	mes "[" + strcharinfo(0) + "]";
5070	mes "Not now!";
5071	mes "I can't leave yet!";
5072	close2;
5073	stopnpctimer;
5074	warp "jupe_gate",50,168;
5075	}
5076	end;
5077
5078	OnTimer10000:
5079	warp "juperos_02",128,278;
5080	enablenpc "gate#start#2";
5081	disablenpc "gate#start";
5082	end;
5083	}
5084
5085	jupe_gate,50,171,0 script gate#start#2 -1,2,2,{
5086	OnInit:
5087	disablenpc "gate#start#2";
5088	end;
5089
5090	OnTouch:
5091	warp "juperos_02",130,142;
5092	end;
5093
5094	OnTimer2000:
5095	enablenpc "gate#start";
5096	disablenpc "gate#start#2";
5097	end;
5098	}
5099
5100	juperos_02,33,59,0 script jupe_goto2F 45,2,2,{
5101	OnTouch:
5102	switch(rand(1,4)) {
5103	case 1: warp "juperos_01",120,72; end;
5104	case 2: warp "juperos_01",120,112; end;
5105	case 3: warp "juperos_01",79,112; end;
5106	case 4: warp "juperos_01",79,72; end;
5107	}
5108	end;
5109	}

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/quests/quests_juperos.txt @ 23

Download in other formats: