//==================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - F ȸ} - 
//===================================
// G1.9
//====================================

hu_fild01,140,163,5	script	iX ޲z#tha	852,3,3,{
	mes "[]";
	mes "AnܡA";
	mes "ڬOtdB'FǦ x'";
	mes "iX޲zA";
	mes "ڥs' 'A";
	mes "аݻݭn?";
	next;
	switch( select( "OFǦ x?:ڥiHiJ̭?:iJx:ΤF" )) {
	case 1:
		mes "[]";
		mes "OAxO";
		mes "'FǦ x' S,";
		mes "ӱNo󪺶xѧڭ";
		mes "pڨǵo{ijWҪ";
		mes "M]γzLפu@,";
		mes "ثewa";
		mes "[ӦaF";
		next;
		mes "[]";
		mes "_o{ox,ӰϪ";
		mes "쥻@۪OWLFǦ";
		mes "WrAҥHNW";
		mes "FǦ xF";
		next;
		mes "[]";
		mes "ᤣӦai}ou@A";
		mes "쥻sbx]A";
		mes "N 1B2ӳ]jPW";
		mes "MAwصM@s@H";
		mes "ҥiwaۥѶiX[Ǫ";
		mes "Ŷ}";
		next;
		mes "[]";
		mes "3ӥHWϰثeb}oA";
		mes "]blҥiHP";
		mes "M]";
		mes "ӤHh";
		next;
		mes "[]";
		mes "w惡ƶݶiJA";
		mes "|[ԲӪ";
		next;
		mes "[]";
		mes "YðݨƶܡA";
		mes "и߰ݤ";
		mes "AȤHa";
		close;
	case 2:
		mes "[]";
		mes "MiHihA";
		mes "w}";
		mes "@Hh";
		next;
		mes "[]";
		mes "uO}ϰȭ1B2ӡA";
		mes "٦...";
		mes "ݤI@ǤJOA";
		mes "γ\|ıoIQA";
		mes "un@ih̭A";
		mes "OҤ|PQ";
		next;
		mes "[]";
		mes "CHJOO'5000'A";
		mes "Y``QΪܡA";
		mes "|@ǧ馩ufA";
		mes "٦Uڭ̪";
		mes "Hh,]ۦP";
		mes "Yz馩uf";
		close;
	case 3:
		mes "[]";
		mes "аݧAnih?";
		mes "JOO ^FF00001H 5000^000000";
		next;
		switch( select( "ih:U@" ) ) {
		case 1:
			if (thana_quest) {
				mes "[]";
				mes "ڧAO "+strcharinfo(0)+"/pj,";
				mes "AOSӤu@?";
				mes "pPAť쪺@ˬO 3000";
				next;
				switch( select( "ih:U@" )) {
				case 1:
					if (Zeny < 3000) {
						mes "[]";
						mes "uO...";
						mes "AanA";
						mes "ڷ|A Ч֥hɨAӧa";
						close;
					}
					mes "[]";
					mes "§A";
					mes "~UAWo";
					set Zeny,Zeny - 3000;
					close2;
					warp "tha_scene01",131,220;
					end;
				case 2:
					mes "[]";
					mes "AnbOưڡA";
					mes "ЧAUAӫXa";
					close;
				}
			}
			if (Zeny < 5000) {
				mes "[]";
				mes "ȤH藍_A";
				mes "nOA";
				mes "ܩp";
				close;
			}
			mes "[]";
			mes "§AA";
			mes "AӬn^...";
			mes "...";
			set Zeny,Zeny - 5000;
			close2;
			warp "tha_scene01",131,220;
			end;
		case 2:
			mes "[]";
			mes "ЧAUAӨϥΧa";
			close;
		}
	case 4:
		mes "[]";
		mes "ڡAO?";
		mes "Y򦹳B 'FǦ x'";
		mes "ƱܡA";
		mes "ЦAӧڧa";
		close;
	}
OnTouch:
	mes "[޲z]";
	mes "....";
	mes "ЧA@UA";
	mes "o̬O'pڨ'ҺҪ";
	mes "aϡAOiX";
	close;
}

tha_t01,149,78,4	script	AȤH	90,{
	if(!thana_quest) {
		mes "[f]";
		mes "An?";
		mes "wAѹpڨǶ}o";
		mes "}񤤪o 'FǦ x'A";
		mes "аݻݭn?";
		next;
		switch( select( "߰ݦFǦ xƱ:ťA̦blҤH..:S" )) {
		case 1:
			mes "[f]";
			mes "o 'FǦ x'A";
			mes "LkTOѽ֫سyA";
			mes "Υ_SO˪ؿv";
			next;
			mes "[f]";
			mes "w惡ƬOXwA";
			mes "Ҧp'b1000~eԪɡA";
			mes "O]ڻݭnӫس]'A";
			mes "'OY]kvsҡA";
			mes "OY^]A";
			mes "FLӳ]' ...";
			next;
			mes "[f]";
			mes "LT_SHDA";
			mes "Mڭ̹pڨ";
			mes "gLɶ_";
			mes "Ps,o{";
			mes "T_";
			next;
			mes "[f]";
			mes "A[WӶx";
			mes "ͦs۬Ʋh]A";
			mes "]Pe̾԰";
			mes "묹FܦhH";
			next;
			mes "[f]";
			mes "Lڭ̹pڨǽTH";
			mes "'o'FǦ x'Os۳\hK";
			mes "\hKAH";
			mes "P_KHoi";
			mes "t䪺AҥH";
			mes "̫_묹MIiu@";
			next;
			mes "[f]";
			mes "Gb12hӤA";
			mes "w}oO1B2ӡA";
			mes "ثe 3B4ӳb[";
			mes "l[}o";
			next;
			mes "[f]";
			mes "M]sxj";
			mes "ܦӦê,n";
			mes "ಳH䴩M]";
			mes "ӦG׺";
			next;
			mes "[f]";
			mes "H{bpӬݡAL[";
			mes "3B4ӴN}o";
			next;
		L_Ask1:
			switch( select( "]?:M]?:........." )) {
			case 1:
				mes "[f]";
				mes "OA۱qڭ̶}o";
				mes "o̤,N}lX{";
				mes "]F";
				next;
				mes "[f]";
				mes "_SBODe";
				mes "q̫_XӡA";
				mes "HΨe֦̾";
				mes "Ѩϯ몺Ϊ";
				next;
				mes "[f]";
				mes "ҥHYǤHݹLe̫,";
				mes "٩Ie̬Ϫ̡A";
				mes "iOϪ̨Szѭn`";
				mes "ڭ̤HO?";
				next;
				mes "[f]";
				mes "Oڭ̩eUժ̾Ƿ|";
				mes "hլdGAdXƹW";
				mes "e̥uLO";
				mes "ܵۤѨϥ~";
				mes "]Ӥw";
				next;
				mes "[f]";
				mes "ҥHڭ̶}l[jh";
				mes "e̡Aۦ";
				mes "Pe̪԰,";
				mes "@줵";
				next;
				goto L_Ask1;
			case 2:
				break;
			case 3:
				mes "[f]";
				mes "oǤWqӼhݭn\h";
				mes "HOYA]䥦";
				mes "@̪ӽСA";
				mes "pGAN@ܡA";
				mes "nnӽЬݬݩO?";
				next;
				goto L_Ask2;
				close;
			}
			break;
		case 2:
			break;
		case 3:
			mes "[f]";
			mes "'HWO'F xAȤHA";
			mes "'f ԩ'A";
			mes "AӴr֪ɶ";
			close;
		}
		mes "[f]";
		mes "DAO_VJf";
		mes "AȤHťѻA";
		mes "ڭ̹pڨǬF3B4ӡA";
		mes "HΨHWӼhP";
		mes "}oAbl";
		mes "uH";
		next;
		mes "[f]";
		mes "⥦QħL@";
		mes "NiHFAPڭ̭q";
		mes "HAڭ̷|w@H";
		mes "iJ 3ӥHWӼhA";
		mes "ᤩۥѶiXv";
		next;
		mes "[f]";
		mes "pGaӸѨM]";
		mes "ҾڮɡAڭ̴N|I";
		mes "۹Ȫv";
		next;
		mes "[f]";
		mes "pGAN@ӽХ[JܡA";
		mes "гzL";
		mes "Wa";
		next;
	L_Ask2:	
		switch( select( "U@:ڭnӽ" ) ) {
		case 1:
			mes "[f]";
			mes "ڭHɶ}ӽгWA";
			mes "pGܥDNܡA";
			mes "Aӧڧa";
			close;
		case 2:
			mes "[f]";
			mes "nA§AA";
			mes "ж@Uo";
			mes "n?";
			mes "O²PN";
			next;
			mes "[f]";
			mes "..٦аݤjWO.....";
			mes ""+strcharinfo(0)+" ?";
			next;
			select("O");
			mes "[f]";
			mes "ЧAJӾ\Ūo̫,";
			mes "AñWa";
			next;
			mes "ogKK³¤pr";
			mes "ȱiFA";
			next;
			mes "-  -";
			mes "1.";
			mes "ѬOpڨ(HU²'Ҥ')M";
			mes ""+strcharinfo(0)+"(HU²'A')ĤOC";
			mes "1-1. WٴNs'Ҥ'M";
			mes "'A'ħLC";
			mes "2.";
			mes "ĤOOqbWñW}";
			mes "lC";
			mes "3.";
			mes "ȪGO̾'Ҥ'Ҥƪ";
			mes "ڤ~TwGC";
			mes "3-1. ҾڦpU:";
			mes "4.";
			mes "C@تҪj@wƶqHW^";
			mes "ӪΤU,'Ҥ'oHV'A'I";
			mes "vC";
			mes "4-1. vpU:";
			mes "........";
			mes "...........";
			mes "..............";
			mes "13. ѪĤOȭFǦ";
			mes "x,b䥦ϰhॢĤOC";
			mes "...................";
			mes "...l[Ov'Ҥ'ӿյ'A'";
			mes "iXFǦ";
			mes "x馩uf,OΥ5000uf";
			mes "3000C";
			mes ".......";
			mes "............";
			mes "       pڨ";
			mes " "+strcharinfo(0)+"";
			next;
			switch( select( "ñW:ñW" ) ) {
			case 1:
				mes "Ab˦ۦPeѤWñFW";
				next;
				mes "[f]";
				mes "§AA";
				mes "o˧ڭ̤ħL";
				mes "wñwF";
				next;
				mes "[f]";
				mes "uOAѪĤOߦbo";
				mes "FǹFǦ x";
				mes "ҥHŻݾ";
				next;
				mes "[f]";
				mes "ԲӨƶаѦҫѰO";
				mes "eA3ӶiX 2ӪAȤH";
				mes "tdAGv";
				mes "Oѧڮ'~'pj";
				mes "td޲z";
				next;
				mes "[f]";
				mes "٦Ӹ`A";
				mes " 2ӪAȤHtdA";
				mes "򯬧A׺ӪG";
				set thana_quest,1;
				close;
			case 2:
				mes "[f]";
				mes "....";
				mes "AèSñWO?";
				mes "... AӬON";
				mes "a";
				next;
				mes "[f]";
				mes "NSkFA";
				mes "pGAܥDNܡAA";
				mes "Aӧڧa";
				close;
			}
		}
	}
	mes "[f]";
	mes "ԲӪƶ| 2Ӫ";
	mes "AȤHMڮ䪺AȤH";
	mes "i满A";
	mes "§A";
	close;
}

tha_t01,140,78,4	script	AȤH#thana	831,{
	if(!thana_quest) {
		mes "[~]";
		mes "AnܡA";
		mes "ڬOtdM'FǦ x'";
		mes "v~ JgV";
		mes "AȤH";
		next;
		switch( select( "?:WF" ) ) {
		case 1:
			mes "[~]";
			mes "کһOPڭ'pڨ'";
			mes "qñqħLA";
			mes "ԲӨƶΫWqL";
			mes "i覡Aи߰";
			mes "ڮ䪺'f'pj";
			close;
		case 2:
			mes "[~]";
			mes "§AA";
			mes "AӴr֪@";
			close;
		}
	}
	mes "[~]";
	mes "AnܡA";
	mes "аݻݭn?";
	next;
	switch( select( "v:S")) {
	case 1:
		mes "[~]";
		mes "...AOñH?";
		mes "ЧAy@U";
		next;
		mes "[~]";
		mes "AO"+strcharinfo(0)+"/pjڡA";
		mes "Aݭn@ت~vO?";
		next;
		switch( select( ":Ф:ŦФ:AGL" )) {
		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 "§AA";
		mes "кC";
		close;
	}
}

function	script	Func_Thana	{
	if(!countitem(getarg(0))) {
		mes "[~]";
		mes "............";
		mes "'"+ getitemname(getarg(0)) +"'AèS";
		mes "ڡA";
		mes "·ЧAAT{@U";
		mes "Ҿ֦~a";
		close;
	}
	mes "[~]";
	mes "'"+ getitemname(getarg(0)) +"'v";
	mes "IpUA";
	mes " : 1000z";
	mes "l[v : 2000exp";
	next;
	mes "[~]";
	mes "Aثeҫ";
	mes "'"+ getitemname(getarg(0)) +"'O"+ countitem(getarg(0)) +"ӡAio";
	mes " : "+ countitem(getarg(0)) * 1000 +"z";
	mes "l[v : "+ countitem(getarg(0)) * 2000 +"exp";
	mes "";
	next;
	mes "[~]";
	mes "аݧAnv?";
	next;
	switch( select( "n:n" ) ) {
	case 1:
		mes "[~]";
		mes "§AA";
		mes "ڭnAF";
		next;
		mes "[~]";
		mes " : "+ countitem(getarg(0)) * 1000 +"z";
		mes "l[v : "+ countitem(getarg(0)) * 2000 +"exp";
		mes "AAwgUF,";
		mes "~򦳳ҧAF";
		set Zeny,Zeny + countitem(getarg(0)) * 1000;
		getexp countitem(getarg(0))*2000,0;
		delitem getarg(0),countitem(getarg(0));
		close;
	case 2:
		mes "[~]";
		mes "pGAQӧv,";
		mes "wAHɨӧ";
		close;
	}
}

tha_t02,231,161,5	script	iX AȤH	874,{
	if(!thana_quest) {
		mes "[|w]";
		mes "o̬Oq3ӪqDA";
		mes "uMڭñq";
		mes "ʪHA~iX";
		next;
		mes "[|w]";
		mes "ԲӪƶи߰";
		mes "ӤUAȤH";
		close;
	}
	mes "ۤ@ӫҨƱkl";
	next;
	mes "[|w]";
	mes "........";
	next;
	switch( select( "а.....:........." ) ) {
	case 1:
		mes "[|w]";
		mes "...";
		mes "ܩpA";
		mes "аݧڦƶ?";
		next;
		if(thana_quest < 2) {
			switch( select( "ڷQ3:ڬOHAQťѻ.." ) ) {
			case 1:
		L_Access3:
				mes "[|w]";
				mes ",Oo˰ڡA";
				mes "ڬd@U....jWO..";
				mes ""+strcharinfo(0)+"/pj";
				set .@thana_level2,getareausers("tha_t02",226,156,236,166);
				next;
				if(.@thana_level2 < 5) {
					mes "[|w]";
					mes "ѩثe|ꨬ";
					mes "HơAҥHЧA";
					mes " 5HHW";
					mes "Ha";
					next;
					mes "[|w]";
					mes "pG٦䥦PH,";
					mes "лEڨӡA";
					mes "oOFˬdTH,";
					mes "qШ̡A";
					mes "ثeݤHƬO"+ .@thana_level2 +" W";
					close;
				}
				mes "[|w]";
				mes "nꨬFHƤFA";
				mes "ڭn}ҳq3Ӫh";
				next;
				mes "[|w]";
				mes "t~|}ҫܤ[A";
				mes "нШtqLA";
				mes "Y쩵ɶܡAӤW";
				mes "]i|]ӳo̩O";
				close2;
				donpcevent "#thana3::OnOpen";
				end;
			case 2:
		L_GateInfo:
				mes "[|w]";
				mes "ڡAOo˰ڡA";
				mes "]jwbӤUťFA";
				mes "ڥuDݭnVA";
				next;
				mes "[|w]";
				mes "nVAOq3Ӫ";
				mes "uo@AH";
				mes "5ӥHWOݩ";
				mes "D";
				next;
				mes "[|w]";
				mes "3B4ӪM}ou@ڭ̤wg";
				mes "i檺thFAiHۥѦa";
				mes "ʡAq 5Ӷ}l,";
				mes "]YؤOqzZAuWӡA";
				mes "oLkAU";
				next;
				mes "[|w]";
				mes "٦x̰ӼhO";
				mes "12ӡAUWhӡA";
				mes "ҥX{]N|";
				mes "UjAPaΪܤ";
				mes "]|Y";
				next;
				mes "[|w]";
				mes "U@niJ5ӥHWܡA";
				mes "ĳA@wnn";
				mes "hAWha";
				next;
				mes "[|w]";
				mes "٦Fw_A";
				mes "Wwꨬ5HHWɡA";
				mes "~iJ";
				next;
				mes "[|w]";
				mes "pG 5HHWɡA";
				mes "ܩp";
				mes "ꨬHƬA";
				mes "ҥHiH";
				mes "Aӧa";
				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 "[|w]";
			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 "[|w]";
				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 "[|w]";
				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 "[|w]";
				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 "[|w]";
				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 "[|w]";
				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 "[|w]";
				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?";
			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	˸m#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 "jPOq¶b˸mW";
	next;
	switch( select( "jPOq:}" )) {
	case 1:
		if (getequipweaponlv(4) < 4) {
			mes "MΥثeaZ,";
			mes "VrPUhAO";
			mes "LkW}OqcӳQϼu^ӡA";
			mes "ӻݭnƧjj";
			mes "OqZ";
			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 "ڦAҼ{@U";
	close;
}

tha_t04,195,195,0	script	˸m#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 "ˬd˸mɵo{eU";
	mes "gۤjpAƦrA";
	mes "IĲƦroX'~'nPɡA";
	mes "eWX{r";
	next;
	mes "[e]";
	mes "nJ3Ʀr";
	mes "䤤]t'0'A";
	mes "୫ƨϥμƦrA";
	mes "WLJd";
	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 "[e]";
		mes "WLJƦrd";
		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 "[e]";
	mes "JƦr : ^0000ff"+@thanainput1+"^000000, ^0000ff"+@thanainput2+"^000000, ^0000ff"+@thanainput3+"^000000 .";
	mes "ŲwG";
	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 "eWX{rA";
		mes "L[eWSX{s";
		mes "r,ۼƦrA";
		mes "SXŶ";
		next;
		switch( select( "\Ūer:ˬd:nSSOB" )) {
		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 "ۤzɫooX'-'";
			mes "nPɪŶN,";
			mes "er]F";
			close;
		}
	}
	mes "[e]";
	mes "͹-";
	mes "JF~֩wƦr";
	next;
	mes "[e]";
	mes "ƦrMm諸^FF0000"+@strike+"^000000 ,";
	mes "uƦr ^FF0000"+@ball+"^000000 ";
	next;
	if(@thanatry > 4) {
		mes "֩wƦrO : ^ff0000"+@thanacode1+"^000000, ^ff0000"+@thanacode2+"^000000, ^ff0000"+@thanacode3+"^000000,";
		mes "Ӯɮ֩wƦr|";
		set @thanatry,0;
		close;
	}
	goto L_Input;
}

tha_t05,101,37,0	script	˸m#thana3	111,{
	if((countitem(7423)) || (countitem(7428))) {
		mes "aOWuҽko,S䥦Sx";
		close;
	}
	set .@thana_level5,getareausers("tha_t05",98,34,104,40);
	if(!.@thana_level5) {
		mes "˸mPPı@";
		mes "_,˦ˬdL";
		mes "˸m,èSo{";
		mes "䥦SO}˸m";
		if(rand(1,3) == 2) {
			next;
			mes "L˸mB@";
			mes "SХܪe,";
			mes "R[Pɵo{Fb˸m";
			mes "|PaOiߵۤH,";
			mes "aOWõoXé諸~";
			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 "a˸m,b˸mP";
		mes "aOW}loXé諸~,";
		mes "HΤ[,oX'~'n";
		mes "Pɦee";
		mes "}lX{Fr";
		next;
		mes "٦bUBX{F";
		mes "ŪŶ";
		next;
		switch( select( "ݵe:ˬdŪŶ:zL" ) ) {
		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 "dݪŪŶ,b";
			mes "ݨF{{oF,";
			mes "⥦XӬݬOӻ";
			mes "_ͪF";
			getitem 7423,1;
		case 3:
			close;
		}
	}
}

tha_t06,43,152,0	script	˸m#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 "ӹBۥj";
	mes "˸m,b񪺬Y@,";
	mes "ӨSܪF誺";
	mes "e";
	next;
	mes "ӬOS䥦˸mF";
	next;
	switch( select( "Investigate:Cancel" ) ) {
	case 1:
		if((countitem(7421)) || (countitem(7422)) || (countitem(7423))) {
			mes "Ai@Bլd,";
			mes "W_ͩM";
			mes "}loXLM";
			mes "n,";
			mes "L[NSnF";
			next;
			switch( select( "ˬd񪺥:ˬd:zL" ) ) {
			case 1:
				mes "񪺥W@L";
				mes ",e]@";
				close;
			case 2:
				set @thana_small1,0;
				set @thana_small2,0;
				set @thana_big1,0;
				set @thana_big2,0;
				set @thana_big3,0;
				mes "Fլd,";
				mes "NĲIF@U,";
				mes "AѨ쾦Ob";
				mes "LLʪƹ";
				next;
				mes "Aլd@U";
				next;
				mes "լdG,5";
				mes "b,dX@";
				mes "p 2,j";
				mes "3Ӧbʵ";
				next;
				mes "䤤p譱dX";
				mes "WMUiHyL";
				mes "Uh";
				next;
				mes "j譱hdX";
				mes "|WUΫ";
			L_Wheels:
				next;
				mes "ʤ@Ua";
				switch( select( "Ĥ@Ӥp:ĤGӤp:Ĥ@Ӥj:ĤGӤj:ĤTӤj:[ثeA:^ӪA")) {
				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 "Ĥ@Ӥp : ʤ";
					else if(@thana_small1 == 1) mes "Ĥ@Ӥp : Down";
					else if(@thana_small1 == 2) mes "Ĥ@Ӥp : Up";
					else if(@thana_small1 == 3) mes "Ĥ@Ӥp : Pressed";
					if(@thana_small2 == 0) mes "ĤGӤp : ʤ";
					else if(@thana_small2 == 1) mes "ĤGӤp : Pressed";
					else if(@thana_small2 == 2) mes "ĤGӤp : Down";
					else if(@thana_small2 == 3) mes "ĤGӤp : Up";
					if(@thana_big1 == 0) mes "Ĥ@Ӥj : ʤ";
					else if(@thana_big1 == 1) mes "Ĥ@Ӥj : Up";
					else if(@thana_big1 == 2) mes "Ĥ@Ӥj : Moved";
					else if(@thana_big1 == 3) mes "Ĥ@Ӥj : Down";
					if(@thana_big2 == 0) mes "ĤGӤj : ʤ";
					else if(@thana_big2 == 1) mes "ĤGӤj : Moved";
					else if(@thana_big2 == 2) mes "ĤGӤj : Up";
					else if(@thana_big2 == 3) mes "ĤGӤj : Down";
					if(@thana_big3 == 0) mes "ĤTӤj : ʤ";
					else if(@thana_big3 == 1) mes "ĤTӤj : Down";
					else if(@thana_big3 == 2) mes "ĤTӤj : Up";
					else if(@thana_big3 == 3) mes "ĤTӤj : 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 "٬Ozn";
		close;
	}
}

function	script	Thana_Wheels	{
	switch( select( "VW:VU",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	˸m	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	ʦL#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	ʦL#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	ʦL#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	ʦL#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	ʦL	111,{
	if(!countitem(7424)) {
		mes "AaʦL,";
		mes "oX'ԧs~'nP,";
		mes "QuX";
		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 "۹oX~,";
		mes "_SOqקA";
		close;
	}
	else {
		mes "۹oX벴Lk";
		mes "jP~,SܦH";
		mes "IĲSoaB";
		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 "۹oX~,";
		mes "_SOqקA";
		close;
	}
	else {
		mes "۹oX벴Lk";
		mes "jP~,SܦH";
		mes "IĲSoaB";
		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 "۹oX~,";
		mes "_SOqקA";
		close;
	}
	else {
		mes "۹oX벴Lk";
		mes "jP~,SܦH";
		mes "IĲSoaB";
		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 "۹oX~,";
		mes "_SOqקA";
		close;
	}
	else {
		mes "۹oX벴Lk";
		mes "jP~,SܦH";
		mes "IĲSoaB";
		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 "۹oX~,";
		mes "_SOqקA";
		close;
	}
	else {
		mes "۹oX벴Lk";
		mes "jP~,SܦH";
		mes "IĲSoaB";
		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 "beۤ@ǯê⯾";
	mes ",ӥiHJY";
	mes "F誺}";
	if (countitem(7437)) {
	}
	next;
	input @input$;
	if(countitem(7437)) {
		if(@input$ == "dsH") {
			mes "dsHJ,";
			mes "z}loXG~";
			delitem 7437,1;
			misceffect 16;
			monster "thana_boss",217,167,"FǦds",1711,1,"#Death::OnDead";
			disablenpc "#1";
			close;
		}
	}
	mes "èSaتF";
	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 "beۤ@ǯê⯾";
	mes ",ӥiHJY";
	mes "F誺}";
	if (countitem(7436))
	{
	}
	next;
	input @input$;
	if(countitem(7436)) {
		if(@input$ == "WoH") {
			mes "WoHJ,";
			mes "z}loXG~";
			delitem 7436,1;
			misceffect 16;
			monster "thana_boss",202,75,"FǦWo",1712,1,"#Death::OnDead";
			disablenpc "#2";
			close;
		}
	}
	mes "èSaتF";
	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 "beۤ@ǯêŦ⯾";
	mes ",ӥiHJY";
	mes "F誺}";
	if (countitem(7438)) {
	}
	next;
	input @input$;
	if(countitem(7438)) {
		if(@input$ == "몺H") {
			mes "⼨몺HJ,";
			mes "z}loXG~";
			delitem 7438,1;
			misceffect 16;
			monster "thana_boss",80,76,"FǦ",1709,1,"#Death::OnDead";
			disablenpc "#3";
			close;
		}
	}
	mes "èSaتF";
	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 "beۤ@ǯê⯾";
	mes ",ӥiHJY";
	mes "F誺}";
	if (countitem(7439)) {
	}
	next;
	input @input$;
	if(countitem(7439)) {
		if(@input$ == "檺H") {
			mes "⵴檺HJ,";
			mes "z}loXG~";
			delitem 7439,1;
			misceffect 16;
			monster "thana_boss",62,171,"FǦ",1710,1,"#Death::OnDead";
			disablenpc "#4";
			close;
		}
	}
	mes "èSaتF";
	close;
}

thana_boss,141,218,0	script	#5	111,3,3,{
	end;
	
OnTouch:
	if($@thana_summon2 > 3) {
		mes "Aa[,";
		mes "~}l]_";
		mes ",t~ߧY";
		mes "QG~л\";
		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,"ds",1711,1,"#Death::OnWave";
		monster "thana_boss",141,216,"Wo",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,"]Ch FǦO",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","zڰڰڰ!!",1,0xff0000;
	end;

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

OnTimer3000:
	mapannounce "thana_boss","ԧs...ԧs...",1,0xff0000;
	end;

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

OnTimer5000:
	mapannounce "thana_boss","ԧs...ԧs.....",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((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;
	else {
		mes "^3355FFAn overwhelming force";
		mes "acts against you, preventing";
		mes "you from proceeding this way...^000000";
		close;
	}
}
