//===== eAthena Script =======================================
//= Thanatos Tower Quest
//===== By: ==================================================
//= [Ishizu-chan]
//===== Current Version: =====================================
//= 2.0
//===== Compatible With: =====================================
//= Any eAthena Version i guess?
//===== Description: =========================================
//= It's the Thanatos Tower Quest...
//===== Additional Comments: =================================
//= 1.0 First Release [Ishizu-chan]
//= 1.1 Updated Thanatos Tower Quest to official. [SinSloth]
//= 1.2 Fixed a bug where Reward NPC didn't give you Zeny and Exp. [SinSloth]
//= 1.3 Added a checking in boss map to reset event if there's no player. [SinSloth]
//= 1.4 Changed the way the Thanatos Portal works to allow people to enter
//= as long as Thanatos is alive. [SinSloth]
//= 1.4a You may enter either "Charmstone" or "Charm Stone" [Lupus]
//= 1.5 Fixed a bug in the number part of the quest. [SinSloth]
//= 1.6 Fixed experience gains to match upcoming rate adjustments. [SinSloth]
//= 1.7 Fixed a minor bug with prevented code part from reseting properly. [SinSloth]
//= 1.8 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 1.9 Fixed a bug in the last event which allowed an exploit after the first summoning. [SinSloth]
//= 2.0 ֧3תְҵ [Inkfish]
//============================================================

hu_fild01,140,163,5	script	 Ա	852,3,3,{

	mes "[̩]";
	mes "";
	mes "Ǹ˴'˹ ̨'";
	mes "ĹԱ";
	mes "ҽ'̩ '";
	mes "Ҫæ?";
	next;
	switch( select( "Ǵ˹ ̨?","ҿԽ?","̨","" ) )
	{
		case 1:
			mes "[̩]";
			mes "ǵģ̨";
			mes "'˹ ̨' û,";
			mes "̨";
			mes "׸շ֮дģ";
			mes "ħＰ͸޹,";
			mes "ĿǰѳΪص";
			mes "۹ʤ";
			next;
			mes "[̩]";
			mes "̨ʱ,";
			mes "ԭһʯӡд˹";
			mes "֣ԾȡΪ";
			mes "˹ ̨";
			next;
			mes "[̩]";
			mes "֮иؽп";
			mes "ԭ̨ڵħУ";
			mes " 12¥ݵħ";
			mes "ϣѻȻһ³Ϊһ";
			mes "Կɰȫɽˮ׼";
			mes "ռ󿪷ŵ";
			next;
			mes "[̩]";
			mes "3¥ϵĿǰڿУ";
			mes "ļЭͬ";
			mes "ħ";
			mes "־ʿ";
			next;
			mes "[̩]";
			mes "Դڲ";
			mes "иϸ˵";
			next;
			mes "[̩]";
			mes "Ļ";
			mes "ѯڲ";
			mes "Ա";
			close;
			
		case 2:
			mes "[̩]";
			mes "ȻԽȥ";
			mes "ѿŸ";
			mes "һʿ";
			next;
			mes "[̩]";
			mes "ֻǿ12¥";
			mes "...";
			mes "֧һЩ볡ѣ";
			mes "е";
			mes "ֻҪһȥ棬";
			mes "֤е";
			next;
			mes "[̩]";
			mes "ÿ˵볡'5000'";
			mes "õĻӦ";
			mes "һЩۿŻݣ";
			mes "жЭǵ";
			mes "ʿ,Ҳͬ";
			mes "ۿŻ";
			close;
			
		case 3:
			mes "[̩]";
			mes "Ҫȥ?";
			mes "볡 ^FF00001 5000^000000";
			next;
			switch( select( "ȥ","һ" ) )
			{
				case 1:
					if (thana_quest)
					{
						mes "[̩]";
						mes " "+strcharinfo(0)+"/С,";
						mes "?";
						mes "ͬһ 3000";
						next;
						switch( select( "ȥ","һ" ) )
						{
							case 1:
								if (Zeny < 3000)
								{
									mes "[̩]";
									mes "...";
									mes "ЯĽҺ㣬";
									mes "һ ȥҺ";
									close;
								}
								mes "[̩]";
								mes "лл";
								mes "ô";
								set Zeny,Zeny - 3000;
								close2;
								warp "tha_scene01",131,220;
								end;
								
							case 2:
								mes "[̩]";
								mes "æ°";
								mes "ô´ݷð";
								close;
						}
					}
					if (Zeny < 5000)
					{
						mes "[̩]";
						mes "˶Բ𣬽";
						mes "أ";
						mes "ܱǸ";
						close;
					}
					mes "[̩]";
					mes "лл㣬";
					mes "ףиõĻ...";
					mes "ô...";
					set Zeny,Zeny - 5000;
					close2;
					warp "tha_scene01",131,220;
					end;
				
				case 2:
					mes "[̩]";
					mes "ô´ʹð";
					close;
			}
		
		case 4:
			mes "[̩]";
			mes "?";
			mes "˴ '˹ ̨'";
			mes "йصĻ";
			mes "Ұ";
			close;
	}

OnTouch:
	{
	mes "[Ա]";
	mes "....";
	mes "һ£";
	mes "'׸'Ͻ";
	mes "ƽ";
	close;
	}
}

tha_t01,149,78,4	script	Ա	90,{

	if(!thana_quest) {
		mes "[Ҳ]";
		mes "?";
		mes "ӭ㵽׸տ";
		mes "е '˹ ̨'";
		mes "Ҫæ?";
		next;
		switch( select( "ѯйش˹ ̨","˵ļ..","û" ) )
		{
			case 1:
				mes "[Ҳ]";
				mes " '˹ ̨'";
				mes "޷ȷе˵˭죬";
				mes "ԴʲôĽ";
				next;
				mes "[Ҳ]";
				mes "Դмٶ";
				mes "'1000ǰսʱ";
				mes "ħҪ'";
				mes "'ĳλħʦо";
				mes "ĳλӢɱħ";
				mes "Ϊ˼' ĵȵ...";
				next;
				mes "[Ҳ]";
				mes "ȷԴû֪";
				mes "Ȼ׸";
				mes "ʱ䲻ϵھ";
				mes "о,δܷ";
				mes "ȷеԴ";
				next;
				mes "[Ҳ]";
				mes "ټ̨ڲ";
				mes "Ϊڶħ";
				mes "ս";
				mes "˺ܶԱ";
				next;
				mes "[Ҳ]";
				mes "׸ȷ";
				mes "''˹ ̨'";
				mes "ܣԼ";
				mes "жܶ෢չ";
				mes "ݹؼĽɫ";
				mes "ðΣսھ";
				next;
				mes "[Ҳ]";
				mes "ȫ12¥֮У";
				mes "ɿ12¥";
				mes "Ŀǰ 34¥ڼӽ";
				mes "׷ӿ";
				next;
				mes "[Ҳ]";
				mes "ȻܵħȺǿ";
				mes "ֿ谭,Һ";
				mes "֧Ԯħ";
				mes "ɹ˶";
				next;
				mes "[Ҳ]";
				mes "ڵ";
				mes "34¥Ӧþܿ";
				next;
L_Ask1:
				switch( select( "ħ?","ħ?","........." ) )
				{
					case 1:
						mes "[Ҳ]";
						mes "ǵģԴǿ";
						mes "֮,Ϳʼ";
						mes "ħ";
						next;
						mes "[Ҳ]";
						mes "֮ǲ֪";
						mes "ð";
						mes "Լӵ";
						mes "ʹ״";
						next;
						mes "[Ҳ]";
						mes "ĳЩ˿Ǻ,";
						mes "ƺΪ֮ʹߣ";
						mes "֮ʹûҪɱ";
						mes "಻?";
						next;
						mes "[Ҳ]";
						mes "ίŵѧ";
						mes "ȥĽʵ";
						mes "ֻ";
						mes "ʹ";
						mes "ħ";
						next;
						mes "[Ҳ]";
						mes "ǿʼǿȥ";
						mes "ǣԴ";
						mes "ǵս,";
						mes "һֱ";
						next;
						goto L_Ask1;
					case 2:
						break;
					case 3:
						mes "[Ҳ]";
						mes "Щ϶¥Ҫ";
						mes "ĹϵҲ";
						mes "־Ըߵ룬";
						mes "ԸĻ";
						mes "ҪҪ뿴?";
						next;
						goto L_Ask2;
						close;
				}
				break;
				
			case 2:
				break;
				
			case 3:
				mes "[Ҳ]";
				mes "''˹ ̨ڲԱ";
				mes "'Ҳ '";
				mes "ףиʱ";
				close;
		}
		mes "[Ҳ]";
		mes "֪Ƿڵ";
		mes "Աȡ˵";
		mes "׸Ϊ34¥";
		mes "Լ¥ھ";
		mes "ļ";
		mes "ԼƸԱ";
		next;
		mes "[Ҳ]";
		mes "Ӷһ";
		mes "ͿˣǶ";
		mes "Լˣǻһ";
		mes "ƽ 3¥֮¥㣬";
		mes "ɽȨ";
		next;
		mes "[Ҳ]";
		mes "ħ";
		mes "֤ʱǾͻ";
		mes "ԼֵĲ";
		next;
		mes "[Ҳ]";
		mes "ԸĻ";
		mes "͸";
		mes "";
		next;
L_Ask2:		switch( select( "һ","Ҫ" ) )
		{
			case 1:
				mes "[Ҳ]";
				mes "ʱ뱨";
				mes "ıĻ";
				mes "Ұ";
				close;
			case 2:
				mes "[Ҳ]";
				mes "õģлл㣬";
				mes "ôһ";
				mes "?";
				mes "Ǽ׵ͬ";
				next;
				mes "[Ҳ]";
				mes "..ʴ.....";
				mes ""+strcharinfo(0)+" ?";
				next;
				switch( select( "ǵ" ) )
				{
					case 1:
						break;
				}
				mes "[Ҳ]";
				mes "ôϸĶ,";
				mes "ǩ";
				next;
				mes "дСֵ";
				mes "ֽŵݸ";
				next;
				mes "- Լ -";
				mes "1.";
				mes "Լ׸(¼'׷')";
				mes ""+strcharinfo(0)+"(¼'ҷ')֮ԼЧ";
				mes "1-1. Լƾͽ'׷'";
				mes "'ҷ'֮ӶԼ";
				mes "2.";
				mes "ԼЧǴ˫Լǩ";
				mes "ʼ";
				mes "3.";
				mes "йĳɹ'׷'֤";
				mes "ݲȷΪɹ";
				mes "3-1. ֤:";
				mes "4.";
				mes "ÿһֵ֤Ѽһϻ";
				mes ",'׷''ҷ'";
				mes "";
				mes "4-1. :";
				mes "........";
				mes "...........";
				mes "..............";
				mes "13. ԼЧڴ˹";
				mes "̨,ɥʧЧ";
				mes "...................";
				mes "...׷ӵǲ'׷'ŵ'ҷ'";
				mes "˹";
				mes "̨ۿŻ,5000Ż";
				mes "Ϊ3000ҡ";
				mes ".......";
				mes "............";
				mes "       ׸";
				mes " "+strcharinfo(0)+"";
				next;
				switch( select( "ǩ","ǩ" ) )
				{
					case 1:
						mes "ͬݵԼǩ";
						next;
						mes "[Ҳ]";
						mes "лл㣬";
						mes "֮ӶԼ";
						mes "ǩ";
						next;
						mes "[Ҳ]";
						mes "ֻǣԼЧΨ";
						mes "ɴ˹ ̨Ч";
						mes "赣";
						next;
						mes "[Ҳ]";
						mes "ϸοԼص";
						mes "ݣ3¥ 2¥ķԱ";
						mes "йسɹĲ";
						mes "Ա'ҵ'С";
						mes "";
						next;
						mes "[Ҳ]";
						mes "ϸ˵";
						mes " 2¥ķԱ";
						mes "ôףз˶ĳɹ";
						set thana_quest,1;
						close;
									
					case 2:
						mes "[Ҳ]";
						mes "Ӵ....";
						mes "㲢ûǩ?";
						mes "... Ӧв";
						mes "ݰ";
						next;
						mes "[Ҳ]";
						mes "ôû취ˣ";
						mes "ıĻ";
						mes "Ұ";
						close;
				}
		}
	}
	mes "[Ҳ]";
	mes "ϸ 2¥";
	mes "ԱԱߵķԱ";
	mes "˵ģ";
	mes "лл";
	close;
}

tha_t01,140,78,4	script	Ա#thana	831,{

	if(!thana_quest)
	{
		mes "[ҵ]";
		mes "";
		mes "Ǹ'˹ ̨Լ'";
		mes "йصҵ ݼҶ";
		mes "Ա";
		next;
		switch( select( "Լ?","" ) )
		{
			case 1:
				mes "[ҵ]";
				mes "˵Լָ'׸'";
				mes "˾ǩӶԼ";
				mes "йϸԼ̵ͨ";
				mes "зʽѯ";
				mes "Աߵ'Ҳ'С";
				close;
				
			case 2:
				mes "[ҵ]";
				mes "лл㣬";
				mes "ףиһ";
				close;
		}
	}
	mes "[ҵ]";
	mes "";
	mes "Ҫæ?";
	next;
	switch( select( "","û" ) )
	{
		case 1:
			mes "[ҵ]";
			mes "...ǩԼ˰?";
			mes "Եһ";
			next;
			mes "[ҵ]";
			mes ""+strcharinfo(0)+"/С㰡";
			mes "ҪһƷĲ?";
			next;
			switch( select( "ɫֻ","ɫë","ɫë","ӡ" ) )
			{
				case 1:
					callfunc "Func_Thana",7435;
				
				case 2:
					callfunc "Func_Thana",7440;
					
				case 3:
					callfunc "Func_Thana",7441;
				
				case 4:
					callfunc "Func_Thana",7442;
			}
			
		case 2:
			mes "[ҵ]";
			mes "лл㣬";
			mes "";
			close;
	}
}
		
function	script	Func_Thana	{

	if(!countitem(getarg(0)))
	{
		mes "[ҵ]";
		mes "............";
		mes "'"+ getitemname(getarg(0)) +"'㲢û";
		mes "а";
		mes "鷳ȷһ";
		mes "ӵеƷ";
		close;
	}
	mes "[ҵ]";
	mes "'"+ getitemname(getarg(0)) +"'Ĳ";
	mes "£";
	mes " : 1000z";
	mes "׷Ӳ : 2000exp";
	next;
	mes "[ҵ]";
	mes "Ŀǰе";
	mes "'"+ getitemname(getarg(0)) +"'"+ countitem(getarg(0)) +"ɻ";
	mes " : "+ countitem(getarg(0)) * 1000 +"z";
	mes "׷Ӳ : "+ countitem(getarg(0)) * 2000 +"exp";
	mes "ȵ";
	next;
	mes "[ҵ]";
	mes "Ҫܲ?";
	next;
	switch( select( "Ҫ","Ҫ" ) )
	{
		case 1:
			mes "[ҵ]";
			mes "лл㣬";
			mes "ôҪ";
			next;
			mes "[ҵ]";
			mes " : "+ countitem(getarg(0)) * 1000 +"z";
			mes "׷Ӳ : "+ countitem(getarg(0)) * 2000 +"exp";
			mes "ȣѾ,";
			mes "ô";
			set Zeny,Zeny + countitem(getarg(0)) * 1000;
			getexp countitem(getarg(0))*2000,0;
			delitem getarg(0),countitem(getarg(0));
			close;
			
		case 2:
			mes "[ҵ]";
			mes "JܲĻ,";
			mes "ӭʱ";
			close;
	}
}

tha_t02,231,161,5	script	 Ա	874,{

	if(!thana_quest)
	{
		mes "[³]";
		mes "ͨ3¥ͨ";
		mes "ֻкǩԼ";
		mes "жˣܽ";
		next;
		mes "[³]";
		mes "ϸѯ";
		mes "¥µķԱ";
		close;
	}
	mes "վһ˼";
	next;
	mes "[³]";
	mes "........";
	next;
	switch( select( ".....","........." ) )
	{
		case 1:
			mes "[³]";
			mes "...";
			mes "ܱǸ";
			mes "?";
			next;
			if(thana_quest < 2)
			{
				switch( select( "뵽3¥","Լˣ˵.." ) )
				{
					case 1:
L_Access3:
						mes "[³]";
						mes ",";
						mes "Ҳһ......";
						mes ""+strcharinfo(0)+"/С";
						set .@thana_level2,getareausers("tha_t02",226,156,236,166);
						next;
						if(.@thana_level2 < 5)
						{
							mes "[³]";
							mes "Ŀǰδ";
							mes "ȵ";
							mes " 5ϵ";
							mes "Ա";
							next;
							mes "[³]";
							mes "ͬ˵Ļ,";
							mes "ۼ";
							mes "Ϊ˼ȷ,";
							mes "£";
							mes "Ŀǰȴе"+ .@thana_level2 +" ";
							close;
						}
						mes "[³]";
						mes "պôˣ";
						mes "Ҫͨ3¥բ";
						next;
						mes "[³]";
						mes "ŲῪܾã";
						mes "Ѹͨ";
						mes "ʱĻ¥ϵ";
						mes "ħܻ";
						close2;
						donpcevent "#thana3::OnOpen";
						end;
					
					case 2:
L_GateInfo:
						mes "[³]";
						mes "";
						mes "Ϊ󲿷ݶ¥ȡˣ";
						mes "ֻҪ˵";
						next;
						mes "[³]";
						mes "Ҫ˵ͨ3¥";
						mes "·ֻһԼ";
						mes "5¥ϵ·";
						mes "е";
						next;
						mes "[³]";
						mes "34¥ھͿѾ";
						mes "еĲˣԱȽɵ";
						mes " 5¥ʼ,";
						mes "ܵĳĸţֻ¥";
						mes "ȴ޷¥";
						next;
						mes "[³]";
						mes "б̨¥";
						mes "12¥ϲ¥";
						mes "ֵħͻ";
						mes "ǿΧεı仯";
						mes "Ҳ";
						next;
						mes "[³]";
						mes "һҪ5¥ϵĻ";
						mes "һҪҺ";
						mes "·ȥ";
						next;
						mes "[³]";
						mes "Ϊ˰ȫ";
						mes "涨5ʱ";
						mes "ܽ";
						next;
						mes "[³]";
						mes "δ 5ʱ";
						mes "ܱǸȵ";
						mes "Ϊֹ";
						mes "Ծܴ";
						mes "֮";
						close;
				}
			}
			switch( select( "Enter the 3rd Floor","Gate Information","About Satan Morroc..." ) )
			{
				case 1:
					goto L_Access3;
					
				case 2:
					goto L_GateInfo;
				
				case 3:
					mes "[Burled]";
					mes "Satan Morroc...?";
					mes "Ummm... Isn't talking";
					mes "about that a little taboo?";
					mes "I mean, people get angry";
					mes "or scared just hearing";
					mes "that name, you know?";
					next;
					switch( select( "It's important that I know more.","I'm sorry, I didn't know..." ) )
					{
						case 1:
							mes "[Burled]";
							mes "When the Rekenber Corporation";
							mes "started reconstruction of the";
							mes "Thanatos Tower, the Cool Event";
							mes "Corporation was their biggest";
							mes "business partner in the tower";
							mes "reconstruction project.";
							next;
							mes "[Burled]";
							mes "Yeah, I remember that Cool";
							mes "Event Corp. invested huge";
							mes "amounts of zeny and manpower";
							mes "to rebuild to tower, and expand";
							mes "their business relationship";
							mes "with Rekenber Corporation...";
							next;
							mes "[Burled]";
							mes "But then, there was some";
							mes "kind of accident. An explosion";
							mes "happened in the upper floors";
							mes "of Thanatos Tower. Some say";
							mes "it might have been Satan Morroc, but I wouldn't know for sure.";
							next;
							mes "[Burled]";
							mes "Because of that explosion,";
							mes "Cool Event Corporation withdrew";
							mes "their investment into the tower";
							mes "reconstruction project. They";
							mes "basically abandoned Rekenber Corporation in the tower effort.";
							next;
							mes "[Burled]";
							mes "But well...";
							mes "Shortly after that happened,";
							mes "Rekenber Corporation took over";
							mes "Cool Event Corporation. I mean,";
							mes "the company retains its name, but it's a Rekenber company now.";
							next;
							mes "[Burled]";
							mes "I know, I know...";
							mes "It all sounds awfully";
							mes "shady. Please do me a favor";
							mes "and don't tell anyone that";
							mes "I told you this rumor, okay?";
							close;

						case 2:
							close;
					}
			}
		
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes ".............";
			close;
	}
}

tha_t02,227,163,1	script	#thana3	45,1,1,{

OnInit:
	disablenpc "#thana3";
	end;

OnTouch:
	if(!thana_quest) warp "tha_t02",227,158;
	else warp "tha_t03",219,159;
	end;
	
OnOpen:
	enablenpc "#thana3";
	initnpctimer;
	end;
	
OnTimer30000:
	stopnpctimer;
	disablenpc "#thana3";
	end;
}

tha_t03,67,70,0	script	еװ#thana1	111,{

	if((countitem(7421)) || (countitem(7426)))
	{
		mes "^3355FFIt's a peculiar machine";
		mes "that emits a strange buzzing";
		mes "hum. After looking closer,";
		mes "you can faintly perceive an";
		mes "energy barrier surrounding";
		mes "the machine.^000000";
		close;
	}
	mes "ǿҵΧڻеװ";
	next;
	switch( select( "ǿҵ","뿪" ) )
	{
		case 1:
			if (getequipweaponlv(4) < 4)
			{
				mes "ȻĿǰЯ,";
				mes "еҵĴȥ";
				mes "޷Ļ";
				mes "ӦҪ߱ǿ";
				mes "";
				close;
			}
			mes "^3355FFWith your "+getequipname(4)+" in";
			mes "hand, you smash the energy";
			mes "field with all of your strength. After absorbing the impact, the";
			mes "field fizzles out with a soft,";
			mes "gentle ''pzzzzzh'' sound.^000000";
			next;
			switch( select( "Investigate Device","Retreat" ) )
			{
				case 1:
					mes "^3355FFAs you investigate the";
					mes "device, you accidentally";
					mes "press a button, resulting";
					mes "in a loud beeping noise";
					mes "and the activation of";
					mes "the monitor screen.^000000";
					next;
					switch( select( "Read the Screen","Ignore the Screen" ) )
					{
						case 1:
							mes "^426F42I've used the Gate Seal";
							mes "technology to seal the gate";
							mes "and the charm stones. Although";
							mes "the seals are in place, I can't";
							mes "stop worrying that they might";
							mes "break in the future.^000000";
							next;
							mes "^426F42I can't relax when a, shall";
							mes "I say, particular group covets";
							mes "the charm stones and can easily";
							mes "break the seals. To deter them,";
							mes "I've changed the Gate destination before sealing the Gate.^000000";
							next;
							mes "^426F42I didn't check the exact";
							mes "destination coordinates for";
							mes "the Gate after I changed them,";
							mes "but the destination gives me";
							mes "a warm, comforting feeling,";
							mes "so it's definitely not hell.^000000";
							next;
							mes "^3355FFYou've read all the";
							mes "text displayed on the";
							mes "screen. Judging from the";
							mes "content, there is probably";
							mes "more text before and after the";
							mes "section shown on the screen.^000000";
							next;
							switch( select( "Further Investigate Machine","Finish Investigation" ) )
							{
								case 1:
									mes "^3355FFYou have found";
									mes "a small key on the";
									mes "corner of the machine.";
									mes "Just touching this key";
									mes "gives you a strange feeling.^000000";
									getitem 7421,1;
									close;
									
								case 2:
									break;
							}
							break;
							
						case 2:
							mes "^3355FFYou decide to ignore the";
							mes "text displayed on the screen,";
							mes "and immediately discover a";
							mes "small key laid on the corner";
							mes "of the machine. Just touching";
							mes "it gives you a strange feeling.^000000";
							getitem 7421,1;
							close;
					}
					break;
					
				case 2:
					mes "^3355FFYou decide to leave";
					mes "the machine alone.^000000";
					close;
			}
			break;
		
		case 2:
			break;
	}
	mes "ٿһ";
	close;
}

tha_t04,195,195,0	script	еװ#thana2	111,{

	if((countitem(7422)) || (countitem(7427)))
	{
		mes "^3355FFThis device is currently";
		mes "inactivated and not in";
		mes "operation. However, you";
		mes "may have use for it later...^000000";
		close;
	}
	mes "еװʱֻ·";
	mes "дŴСе֣";
	mes "ֺ󷢳'~'ͬʱ";
	mes "ϳ";
	next;
	mes "[]";
	mes "Ҫ3λ";
	mes "в'0'";
	mes "ظʹ֣";
	mes "ܳ뷶Χ";
	next;
	if(@thanatry) goto L_Input;
L_Recode:
	set @thanacode1,rand(1,9);
	set @thanacode2,rand(1,9);
	set @thanacode3,rand(1,9);
	if((@thanacode1 == @thanacode2) || (@thanacode1 == @thanacode3) || (@thanacode2 == @thanacode3)) goto L_Recode;
L_Input:
	input @thanainput;
	if((@thanainput < 100) || (@thanainput > 999))
	{
		mes "[]";
		mes "ֵķΧ";
		close;
	}
	set @thanainput1,@thanainput / 100;
	set @thanainput2,(@thanainput % 100) / 10;
	set @thanainput3,@thanainput % 10;
	if ((@thanainput1 == 0) || (@thanainput2 == 0) || (@thanainput3 == 0))
	{
		mes "[Screen]";
		mes "Violation of number";
		mes "input parameter. The";
		mes "number 0 has been input,";
		mes "or a number has been";
		mes "input more than once.";
		next;
		goto L_Input;
	}
	mes "[]";
	mes " : ^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000 .";
	mes "";
	set @thanatry,@thanatry +1;
	next;
	set @strike,0;
	set @ball,0;
	if(@thanainput1 == @thanacode1) set @strike,@strike +1;
	if(@thanainput2 == @thanacode2) set @strike,@strike +1;
	if(@thanainput3 == @thanacode3) set @strike,@strike +1;
	if((@thanainput1 == @thanacode2) || (@thanainput1 == @thanacode3)) set @ball,@ball +1;
	if((@thanainput2 == @thanacode1) || (@thanainput2 == @thanacode3)) set @ball,@ball +1;
	if((@thanainput3 == @thanacode1) || (@thanainput3 == @thanacode2)) set @ball,@ball +1;
	if(@strike == 3)
	{
		mes "[Screen]";
		mes "Input number accepted.";
		mes "Access authorized.";
		set @thanatry,0;
		next;
		mes "ϳֺ";
		mes "ûֳµ";
		mes ",ʧ";
		mes "¶ڲռ";
		next;
		switch( select( "Ķ","ڲ","ûر֮" ) )
		{
			case 1:
				mes "[Log Entry]";
				mes "^426F42That could only mean she";
				mes "came here for Satan Morroc.";
				mes "After I investigated the area,";
				mes "I found traces of a battle that";
				mes "involved several human sized creatures and one giant monster.^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42I'm guessing that her group";
				mes "actually fought Satan Morroc";
				mes "and managed to wound it";
				mes "severely. It looks like Satan";
				mes "Morroc retreated to the south";
				mes "and her group followed it.^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42Strangely, I haven't found";
				mes "any traces of her, which is";
				mes "especially suspicious since";
				mes "other evidence in the area has";
				mes "remained for hundreds of years.";
				mes "But I can't figure out why...^000000";
				next;
				mes "^3355FFYou've finished";
				mes "reading the Log Entry.^000000";
				next;
				switch( select( "Investigate Monitor Storage","Cancel" ) )
				{
					case 1:
						break;
						
					case 2:
						close;
				}
			
			case 2:
				mes "^3355FFYou find a small, shining";
				mes "key in an empty corner of the";
				mes "Monitor's Storage receptacle.";
				mes "Merely holding it makes you";
				mes "feel some strange sensation.^000000";
				if(thana_quest == 1) set thana_quest,2;
				getitem 7422,1;
				close;
				
			case 3:
				mes "Ųʱȴ'-'";
				mes "ͬʱռʧ,";
				mes "Ҳʧ";
				close;
		}
	}
	mes "[]";
	mes "-";
	mes "˴ĺ˶";
	next;
	mes "[]";
	mes "ֺλöԵ^FF0000"+@strike+"^000000 ,";
	mes "ֵֻ ^FF0000"+@ball+"^000000 ";
	next;
	if(@thanatry > 4)
	{
		mes "˶ : ^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000,";
		mes "ʱ˶ֻ滻";
		set @thanatry,0;
		close;
	}
	goto L_Input;
}

tha_t05,101,37,0	script	еװ#thana3	111,{

	if((countitem(7423)) || (countitem(7428)))
	{
		mes "ذֻģ·,û";
		close;
	}
	set .@thana_level5,getareausers("tha_t05",98,34,104,40);
	if(!.@thana_level5)
	{
		mes "еװΧоһ";
		mes "Ϣ,Լ";
		mes "еװ,ûз";
		mes "رĿصװ";
		if(rand(1,3) == 2)
		{
			next;
			mes "װ봦һ";
			mes "ûκαʾɫ,";
			mes "Χʱװ";
			mes "ܵĵذпɴ,";
			mes "ذϲɱĹâ";
			close;
		}
		close;
	}
	else if(.@thana_level5 < 4)
	{
		mes "^3355FFYou are inexplicably drawn";
		mes "to this mechanical device.";
		mes "Aside from the green screen";
		mes "in the middle, there are no";
		mes "buttons and switches.^000000";
		next;
		mes "^3355FFYou carefully investigate";
		mes "your surroundings and notice";
		mes "a gleaming spot on the ground";
		mes "next to the mechanical device.^000000";
		close;
	}
	else
	{
		mes "еװʱ,װΧ";
		mes "ذϿʼɱĹâ,";
		mes "Լ,'~'";
		mes "ͬʱλڻеǰĻ";
		mes "ʼ";
		next;
		mes "·";
		mes "յĿռ";
		next;
		switch( select( "","յĿռ","" ) )
		{
			case 1:
				mes "[Log Entry]";
				mes "^426F42After the whole ordeal,";
				mes "I decided to leave. But";
				mes "before I could do that,";
				mes "I had to seal the Gate";
				mes "that led to that place.^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42If someone were to find";
				mes "this tower and use the Gate";
				mes "for evil ends, the world will be plagued with an era of chaos.";
				mes "Of course, they'd stop me if they knew I was sealing the Gate...^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42It took me a very long time,";
				mes "but I managed to secretly";
				mes "seal the Gate. But before";
				mes "I began sealing the Gate,";
				mes "I decided to examine it";
				mes "further, just in case.^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42In my studies of the Gate,";
				mes "I discovered that it derives";
				mes "its power from the Charm";
				mes "Stones. So to prevent anyone";
				mes "from misusing its power, I've separately sealed the stones...^000000";
				next;
				mes "^3355FFYou've finished";
				mes "reading the text";
				mes "that was displayed";
				mes "on the screen.^000000";
				close;
				
			case 2:
				mes "鿴յĿռڲʱ,ڲ";
				mes "Ķ,";
				mes "óǸò";
				mes "Կ׵Ķ";
				getitem 7423,1;
				close;
				
			case 3:
				close;
		}
	}
}

tha_t06,43,152,0	script	еװ#thana4	111,{

	if((countitem(7424)) || (countitem(7429)))
	{
		mes "^3355FFYou found a deactivated";
		mes "mechanical device with an";
		mes "interesting series of wheels.^000000";
		close;
	}
	mes "иתž޴ֵ";
	mes "еװ,ڻеĳһ,";
	mes "иûκʾ";
	mes "";
	next;
	mes "Ӧûװ";
	next;
	switch( select( "Investigate","Cancel" ) )
	{
		case 1:
			if((countitem(7421)) || (countitem(7422)) || (countitem(7423)))
			{
				mes "ٽһʱ,";
				mes "ϳеԿ׺ͳ";
				mes "ʼ΢";
				mes ",";
				mes "þû";
				next;
				switch( select( "еı","","" ) )
				{
					case 1:
						mes "еıϺ";
						mes "Ӧ,Ҳһ";
						close;
						
					case 2:
						set @thana_small1,0;
						set @thana_small2,0;
						set @thana_big1,0;
						set @thana_big2,0;
						set @thana_big3,0;
						mes "Ϊ˵,";
						mes "ʹһ³,";
						mes "˽⵽";
						mes "΢΢תʵ";
						next;
						mes "ٵһ³";
						next;
						mes "ֵĽ,5";
						mes "ת,";
						mes "С 2,";
						mes "3ת";
						next;
						mes "Сַ";
						mes "΢";
						mes "ѹȥ";
						next;
						mes "ַ";
						mes "¼ֱת";
L_Wheels:
						next;
						mes "תһ³ְ";
						switch( select( "һС","ڶС","һ","ڶ","","۲Ŀǰ״̬","ȫתԭ״̬" ) )
						{
							case 1:
								set @wheelresult,callfunc("Thana_Wheels","ֱת",@thana_small1,2,1,3);
								if(@wheelresult == 1) break;
								goto L_Wheels;
								
							case 2:
								set @wheelresult,callfunc("Thana_Wheels","ֱת",@thana_small2,3,2,1);
								if(@wheelresult == 1) break;
								goto L_Wheels;
								
							case 3:
								set @wheelresult,callfunc("Thana_Wheels","ֱת",@thana_big1,1,3,2);
								if(@wheelresult == 1) break;
								goto L_Wheels;
										
							case 4:
								set @wheelresult,callfunc("Thana_Wheels","ֱת",@thana_big2,2,3,1);
								if(@wheelresult == 1) break;
								goto L_Wheels;
										
							case 5:
								set @wheelresult,callfunc("Thana_Wheels","ֱת",@thana_big3,2,1,3);
								if(@wheelresult == 1) break;
								goto L_Wheels;
										
							case 6:
								if(@thana_small1 == 0) mes "һС : ԭⲻ";
								else if(@thana_small1 == 1) mes "һС : Down";
								else if(@thana_small1 == 2) mes "һС : Up";
								else if(@thana_small1 == 3) mes "һС : Pressed";
								if(@thana_small2 == 0) mes "ڶС : ԭⲻ";
								else if(@thana_small2 == 1) mes "ڶС : Pressed";
								else if(@thana_small2 == 2) mes "ڶС : Down";
								else if(@thana_small2 == 3) mes "ڶС : Up";
								if(@thana_big1 == 0) mes "һ : ԭⲻ";
								else if(@thana_big1 == 1) mes "һ : Up";
								else if(@thana_big1 == 2) mes "һ : Moved";
								else if(@thana_big1 == 3) mes "һ : Down";
								if(@thana_big2 == 0) mes "ڶ : ԭⲻ";
								else if(@thana_big2 == 1) mes "ڶ : Moved";
								else if(@thana_big2 == 2) mes "ڶ : Up";
								else if(@thana_big2 == 3) mes "ڶ : Down";
								if(@thana_big3 == 0) mes " : ԭⲻ";
								else if(@thana_big3 == 1) mes " : Down";
								else if(@thana_big3 == 2) mes " : Up";
								else if(@thana_big3 == 3) mes " : Moved";
								goto L_Wheels;
									
							case 7:
								set @thana_small1,0;
								set @thana_small2,0;
								set @thana_big1,0;
								set @thana_big2,0;
								set @thana_big3,0;
								goto L_Wheels;
						}
						next;
						mes "^3355FFAs you adjust the wheels,";
						mes "they suddenly immobilize with";
						mes "a firm click. Then, the device's screen activates and displays";
						mes "some text while a storage";
						mes "compartment underneath";
						mes "the monitor slides open.^000000";
						next;
						switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
						{
							case 1:
								mes "[Log Entry]";
								mes "^426F42It was never the humans";
								mes "or the gods that built this";
								mes "tower: it was the demons.";
								mes "Intrigued by this information,";
								mes "I decided to try to learn why they had constructed Thanatos Tower.^000000";
								next;
								mes "[Log Entry]";
								mes "^426F42In my research, I learned";
								mes "that this tower was used as a";
								mes "gate to summon demons from hell during the thousand year war,";
								mes "and that the infamous Satan Morroc was one of those summoned here.^000000";
								next;
								mes "[Log Entry]";
								mes "^426F42Satan Morroc... I admit";
								mes "that I'm interested in learning";
								mes "more about his appearance since";
								mes "that occurred at around the same time as when she came to";
								mes "Thanatos Tower...^000000";
								next;
								mes "^3355FFYou've finished";
								mes "reading the text";
								mes "that was displayed";
								mes "on the screen.^000000";
								close;
									
							case 2:
								mes "^3355FFInside the monitor";
								mes "storage compartment,";
								mes "you find a small, shining";
								mes "key that you decide to take.^000000";
								getitem 7424,1;
								close;
										
							case 3:
								break;
						}
						break;
						
					case 3:
						break;
				}
			}
			else
			{
				mes "^3355FFThis mechanical device is";
				mes "activated, as evidenced by";
				mes "its gleaming, moving wheels.^000000";
				close;
			}
			
		case 2:
			mes "........";
			mes "ǲȽϺ";
			close;
	}
			
}

function	script	Thana_Wheels	{

	switch( select( "","",getarg(0) ) )
	{
		case 1:
			set getarg(1),getarg(2);
			if((@thana_small1 == getarg(2)) && (@thana_small2 == getarg(2)) && (@thana_big1 == getarg(2)) && (@thana_big2 == getarg(2)) && (@thana_big3 == getarg(2))) return 1;
			return 0;
							
		case 2:
			set getarg(1),getarg(3);
			if((@thana_small1 == getarg(3)) && (@thana_small2 == getarg(3)) && (@thana_big1 == getarg(3)) && (@thana_big2 == getarg(3)) && (@thana_big3 == getarg(3))) return 1;
			return 0;
							
		case 3:
			set getarg(1),getarg(4);
			if((@thana_small1 == getarg(4)) && (@thana_small2 == getarg(4)) && (@thana_big1 == getarg(4)) && (@thana_big2 == getarg(4)) && (@thana_big3 == getarg(4))) return 1;
			return 0;
	}
}

tha_t09,19,158,0	script	еװ	111,{

	if((countitem(7425)) || (countitem(7430)))
	{
		mes "^3355FFYou find a peculiar";
		mes "mechanical device that";
		mes "is not in operation.^000000";
		close;
	}
	mes "^3355FFYou find a machine that";
	mes "emits a soft light and weak";
	mes "hum. There is a monitor, with";
	mes "several different colored";
	mes "keyholes beneath it, in";
	mes "front of the machine.^000000";
	if(!((countitem(7421)) || (countitem(7426))) && ((countitem(7422)) || (countitem(7427))) && ((countitem(7423)) || (countitem(7428))) && ((countitem(7424)) || (countitem(7429)))) close;
	next;
	mes "^3355FFYou also notice that there";
	mes "are several slots that seem";
	mes "to be the perfect size for";
	mes "your keys and Charm Stones.";
	next;
	input @input$;
	if (@input$ == "Կ" || @input$ == "ɫԿ" || @input$ == "ɫԿ" || @input$ == "ɫԿ" || @input$ == "ɫԿ")
	{
		mes "^3355FFYou insert the keys into the";
		mes "keyholes, matching them by";
		mes "corresponding color, and place";
		mes "the Charm Stones in the machine slots. The stones begin to glow,";
		mes "text appears on the screen, and the monitor's storage slides open.^000000";
		next;
		switch( select( "Read the Screen's Text","Investigate Monitor Storage","Cancel" ) )
		{
			case 1:
				mes "[Log Entry]";
				mes "^426F42As I followed her trail to";
				mes "the north, I passed many";
				mes "deserted places. Finally,";
				mes "I dropped by a small village";
				mes "where I learned about a tower";
				mes "that refuses entry to humans.^000000";
				next;
				mes "[Log Entry]";
				mes "^426F42I instantly realized that she";
				mes "must have gone to the tower.";
				mes "I headed over there and when";
				mes "I arrived, I was shocked: it was grotesque and didn't resemble";
				mes "a human building at all.^000000";
				next;
				mes "^426F42I was also amazed--";
				mes "advanced technology was";
				mes "probably necessary to build the tower's intricate structures.";
				mes "I then learned an interesting fact while searching the tower...^000000";
				next;
				mes "^3355FFYou've finished";
				mes "reading the text";
				mes "that was displayed";
				mes "on the screen.^000000";
				close;
				
			case 2:
				mes "^3355FFYou search the storage";
				mes "compartment beneath the";
				mes "screen and find a strange";
				mes "key. As soon as you take it,";
				mes "the machine's activity halts.";
				mes "You then retrieve the Charm";
				mes "Stones and your other keys.^000000";
				getitem 7425,1;
				close;
			
			case 3:
				mes "^3355FFYou retrieve the Charm";
				mes "Stones and keys that you";
				mes "inserted into the machine.^000000";
				close;
		}
	}
	mes "You attempt to";
	mes ""+@input$+",";
	mes "but nothing happened.";
	close;
}

tha_t04,150,44,0	script	ӡ#thana1	111,{

	if(!countitem(7423))
	{
		mes "^3355FFThis area is protected by";
		mes "some mysterious power.";
		mes "You try to touch the seal,";
		mes "but then it buzzes loudly";
		mes "and pushes your hand away.^000000";
		percentheal -10,0;
		close;
	}
	mes "^3355FFThis area is protected by";
	mes "some mysterious power.";
	mes "You try to touch the seal,";
	mes "but then it buzzes loudly";
	mes "and pushes your hand away.";
	mes "with a burst of blue light.^000000";
	next;
	switch( select( "Investigate","There's no way I can break this seal!" ) )
	{
		case 1:
			input @input$;
			if (@input$ == "ɫԿ")
			{
				mes "^3355FFYou gently hold the blue";
				mes "key and bring it towards";
				mes "the seal. Strangely, your";
				mes "hand isn't pushed away this";
				mes "time, and the seal begins to";
				mes "emit a mysterious light.^000000";
				next;
				mes "^3355FFYou find a small keyhole";
				mes "in the seal, insert the blue";
				mes "key, and slowly turn it. The";
				mes "seal's light fades, revealing a";
				mes "Charm Stone. Once you grasp";
				mes "the stone, someone's memory";
				mes "is injected into your mind.^000000";
				next;
				mes "^333333Thanatos! We've got a";
				mes "message from the guild.";
				mes "They want us to stop what";
				mes "we're doing and return now!^000000";
				mes " ";
				mes "^333333W-We better hurry...^000000";
				next;
				mes "......";
				mes ".........";
				mes "............";
				next;
				mes "^3355FFThe images faded from";
				mes "your mind as quickly as";
				mes "they appeared. What could";
				mes "have happened in the past?^000000";
				delitem 7423,1;
				getitem 7428,1;
				close;
			}
			mes "^3355FFYou'll need to try";
			mes "something else in ";
			mes "order to break this";
			mes "seal. What could";
			mes "you possibly need?^000000";
			close;
		
		case 2:
			mes "^3355FFYou stepped away from";
			mes "the seal, unwilling to deal";
			mes "with the power that keeps";
			mes "repulsing your advance.^000000";
			close;
	}
}

tha_t05,218,116,0	script	ӡ#thana2	111,{

	if(!countitem(7421))
	{
		mes "^3355FFThis area is protected by";
		mes "some mysterious power.";
		mes "You try to touch the seal,";
		mes "but then it buzzes loudly";
		mes "and pushes your hand away.^000000";
		percentheal -10,0;
		close;
	}
	mes "^3355FFThis area is protected by";
	mes "some mysterious power.";
	mes "You try to touch the seal,";
	mes "but then it buzzes loudly";
	mes "and pushes your hand away.";
	mes "with a burst of red light.^000000";
	next;
	switch( select( "Investigate","There's no way I can break this seal!" ) )
	{
		case 1:
			input @input$;
			if (@input$ == "ɫԿ")
			{
				mes "^3355FFYou gently hold the red";
				mes "key and bring it towards";
				mes "the seal. Strangely, your";
				mes "hand isn't pushed away this";
				mes "time, and the seal begins to";
				mes "emit a mysterious light.^000000";
				next;
				mes "^3355FFYou find a small keyhole";
				mes "in the seal, insert the red";
				mes "key, and slowly turn it. The";
				mes "seal's light fades, revealing a";
				mes "Charm Stone. Once you grasp";
				mes "the stone, someone's memory";
				mes "is injected into your mind.^000000";
				next;
				mes "...So then we decided";
				mes "to dispatch some Assassin";
				mes "Crosses to defeat Satan Morroc.";
				mes "But honestly, the chances of ";
				mes "success are about 1 percent.";
				mes "It's better than nothing, but... It's freakin' Satan Morroc...^000000";
				next;
				mes "......";
				mes ".........";
				mes "............";
				next;
				mes "^3355FFThe images faded from";
				mes "your mind as quickly as";
				mes "they appeared. What could";
				mes "have happened in the past?^000000";
				delitem 7421,1;
				getitem 7426,1;
				close;
			}
			mes "^3355FFYou'll need to try";
			mes "something else in ";
			mes "order to break this";
			mes "seal. What could";
			mes "you possibly need?^000000";
			close;
		
		case 2:
			mes "^3355FFYou stepped away from";
			mes "the seal, unwilling to deal";
			mes "with the power that keeps";
			mes "repulsing your advance.^000000";
			close;
	}
}

tha_t06,226,230,0	script	ӡ#thana3	111,{

	if(!countitem(7425))
	{
		mes "^3355FFThis area is protected by";
		mes "some mysterious power.";
		mes "You try to touch the seal,";
		mes "but then it buzzes loudly";
		mes "and pushes your hand away.^000000";
		percentheal -10,0;
		close;
	}
	mes "^3355FFThis area is protected by";
	mes "some mysterious power.";
	mes "You try to touch the seal,";
	mes "but then it buzzes loudly";
	mes "and pushes your hand away.";
	mes "with a burst of black light.^000000";
	next;
	switch( select( "Investigate","There's no way I can break this seal!" ) )
	{
		case 1:
			input @input$;
			if (@input$ == "ɫԿ")
			{
				mes "^3355FFYou gently hold the black";
				mes "key and bring it towards";
				mes "the seal. Strangely, your";
				mes "hand isn't pushed away this";
				mes "time, and the seal begins to";
				mes "emit a mysterious light.^000000";
				next;
				mes "^3355FFYou find a small keyhole";
				mes "in the seal, insert the black";
				mes "key, and slowly turn it. The";
				mes "seal's light fades, revealing a";
				mes "Charm Stone. Once you grasp";
				mes "the stone, someone's memory";
				mes "is injected into your mind.^000000";
				next;
				mes "^333333We found it! So this";
				mes "must be the tower where";
				mes "Satan Morroc is gathering";
				mes "his minions... Dear God,";
				mes "there's... There's thousands";
				mes "of them... Is there any hope";
				mes "at all for us? For mankind?^000000";
				next;
				mes "......";
				mes ".........";
				mes "............";
				next;
				mes "^3355FFThe images faded from";
				mes "your mind as quickly as";
				mes "they appeared. What could";
				mes "have happened in the past?^000000";
				delitem 7425,1;
				getitem 7430,1;
				close;
			}
			mes "^3355FFYou'll need to try";
			mes "something else in ";
			mes "order to break this";
			mes "seal. What could";
			mes "you possibly need?^000000";
			close;
		
		case 2:
			mes "^3355FFYou stepped away from";
			mes "the seal, unwilling to deal";
			mes "with the power that keeps";
			mes "repulsing your advance.^000000";
			close;
	}
}

tha_t07,113,129,0	script	ӡ#thana4	111,{

	if(!countitem(7422))
	{
		mes "^3355FFThis area is protected by";
		mes "some mysterious power.";
		mes "You try to touch the seal,";
		mes "but then it buzzes loudly";
		mes "and pushes your hand away.^000000";
		percentheal -10,0;
		close;
	}
	mes "^3355FFThis area is protected by";
	mes "some mysterious power.";
	mes "You try to touch the seal,";
	mes "but then it buzzes loudly";
	mes "and pushes your hand away.";
	mes "with a burst of yellow light.^000000";
	next;
	switch( select( "Investigate","There's no way I can break this seal!" ) )
	{
		case 1:
			input @input$;
			if (@input$ == "ɫԿ")
			{
				mes "^3355FFYou gently hold the yellow";
				mes "key and bring it towards";
				mes "the seal. Strangely, your";
				mes "hand isn't pushed away this";
				mes "time, and the seal begins to";
				mes "emit a mysterious light.^000000";
				next;
				mes "^3355FFYou find a small keyhole";
				mes "in the seal, insert the yellow";
				mes "key, and slowly turn it. The";
				mes "seal's light fades, revealing a";
				mes "Charm Stone. Once you grasp";
				mes "the stone, someone's memory";
				mes "is injected into your mind.^000000";
				next;
				mes "^333333Hi, I'm Lucil. Sorry,";
				mes "I'm late, but I was far ";
				mes "away on another mission...^000000";
				mes " ";
				mes "^333333I am Thanatos...^000000";
				next;
				mes "^333333Why does she make me";
				mes "feel so strange inside?";
				mes "I feel everything I was";
				mes "missing before, all the";
				mes "things I want and want";
				mes "to be, she brings, she";
				mes "completes. How... funny...^000000";
				mes "'She make me feel strange...as if I found my lost half...'";
				next;
				mes "......";
				mes ".........";
				mes "............";
				next;
				mes "^3355FFThe images faded from";
				mes "your mind as quickly as";
				mes "they appeared. What could";
				mes "have happened in the past?^000000";
				delitem 7422,1;
				getitem 7427,1;
				close;
			}
			mes "^3355FFYou'll need to try";
			mes "something else in ";
			mes "order to break this";
			mes "seal. What could";
			mes "you possibly need?^000000";
			close;
		
		case 2:
			mes "^3355FFYou stepped away from";
			mes "the seal, unwilling to deal";
			mes "with the power that keeps";
			mes "repulsing your advance.^000000";
			close;
	}
}

tha_t10,129,159,0	script	ӡ	111,{

	if(!countitem(7424))
	{
		mes "ֿӡʱ,";
		mes "'ž֨~'ͬʱ,";
		mes "ֱ";
		percentheal -10,0;
		close;
	}
	mes "^3355FFThis area is protected by";
	mes "some mysterious power.";
	mes "You try to touch the seal,";
	mes "but then it buzzes loudly";
	mes "and pushes your hand away.";
	mes "with a burst of green light.^000000";
	next;
	switch( select( "Investigate","There's no way I can break this seal!" ) )
	{
		case 1:
			input @input$;
			if (@input$ == "ɫԿ")
			{
				mes "^3355FFYou gently hold the green";
				mes "key and bring it towards";
				mes "the seal. Strangely, your";
				mes "hand isn't pushed away this";
				mes "time, and the seal begins to";
				mes "emit a mysterious light.^000000";
				next;
				mes "^3355FFYou find a small keyhole";
				mes "in the seal, insert the green";
				mes "key, and slowly turn it. The";
				mes "seal's light fades, revealing a";
				mes "Charm Stone. Once you grasp";
				mes "the stone, someone's memory";
				mes "is injected into your mind.^000000";
				next;
				mes "^333333This battle will determine";
				mes "the fate of mankind. We must";
				mes "defeat Satan Morroc. There is";
				mes "no alternative. Who's with me?! ";
				mes "^333333*Cough Cough* The demon";
				mes "is too strong! We c-can't...^000000";
				next;
				mes "^333333Foolish weakling humans.";
				mes "You should have known better.";
				mes "...This cannot be! Isn't this--? ";
				mes "^333333GGGRRRRAH! H-HOW DARE YOU";
				mes "HUMANS! HOW DARE YOOOOOOOU....! ";
				next;
				mes "......";
				mes ".........";
				mes "............";
				next;
				mes "^3355FFThe images faded from";
				mes "your mind as quickly as";
				mes "they appeared. What could";
				mes "have happened in the past?^000000";
				delitem 7424,1;
				getitem 7429,1;
				close;
			}
			mes "^3355FFYou'll need to try";
			mes "something else in ";
			mes "order to break this";
			mes "seal. What could";
			mes "you possibly need?^000000";
			close;
		
		case 2:
			mes "^3355FFYou stepped away from";
			mes "the seal, unwilling to deal";
			mes "with the power that keeps";
			mes "repulsing your advance.^000000";
			close;
	}
}

tha_t12,96,58,0	script	ʯ#thana1	111,{

	if(!$@thana_summon)
	{
		mes "^3355FFYou've found a ";
		mes "stone statue with";
		mes "a conspicuous hole";
		mes "in the chest area.^000000";
		if((countitem(7426)) && (countitem(7427)) && (countitem(7428)) && (countitem(7429)) && (countitem(7430)))
		{
			next;
			mes "^3355FFAs you approach the statue,";
			mes "your Red Charm Stone and";
			mes "the statue begin to glow with";
			mes "a glimmering red light.^000000";
			next;
			switch( select( "Insert Charm Stone into Statue","Cancel" ) )
			{
				case 1:
					mes "^3355FFOnce you insert the";
					mes "Red Charm Stone, the";
					mes "statue glows even brighter";
					mes "with a mysterious light.^000000";
					delitem 7426,1;
					specialeffect 55;
					enablenpc "tteffect2";
					donpcevent "tteffect2::OnGlow";
					set $@thana_summon,1;
					close;
				
				case 2:
					mes "^3355FFYou decided not to";
					mes "insert the Charm Stone,";
					mes "opting to investigate this";
					mes "area a little further.^000000";
					close;
			}
		}
		else if((countitem(7426)) || (countitem(7427)) || (countitem(7428)) || (countitem(7429)) || (countitem(7430)))
		{
			next;
			mes "^3355FFAs you approach this statue, one of your Charm Stones begins to";
			mes "glow. However, the statue itself is not responding. You probably";
			mes "need all the Charm Stones in";
			mes "order to fully activate it.^000000";
			close;
		}
		else close;
	}
	else if($@thana_summon == 6)
	{
		mes "ʯ񷢳صĹâ,";
		mes "ص赲ӽ";
		close;
	}
	else
	{
		mes "ʯ񷢳޷ֱӰ";
		mes "ǿҵĹâ,ֱ";
		mes "̵õز";
		close;
	}
}

tha_t12,104,18,0	script	ʯ#thana2	111,{

	if($@thana_summon == 2)
	{
		mes "^3355FFYou've found a ";
		mes "stone statue with";
		mes "a conspicuous hole";
		mes "in the chest area.^000000";
		if(countitem(7428))
		{
			next;
			mes "^3355FFAs you approach the statue,";
			mes "your Blue Charm Stone begins";
			mes "to glow with a glimmering blue";
			mes "light, and the statue responds";
			mes "by shimmering with a red glow.^000000";
			next;
			switch( select( "Insert Charm Stone into Statue","Cancel" ) )
			{
				case 1:
					mes "^3355FFOnce you insert the";
					mes "Blue Charm Stone, the";
					mes "statue glows even brighter";
					mes "with a mysterious light.^000000";
					delitem 7428,1;
					specialeffect 55;
					enablenpc "tteffect5";
					donpcevent "tteffect5::OnGlow";
					set $@thana_summon,3;
					close;
				
				case 2:
					mes "^3355FFYou decided not to";
					mes "insert the Charm Stone,";
					mes "opting to investigate this";
					mes "area a little further.^000000";
					close;
			}
		}
		close;
	}
	else if($@thana_summon == 6)
	{
		mes "ʯ񷢳صĹâ,";
		mes "ص赲ӽ";
		close;
	}
	else
	{
		mes "ʯ񷢳޷ֱӰ";
		mes "ǿҵĹâ,ֱ";
		mes "̵õز";
		close;
	}
}

tha_t12,128,86,0	script	ʯ#thana3	111,{

	if($@thana_summon == 3)
	{
		mes "^3355FFYou've found a ";
		mes "stone statue with";
		mes "a conspicuous hole";
		mes "in the chest area.^000000";
		if(countitem(7430))
		{
			next;
			mes "^3355FFAs you approach the statue,";
			mes "your Black Charm Stone begins";
			mes "to emanate an eerie darkness.";
			mes "In response, the statue starts glowing with a sinister red light.^000000";
			next;
			switch( select( "Insert Charm Stone into Statue","Cancel" ) )
			{
				case 1:
					mes "^3355FFOnce you insert the";
					mes "Black Charm Stone, the";
					mes "statue glows even brighter";
					mes "with a mysterious light.^000000";
					delitem 7430,1;
					specialeffect 59;
					enablenpc "tteffect1";
					donpcevent "tteffect1::OnGlow";
					set $@thana_summon,4;
					close;
				
				case 2:
					mes "^3355FFYou decided not to";
					mes "insert the Charm Stone,";
					mes "opting to investigate this";
					mes "area a little further.^000000";
					close;
			}
		}
		close;
	}
	else if($@thana_summon == 6)
	{
		mes "ʯ񷢳صĹâ,";
		mes "ص赲ӽ";
		close;
	}
	else
	{
		mes "ʯ񷢳޷ֱӰ";
		mes "ǿҵĹâ,ֱ";
		mes "̵õز";
		close;
	}
}

tha_t12,161,58,0	script	ʯ#thana4	111,{

	if($@thana_summon == 1)
	{
		mes "^3355FFYou've found a ";
		mes "stone statue with";
		mes "a conspicuous hole";
		mes "in the chest area.^000000";
		if(countitem(7427))
		{
			next;
			mes "^3355FFAs you approach the statue,";
			mes "your Yellow Charm Stone";
			mes "starts shining a bright yellow";
			mes "light, and the statue emits";
			mes "a glimmering red glow.^000000";
			next;
			switch( select( "Insert Charm Stone into Statue","Cancel" ) )
			{
				case 1:
					mes "^3355FFOnce you insert the";
					mes "Yellow Charm Stone, the";
					mes "statue glows even brighter";
					mes "with a mysterious light.^000000";
					delitem 7427,1;
					specialeffect 57;
					enablenpc "tteffect3";
					donpcevent "tteffect3::OnGlow";
					set $@thana_summon,2;
					close;
				
				case 2:
					mes "^3355FFYou decided not to";
					mes "insert the Charm Stone,";
					mes "opting to investigate this";
					mes "area a little further.^000000";
					close;
			}
		}
		close;
	}
	else if($@thana_summon == 6)
	{
		mes "ʯ񷢳صĹâ,";
		mes "ص赲ӽ";
		close;
	}
	else
	{
		mes "ʯ񷢳޷ֱӰ";
		mes "ǿҵĹâ,ֱ";
		mes "̵õز";
		close;
	}
}

tha_t12,154,18,0	script	ʯ#thana5	111,{

	if($@thana_summon == 4)
	{
		mes "^3355FFYou've found a ";
		mes "stone statue with";
		mes "a conspicuous hole";
		mes "in the chest area.^000000";
		if(countitem(7429))
		{
			next;
			mes "^3355FFAs you approach the statue,";
			mes "your Green Charm Stone begins";
			mes "radiating soft green light, and";
			mes "and the statue starts to shine";
			mes "with a bright red glow.^000000";
			next;
			switch( select( "Insert Charm Stone into Statue","Cancel" ) )
			{
				case 1:
					mes "^3355FFOnce you insert the";
					mes "Green Charm Stone, the";
					mes "statue glows even brighter";
					mes "with a mysterious light.^000000";
					specialeffect 56;
					enablenpc "tteffect4";
					donpcevent "tteffect4::OnGlow";
					delitem 7429,1;
					next;
					mes "^3355FFThe crest on the ground";
					mes "surrounded by the five";
					mes "glowing statues has now";
					mes "activated, and is emitting";
					mes "a fearsome, powerful energy.^000000";
					set $@thana_summon,5;
					set $@thana_summon2,0;
					enablenpc "WarpThana";
					close;
				
				case 2:
					mes "^3355FFYou decided not to";
					mes "insert the Charm Stone,";
					mes "opting to investigate this";
					mes "area a little further.^000000";
					close;
			}
		}
		close;
	}
	else if($@thana_summon == 6)
	{
		mes "ʯ񷢳صĹâ,";
		mes "ص赲ӽ";
		close;
	}
	else
	{
		mes "ʯ񷢳޷ֱӰ";
		mes "ǿҵĹâ,ֱ";
		mes "̵õز";
		close;
	}
}

tha_t12,129,56,0	script	tteffect1	139,{

OnInit:
	disablenpc "tteffect1";
	end;
	
OnGlow:
	initnpctimer;
	end;
	
OnTimer500:
OnTimer1000:
OnTimer1500:
OnTimer2000:
OnTimer2500:
	specialeffect 59;
	end;
	
OnTimer3000:
	specialeffect 59;
	stopnpctimer;
	if($@thana_summon == 6)	end;
	initnpctimer;
	end;

OnStop:
	stopnpctimer;
	end;
}

tha_t12,125,52,0	script	tteffect2	139,{

OnInit:
	disablenpc "tteffect2";
	end;
	
OnGlow:
	initnpctimer;
	end;
	
OnTimer500:
OnTimer1000:
OnTimer1500:
OnTimer2000:
OnTimer2500:
	specialeffect 55;
	end;
	
OnTimer3000:
	specialeffect 55;
	stopnpctimer;
	if($@thana_summon == 6)	end;
	initnpctimer;
	end;

OnStop:
	stopnpctimer;
	end;
}

tha_t12,134,52,0	script	tteffect3	139,{

OnInit:
	disablenpc "tteffect3";
	end;
	
OnGlow:
	initnpctimer;
	end;
	
OnTimer500:
OnTimer1000:
OnTimer1500:
OnTimer2000:
OnTimer2500:
	specialeffect 57;
	end;
	
OnTimer3000:
	specialeffect 57;
	stopnpctimer;
	if($@thana_summon == 6)	end;
	initnpctimer;
	end;
	
OnStop:
	stopnpctimer;
	end;
}

tha_t12,132,47,0	script	tteffect4	139,{

OnInit:
	disablenpc "tteffect4";
	end;
	
OnGlow:
	initnpctimer;
	end;
	
OnTimer500:
OnTimer1000:
OnTimer1500:
OnTimer2000:
OnTimer2500:
	specialeffect 56;
	end;
	
OnTimer3000:
	specialeffect 56;
	stopnpctimer;
	if($@thana_summon == 6)	end;
	initnpctimer;
	end;
	
OnStop:
	stopnpctimer;
	end;
}

tha_t12,127,47,0	script	tteffect5	139,{

OnInit:
	disablenpc "tteffect5";
	end;
	
OnGlow:
	initnpctimer;
	end;
	
OnTimer500:
OnTimer1000:
OnTimer1500:
OnTimer2000:
OnTimer2500:
	specialeffect 54;
	end;
	
OnTimer3000:
	specialeffect 54;
	stopnpctimer;
	if($@thana_summon == 6)	end;
	initnpctimer;
	end;
	
OnStop:
	stopnpctimer;
	end;
}

tha_t12,130,52,0	script	WarpThana	45,1,1,{

OnInit:
	disablenpc "WarpThana";
	end;
	
OnTouch:
	if($@thana_summon == 5) warp "thana_boss",136,116;
	else
	{
		donpcevent "tteffect1::OnStop";
		donpcevent "tteffect2::OnStop";
		donpcevent "tteffect3::OnStop";
		donpcevent "tteffect4::OnStop";
		donpcevent "tteffect5::OnStop";
		disablenpc "WarpThana";
		end;
	}
}

thana_boss,217,167,0	script	·#1	111,3,3,{

	end;
	
OnTouch:
	if($@thana_summon == 6)
	{
		mes "^3355FFYou cannot approach";
		mes "the crest because it is";
		mes "generating intense heat.^000000";
		close;
	}
	mes "ڻһЩҵɫ·";
	mes "֮,иĳ";
	mes "Ķ";
	if (countitem(7437))
	{
	}
	next;
	input @input$;
	if(countitem(7437))
	{
		if(@input$ == "Ƭ")
		{
			mes "ѱƬ·,";
			mes "ʼĹâ";
			delitem 7437,1;
			misceffect 16;
			monster "thana_boss",217,167,"˹ı",1711,1,"#Death::OnDead";
			disablenpc "·#1";
			close;
		}
	}
	mes "ûЯֶ";
	close;	
}

thana_boss,202,75,0	script	·#2	111,3,3,{

	end;
	
OnTouch:
	if($@thana_summon == 6)
	{
		mes "^3355FFYou cannot approach";
		mes "the crest because it is";
		mes "generating intense heat.^000000";
		close;
	}
	mes "ڻһЩҵɫ·";
	mes "֮,иĳ";
	mes "Ķ";
	if (countitem(7436))
	{
	}
	next;
	input @input$;
	if(countitem(7436))
	{
		if(@input$ == "յƬ")
		{
			mes "ѿյƬ·,";
			mes "ʼĹâ";
			delitem 7436,1;
			misceffect 16;
			monster "thana_boss",202,75,"˹Ŀ",1712,1,"#Death::OnDead";
			disablenpc "·#2";
			close;
		}
	}
	mes "ûЯֶ";
	close;
}

thana_boss,80,76,0	script	·#3	111,3,3,{

	end;
	
OnTouch:
	if($@thana_summon == 6)
	{
		mes "^3355FFYou cannot approach";
		mes "the crest because it is";
		mes "generating intense heat.^000000";
		close;
	}
	mes "ڻһЩҵɫ·";
	mes "֮,иĳ";
	mes "Ķ";
	if (countitem(7438))
	{
	}
	next;
	input @input$;
	if(countitem(7438))
	{
		if(@input$ == "޵Ƭ")
		{
			mes "޵Ƭ·,";
			mes "ʼĹâ";
			delitem 7438,1;
			misceffect 16;
			monster "thana_boss",80,76,"˹",1709,1,"#Death::OnDead";
			disablenpc "·#3";
			close;
		}
	}
	mes "ûЯֶ";
	close;
}

thana_boss,62,171,0	script	·#4	111,3,3,{

	end;
	
OnTouch:
	if($@thana_summon == 6)
	{
		mes "^3355FFYou cannot approach";
		mes "the crest because it is";
		mes "generating intense heat.^000000";
		close;
	}
	mes "ڻһЩҵĺɫ·";
	mes "֮,иĳ";
	mes "Ķ";
	if (countitem(7439))
	{
	}
	next;
	input @input$;
	if(countitem(7439))
	{
		if(@input$ == "Ƭ")
		{
			mes "ѾƬ·,";
			mes "ʼĹâ";
			delitem 7439,1;
			misceffect 16;
			monster "thana_boss",62,171,"˹ľ",1710,1,"#Death::OnDead";
			disablenpc "·#4";
			close;
		}
	}
	mes "ûЯֶ";
	close;	
}

thana_boss,141,218,0	script	·#5	111,3,3,{

	end;
	
OnTouch:
	if($@thana_summon2 > 3)
	{
		mes "㿿۲·ʱ,";
		mes "صĹâʼΧ";
		mes "·,·";
		mes "Ĺâ";
		set $@thana_wave,4;
		monster "thana_boss",140,217,"",1710,1,"#Death::OnWave";
		monster "thana_boss",140,216,"",1709,1,"#Death::OnWave";
		monster "thana_boss",141,217,"",1711,1,"#Death::OnWave";
		monster "thana_boss",141,216,"",1712,1,"#Death::OnWave";
		disablenpc "·#5";
		close;
	}
	input @input$;
	mes "^3355FFNothing happened.^000000";
	close;
}

thana_boss,5,5,0	script	#thanasummon	-1,{

	end;

OnSummon:
	monster "thana_boss",139,129,"ħʿ ˹ļ",1708,1,"#Death::OnThanaDead";
	end;

}

thana_boss,3,3,0	script	#thanatimer	-1,{

OnInit:
	set $@thana_summon,0;
	set $@thana_summon2,0;
	end;

OnActive:
	initnpctimer;
	end;
	
OnTimer1000:
	mapannounce "thana_boss","۰!!",1,0xff0000;
	end;

OnTimer2000:
	mapannounce "thana_boss","˻",1,0xff0000;
	end;

OnTimer3000:
	mapannounce "thana_boss","ž֨...ž֨...",1,0xff0000;
	end;

OnTimer4000:
	mapannounce "thana_boss","~...~..",1,0xff0000;
	end;

OnTimer5000:
	mapannounce "thana_boss","ž֨...ž֨.....",1,0xff0000;
	end;

OnTimer60000:
	mapwarp "thana_boss","tha_t12",130,47;
	set $@thana_summon2,0;
	enablenpc "·#1";
	enablenpc "·#2";
	enablenpc "·#3";
	enablenpc "·#4";
	enablenpc "·#5";
	end;
	
OnTimer7200000:
	killmonsterall "thana_boss";
	set $@thana_summon,0;
	stopnpctimer;
	end;
}

thana_boss,1,1,0	script	#Death	-1,{

OnDead:
	set $@thana_summon2,$@thana_summon2 +1;
	end;

OnWave:
	set $@thana_wave,$@thana_wave -1;
	if($@thana_wave < 1)
	{
		donpcevent "#thanasummon::OnSummon";
	}
	end;
	
OnThanaDead:
	donpcevent "#thanatimer::OnActive";
	set $@thana_summon,6;
	end;
}

tha_t06,119,120,0	script	thana6-7	45,1,1,{
	if(
		( Upper&1 && Class > Job_Thief_High ) || 
		( (Class == Job_Gunslinger || Class == Job_Ninja || BaseClass == Job_Taekwon) && BaseLevel >= 95 ) 
	) { 
		warp "thana_step",69,369;
		end;
	}
	else {
		mes "^3355FFAn overwhelming force";
		mes "acts against you, preventing";
		mes "you from proceeding this way...^000000";
		close;
	}
}
