Context Navigation

thana_quest.txt @ 3

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

Line
1	//===== eAthena Script =======================================
2	//= Thanatos Tower Quest
3	//===== By: ==================================================
4	//= [Ishizu-chan]
5	//===== Current Version: =====================================
6	//= 1.9
7	//===== Compatible With: =====================================
8	//= Any eAthena Version i guess?
9	//===== Description: =========================================
10	//= It's the Thanatos Tower Quest...
11	//===== Additional Comments: =================================
12	//= 1.0 First Release [Ishizu-chan]
13	//= 1.1 Updated Thanatos Tower Quest to official. [SinSloth]
14	//= 1.2 Fixed a bug where Reward NPC didn't give you Zeny and Exp. [SinSloth]
15	//= 1.3 Added a checking in boss map to reset event if there's no player. [SinSloth]
16	//= 1.4 Changed the way the Thanatos Portal works to allow people to enter
17	//= as long as Thanatos is alive. [SinSloth]
18	//= 1.4a You may enter either "Charmstone" or "Charm Stone" [Lupus]
19	//= 1.5 Fixed a bug in the number part of the quest. [SinSloth]
20	//= 1.6 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
21	//= 1.7 Fixed a minor bug with prevented code part from reseting properly. [SinSloth]
22	//= 1.8 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
23	//= 1.9 Fixed a bug in the last event which allowed an exploit after the first summoning. [SinSloth]
24	//============================================================
25
26	hu_fild01,140,163,5 script Tower Keeper 852,3,3,{
27
28	mes "[Gatei]";
29	mes "Greetings, adventurer.";
30	mes "I am Gatei Knumm, keeper";
31	mes "of this Thanatos Tower.";
32	mes "How may I help you?";
33	next;
34	switch( select( "Thanatos Tower?","Entrance Fee.","Enter the tower","Cancel" ) )
35	{
36	case 1:
37	mes "[Gatei]";
38	mes "Yes, the tower in front";
39	mes "of you was an ancient ruins";
40	mes "that got its name from a word";
41	mes "written on a stone plate found";
42	mes "inside. Today, this place is";
43	mes "a popular tourist attraction.";
44	next;
45	mes "[Gatei]";
46	mes "This tower grew in popularity";
47	mes "for adventurers when the";
48	mes "Rekenber Corporation began";
49	mes "tower reconstruction efforts.";
50	mes "The 1st and 2nd floors are now";
51	mes "repaired and free of monsters.";
52	next;
53	mes "[Gatei]";
54	mes "However, reconstruction of";
55	mes "the 3rd and higher floors is";
56	mes "incomplete. Those levels are";
57	mes "still infested with monsters, so we're contracting temp workers";
58	mes "to exterminate all of them.";
59	next;
60	mes "[Gatei]";
61	mes "If you're interested in";
62	mes "temporary contract work,";
63	mes "or would like to know about";
64	mes "this place in detail, please";
65	mes "ask one of the guides inside.";
66	mes "Thank you and enjoy your visit~";
67	close;
68
69	case 2:
70	mes "[Gatei]";
71	mes "Everyone is welcome to";
72	mes "enjoy Thanatos Tower.";
73	mes "Only the 1st and 2nd floors";
74	mes "are open to the public at";
75	mes "this time. The entrance fee";
76	mes "is 5,000 zeny per person.";
77	next;
78	mes "[Gatei]";
79	mes "5,000 zeny may seem a little";
80	mes "steep for a tourist attraction,";
81	mes "but trust me, this tower provides a very unique experience. Also,";
82	mes "our loyal customers and contract workers get a special discount~";
83	close;
84
85	case 3:
86	mes "[Gatei]";
87	mes "Would you like to";
88	mes "enter Thanatos Tower?";
89	mes "The entry fee is ^FF00005,000 zeny^000000.";
90	next;
91	switch( select( "Enter","Maybe next time." ) )
92	{
93	case 1:
94	if (thana_quest)
95	{
96	mes "[Gatei]";
97	mes "Oh, "+strcharinfo(0)+"!";
98	mes "Welcome back! Since you've";
99	mes "got a temporary Rekenber";
100	mes "work contract, your entrance";
101	mes "fee is only 3,000 zeny.";
102	next;
103	switch( select( "Enter","No, thanks." ) )
104	{
105	case 1:
106	if (Zeny < 3000)
107	{
108	mes "[Gatei]";
109	mes "Oh, I'm sorry...";
110	mes "But you don't seem to";
111	mes "have enough zeny. Oh well,";
112	mes "just come back again later~";
113	close;
114	}
115	mes "[Gatei]";
116	mes "Thank you, and";
117	mes "please keep up the";
118	mes "good work. Ah, and don't";
119	mes "forget: safety first when";
120	mes "you fight those monsters!";
121	set Zeny,Zeny - 3000;
122	close2;
123	warp "tha_scene01",131,220;
124	end;
125
126	case 2:
127	mes "[Gatei]";
128	mes "Oh, I'm sorry...";
129	mes "But you don't seem to";
130	mes "have enough zeny. Oh well,";
131	mes "just come back again later~";
132	close;
133	}
134	}
135	if (Zeny < 5000)
136	{
137	mes "[Gatei]";
138	mes "Well...";
139	mes "Hm. I'm sorry, but you";
140	mes "don't seem to have enough";
141	mes "zeny for the entrance fee.";
142	mes "Please come back later...";
143	close;
144	}
145	mes "[Gatei]";
146	mes "Ah, I've received your";
147	mes "entrance fee. Thank you";
148	mes "very much. Now, I hope";
149	mes "you enjoy your visit";
150	mes "to Thanatos Tower~";
151	set Zeny,Zeny - 5000;
152	close2;
153	warp "tha_scene01",131,220;
154	end;
155
156	case 2:
157	mes "[Gatei]";
158	mes "Very well. Please come";
159	mes "and visit us again here";
160	mes "in Thanatos Tower.";
161	close;
162	}
163
164	case 4:
165	mes "[Gatei]";
166	mes "Very well. Please come";
167	mes "and visit us again here";
168	mes "in Thanatos Tower.";
169	close;
170	}
171	}
172
173	tha_t01,149,78,4 script Guide 90,{
174
175	if(!thana_quest)
176	{
177	mes "[Ditze]";
178	mes "Welcome to Thanatos Tower.";
179	mes "The tower's reconstruction is";
180	mes "a Rekenber Corporation project,";
181	mes "and the 1st and 2nd floors are";
182	mes "now open to the public. So";
183	mes "how may I help you today?";
184	next;
185	switch( select( "Tower Information","Temporary Work Contract","Cancel" ) )
186	{
187	case 1:
188	mes "[Ditze]";
189	mes "When this tower was built,";
190	mes "who built it, and its purpose";
191	mes "are all mysteries. There are";
192	mes "many rumors about it being a";
193	mes "Mage lab, a hero's monument,";
194	mes "or a demon fortress...";
195	next;
196	mes "[Ditze]";
197	mes "The Rekenber Corporation has";
198	mes "been researching the origin of";
199	mes "this tower, but has not yet been able to confirm anything. Although";
200	mes "we've lost many researchers to the tower monsters, we won't give up!";
201	next;
202	mes "[Ditze]";
203	mes "Rekenber is convinced that this";
204	mes "tower holds many secrets, and";
205	mes "successfully reconstructed the";
206	mes "first 2 floors of this tower in";
207	mes "the pursuit of this knowledge.";
208	next;
209	mes "[Ditze]";
210	mes "Currently, we are focused on";
211	mes "reconstructing the tower's 3rd";
212	mes "and 4th floors. Luckily, many";
213	mes "adventurers are exterminating";
214	mes "the monsters on those floors, working under temporary contracts.";
215	next;
216	mes "[Ditze]";
217	mes "At this rate, we expect";
218	mes "to complete reconstruction";
219	mes "of the 3rd and 4th floors in";
220	mes "the near future, bringing us";
221	mes "closer to our goal of opening all 12 floors of Thanatos Tower.";
222	next;
223	L_Ask1:
224	switch( select( "Tower Monsters?","Temp Contract Work?","......" ) )
225	{
226	case 1:
227	mes "[Ditze]";
228	mes "Yes, when we began";
229	mes "reconstruction of the";
230	mes "Thanatos Tower, these";
231	mes "monsters that look like angels";
232	mes "just appeared out of nowhere";
233	mes "to attack all the workers.";
234	next;
235	mes "[Ditze]";
236	mes "At first, witnesses thought";
237	mes "that these monsters might";
238	mes "be, you know, actual angels.";
239	mes "But if they were, why were they";
240	mes "attacking for no reason?";
241	next;
242	mes "[Ditze]";
243	mes "Anyway, we asked the Juno ";
244	mes "Sage Academy to investigate";
245	mes "them, and they confirmed that";
246	mes "these angelic creatures are true monsters--their resemblance to";
247	mes "angels is merely coincidence.";
248	next;
249	goto L_Ask1;
250
251	case 2:
252	break;
253
254	case 3:
255	mes "[Ditze]";
256	mes "To develop the floors above";
257	mes "the 2nd floor, we're going to";
258	mes "need as many temp contract";
259	mes "workers as we can hire. Why";
260	mes "don't you consider working";
261	mes "for us under a temp contract?";
262	close;
263	}
264	break;
265
266	case 2:
267	break;
268
269	case 3:
270	mes "[Ditze]";
271	mes "Well, if you have any";
272	mes "questions, feel free to";
273	mes "ask me later. My name is";
274	mes "Ditze Lappa. Have a good day!";
275	close;
276	}
277	mes "[Ditze]";
278	mes "You may have already heard";
279	mes "from the Tower Keeper, but";
280	mes "we're contracting adventurers to exterminate the tower monsters";
281	mes "in the 3rd and higher levels on";
282	mes "a temporary employee basis.";
283	next;
284	mes "[Ditze]";
285	mes "I'm in charge of hiring";
286	mes "temp contract workers, so";
287	mes "talk to me if you're interested. Only temp workers are allowed";
288	mes "to access the higher levels";
289	mes "here in Thanatos Tower.";
290	next;
291	switch( select( "Maybe next time","Sure, I'd like to work for you." ) )
292	{
293	case 1:
294	mes "[Ditze]";
295	mes "Well, alright.";
296	mes "But come and talk to";
297	mes "me as soon as you decide";
298	mes "that you want to help with";
299	mes "the tower reconstruction by";
300	mes "working for Rekenber.";
301	close;
302
303	case 2:
304	mes "[Ditze]";
305	mes "That's great!";
306	mes "Would you please fill";
307	mes "out this employment";
308	mes "agreement first? Let's";
309	mes "see. Your name is...";
310	mes ""+strcharinfo(0)+", right?";
311	next;
312	switch( select( "Yes" ) )
313	{
314	case 1:
315	break;
316	}
317	mes "[Ditze]";
318	mes "Alright, please read";
319	mes "this agreement carefully.";
320	mes "If you agree with all of";
321	mes "the conditions, go ahead";
322	mes "and just sign the bottom.";
323	next;
324	mes "^3355FFDitze hands you the";
325	mes "Employment Agreement";
326	mes "document for you to read.^000000";
327	next;
328	mes "- Employment Agreement -";
329	mes " ";
330	mes "1. This employment agreement";
331	mes "is effective between Rekenber";
332	mes "Corporation (''Employer'') and "+strcharinfo(0)+"(''Employee'').";
333	mes "1-1. This employment agreement";
334	mes "is classified as a Mercernary";
335	mes "contract between both parties.";
336	mes "2. The terms of this contract";
337	mes "immediately take effect once";
338	mes "it is signed by both parties";
339	mes "(Employer and Employee).";
340	mes "3. When the Employee performs";
341	mes "a mission, the mission results";
342	mes "must be verified with acceptible physical proof that must be";
343	mes "presented to the Employer.";
344	mes "3-1. Please refer to Section";
345	mes "7A for examples of acceptible";
346	mes "proof of monster extermination.";
347	mes "3-2. Acceptible proof is";
348	mes "determined and defined by a";
349	mes "representative of the Employer.";
350	mes "4. Employer will allot rewards";
351	mes "to Employees after receiving";
352	mes "extermination proof.";
353	mes "4-1. Possible rewards for";
354	mes "monster exterminations may";
355	mes "include the following.";
356	mes ".................................................";
357	mes ".................................................";
358	mes ".................................................";
359	mes ".................................................";
360	mes ".................................................";
361	mes "13. This contract's terms are";
362	mes "only applicable within Thanatos";
363	mes "Tower.";
364	mes "14. Employees will receive";
365	mes "a discount on the Entry Fee";
366	mes "to the Thanatos Tower.";
367	mes " ";
368	mes " ";
369	mes " ";
370	mes "Employer Signature____________";
371	mes "Employee Signature____________";
372	next;
373	switch( select( "Sign","Don't Sign" ) )
374	{
375	case 1:
376	mes "^3355FFYou sign two copies of the";
377	mes "Employment Agreement.^000000";
378	next;
379	mes "[Ditze]";
380	mes "Thank you. Now, you are";
381	mes "an official employee of the";
382	mes "Rekenber Corporation! Well,";
383	mes "within the limits of this tower";
384	mes "anyway. This contract doesn't";
385	mes "apply outside of this place.";
386	next;
387	mes "[Ditze]";
388	mes "From now on, you can talk";
389	mes "to the 2nd Floor Guide to";
390	mes "enter the 3rd Floor. If you";
391	mes "have any mission reward";
392	mes "questions, please ask ^3355FFLiei^000000.";
393	next;
394	mes "[Ditze]";
395	mes "If you want to check";
396	mes "more information about";
397	mes "your work, please talk";
398	mes "to the 2nd Floor Guide.";
399	mes "Thank you, and welcome";
400	mes "to the Rekenber Corporation~";
401	set thana_quest,1;
402	close;
403
404	case 2:
405	mes "[Ditze]";
406	mes "Oh? Was there an article";
407	mes "within the contract that you";
408	mes "disagreed with? Hm. Well,";
409	mes "that's fine. But if you change";
410	mes "your mind, please come back";
411	mes "and ask me anytime. Thank you~";
412	close;
413	}
414	}
415	}
416	mes "[Ditze]";
417	mes "For more detailed information";
418	mes "about monster exterminations,";
419	mes "please ask the 2nd Floor Guide";
420	mes "and the Guide next to me. Well,";
421	mes "we hope you enjoy your experience working with Rekenber Corporation~";
422	close;
423	}
424
425	tha_t01,140,78,4 script Guide#thana 831,{
426
427	if(!thana_quest)
428	{
429	mes "[Liei]";
430	mes "Good day, I'm";
431	mes "Liei Kuniziet of the";
432	mes "Employee Mission";
433	mes "Reward Department";
434	mes "here in Thanatos Tower.";
435	next;
436	switch( select( "Employee's mission reward?","Keep up the good work." ) )
437	{
438	case 1:
439	mes "[Liei]";
440	mes "Currently, Rekenber Corporation";
441	mes "is contracting temp employees";
442	mes "to develop the higher levels";
443	mes "of Thanatos Tower. If you'd";
444	mes "like to apply, please ask";
445	mes "Ditze right next to me.";
446	close;
447
448	case 2:
449	mes "[Liei]";
450	mes "Thank you. Ah, and I hope";
451	mes "that you enjoy your visit";
452	mes "here to Thanatos Tower.";
453	close;
454	}
455	}
456	mes "[Liei]";
457	mes "Ah, hello~";
458	mes "How may I help you?";
459	next;
460	switch( select( "Reward","Nothing" ) )
461	{
462	case 1:
463	mes "[Liei]";
464	mes "You're "+strcharinfo(0)+", yes?";
465	mes "Let me check our temp";
466	mes "employee records for--ah.";
467	mes "Here it is. Alright, so would";
468	mes "you please tell me what kind";
469	mes "of mission proof you brought?";
470	next;
471	switch( select( "Golden Ornament","Red Feather","Blue Feather","Cursed Seal" ) )
472	{
473	case 1:
474	callfunc "Func_Thana",7435;
475
476	case 2:
477	callfunc "Func_Thana",7440;
478
479	case 3:
480	callfunc "Func_Thana",7441;
481
482	case 4:
483	callfunc "Func_Thana",7442;
484	}
485
486	case 2:
487	mes "[Liei]";
488	mes "Alright, then.";
489	mes "Please do your best";
490	mes "to exterminate the";
491	mes "monsters that infest";
492	mes "the higher floors of";
493	mes "the Thanatos Tower~";
494	close;
495	}
496	}
497
498	function script Func_Thana {
499
500	if(!countitem(getarg(0)))
501	{
502	mes "[Liei]";
503	mes "Oh, I'm sorry, but you";
504	mes "don't have any "+ getitemname(getarg(0)) +"";
505	mes "Please check your inventory one more time...";
506	close;
507	}
508	mes "[Liei]";
509	mes "The reward for each";
510	mes ""+ getitemname(getarg(0)) +" is...";
511	mes " ";
512	mes "1,000 zeny";
513	mes "2,000 EXP";
514	next;
515	mes "[Liei]";
516	mes "If you turn in your "+ countitem(getarg(0)) +"";
517	mes ""+ getitemname(getarg(0)) +", then";
518	mes "you will receive a total of...";
519	mes " ";
520	mes ""+ countitem(getarg(0)) * 1000 +" zeny";
521	mes ""+ countitem(getarg(0)) * 2000 +" EXP";
522	next;
523	mes "[Liei]";
524	mes "So would you like to";
525	mes "exchange all of your "+ getitemname(getarg(0)) +"";
526	mes "for your reward now?";
527	next;
528	switch( select( "Yes","No" ) )
529	{
530	case 1:
531	mes "[Liei]";
532	mes "Great! Here is your";
533	mes ""+ countitem(getarg(0)) * 1000 +" zeny and";
534	mes ""+ countitem(getarg(0)) * 2000 +" EXP. Thank you,";
535	mes "and please keep up";
536	mes "the good work~";
537	set Zeny,Zeny + countitem(getarg(0)) * 1000;
538	getexp countitem(getarg(0))*2000,0;
539	delitem getarg(0),countitem(getarg(0));
540	close;
541
542	case 2:
543	mes "[Liei]";
544	mes "Sure, no problem.";
545	mes "Just come back and";
546	mes "talk to me whenever";
547	mes "you want to receive";
548	mes "your reward, alright?";
549	close;
550	}
551	}
552
553	tha_t02,231,161,5 script Entrance Guide 874,{
554
555	if(!thana_quest)
556	{
557	mes "[Burled]";
558	mes "You are in front of the entrance to the 3rd Floor. Only contracted";
559	mes "temp employees are authorized";
560	mes "to enter that area. For Rekenber temp contract information, please";
561	mes "speak to the 2nd Floor Guide.";
562	close;
563	}
564	mes "[Burled]";
565	mes "......";
566	mes ".........";
567	mes "............";
568	next;
569	switch( select( "Excuse me...","........." ) )
570	{
571	case 1:
572	mes "[Burled]";
573	mes "Oh...";
574	mes "I'm sorry, how";
575	mes "can I help you?";
576	next;
577	if(thana_quest < 2)
578	{
579	switch( select( "Enter the 3rd Floor","Gate Information" ) )
580	{
581	case 1:
582	L_Access3:
583	mes "[Burled]";
584	mes "Oh, alright. Let me";
585	mes "check and see if you're";
586	mes "on our temp list. Hmmm...";
587	mes "Ah, you're "+strcharinfo(0)+", right?";
588	set .@thana_level2,getareausers("tha_t02",226,156,236,166);
589	next;
590	if(.@thana_level2 < 5)
591	{
592	mes "[Burled]";
593	mes "First, we need to wait until";
594	mes "at least 5 temps are gathered";
595	mes "to form a work group. Right";
596	mes "now, there are a total of";
597	mes ""+ .@thana_level2 +" temp workers waiting to";
598	mes "enter the 3rd Floor.";
599	next;
600	mes "[Burled]";
601	mes "If you can, try to get";
602	mes "your friends to help you";
603	mes "by coming near me. Please";
604	mes "understand that we have this";
605	mes "temp worker group requirement";
606	mes "for various safety reasons.";
607	close;
608	}
609	mes "[Burled]";
610	mes "Great, you're just";
611	mes "in time. We just met";
612	mes "the minimum 5 temp group";
613	mes "requirement, so we'll open";
614	mes "the gate to the 3rd Floor soon.";
615	next;
616	mes "[Burled]";
617	mes "The gate to the 3rd Floor";
618	mes "will close shortly, so enter it";
619	mes "as soon as you can. We have";
620	mes "to close it quickly because we";
621	mes "can't have the tower monsters";
622	mes "entering the lower floors...";
623	close2;
624	donpcevent "#thana3::OnOpen";
625	end;
626
627	case 2:
628	L_GateInfo:
629	mes "[Burled]";
630	mes "This gate is the only passage";
631	mes "that connects to the 3rd Floor.";
632	mes "After the 4th Floor, passages";
633	mes "between floors only travel one";
634	mes "way, meaning you can't exit the";
635	mes "same way you that you entered.";
636	next;
637	mes "[Burled]";
638	mes "You see, there's a strange";
639	mes "power that affects the 5th";
640	mes "Floor, and all floors above,";
641	mes "which doesn't allow people to";
642	mes "backtrack through the passage in which they entered the floor.";
643	next;
644	mes "[Burled]";
645	mes "So if you ascend past the";
646	mes "4th Floor, please be careful";
647	mes "and make sure that you find";
648	mes "a way to get back. Also, the";
649	mes "monsters grow more powerful";
650	mes "as you ascend the tower...";
651	next;
652	mes "[Burled]";
653	mes "Because the higher levels are";
654	mes "too dangerous, we only open the";
655	mes "3rd Floor Gate when 5 or more";
656	mes "are gathered here. Therefore,";
657	mes "you may need to wait if less";
658	mes "than 5 temps have gathered.";
659	close;
660	}
661	}
662	switch( select( "Enter the 3rd Floor","Gate Information","About Satan Morroc..." ) )
663	{
664	case 1:
665	goto L_Access3;
666
667	case 2:
668	goto L_GateInfo;
669
670	case 3:
671	mes "[Burled]";
672	mes "Satan Morroc...?";
673	mes "Ummm... Isn't talking";
674	mes "about that a little taboo?";
675	mes "I mean, people get angry";
676	mes "or scared just hearing";
677	mes "that name, you know?";
678	next;
679	switch( select( "It's important that I know more.","I'm sorry, I didn't know..." ) )
680	{
681	case 1:
682	mes "[Burled]";
683	mes "When the Rekenber Corporation";
684	mes "started reconstruction of the";
685	mes "Thanatos Tower, the Cool Event";
686	mes "Corporation was their biggest";
687	mes "business partner in the tower";
688	mes "reconstruction project.";
689	next;
690	mes "[Burled]";
691	mes "Yeah, I remember that Cool";
692	mes "Event Corp. invested huge";
693	mes "amounts of zeny and manpower";
694	mes "to rebuild to tower, and expand";
695	mes "their business relationship";
696	mes "with Rekenber Corporation...";
697	next;
698	mes "[Burled]";
699	mes "But then, there was some";
700	mes "kind of accident. An explosion";
701	mes "happened in the upper floors";
702	mes "of Thanatos Tower. Some say";
703	mes "it might have been Satan Morroc, but I wouldn't know for sure.";
704	next;
705	mes "[Burled]";
706	mes "Because of that explosion,";
707	mes "Cool Event Corporation withdrew";
708	mes "their investment into the tower";
709	mes "reconstruction project. They";
710	mes "basically abandoned Rekenber Corporation in the tower effort.";
711	next;
712	mes "[Burled]";
713	mes "But well...";
714	mes "Shortly after that happened,";
715	mes "Rekenber Corporation took over";
716	mes "Cool Event Corporation. I mean,";
717	mes "the company retains its name, but it's a Rekenber company now.";
718	next;
719	mes "[Burled]";
720	mes "I know, I know...";
721	mes "It all sounds awfully";
722	mes "shady. Please do me a favor";
723	mes "and don't tell anyone that";
724	mes "I told you this rumor, okay?";
725	close;
726
727	case 2:
728	close;
729	}
730	}
731
732	case 2:
733	mes "["+strcharinfo(0)+"]";
734	mes ".............";
735	close;
736	}
737	}
738
739	tha_t02,227,163,1 script #thana3 45,1,1,{
740
741	OnInit:
742	disablenpc "#thana3";
743	end;
744
745	OnTouch:
746	if(!thana_quest) warp "tha_t02",227,158;
747	else warp "tha_t03",219,159;
748	end;
749
750	OnOpen:
751	enablenpc "#thana3";
752	initnpctimer;
753	end;
754
755	OnTimer30000:
756	stopnpctimer;
757	disablenpc "#thana3";
758	end;
759	}
760
761	tha_t03,67,70,0 script Machine Device#thana1 111,{
762
763	if((countitem(7421)) \|\| (countitem(7426)))
764	{
765	mes "^3355FFIt's a peculiar machine";
766	mes "that emits a strange buzzing";
767	mes "hum. After looking closer,";
768	mes "you can faintly perceive an";
769	mes "energy barrier surrounding";
770	mes "the machine.^000000";
771	close;
772	}
773	mes "^3355FFA mysterious field of";
774	mes "energy seems to surround";
775	mes "the mechanical device and";
776	mes "its power prevents you from";
777	mes "approaching the machine.^000000";
778	next;
779	switch( select( "Smash the Energy Field","Retreat" ) )
780	{
781	case 1:
782	if (getequipweaponlv(4) < 4)
783	{
784	mes "^3355FFYou smash the energy";
785	mes "field with your weapon";
786	mes "using all of your strength,";
787	mes "but you weren't able to";
788	mes "break down the barrier.";
789	mes "You probably need a more";
790	mes "powerful weapon...^000000";
791	close;
792	}
793	mes "^3355FFWith your "+getequipname(4)+" in";
794	mes "hand, you smash the energy";
795	mes "field with all of your strength. After absorbing the impact, the";
796	mes "field fizzles out with a soft,";
797	mes "gentle ''pzzzzzh'' sound.^000000";
798	next;
799	switch( select( "Investigate Device","Retreat" ) )
800	{
801	case 1:
802	mes "^3355FFAs you investigate the";
803	mes "device, you accidentally";
804	mes "press a button, resulting";
805	mes "in a loud beeping noise";
806	mes "and the activation of";
807	mes "the monitor screen.^000000";
808	next;
809	switch( select( "Read the Screen","Ignore the Screen" ) )
810	{
811	case 1:
812	mes "^426F42I've used the Gate Seal";
813	mes "technology to seal the gate";
814	mes "and the charm stones. Although";
815	mes "the seals are in place, I can't";
816	mes "stop worrying that they might";
817	mes "break in the future.^000000";
818	next;
819	mes "^426F42I can't relax when a, shall";
820	mes "I say, particular group covets";
821	mes "the charm stones and can easily";
822	mes "break the seals. To deter them,";
823	mes "I've changed the Gate destination before sealing the Gate.^000000";
824	next;
825	mes "^426F42I didn't check the exact";
826	mes "destination coordinates for";
827	mes "the Gate after I changed them,";
828	mes "but the destination gives me";
829	mes "a warm, comforting feeling,";
830	mes "so it's definitely not hell.^000000";
831	next;
832	mes "^3355FFYou've read all the";
833	mes "text displayed on the";
834	mes "screen. Judging from the";
835	mes "content, there is probably";
836	mes "more text before and after the";
837	mes "section shown on the screen.^000000";
838	next;
839	switch( select( "Further Investigate Machine","Finish Investigation" ) )
840	{
841	case 1:
842	mes "^3355FFYou have found";
843	mes "a small key on the";
844	mes "corner of the machine.";
845	mes "Just touching this key";
846	mes "gives you a strange feeling.^000000";
847	getitem 7421,1;
848	close;
849
850	case 2:
851	break;
852	}
853	break;
854
855	case 2:
856	mes "^3355FFYou decide to ignore the";
857	mes "text displayed on the screen,";
858	mes "and immediately discover a";
859	mes "small key laid on the corner";
860	mes "of the machine. Just touching";
861	mes "it gives you a strange feeling.^000000";
862	getitem 7421,1;
863	close;
864	}
865	break;
866
867	case 2:
868	mes "^3355FFYou decide to leave";
869	mes "the machine alone.^000000";
870	close;
871	}
872	break;
873
874	case 2:
875	break;
876	}
877	mes "^3355FFYou decide to leave";
878	mes "the machine alone.^000000";
879	close;
880	}
881
882	tha_t04,195,195,0 script Machine Device#thana2 111,{
883
884	if((countitem(7422)) \|\| (countitem(7427)))
885	{
886	mes "^3355FFThis device is currently";
887	mes "inactivated and not in";
888	mes "operation. However, you";
889	mes "may have use for it later...^000000";
890	close;
891	}
892	mes "^3355FFYou find a number pad";
893	mes "underneath the monitor.";
894	mes "As you press one of the";
895	mes "number keys, you hear a";
896	mes "beep as the screen activates.^000000";
897	next;
898	mes "[Screen]";
899	mes "Please enter a 3 digit";
900	mes "number. Do not use a";
901	mes "single number more than";
902	mes "once or use the number 0.";
903	next;
904	if(@thanatry) goto L_Input;
905	L_Recode:
906	set @thanacode1,rand(1,9);
907	set @thanacode2,rand(1,9);
908	set @thanacode3,rand(1,9);
909	if((@thanacode1 == @thanacode2) \|\| (@thanacode1 == @thanacode3) \|\| (@thanacode2 == @thanacode3)) goto L_Recode;
910	L_Input:
911	input @thanainput;
912	if((@thanainput < 100) \|\| (@thanainput > 999))
913	{
914	mes "[Screen]";
915	mes "Number input";
916	mes "requirement has";
917	mes "not been fulfilled.";
918	mes "Please enter a";
919	mes "3 digit number.";
920	close;
921	}
922	set @thanainput1,@thanainput / 100;
923	set @thanainput2,(@thanainput % 100) / 10;
924	set @thanainput3,@thanainput % 10;
925	if ((@thanainput1 == 0) \|\| (@thanainput2 == 0) \|\| (@thanainput3 == 0))
926	{
927	mes "[Screen]";
928	mes "Violation of number";
929	mes "input parameter. The";
930	mes "number 0 has been input,";
931	mes "or a number has been";
932	mes "input more than once.";
933	next;
934	goto L_Input;
935	}
936	mes "[Screen]";
937	mes "You have input...";
938	mes "^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000";
939	mes " ";
940	mes "Calculating Results...";
941	mes "Please wait a moment...";
942	set @thanatry,@thanatry +1;
943	next;
944	set @strike,0;
945	set @ball,0;
946	if(@thanainput1 == @thanacode1) set @strike,@strike +1;
947	if(@thanainput2 == @thanacode2) set @strike,@strike +1;
948	if(@thanainput3 == @thanacode3) set @strike,@strike +1;
949	if((@thanainput1 == @thanacode2) \|\| (@thanainput1 == @thanacode3)) set @ball,@ball +1;
950	if((@thanainput2 == @thanacode1) \|\| (@thanainput2 == @thanacode3)) set @ball,@ball +1;
951	if((@thanainput3 == @thanacode1) \|\| (@thanainput3 == @thanacode2)) set @ball,@ball +1;
952	if(@strike == 3)
953	{
954	mes "[Screen]";
955	mes "Input number accepted.";
956	mes "Access authorized.";
957	set @thanatry,0;
958	next;
959	mes "^3355FFAfter the screen displays";
960	mes "the access authorization";
961	mes "notice, some new text is";
962	mes "displayed on the screen,";
963	mes "and a storage unit slides";
964	mes "open beneath the monitor.^000000";
965	next;
966	switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
967	{
968	case 1:
969	mes "[Log Entry]";
970	mes "^426F42That could only mean she";
971	mes "came here for Satan Morroc.";
972	mes "After I investigated the area,";
973	mes "I found traces of a battle that";
974	mes "involved several human sized creatures and one giant monster.^000000";
975	next;
976	mes "[Log Entry]";
977	mes "^426F42I'm guessing that her group";
978	mes "actually fought Satan Morroc";
979	mes "and managed to wound it";
980	mes "severely. It looks like Satan";
981	mes "Morroc retreated to the south";
982	mes "and her group followed it.^000000";
983	next;
984	mes "[Log Entry]";
985	mes "^426F42Strangely, I haven't found";
986	mes "any traces of her, which is";
987	mes "especially suspicious since";
988	mes "other evidence in the area has";
989	mes "remained for hundreds of years.";
990	mes "But I can't figure out why...^000000";
991	next;
992	mes "^3355FFYou've finished";
993	mes "reading the Log Entry.^000000";
994	next;
995	switch( select( "Investigate Monitor Storage","Cancel" ) )
996	{
997	case 1:
998	break;
999
1000	case 2:
1001	close;
1002	}
1003
1004	case 2:
1005	mes "^3355FFYou find a small, shining";
1006	mes "key in an empty corner of the";
1007	mes "Monitor's Storage receptacle.";
1008	mes "Merely holding it makes you";
1009	mes "feel some strange sensation.^000000";
1010	if(thana_quest == 1) set thana_quest,2;
1011	getitem 7422,1;
1012	close;
1013
1014	case 3:
1015	mes "^3355FFAfter a short while,";
1016	mes "you hear a low pitched";
1017	mes "beep. The screen's text";
1018	mes "disappears, and the storage";
1019	mes "receptable under the monitor";
1020	mes "slides shut, concealing itself.^000000";
1021	close;
1022	}
1023	}
1024	mes "[Screen]";
1025	mes "Beeeeep";
1026	mes "Unauthorized";
1027	mes "numerical sequence.";
1028	next;
1029	mes "[Screen]";
1030	mes "Correct number";
1031	mes "in correct place";
1032	mes "in sequence total: ^FF0000"+@strike+"^000000";
1033	mes " ";
1034	mes "Correct number total: ^FF0000"+@ball+"^000000";
1035	next;
1036	if(@thanatry > 4)
1037	{
1038	mes "[Screen]";
1039	mes "Correct number";
1040	mes "authorization";
1041	mes "sequence was...";
1042	mes "^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000";
1043	mes "Authorization number";
1044	mes "will change upon retry.";
1045	set @thanatry,0;
1046	close;
1047	}
1048	goto L_Input;
1049	}
1050
1051	tha_t05,101,37,0 script Machine Device#thana3 111,{
1052
1053	if((countitem(7423)) \|\| (countitem(7428)))
1054	{
1055	mes "^3355FFYou find nothing here,";
1056	mes "aside from the faded";
1057	mes "patterns that mark the floor.^000000";
1058	close;
1059	}
1060	set .@thana_level5,getareausers("tha_t05",98,34,104,40);
1061	if(!.@thana_level5)
1062	{
1063	mes "^3355FFYou are inexplicably drawn";
1064	mes "to this mechanical device.";
1065	mes "Aside from the green screen";
1066	mes "in the middle, there are no";
1067	mes "buttons and switches.^000000";
1068	if(rand(1,3) == 2)
1069	{
1070	next;
1071	mes "^3355FFYou perceive small text at the";
1072	mes "bottom of the green screen";
1073	mes "that reads, ''Operation of this";
1074	mes "device requires presense of";
1075	mes "four or more personnel detected";
1076	mes "by pressure plate system.''^000000";
1077	close;
1078	}
1079	close;
1080	}
1081	else if(.@thana_level5 < 4)
1082	{
1083	mes "^3355FFYou are inexplicably drawn";
1084	mes "to this mechanical device.";
1085	mes "Aside from the green screen";
1086	mes "in the middle, there are no";
1087	mes "buttons and switches.^000000";
1088	next;
1089	mes "^3355FFYou carefully investigate";
1090	mes "your surroundings and notice";
1091	mes "a gleaming spot on the ground";
1092	mes "next to the mechanical device.^000000";
1093	close;
1094	}
1095	else
1096	{
1097	mes "^3355FFAs you approach the device, the";
1098	mes "floor around it begins to glow.";
1099	mes "Text appears on the device's";
1100	mes "screen, and a storage receptacle beneath the monitor slides open.^000000";
1101	next;
1102	switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
1103	{
1104	case 1:
1105	mes "[Log Entry]";
1106	mes "^426F42After the whole ordeal,";
1107	mes "I decided to leave. But";
1108	mes "before I could do that,";
1109	mes "I had to seal the Gate";
1110	mes "that led to that place.^000000";
1111	next;
1112	mes "[Log Entry]";
1113	mes "^426F42If someone were to find";
1114	mes "this tower and use the Gate";
1115	mes "for evil ends, the world will be plagued with an era of chaos.";
1116	mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000";
1117	next;
1118	mes "[Log Entry]";
1119	mes "^426F42It took me a very long time,";
1120	mes "but I managed to secretly";
1121	mes "seal the Gate. But before";
1122	mes "I began sealing the Gate,";
1123	mes "I decided to examine it";
1124	mes "further, just in case.^000000";
1125	next;
1126	mes "[Log Entry]";
1127	mes "^426F42In my studies of the Gate,";
1128	mes "I discovered that it derives";
1129	mes "its power from the Charm";
1130	mes "Stones. So to prevent anyone";
1131	mes "from misusing its power, I've separately sealed the stones...^000000";
1132	next;
1133	mes "^3355FFYou've finished";
1134	mes "reading the text";
1135	mes "that was displayed";
1136	mes "on the screen.^000000";
1137	close;
1138
1139	case 2:
1140	mes "^3355FFYou've found a small";
1141	mes "shining key inside the";
1142	mes "storage receptacle located";
1143	mes "underneath the monitor.^000000";
1144	getitem 7423,1;
1145	close;
1146
1147	case 3:
1148	close;
1149	}
1150	}
1151	}
1152
1153	tha_t06,43,152,0 script Machine Device#thana4 111,{
1154
1155	if((countitem(7424)) \|\| (countitem(7429)))
1156	{
1157	mes "^3355FFYou found a deactivated";
1158	mes "mechanical device with an";
1159	mes "interesting series of wheels.^000000";
1160	close;
1161	}
1162	mes "^3355FFYou find a mechanical";
1163	mes "device that has many";
1164	mes "wheels. A black screen";
1165	mes "is mounted on the side";
1166	mes "of the machine.^000000";
1167	next;
1168	switch( select( "Investigate","Cancel" ) )
1169	{
1170	case 1:
1171	if((countitem(7421)) \|\| (countitem(7422)) \|\| (countitem(7423)))
1172	{
1173	mes "^3355FFAs you scrutinize the";
1174	mes "wheels, they respond to";
1175	mes "the key in your inventory by";
1176	mes "emitting light and strange";
1177	mes "noises. After a while, they";
1178	mes "stop and become silent.^000000";
1179	next;
1180	switch( select( "Investigate the Machine Chasis","Investigate the Wheels","Cancel" ) )
1181	{
1182	case 1:
1183	mes "^3355FFThe key in your inventory";
1184	mes "does not seem to be affecting";
1185	mes "the machine's chasis. The";
1186	mes "screen mounted on the side";
1187	mes "is still blank and deactivated.^000000";
1188	close;
1189
1190	case 2:
1191	set @thana_small1,0;
1192	set @thana_small2,0;
1193	set @thana_big1,0;
1194	set @thana_big2,0;
1195	set @thana_big3,0;
1196	mes "^3355FFYou touch the wheels and";
1197	mes "find that they are actually";
1198	mes "moving very slowly. You note";
1199	mes "that there are 2 small wheels";
1200	mes "and 3 larger wheels, totaling";
1201	mes "5 wheels on this machine.^000000";
1202	next;
1203	mes "^3355FFThe big wheels are moving";
1204	mes "vertically, up and down, as";
1205	mes "they press against the smaller";
1206	mes "wheels to make them rotate.^000000";
1207	next;
1208	mes "^3355FFJudging from the machine's";
1209	mes "shaking and jittery joises, the";
1210	mes "wheels may be misaligned.";
1211	mes "You might be able to activate";
1212	mes "the machine by properly";
1213	mes "aligning all the wheels.^000000";
1214	L_Wheels:
1215	next;
1216	mes "^3355FFWhich wheel would";
1217	mes "you want to shift?^000000";
1218	switch( select( "1st Small Wheel","2nd Small Wheel","1st Big Wheel","2nd Big Wheel","3rd Big Wheel","Check Current Wheel Configuration","Reset Wheels to Default Configuration" ) )
1219	{
1220	case 1:
1221	set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small1,2,1,3);
1222	if(@wheelresult == 1) break;
1223	goto L_Wheels;
1224
1225	case 2:
1226	set @wheelresult,callfunc("Thana_Wheels","Press Wheel",@thana_small2,3,2,1);
1227	if(@wheelresult == 1) break;
1228	goto L_Wheels;
1229
1230	case 3:
1231	set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big1,1,3,2);
1232	if(@wheelresult == 1) break;
1233	goto L_Wheels;
1234
1235	case 4:
1236	set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big2,2,3,1);
1237	if(@wheelresult == 1) break;
1238	goto L_Wheels;
1239
1240	case 5:
1241	set @wheelresult,callfunc("Thana_Wheels","Vertically Shift Wheel",@thana_big3,2,1,3);
1242	if(@wheelresult == 1) break;
1243	goto L_Wheels;
1244
1245	case 6:
1246	if(@thana_small1 == 0) mes "1st Small Wheel: No Change";
1247	else if(@thana_small1 == 1) mes "1st Small Wheel: Down";
1248	else if(@thana_small1 == 2) mes "1st Small Wheel: Up";
1249	else if(@thana_small1 == 3) mes "1st Small Wheel: Pressed";
1250	if(@thana_small2 == 0) mes "2nd Small Wheel: No Change";
1251	else if(@thana_small2 == 1) mes "2nd Small Wheel: Pressed";
1252	else if(@thana_small2 == 2) mes "2nd Small Wheel: Down";
1253	else if(@thana_small2 == 3) mes "2nd Small Wheel: Up";
1254	if(@thana_big1 == 0) mes "1st Big Wheel: No Change";
1255	else if(@thana_big1 == 1) mes "1st Big Wheel: Up";
1256	else if(@thana_big1 == 2) mes "1st Big Wheel: Moved";
1257	else if(@thana_big1 == 3) mes "1st Big Wheel: Down";
1258	if(@thana_big2 == 0) mes "2nd Big Wheel: No Change";
1259	else if(@thana_big2 == 1) mes "2nd Big Wheel: Moved";
1260	else if(@thana_big2 == 2) mes "2nd Big Wheel: Up";
1261	else if(@thana_big2 == 3) mes "2nd Big Wheel: Down";
1262	if(@thana_big3 == 0) mes "3rd Big Wheel: No Change";
1263	else if(@thana_big3 == 1) mes "3rd Big Wheel: Down";
1264	else if(@thana_big3 == 2) mes "3rd Big Wheel: Up";
1265	else if(@thana_big3 == 3) mes "3rd Big Wheel: Moved";
1266	goto L_Wheels;
1267
1268	case 7:
1269	set @thana_small1,0;
1270	set @thana_small2,0;
1271	set @thana_big1,0;
1272	set @thana_big2,0;
1273	set @thana_big3,0;
1274	goto L_Wheels;
1275	}
1276	next;
1277	mes "^3355FFAs you adjust the wheels,";
1278	mes "they suddenly immobilize with";
1279	mes "a firm click. Then, the device's screen activates and displays";
1280	mes "some text while a storage";
1281	mes "compartment underneath";
1282	mes "the monitor slides open.^000000";
1283	next;
1284	switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
1285	{
1286	case 1:
1287	mes "[Log Entry]";
1288	mes "^426F42It was never the humans";
1289	mes "or the gods that built this";
1290	mes "tower: it was the demons.";
1291	mes "Intrigued by this information,";
1292	mes "I decided to try to learn why they had constructed Thanatos Tower.^000000";
1293	next;
1294	mes "[Log Entry]";
1295	mes "^426F42In my research, I learned";
1296	mes "that this tower was used as a";
1297	mes "gate to summon demons from hell during the thousand year war,";
1298	mes "and that the infamous Satan Morroc was one of those summoned here.^000000";
1299	next;
1300	mes "[Log Entry]";
1301	mes "^426F42Satan Morroc... I admit";
1302	mes "that I'm interested in learning";
1303	mes "more about his appearance since";
1304	mes "that occurred at around the same time as when she came to";
1305	mes "Thanatos Tower...^000000";
1306	next;
1307	mes "^3355FFYou've finished";
1308	mes "reading the text";
1309	mes "that was displayed";
1310	mes "on the screen.^000000";
1311	close;
1312
1313	case 2:
1314	mes "^3355FFInside the monitor";
1315	mes "storage compartment,";
1316	mes "you find a small, shining";
1317	mes "key that you decide to take.^000000";
1318	getitem 7424,1;
1319	close;
1320
1321	case 3:
1322	break;
1323	}
1324	break;
1325
1326	case 3:
1327	break;
1328	}
1329	}
1330	else
1331	{
1332	mes "^3355FFThis mechanical device is";
1333	mes "activated, as evidenced by";
1334	mes "its gleaming, moving wheels.^000000";
1335	close;
1336	}
1337
1338	case 2:
1339	mes "^3355FFYou don't see the need to";
1340	mes "investigate if nothing seems";
1341	mes "peculiar or out of place...^000000";
1342	close;
1343	}
1344
1345	}
1346
1347	function script Thana_Wheels {
1348
1349	switch( select( "Raise Wheel","Lower Wheel",getarg(0) ) )
1350	{
1351	case 1:
1352	set getarg(1),getarg(2);
1353	if((@thana_small1 == getarg(2)) && (@thana_small2 == getarg(2)) && (@thana_big1 == getarg(2)) && (@thana_big2 == getarg(2)) && (@thana_big3 == getarg(2))) return 1;
1354	return 0;
1355
1356	case 2:
1357	set getarg(1),getarg(3);
1358	if((@thana_small1 == getarg(3)) && (@thana_small2 == getarg(3)) && (@thana_big1 == getarg(3)) && (@thana_big2 == getarg(3)) && (@thana_big3 == getarg(3))) return 1;
1359	return 0;
1360
1361	case 3:
1362	set getarg(1),getarg(4);
1363	if((@thana_small1 == getarg(4)) && (@thana_small2 == getarg(4)) && (@thana_big1 == getarg(4)) && (@thana_big2 == getarg(4)) && (@thana_big3 == getarg(4))) return 1;
1364	return 0;
1365	}
1366	}
1367
1368	tha_t09,19,158,0 script Machine Device 111,{
1369
1370	if((countitem(7425)) \|\| (countitem(7430)))
1371	{
1372	mes "^3355FFYou find a peculiar";
1373	mes "mechanical device that";
1374	mes "is not in operation.^000000";
1375	close;
1376	}
1377	mes "^3355FFYou find a machine that";
1378	mes "emits a soft light and weak";
1379	mes "hum. There is a monitor, with";
1380	mes "several different colored";
1381	mes "keyholes beneath it, in";
1382	mes "front of the machine.^000000";
1383	if(!((countitem(7421)) \|\| (countitem(7426))) && ((countitem(7422)) \|\| (countitem(7427))) && ((countitem(7423)) \|\| (countitem(7428))) && ((countitem(7424)) \|\| (countitem(7429)))) close;
1384	next;
1385	mes "^3355FFYou also notice that there";
1386	mes "are several slots that seem";
1387	mes "to be the perfect size for";
1388	mes "your keys and Charm Stones.";
1389	next;
1390	input @input$;
1391	if (@input$ == "Key" \|\| @input$ == "Charmstone" \|\| @input$ == "Charm stone" \|\| @input$ == "Charm Stone")
1392	{
1393	mes "^3355FFYou insert the keys into the";
1394	mes "keyholes, matching them by";
1395	mes "corresponding color, and place";
1396	mes "the Charm Stones in the machine slots. The stones begin to glow,";
1397	mes "text appears on the screen, and the monitor's storage slides open.^000000";
1398	next;
1399	switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
1400	{
1401	case 1:
1402	mes "[Log Entry]";
1403	mes "^426F42As I followed her trail to";
1404	mes "the north, I passed many";
1405	mes "deserted places. Finally,";
1406	mes "I dropped by a small village";
1407	mes "where I learned about a tower";
1408	mes "that refuses entry to humans.^000000";
1409	next;
1410	mes "[Log Entry]";
1411	mes "^426F42I instantly realized that she";
1412	mes "must have gone to the tower.";
1413	mes "I headed over there and when";
1414	mes "I arrived, I was shocked: it was grotesque and didn't resemble";
1415	mes "a human building at all.^000000";
1416	next;
1417	mes "^426F42I was also amazed--";
1418	mes "advanced technology was";
1419	mes "probably necessary to build the tower's intricate structures.";
1420	mes "I then learned an interesting fact while searching the tower...^000000";
1421	next;
1422	mes "^3355FFYou've finished";
1423	mes "reading the text";
1424	mes "that was displayed";
1425	mes "on the screen.^000000";
1426	close;
1427
1428	case 2:
1429	mes "^3355FFYou search the storage";
1430	mes "compartment beneath the";
1431	mes "screen and find a strange";
1432	mes "key. As soon as you take it,";
1433	mes "the machine's activity halts.";
1434	mes "You then retrieve the Charm";
1435	mes "Stones and your other keys.^000000";
1436	getitem 7425,1;
1437	close;
1438
1439	case 3:
1440	mes "^3355FFYou retrieve the Charm";
1441	mes "Stones and keys that you";
1442	mes "inserted into the machine.^000000";
1443	close;
1444	}
1445	}
1446	mes "You attempt to";
1447	mes ""+@input$+",";
1448	mes "but nothing happened.";
1449	close;
1450	}
1451
1452	tha_t04,150,44,0 script Seal#thana1 111,{
1453
1454	if(!countitem(7423))
1455	{
1456	mes "^3355FFThis area is protected by";
1457	mes "some mysterious power.";
1458	mes "You try to touch the seal,";
1459	mes "but then it buzzes loudly";
1460	mes "and pushes your hand away.^000000";
1461	percentheal -10,0;
1462	close;
1463	}
1464	mes "^3355FFThis area is protected by";
1465	mes "some mysterious power.";
1466	mes "You try to touch the seal,";
1467	mes "but then it buzzes loudly";
1468	mes "and pushes your hand away.";
1469	mes "with a burst of blue light.^000000";
1470	next;
1471	switch( select( "Investigate","There's no way I can break this seal!" ) )
1472	{
1473	case 1:
1474	input @input$;
1475	if (@input$ == "Blue Key")
1476	{
1477	mes "^3355FFYou gently hold the blue";
1478	mes "key and bring it towards";
1479	mes "the seal. Strangely, your";
1480	mes "hand isn't pushed away this";
1481	mes "time, and the seal begins to";
1482	mes "emit a mysterious light.^000000";
1483	next;
1484	mes "^3355FFYou find a small keyhole";
1485	mes "in the seal, insert the blue";
1486	mes "key, and slowly turn it. The";
1487	mes "seal's light fades, revealing a";
1488	mes "Charm Stone. Once you grasp";
1489	mes "the stone, someone's memory";
1490	mes "is injected into your mind.^000000";
1491	next;
1492	mes "^333333Thanatos! We've got a";
1493	mes "message from the guild.";
1494	mes "They want us to stop what";
1495	mes "we're doing and return now!^000000";
1496	mes " ";
1497	mes "^333333W-We better hurry...^000000";
1498	next;
1499	mes "......";
1500	mes ".........";
1501	mes "............";
1502	next;
1503	mes "^3355FFThe images faded from";
1504	mes "your mind as quickly as";
1505	mes "they appeared. What could";
1506	mes "have happened in the past?^000000";
1507	delitem 7423,1;
1508	getitem 7428,1;
1509	close;
1510	}
1511	mes "^3355FFYou'll need to try";
1512	mes "something else in ";
1513	mes "order to break this";
1514	mes "seal. What could";
1515	mes "you possibly need?^000000";
1516	close;
1517
1518	case 2:
1519	mes "^3355FFYou stepped away from";
1520	mes "the seal, unwilling to deal";
1521	mes "with the power that keeps";
1522	mes "repulsing your advance.^000000";
1523	close;
1524	}
1525	}
1526
1527	tha_t05,218,116,0 script Seal#thana2 111,{
1528
1529	if(!countitem(7421))
1530	{
1531	mes "^3355FFThis area is protected by";
1532	mes "some mysterious power.";
1533	mes "You try to touch the seal,";
1534	mes "but then it buzzes loudly";
1535	mes "and pushes your hand away.^000000";
1536	percentheal -10,0;
1537	close;
1538	}
1539	mes "^3355FFThis area is protected by";
1540	mes "some mysterious power.";
1541	mes "You try to touch the seal,";
1542	mes "but then it buzzes loudly";
1543	mes "and pushes your hand away.";
1544	mes "with a burst of red light.^000000";
1545	next;
1546	switch( select( "Investigate","There's no way I can break this seal!" ) )
1547	{
1548	case 1:
1549	input @input$;
1550	if (@input$ == "Red Key")
1551	{
1552	mes "^3355FFYou gently hold the red";
1553	mes "key and bring it towards";
1554	mes "the seal. Strangely, your";
1555	mes "hand isn't pushed away this";
1556	mes "time, and the seal begins to";
1557	mes "emit a mysterious light.^000000";
1558	next;
1559	mes "^3355FFYou find a small keyhole";
1560	mes "in the seal, insert the red";
1561	mes "key, and slowly turn it. The";
1562	mes "seal's light fades, revealing a";
1563	mes "Charm Stone. Once you grasp";
1564	mes "the stone, someone's memory";
1565	mes "is injected into your mind.^000000";
1566	next;
1567	mes "...So then we decided";
1568	mes "to dispatch some Assassin";
1569	mes "Crosses to defeat Satan Morroc.";
1570	mes "But honestly, the chances of ";
1571	mes "success are about 1 percent.";
1572	mes "It's better than nothing, but... It's freakin' Satan Morroc...^000000";
1573	next;
1574	mes "......";
1575	mes ".........";
1576	mes "............";
1577	next;
1578	mes "^3355FFThe images faded from";
1579	mes "your mind as quickly as";
1580	mes "they appeared. What could";
1581	mes "have happened in the past?^000000";
1582	delitem 7421,1;
1583	getitem 7426,1;
1584	close;
1585	}
1586	mes "^3355FFYou'll need to try";
1587	mes "something else in ";
1588	mes "order to break this";
1589	mes "seal. What could";
1590	mes "you possibly need?^000000";
1591	close;
1592
1593	case 2:
1594	mes "^3355FFYou stepped away from";
1595	mes "the seal, unwilling to deal";
1596	mes "with the power that keeps";
1597	mes "repulsing your advance.^000000";
1598	close;
1599	}
1600	}
1601
1602	tha_t06,226,230,0 script Seal#thana3 111,{
1603
1604	if(!countitem(7425))
1605	{
1606	mes "^3355FFThis area is protected by";
1607	mes "some mysterious power.";
1608	mes "You try to touch the seal,";
1609	mes "but then it buzzes loudly";
1610	mes "and pushes your hand away.^000000";
1611	percentheal -10,0;
1612	close;
1613	}
1614	mes "^3355FFThis area is protected by";
1615	mes "some mysterious power.";
1616	mes "You try to touch the seal,";
1617	mes "but then it buzzes loudly";
1618	mes "and pushes your hand away.";
1619	mes "with a burst of black light.^000000";
1620	next;
1621	switch( select( "Investigate","There's no way I can break this seal!" ) )
1622	{
1623	case 1:
1624	input @input$;
1625	if (@input$ == "Black Key")
1626	{
1627	mes "^3355FFYou gently hold the black";
1628	mes "key and bring it towards";
1629	mes "the seal. Strangely, your";
1630	mes "hand isn't pushed away this";
1631	mes "time, and the seal begins to";
1632	mes "emit a mysterious light.^000000";
1633	next;
1634	mes "^3355FFYou find a small keyhole";
1635	mes "in the seal, insert the black";
1636	mes "key, and slowly turn it. The";
1637	mes "seal's light fades, revealing a";
1638	mes "Charm Stone. Once you grasp";
1639	mes "the stone, someone's memory";
1640	mes "is injected into your mind.^000000";
1641	next;
1642	mes "^333333We found it! So this";
1643	mes "must be the tower where";
1644	mes "Satan Morroc is gathering";
1645	mes "his minions... Dear God,";
1646	mes "there's... There's thousands";
1647	mes "of them... Is there any hope";
1648	mes "at all for us? For mankind?^000000";
1649	next;
1650	mes "......";
1651	mes ".........";
1652	mes "............";
1653	next;
1654	mes "^3355FFThe images faded from";
1655	mes "your mind as quickly as";
1656	mes "they appeared. What could";
1657	mes "have happened in the past?^000000";
1658	delitem 7425,1;
1659	getitem 7430,1;
1660	close;
1661	}
1662	mes "^3355FFYou'll need to try";
1663	mes "something else in ";
1664	mes "order to break this";
1665	mes "seal. What could";
1666	mes "you possibly need?^000000";
1667	close;
1668
1669	case 2:
1670	mes "^3355FFYou stepped away from";
1671	mes "the seal, unwilling to deal";
1672	mes "with the power that keeps";
1673	mes "repulsing your advance.^000000";
1674	close;
1675	}
1676	}
1677
1678	tha_t07,113,129,0 script Seal#thana4 111,{
1679
1680	if(!countitem(7422))
1681	{
1682	mes "^3355FFThis area is protected by";
1683	mes "some mysterious power.";
1684	mes "You try to touch the seal,";
1685	mes "but then it buzzes loudly";
1686	mes "and pushes your hand away.^000000";
1687	percentheal -10,0;
1688	close;
1689	}
1690	mes "^3355FFThis area is protected by";
1691	mes "some mysterious power.";
1692	mes "You try to touch the seal,";
1693	mes "but then it buzzes loudly";
1694	mes "and pushes your hand away.";
1695	mes "with a burst of yellow light.^000000";
1696	next;
1697	switch( select( "Investigate","There's no way I can break this seal!" ) )
1698	{
1699	case 1:
1700	input @input$;
1701	if (@input$ == "Yellow Key")
1702	{
1703	mes "^3355FFYou gently hold the yellow";
1704	mes "key and bring it towards";
1705	mes "the seal. Strangely, your";
1706	mes "hand isn't pushed away this";
1707	mes "time, and the seal begins to";
1708	mes "emit a mysterious light.^000000";
1709	next;
1710	mes "^3355FFYou find a small keyhole";
1711	mes "in the seal, insert the yellow";
1712	mes "key, and slowly turn it. The";
1713	mes "seal's light fades, revealing a";
1714	mes "Charm Stone. Once you grasp";
1715	mes "the stone, someone's memory";
1716	mes "is injected into your mind.^000000";
1717	next;
1718	mes "^333333Hi, I'm Lucil. Sorry,";
1719	mes "I'm late, but I was far ";
1720	mes "away on another mission...^000000";
1721	mes " ";
1722	mes "^333333I am Thanatos...^000000";
1723	next;
1724	mes "^333333Why does she make me";
1725	mes "feel so strange inside?";
1726	mes "I feel everything I was";
1727	mes "missing before, all the";
1728	mes "things I want and want";
1729	mes "to be, she brings, she";
1730	mes "completes. How... funny...^000000";
1731	mes "'She make me feel strange...as if I found my lost half...'";
1732	next;
1733	mes "......";
1734	mes ".........";
1735	mes "............";
1736	next;
1737	mes "^3355FFThe images faded from";
1738	mes "your mind as quickly as";
1739	mes "they appeared. What could";
1740	mes "have happened in the past?^000000";
1741	delitem 7422,1;
1742	getitem 7427,1;
1743	close;
1744	}
1745	mes "^3355FFYou'll need to try";
1746	mes "something else in ";
1747	mes "order to break this";
1748	mes "seal. What could";
1749	mes "you possibly need?^000000";
1750	close;
1751
1752	case 2:
1753	mes "^3355FFYou stepped away from";
1754	mes "the seal, unwilling to deal";
1755	mes "with the power that keeps";
1756	mes "repulsing your advance.^000000";
1757	close;
1758	}
1759	}
1760
1761	tha_t10,129,159,0 script Seal 111,{
1762
1763	if(!countitem(7424))
1764	{
1765	mes "^3355FFThis area is protected by";
1766	mes "some mysterious power.";
1767	mes "You try to touch the seal,";
1768	mes "but then it buzzes loudly";
1769	mes "and pushes your hand away.^000000";
1770	percentheal -10,0;
1771	close;
1772	}
1773	mes "^3355FFThis area is protected by";
1774	mes "some mysterious power.";
1775	mes "You try to touch the seal,";
1776	mes "but then it buzzes loudly";
1777	mes "and pushes your hand away.";
1778	mes "with a burst of green light.^000000";
1779	next;
1780	switch( select( "Investigate","There's no way I can break this seal!" ) )
1781	{
1782	case 1:
1783	input @input$;
1784	if (@input$ == "Green Key")
1785	{
1786	mes "^3355FFYou gently hold the green";
1787	mes "key and bring it towards";
1788	mes "the seal. Strangely, your";
1789	mes "hand isn't pushed away this";
1790	mes "time, and the seal begins to";
1791	mes "emit a mysterious light.^000000";
1792	next;
1793	mes "^3355FFYou find a small keyhole";
1794	mes "in the seal, insert the green";
1795	mes "key, and slowly turn it. The";
1796	mes "seal's light fades, revealing a";
1797	mes "Charm Stone. Once you grasp";
1798	mes "the stone, someone's memory";
1799	mes "is injected into your mind.^000000";
1800	next;
1801	mes "^333333This battle will determine";
1802	mes "the fate of mankind. We must";
1803	mes "defeat Satan Morroc. There is";
1804	mes "no alternative. Who's with me?! ";
1805	mes "^333333Cough Cough The demon";
1806	mes "is too strong! We c-can't...^000000";
1807	next;
1808	mes "^333333Foolish weakling humans.";
1809	mes "You should have known better.";
1810	mes "...This cannot be! Isn't this--? ";
1811	mes "^333333GGGRRRRAH! H-HOW DARE YOU";
1812	mes "HUMANS! HOW DARE YOOOOOOOU....! ";
1813	next;
1814	mes "......";
1815	mes ".........";
1816	mes "............";
1817	next;
1818	mes "^3355FFThe images faded from";
1819	mes "your mind as quickly as";
1820	mes "they appeared. What could";
1821	mes "have happened in the past?^000000";
1822	delitem 7424,1;
1823	getitem 7429,1;
1824	close;
1825	}
1826	mes "^3355FFYou'll need to try";
1827	mes "something else in ";
1828	mes "order to break this";
1829	mes "seal. What could";
1830	mes "you possibly need?^000000";
1831	close;
1832
1833	case 2:
1834	mes "^3355FFYou stepped away from";
1835	mes "the seal, unwilling to deal";
1836	mes "with the power that keeps";
1837	mes "repulsing your advance.^000000";
1838	close;
1839	}
1840	}
1841
1842	tha_t12,96,58,0 script Stone Statue#thana1 111,{
1843
1844	if(!$@thana_summon)
1845	{
1846	mes "^3355FFYou've found a ";
1847	mes "stone statue with";
1848	mes "a conspicuous hole";
1849	mes "in the chest area.^000000";
1850	if((countitem(7426)) && (countitem(7427)) && (countitem(7428)) && (countitem(7429)) && (countitem(7430)))
1851	{
1852	next;
1853	mes "^3355FFAs you approach the statue,";
1854	mes "your Red Charm Stone and";
1855	mes "the statue begin to glow with";
1856	mes "a glimmering red light.^000000";
1857	next;
1858	switch( select( "Insert Charm Stone into Statue","Cancel" ) )
1859	{
1860	case 1:
1861	mes "^3355FFOnce you insert the";
1862	mes "Red Charm Stone, the";
1863	mes "statue glows even brighter";
1864	mes "with a mysterious light.^000000";
1865	delitem 7426,1;
1866	specialeffect 55;
1867	enablenpc "tteffect2";
1868	donpcevent "tteffect2::OnGlow";
1869	set $@thana_summon,1;
1870	close;
1871
1872	case 2:
1873	mes "^3355FFYou decided not to";
1874	mes "insert the Charm Stone,";
1875	mes "opting to investigate this";
1876	mes "area a little further.^000000";
1877	close;
1878	}
1879	}
1880	else if((countitem(7426)) \|\| (countitem(7427)) \|\| (countitem(7428)) \|\| (countitem(7429)) \|\| (countitem(7430)))
1881	{
1882	next;
1883	mes "^3355FFAs you approach this statue, one of your Charm Stones begins to";
1884	mes "glow. However, the statue itself is not responding. You probably";
1885	mes "need all the Charm Stones in";
1886	mes "order to fully activate it.^000000";
1887	close;
1888	}
1889	else close;
1890	}
1891	else if($@thana_summon == 6)
1892	{
1893	mes "^3355FFThe statue is emanating an";
1894	mes "intense light, making it so hot";
1895	mes "that you cannot approach it.^000000";
1896	close;
1897	}
1898	else
1899	{
1900	mes "^3355FFThis statue is glowing";
1901	mes "with a mysterious light.";
1902	mes "Some strange force keeps";
1903	mes "you from approaching it.^000000";
1904	close;
1905	}
1906	}
1907
1908	tha_t12,104,18,0 script Stone Statue#thana2 111,{
1909
1910	if($@thana_summon == 2)
1911	{
1912	mes "^3355FFYou've found a ";
1913	mes "stone statue with";
1914	mes "a conspicuous hole";
1915	mes "in the chest area.^000000";
1916	if(countitem(7428))
1917	{
1918	next;
1919	mes "^3355FFAs you approach the statue,";
1920	mes "your Blue Charm Stone begins";
1921	mes "to glow with a glimmering blue";
1922	mes "light, and the statue responds";
1923	mes "by shimmering with a red glow.^000000";
1924	next;
1925	switch( select( "Insert Charm Stone into Statue","Cancel" ) )
1926	{
1927	case 1:
1928	mes "^3355FFOnce you insert the";
1929	mes "Blue Charm Stone, the";
1930	mes "statue glows even brighter";
1931	mes "with a mysterious light.^000000";
1932	delitem 7428,1;
1933	specialeffect 55;
1934	enablenpc "tteffect5";
1935	donpcevent "tteffect5::OnGlow";
1936	set $@thana_summon,3;
1937	close;
1938
1939	case 2:
1940	mes "^3355FFYou decided not to";
1941	mes "insert the Charm Stone,";
1942	mes "opting to investigate this";
1943	mes "area a little further.^000000";
1944	close;
1945	}
1946	}
1947	close;
1948	}
1949	else if($@thana_summon == 6)
1950	{
1951	mes "^3355FFThe statue is emanating an";
1952	mes "intense light, making it so hot";
1953	mes "that you cannot approach it.^000000";
1954	close;
1955	}
1956	else
1957	{
1958	mes "^3355FFThis statue is glowing";
1959	mes "with a mysterious light.";
1960	mes "Some strange force keeps";
1961	mes "you from approaching it.^000000";
1962	close;
1963	}
1964	}
1965
1966	tha_t12,128,86,0 script Stone Statue#thana3 111,{
1967
1968	if($@thana_summon == 3)
1969	{
1970	mes "^3355FFYou've found a ";
1971	mes "stone statue with";
1972	mes "a conspicuous hole";
1973	mes "in the chest area.^000000";
1974	if(countitem(7430))
1975	{
1976	next;
1977	mes "^3355FFAs you approach the statue,";
1978	mes "your Black Charm Stone begins";
1979	mes "to emanate an eerie darkness.";
1980	mes "In response, the statue starts glowing with a sinister red light.^000000";
1981	next;
1982	switch( select( "Insert Charm Stone into Statue","Cancel" ) )
1983	{
1984	case 1:
1985	mes "^3355FFOnce you insert the";
1986	mes "Black Charm Stone, the";
1987	mes "statue glows even brighter";
1988	mes "with a mysterious light.^000000";
1989	delitem 7430,1;
1990	specialeffect 59;
1991	enablenpc "tteffect1";
1992	donpcevent "tteffect1::OnGlow";
1993	set $@thana_summon,4;
1994	close;
1995
1996	case 2:
1997	mes "^3355FFYou decided not to";
1998	mes "insert the Charm Stone,";
1999	mes "opting to investigate this";
2000	mes "area a little further.^000000";
2001	close;
2002	}
2003	}
2004	close;
2005	}
2006	else if($@thana_summon == 6)
2007	{
2008	mes "^3355FFThe statue is emanating an";
2009	mes "intense light, making it so hot";
2010	mes "that you cannot approach it.^000000";
2011	close;
2012	}
2013	else
2014	{
2015	mes "^3355FFThis statue is glowing";
2016	mes "with a mysterious light.";
2017	mes "Some strange force keeps";
2018	mes "you from approaching it.^000000";
2019	close;
2020	}
2021	}
2022
2023	tha_t12,161,58,0 script Stone Statue#thana4 111,{
2024
2025	if($@thana_summon == 1)
2026	{
2027	mes "^3355FFYou've found a ";
2028	mes "stone statue with";
2029	mes "a conspicuous hole";
2030	mes "in the chest area.^000000";
2031	if(countitem(7427))
2032	{
2033	next;
2034	mes "^3355FFAs you approach the statue,";
2035	mes "your Yellow Charm Stone";
2036	mes "starts shining a bright yellow";
2037	mes "light, and the statue emits";
2038	mes "a glimmering red glow.^000000";
2039	next;
2040	switch( select( "Insert Charm Stone into Statue","Cancel" ) )
2041	{
2042	case 1:
2043	mes "^3355FFOnce you insert the";
2044	mes "Yellow Charm Stone, the";
2045	mes "statue glows even brighter";
2046	mes "with a mysterious light.^000000";
2047	delitem 7427,1;
2048	specialeffect 57;
2049	enablenpc "tteffect3";
2050	donpcevent "tteffect3::OnGlow";
2051	set $@thana_summon,2;
2052	close;
2053
2054	case 2:
2055	mes "^3355FFYou decided not to";
2056	mes "insert the Charm Stone,";
2057	mes "opting to investigate this";
2058	mes "area a little further.^000000";
2059	close;
2060	}
2061	}
2062	close;
2063	}
2064	else if($@thana_summon == 6)
2065	{
2066	mes "^3355FFThe statue is emanating an";
2067	mes "intense light, making it so hot";
2068	mes "that you cannot approach it.^000000";
2069	close;
2070	}
2071	else
2072	{
2073	mes "^3355FFThis statue is glowing";
2074	mes "with a mysterious light.";
2075	mes "Some strange force keeps";
2076	mes "you from approaching it.^000000";
2077	close;
2078	}
2079	}
2080
2081	tha_t12,154,18,0 script Stone Statue#thana5 111,{
2082
2083	if($@thana_summon == 4)
2084	{
2085	mes "^3355FFYou've found a ";
2086	mes "stone statue with";
2087	mes "a conspicuous hole";
2088	mes "in the chest area.^000000";
2089	if(countitem(7429))
2090	{
2091	next;
2092	mes "^3355FFAs you approach the statue,";
2093	mes "your Green Charm Stone begins";
2094	mes "radiating soft green light, and";
2095	mes "and the statue starts to shine";
2096	mes "with a bright red glow.^000000";
2097	next;
2098	switch( select( "Insert Charm Stone into Statue","Cancel" ) )
2099	{
2100	case 1:
2101	mes "^3355FFOnce you insert the";
2102	mes "Green Charm Stone, the";
2103	mes "statue glows even brighter";
2104	mes "with a mysterious light.^000000";
2105	specialeffect 56;
2106	enablenpc "tteffect4";
2107	donpcevent "tteffect4::OnGlow";
2108	delitem 7429,1;
2109	next;
2110	mes "^3355FFThe crest on the ground";
2111	mes "surrounded by the five";
2112	mes "glowing statues has now";
2113	mes "activated, and is emitting";
2114	mes "a fearsome, powerful energy.^000000";
2115	set $@thana_summon,5;
2116	set $@thana_summon2,0;
2117	enablenpc "WarpThana";
2118	close;
2119
2120	case 2:
2121	mes "^3355FFYou decided not to";
2122	mes "insert the Charm Stone,";
2123	mes "opting to investigate this";
2124	mes "area a little further.^000000";
2125	close;
2126	}
2127	}
2128	close;
2129	}
2130	else if($@thana_summon == 6)
2131	{
2132	mes "^3355FFThe statue is emanating an";
2133	mes "intense light, making it so hot";
2134	mes "that you cannot approach it.^000000";
2135	close;
2136	}
2137	else
2138	{
2139	mes "^3355FFThis statue is glowing";
2140	mes "with a mysterious light.";
2141	mes "Some strange force keeps";
2142	mes "you from approaching it.^000000";
2143	close;
2144	}
2145	}
2146
2147	tha_t12,129,56,0 script tteffect1 139,{
2148
2149	OnInit:
2150	disablenpc "tteffect1";
2151	end;
2152
2153	OnGlow:
2154	initnpctimer;
2155	end;
2156
2157	OnTimer500:
2158	OnTimer1000:
2159	OnTimer1500:
2160	OnTimer2000:
2161	OnTimer2500:
2162	specialeffect 59;
2163	end;
2164
2165	OnTimer3000:
2166	specialeffect 59;
2167	stopnpctimer;
2168	if($@thana_summon == 6) end;
2169	initnpctimer;
2170	end;
2171
2172	OnStop:
2173	stopnpctimer;
2174	end;
2175	}
2176
2177	tha_t12,125,52,0 script tteffect2 139,{
2178
2179	OnInit:
2180	disablenpc "tteffect2";
2181	end;
2182
2183	OnGlow:
2184	initnpctimer;
2185	end;
2186
2187	OnTimer500:
2188	OnTimer1000:
2189	OnTimer1500:
2190	OnTimer2000:
2191	OnTimer2500:
2192	specialeffect 55;
2193	end;
2194
2195	OnTimer3000:
2196	specialeffect 55;
2197	stopnpctimer;
2198	if($@thana_summon == 6) end;
2199	initnpctimer;
2200	end;
2201
2202	OnStop:
2203	stopnpctimer;
2204	end;
2205	}
2206
2207	tha_t12,134,52,0 script tteffect3 139,{
2208
2209	OnInit:
2210	disablenpc "tteffect3";
2211	end;
2212
2213	OnGlow:
2214	initnpctimer;
2215	end;
2216
2217	OnTimer500:
2218	OnTimer1000:
2219	OnTimer1500:
2220	OnTimer2000:
2221	OnTimer2500:
2222	specialeffect 57;
2223	end;
2224
2225	OnTimer3000:
2226	specialeffect 57;
2227	stopnpctimer;
2228	if($@thana_summon == 6) end;
2229	initnpctimer;
2230	end;
2231
2232	OnStop:
2233	stopnpctimer;
2234	end;
2235	}
2236
2237	tha_t12,132,47,0 script tteffect4 139,{
2238
2239	OnInit:
2240	disablenpc "tteffect4";
2241	end;
2242
2243	OnGlow:
2244	initnpctimer;
2245	end;
2246
2247	OnTimer500:
2248	OnTimer1000:
2249	OnTimer1500:
2250	OnTimer2000:
2251	OnTimer2500:
2252	specialeffect 56;
2253	end;
2254
2255	OnTimer3000:
2256	specialeffect 56;
2257	stopnpctimer;
2258	if($@thana_summon == 6) end;
2259	initnpctimer;
2260	end;
2261
2262	OnStop:
2263	stopnpctimer;
2264	end;
2265	}
2266
2267	tha_t12,127,47,0 script tteffect5 139,{
2268
2269	OnInit:
2270	disablenpc "tteffect5";
2271	end;
2272
2273	OnGlow:
2274	initnpctimer;
2275	end;
2276
2277	OnTimer500:
2278	OnTimer1000:
2279	OnTimer1500:
2280	OnTimer2000:
2281	OnTimer2500:
2282	specialeffect 54;
2283	end;
2284
2285	OnTimer3000:
2286	specialeffect 54;
2287	stopnpctimer;
2288	if($@thana_summon == 6) end;
2289	initnpctimer;
2290	end;
2291
2292	OnStop:
2293	stopnpctimer;
2294	end;
2295	}
2296
2297	tha_t12,130,52,0 script WarpThana 45,1,1,{
2298
2299	OnInit:
2300	disablenpc "WarpThana";
2301	end;
2302
2303	OnTouch:
2304	if($@thana_summon == 5) warp "thana_boss",136,116;
2305	else
2306	{
2307	donpcevent "tteffect1::OnStop";
2308	donpcevent "tteffect2::OnStop";
2309	donpcevent "tteffect3::OnStop";
2310	donpcevent "tteffect4::OnStop";
2311	donpcevent "tteffect5::OnStop";
2312	disablenpc "WarpThana";
2313	end;
2314	}
2315	}
2316
2317	thana_boss,217,167,0 script Crest#1 111,3,3,{
2318
2319	end;
2320
2321	OnTouch:
2322	if($@thana_summon == 6)
2323	{
2324	mes "^3355FFYou cannot approach";
2325	mes "the crest because it is";
2326	mes "generating intense heat.^000000";
2327	close;
2328	}
2329	mes "^3355FFThere is a strangely";
2330	mes "shaped hole in the";
2331	mes "middle of this purple crest.^000000";
2332	if (countitem(7437))
2333	{
2334	mes "^3355FFIt seems like a Fragment";
2335	mes "of Sorrow would fit perfectly";
2336	mes "if you placed it inside.^000000";
2337	}
2338	next;
2339	input @input$;
2340	if(countitem(7437))
2341	{
2342	if(@input$ == "Fragment of Sorrow")
2343	{
2344	mes "^3355FFYou insert the";
2345	mes "Fragment of Sorrow";
2346	mes "into the crest, causing";
2347	mes "its glow to intensify.^000000";
2348	delitem 7437,1;
2349	monster "thana_boss",217,167,"Sorrow",1711,1,"#Death::OnDead";
2350	disablenpc "Crest#1";
2351	close;
2352	}
2353	}
2354	mes "^3355FFThat action had no";
2355	mes "effect. You'll have to";
2356	mes "try something else.^000000";
2357	close;
2358	}
2359
2360	thana_boss,202,75,0 script Crest#2 111,3,3,{
2361
2362	end;
2363
2364	OnTouch:
2365	if($@thana_summon == 6)
2366	{
2367	mes "^3355FFYou cannot approach";
2368	mes "the crest because it is";
2369	mes "generating intense heat.^000000";
2370	close;
2371	}
2372	mes "^3355FFThere is a strangely";
2373	mes "shaped hole in the";
2374	mes "middle of this green crest.^000000";
2375	if (countitem(7436))
2376	{
2377	mes "^3355FFIt seems like a Fragment";
2378	mes "of Agony would fit perfectly";
2379	mes "if you placed it inside.^000000";
2380	}
2381	next;
2382	input @input$;
2383	if(countitem(7436))
2384	{
2385	if(@input$ == "Fragment of Agony")
2386	{
2387	mes "^3355FFYou insert the";
2388	mes "Fragment of Agony";
2389	mes "into the crest, causing";
2390	mes "its glow to intensify.^000000";
2391	delitem 7436,1;
2392	monster "thana_boss",202,75,"Agony",1712,1,"#Death::OnDead";
2393	disablenpc "Crest#2";
2394	close;
2395	}
2396	}
2397	mes "^3355FFThat action had no";
2398	mes "effect. You'll have to";
2399	mes "try something else.^000000";
2400	close;
2401	}
2402
2403	thana_boss,80,76,0 script Crest#3 111,3,3,{
2404
2405	end;
2406
2407	OnTouch:
2408	if($@thana_summon == 6)
2409	{
2410	mes "^3355FFYou cannot approach";
2411	mes "the crest because it is";
2412	mes "generating intense heat.^000000";
2413	close;
2414	}
2415	mes "^3355FFThere is a strangely";
2416	mes "shaped hole in the";
2417	mes "middle of this blue crest.^000000";
2418	if (countitem(7438))
2419	{
2420	mes "^3355FFIt seems like a Fragment";
2421	mes "of Hatred would fit perfectly";
2422	mes "if you placed it inside.^000000";
2423	}
2424	next;
2425	input @input$;
2426	if(countitem(7438))
2427	{
2428	if(@input$ == "Fragment of Hatred")
2429	{
2430	mes "^3355FFYou insert the";
2431	mes "Fragment of Hatred";
2432	mes "into the crest, causing";
2433	mes "its glow to intensify.^000000";
2434	delitem 7438,1;
2435	monster "thana_boss",80,76,"Hatred",1709,1,"#Death::OnDead";
2436	disablenpc "Crest#3";
2437	close;
2438	}
2439	}
2440	mes "^3355FFThat action had no";
2441	mes "effect. You'll have to";
2442	mes "try something else.^000000";
2443	close;
2444	}
2445
2446	thana_boss,62,171,0 script Crest#4 111,3,3,{
2447
2448	end;
2449
2450	OnTouch:
2451	if($@thana_summon == 6)
2452	{
2453	mes "^3355FFYou cannot approach";
2454	mes "the crest because it is";
2455	mes "generating intense heat.^000000";
2456	close;
2457	}
2458	mes "^3355FFThere is a strangely";
2459	mes "shaped hole in the";
2460	mes "middle of this red crest.^000000";
2461	if (countitem(7439))
2462	{
2463	mes "^3355FFIt seems like a Fragment";
2464	mes "of Despair would fit perfectly";
2465	mes "if you placed it inside.^000000";
2466	}
2467	next;
2468	input @input$;
2469	if(countitem(7439))
2470	{
2471	if(@input$ == "Fragment of Despair")
2472	{
2473	mes "^3355FFYou insert the";
2474	mes "Fragment of Despair";
2475	mes "into the crest, causing";
2476	mes "its glow to intensify.^000000";
2477	delitem 7439,1;
2478	monster "thana_boss",62,171,"Despair",1710,1,"#Death::OnDead";
2479	disablenpc "Crest#4";
2480	close;
2481	}
2482	}
2483	mes "^3355FFThat action had no";
2484	mes "effect. You'll have to";
2485	mes "try something else.^000000";
2486	close;
2487	}
2488
2489	thana_boss,141,218,0 script Crest#5 111,3,3,{
2490
2491	end;
2492
2493	OnTouch:
2494	if($@thana_summon2 > 3)
2495	{
2496	mes "^3355FFAs you approach the";
2497	mes "crest, it begins shining";
2498	mes "brighter and brighter until its";
2499	mes "illumination becomes blinding.^000000";
2500	set $@thana_wave,4;
2501	monster "thana_boss",140,217,"Despair",1710,1,"#Death::OnWave";
2502	monster "thana_boss",140,216,"Hatred",1709,1,"#Death::OnWave";
2503	monster "thana_boss",141,217,"Sorrow",1711,1,"#Death::OnWave";
2504	monster "thana_boss",141,216,"Agony",1712,1,"#Death::OnWave";
2505	disablenpc "Crest#5";
2506	close;
2507	}
2508	input @input$;
2509	mes "^3355FFNothing happened.^000000";
2510	close;
2511	}
2512
2513	thana_boss,5,5,0 script #thanasummon -1,{
2514
2515	end;
2516
2517	OnSummon:
2518	monster "thana_boss",139,129,"Thanatos Phantom",1708,1,"#Death::OnThanaDead";
2519	end;
2520
2521	}
2522
2523	thana_boss,3,3,0 script #thanatimer -1,{
2524
2525	OnInit:
2526	set $@thana_summon,0;
2527	set $@thana_summon2,0;
2528	end;
2529
2530	OnActive:
2531	initnpctimer;
2532	end;
2533
2534	OnTimer1000:
2535	mapannounce "thana_boss","GGGGRRRRRRR!",1;
2536	end;
2537
2538	OnTimer2000:
2539	mapannounce "thana_boss","Rumble Rumble",1;
2540	end;
2541
2542	OnTimer3000:
2543	mapannounce "thana_boss","Crik Crik",1;
2544	end;
2545
2546	OnTimer4000:
2547	mapannounce "thana_boss","Zzzzrt Zzzzrt",1;
2548	end;
2549
2550	OnTimer5000:
2551	mapannounce "thana_boss","Crik Crik",1;
2552	end;
2553
2554	OnTimer60000:
2555	mapwarp "thana_boss","tha_t12",130,47;
2556	set $@thana_summon2,0;
2557	enablenpc "Crest#1";
2558	enablenpc "Crest#2";
2559	enablenpc "Crest#3";
2560	enablenpc "Crest#4";
2561	enablenpc "Crest#5";
2562	end;
2563
2564	OnTimer7200000:
2565	killmonsterall "thana_boss";
2566	set $@thana_summon,0;
2567	stopnpctimer;
2568	end;
2569	}
2570
2571	thana_boss,1,1,0 script #Death -1,{
2572
2573	OnDead:
2574	set $@thana_summon2,$@thana_summon2 +1;
2575	end;
2576
2577	OnWave:
2578	set $@thana_wave,$@thana_wave -1;
2579	if($@thana_wave < 1)
2580	{
2581	donpcevent "#thanasummon::OnSummon";
2582	}
2583	end;
2584
2585	OnThanaDead:
2586	donpcevent "#thanatimer::OnActive";
2587	set $@thana_summon,6;
2588	end;
2589	}
2590
2591	tha_t06,119,120,0 script thana6-7 45,1,1,{
2592
2593	if((Class == Job_Lord_Knight) \|\| (Class == Job_High_Priest) \|\| (Class == Job_High_Wizard) \|\| (Class == Job_Whitesmith) \|\| (Class == Job_Sniper) \|\| (Class == Job_Assassin_Cross) \|\| (Class == Job_High_Wizard) \|\| (Class == Job_Lord_Knight2) \|\| (Class == Job_Paladin) \|\| (Class == Job_Champion) \|\| (Class == Job_Professor) \|\| (Class == Job_Stalker) \|\| (Class == Job_Creator) \|\| (Class == Job_Clown) \|\| (Class == Job_Gypsy) \|\| (Class == Job_Paladin2)) warp "thana_step",69,369;
2594	else
2595	{
2596	mes "^3355FFAn overwhelming force";
2597	mes "acts against you, preventing";
2598	mes "you from proceeding this way...^000000";
2599	close;
2600	}
2601	}

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/quests/thana_quest.txt @ 3

Download in other formats: