Context Navigation

thana_quest.txt @ 1

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

Rev	Line
[1]	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 @ 1

Download in other formats: