//==================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - EP10.2 ( 2005 )sYs@ } - 
//===================================
// G1.1
//===================================

yuno,222,116,3	script	d贵#LhzHat	851,{
	if(countitem(519) > 49 && countitem(7031) > 49 && countitem(548) > 49 && countitem(539) > 49) {
		mes "[d贵]";
		mes "а,AOnnڪ?";
		next;
		switch(select(",AOoF?:MC,аݫF?")){
		case 1:
			mes "[d贵]";
			mes "ڰ~";
			mes "S,ܩp,ڬOӷ|OoC@ӤHyհ,";
			mes "A[Wڤ]eUܦhH,쩳eU֤FOڤ]OoF";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ڳo˾֦HOo,uڥ";
			next;
			mes "[d贵]";
			mes ",|oˤl,";
			mes "OذOФOtH,";
			mes "Nڤ@a";
			next;
			mes "[d贵]";
			mes ",iiHݤ@UAҷǳƦnFO,";
			mes "z~ sA٦~_h~";
			mes "pJ|....";
			mes "ܧ!";
			next;
			mes "[d贵]";
			mes "ݼˤlڥiHeڪB̦ͭnY\I,";
			mes "ڭnA~諸,Lڪp]V,]An......";
			next;
			mes "[d贵]";
			mes ",oNOd贵Ssgq!";
			mes "AҷǳƦn~,uOڲ\y§A";
			delitem 519,50;
			delitem 7031,50;
			delitem 548,50;
			delitem 539,50;
			getitem 5107,1;
			next;
			mes "[d贵]";
			mes ",ЧAnnɥ,רOgqb|E|άO|ĳWBάObWǪW!";
			mes "biwαıӱ߰_W,OiίʪBͤ@";
			next;
			mes "[d贵]";
			mes "OonѰOY\,";
			mes "ڴNnǳƿeBͪKhǳƤF,";
			mes "A~";
			close;
		case 2:
			mes "[d贵]";
			mes ",O,";
			mes "ѹ껡ڭnFb㭵ùJutu@Bͭ,";
			mes "neL̫K....";
			mes "]ƨS`nկթh";
			next;
			mes "[d贵]";
			mes "ҥHڬݨAaӪ~,٥HOکeUH^ӤFO";
			next;
			mes "[d贵]";
			mes "OڬݿH,";
			mes "ܩp";
			mes "........";
			mes ".....";
			next;
			mes "- d贵Iܰˤl,@ݵۧAa_hMpJ| -";
			next;
			switch(select("pAݭnoӪ,ڥiHAr?:A@ۧڬݩO?")) {
			case 1:
				mes "[d贵]";
				mes "u?!";
				mes "AOuߪ?!";
				mes "گuiHoǤB_hBpJ|BM}¥?!";
				next;
				mes "[d贵]";
				mes ",٦n!";
				mes "iHǮɪB̰ͭeW\IF,";
				mes "AuO@nnHr,";
				mes "ڭnnAO..";
				next;
				mes "[d贵]";
				mes ",Nnѥ],NAoӧa!";
				mes "bڭ̩ٽ檺,ݰ_ӫܴqL_ӫܶOɪ,ҥHupqͲ";
				next;
				mes "[d贵]";
				mes ",oNOd贵Ssgq!";
				mes "AҷǳƦn~,uOڲ\y§A";
				delitem 519,50;
				delitem 7031,50;
				delitem 548,50;
				delitem 539,50;
				getitem 5107,1;
				next;
				mes "[d贵]";
				mes ",ЧAnnɥ,רOgqb|E|άO|ĳWBάObWǪW!";
				mes "biwαıӱ߰_W,OiίʪBͤ@";
				next;
				mes "[d贵]";
				mes "OonѰOY\,";
				mes "ڴNnǳƿeBͪKhǳƤF,";
				mes "A~";
				close;
			case 2:
				mes "[d贵]";
				mes "S,S,";
				mes "ڵ藍OFݭnǤB_hӬݧA,";
				mes "Фnzڦn";
				next;
				mes "[d贵]";
				mes "L֦AoǶq,iHѤ@ѥKOSD...";
				mes "nir";
				mes "...";
				close;
			}
		}
	}
	mes "[d贵]";
	mes "ܩp,ѥͷNF,";
	mes "Sѥ]iHAF,";
	mes "..";
	mes "r..";
	next;
	switch(select("Ĥ@fO?:^hF")) {
	case 1:
		mes "[d贵]";
		mes "....ڰ.......oӹ..";
		mes "ѹ껡ڨCѳbo̯Nѥ],Meb㭵ùJu@ڪBͭ";
		next;
		mes "[d贵]";
		mes "FڪBͭ,L̳Obut̫ܽRu@B,";
		mes "unaҤn,bo̯Nѥ]eL̫K";
		next;
		mes "[d贵]";
		mes "iOioƪyq,MQF,";
		mes "ҥHͷNWƽիפ]x,";
		mes "ns@Kbдo";
		next;
		mes "[d贵]";
		mes "]B̥ͭᱼ......";
		mes "nk..";
		mes "nQȤHݨڤno@";
		next;
		switch(select("nA?:ڤ]Pܰr")) {
		case 1:
			mes "[d贵]";
			mes "u?";
			mes "u§A..";
			mes ",AݳoǤMMlܺ}Ga?";
			mes "Obut̤u@Bͭڰ.NcܿSnSF";
			next;
			mes "[d贵]";
			mes "FyLǪB,N}lN_ѥ]ӤF,";
			mes "boǨƱ٨Soͤe,";
			mes "nڦbxɧAn...o@ɤW٬OIH";
			next;
			mes "[d贵]";
			mes "ڻݭn~,";
			mes " ^4D4DFFsA 50,";
			mes "oæn_h 50,";
			mes "pJ| 50,";
			mes "}¥ 50^000000 NF";
			next;
			mes "[d贵]";
			mes "oO{bݭnq,";
			mes "аݧA`?";
			mes "U,U,uUA,";
			mes "FǦbKhWu@Bͭ,";
			mes "s@Ѥ@\ڳQL̳̦n";
			next;
			mes "[d贵]";
			mes "ҥHoˤ~|ШDA";
			close;
		case 2:
			mes "[d贵]";
			mes "uO,nַQkqyq,";
			mes "LQSe,";
			mes "@wOHbYӦa,We~..";
			next;
			mes "[d贵]";
			mes ",쩳~oͤƱO..";
			mes "but̪B,쩳SbɦYO...";
			mes "ڭn󮶧@_,";
			mes "§A,ȤH";
			close;
		}
	case 2:
		mes "[d贵]";
		mes "ܩp,ȤH,";
		mes "U@ڤ@wAǳƦn,nYѥ],";
		mes "Ao";
		close;
	}
}

airport,148,41,3	script	f ޲z#Rq	852,{
	mes "[޲z ߨq]";
	mes "Ѥ]O,";
	mes "٬OܴNӤFO,";
	mes "?";
	mes "w{,ȤH,";
	mes "wAӨ 㭵ùJ";
	next;
	if(countitem(5107) || getequipid(10) == 5107) {
		mes "[޲z ߨq]";
		mes "";
		next;
		mes "[޲z ߨq]";
		mes "";
		next;
		mes "[޲z ߨq]";
		mes "";
		close;
	}
	mes "[޲z ߨq]";
	mes "аݧAOnhժ@?";
	next;
	switch(select("rAS...:OAAiHڤФ@U:")) {
	case 1:
		mes "[޲z ߨq]";
		mes "pAnhժ,iHөѥ]̥hݬݶ?";
		mes "@s d贵ѥ]v,unݤ@ULpNn";
		next;
		mes "[޲z ߨq]";
		mes "CoӮɶK|e쪺,L٨S,";
		mes "쩳oͤFƱFO,I߰,";
		mes "ouOڭӤHШD,AunLɭԶihݤ@UNn..";
		next;
		mes "[޲z ߨq]";
		mes ".......Oΰ,ڦnhF,ڭܴNťťF,";
		mes "򯬧Aȳ~w";
		close;
	case 2:
		mes "[޲z ߨq]";
		mes "~,~ܷ|AȤHsb,L̸߰ݧa";
		next;
		mes "[޲z ߨq]";
		mes "²檺о,";
		mes "2Ӧȭ̪𮧫,QnfŸ,Nn򯸦beAȤHܧYi";
		next;
		mes "[޲z ߨq]";
		mes "FnfŸnLh,unpߤ@ǦMIa褧~,ۼӱ詹WNnF,";
		mes "а٦n߰ݶ?";
		next;
		switch(select("аݧA~X? SRHO?:аݥiHbo̩Ӷ?:߰ݦ㭵ùJƱ:ڨSDn߰ݤF")) {
		case 1:
			mes "[޲z ߨq]";
			mes "23,";
			mes "٨SRH...ڰڰ?!!";
			mes "аݧAnݳoǰDO?!!";
			close;
		case 2:
			mes "[޲z ߨq]";
			mes "?";
			mes ".. Y... A@Nڪ,ڤ]SN,";
			mes "o]OFnζH,]Ou@@,";
			mes "NUA";
			next;
			cutin "ein_soldier",1;
			mes "[޲z ߨq]";
			mes ".. ݳo˯ۥiH?";
			mes "  ";
			mes "LکUӭnO?";
			next;
			input .@word$;
			mes "["+strcharinfo(0)+"]";
			mes "oӹAAUӫA";
			mes "OF^4A4AFF" +.@word$+ "^000000YAHH";
			next;
			mes "[޲z ߨq]";
			mes ".. OF? ޲e";
			close2;
			cutin "ein_soldier",255;
			end;
		case 3:
			mes "[޲z ߨq]";
			mes "unť㭵ùJWrND,o̬Ou~Sƪ,";
			mes "qqs̱Ĩq,sss@X@ǥ[u~,pNܦFWejƳF";
			next;
			mes "[޲z ߨq]";
			mes "p]iHO㭵M㭵ùJO@ͪY..";
			mes "....,";
			mes "L٬OЧA˦ۨ㭵X,~ӧP_a";
			next;
			mes "[޲z ߨq]";
			mes "L٦@Ӫ`Nƶ,ɭԪŮìVƷ|W,|oGĵ,";
			mes "ɭԽШtkǤ,άOWr";
			next;
			mes "[޲z ߨq]";
			mes "]uth,ҥHƩ񪺷]..";
			mes "L]O@ӫܮta,";
			mes "MܦMI,L]WyOҦb";
			next;
			mes "[޲z ߨq]";
			mes "AӴr֪Ȧ";
			close;
		case 4:
		}
	case 3:
		mes "[޲z ߨq]";
		mes "Ao,";
		mes "wAUAf";
		close;
	}
}

lighthalzen,143,68,0	script	ǲC~#LhzHat	47,{
	if(DTHATQ == 0) {
		mes "[ǲC~]";
		mes "Wait! Don't say";
		mes "anything! You must be";
		mes "an adventurer from the";
		mes "Rune-Midgarts Kingdom!";
		mes "So... I'm right, aren't I?";
		next;
		switch( select( "Who are you?:How did you know?:Ignore him.")){
		case 1:
			mes "[Morris]";
			mes "Allow me to";
			mes "introduce myself.";
			mes "My name is Morris Poe,";
			mes "detective of great acclaim";
			mes "and world wide fame.";
			next;
			switch( select( "I've never heard of you.:You're kidding me.:I'm outta here.")) {
			case 1:
				mes "[Morris]";
				mes "Morris Poe?";
				mes "Renown detective?";
				mes "Advocate for justice in";
				mes "the Schwarzwald Republic?";
				mes "Surely you recognize one";
				mes "of my esteemed titles.";
				next;
				switch( select( "Nope, I don't know you.:You're Morris Poe?!" ) ){
				case 1:
					mes "[Morris]";
					mes "You don't...?";
					mes "But I'm a famous hero.";
					mes "Children look up to me";
					mes "and wish they'd grow";
					mes "up to be as smart as me.";
					next;
					mes "[Morris]";
					mes "I don't get it.";
					mes "I'm famouser than";
					mes "that. A household name";
					mes "even. I've got a sterling";
					mes "public image, how could";
					mes "you never have heard of me...?";
					close;
				case 2:
					break;
				}
				break;
			case 2:
				mes "[Morris]";
				mes "Kidding? Ha ha!";
				mes "Look at these keen,";
				mes "deductive and deeply";
				mes "analytical eyes and";
				mes "tell me I'm joking.";
				next;
				switch( select( "Whoa, those ARE keen eyes.:Okay. You're joking." )) {
				case 1:
					mes "[Morris]";
					mes "Yes, this sharp,";
					mes "penetrating, yet";
					mes "highly intelligent gaze";
					mes "belongs to the world";
					mes "detective and crime";
					mes "fighter, Morris Poe!";
					next;
					switch( select( "I've never heard of you.:Golly, Morris Poe?!")) {
					case 1:
						mes "[Morris]";
						mes "Never heard of...?";
						mes "Impossible! If there are";
						mes "two things I hate more";
						mes "than crime, they would be";
						mes "dishonesty... And rejection";
						mes "from beautiful women.";
						next;
						mes "[Morris]";
						mes "When you get over your";
						mes "sense of pride and gain";
						mes "a little maturity, then we";
						mes "might share an actual";
						mes "conversation. Until then,";
						mes "you'll just have to grow up.";
						close;
					case 2:
						break;
					}
					break;
				case 2:
					mes "[Morris]";
					mes "Hahahahahaah--Huh.";
					mes "If there are two things";
					mes "I hate more than criminals,";
					mes "they would be sarcasm...";
					mes "And receiving fake phone";
					mes "numbers from really cute girls.";
					next;
					switch( select( "Yeah, you're no Don Juan.:I'm... I'm sorry.")) {
					case 1:
						mes "[Morris]";
						mes "Wah...!";
						mes "Did you just--?!";
						mes "Ugh, you're the worst";
						mes "type of person, you know that?";
						emotion e_omg;
						close;
					case 2:
						mes "[Morris]";
						mes "I think it's too late to";
						mes "apologize. Why would you";
						mes "treat someone of my stature";
						mes "with such caustic sarcasm?!";
						mes "What excuse could possibly";
						mes "exonerate your behavior?!";
						next;
						switch( select( "I... I was intimidated...:It's how I treat all losers.")) {
						case 1:
							mes "[Morris]";
							mes "Of course: intense feelings";
							mes "of awe and fear of my vast";
							mes "intellect would result in that";
							mes "kind of deviant behavior. I'll";
							mes "have to forgive you, I suppose.";
							next;
							break;
						case 2:
							mes "[Morris]";
							mes "What...?!";
							mes "Morris Poe, a loser?";
							mes "Such defamatory remarks";
							mes "cannot be forgiven, no";
							mes "matter how unfounded";
							mes "and groundless they are!";
							emotion e_omg;
							close;
						}
						break;
					}
					break;
				}
				break;
			case 3:
				mes "[Morris]";
				mes "Hahaha, oh, that's";
				mes "funny. Wait. You're...";
				mes "You're really leaving.";
				mes "N-no, come baaaack!";
				close;
			}
		case 2:
			mes "[ǲC~]";
			mes "How did I know?";
			mes "Elementary, my friend.";
			mes "There was an abundance";
			mes "of clues for me to make";
			mes "that sort of simple deduction.";
			close;
		case 3:
			mes "[ǲC~]";
			mes "Hello...?";
			mes "...............";
			mes "Oh, this is embarassing.";
			mes "I can't believe I'm getting";
			mes "the silent treatment...";
			close;
		}
		mes "[Morris]";
		mes "Yes, I know it's";
		mes "difficult to believe that";
		mes "you would be fortunate";
		mes "enough to stand in the";
		mes "presence of genius. Now,";
		mes "you must be wondering...";
		next;
		select ("Um, wondering what?");
			mes "[Morris]";
			mes "You're wondering,";
			mes "\"How in the world";
			mes "can I be as brilliant";
			mes "as Morris Poe, the";
			mes "genius detective?\"";
			next;
			mes "[Morris]";
			mes "First, I think it's fair";
			mes "to let you know that it's";
			mes "an impossible dream. Men like";
			mes "myself only arise in this world";
			mes "perhaps once every generation.";
			mes "I'm sorry, but don't give up!";
			next;
			mes "[Morris]";
			mes "Now, you can try to reach";
			mes "a level of intelligence that";
			mes "is comparable to my own by";
			mes "joining the Young Detective's";
			mes "Club. To become a member, you just need one essential article.";
			next;
			mes "[Morris]";
			mes "Yes, you will need the";
			mes "^0000FFRenown Detective's Cap^000000!";
			mes "Luckily, I'm giving them";
			mes "away for a relatively small";
			mes "ial cost, but you must";
			mes "hurry while supplies last.";
			next;
			mes "[Morris]";
			mes "Simply bring me";
			mes "^0000FF10 Magnifiers^000000,";
			mes "^0000FF1887 Tassels^000000,";
			mes "^0000FF1 Slotted Bucket Hat^000000";
			mes "and ^0000FF1,887 zeny^000000. That's all!";
			next;
			mes "[Morris]";
			mes "But first, let me warn you";
			mes "not to bring a ^FF0000slotted Bucket";
			mes "Hat with a card compounded to";
			mes "it, or any upgraded Bucket Hats. I'm not responsible for any";
			mes "loss resulting from that.";
			next;
			mes "[Morris]";
			mes "Hurry and bring me";
			mes "those items! There are";
			mes "only 20,000,000 Renown";
			mes "Detective Caps left!";
			mes "Once they're gone,";
			mes "they'll be extinct!";
			set DTHATQ,1;
			close;
	}
	else if(DTHATQ == 1) {
		mes "[Morris]";
		mes "So, did you want to";
		mes "buy, er, receive this";
		mes "Renown Detective's Cap";
		mes "and become an honored";
		mes "member of the Young";
		mes "Detective's Club?";
		next;
		mes "[Morris]";
		mes "Remember, make sure";
		mes "that you don't bring any";
		mes "^FF0000slotted Bucket Hats that";
		mes "have been upgraded or have";
		mes "cards compounded to them, or";
		mes "you'll lose those enhancements^000000.";
		next;
		mes "[Morris]";
		mes "Now, if you have only";
		mes "1 Bucket Hat, we can begin.";
		mes "Young Detective's Club... Salute! ";
		next;
		switch( select( "Salute.:Whatever...")) {
		case 1:
			mes "[Morris]";
			mes "Great, done like a pro!";
			mes "Now, I need to check your";
			mes "fee--I mean qualifications.";
			mes "Let's see now, I need to";
			mes "look through your Inventory...";
			next;
			set @lhzhatfailed,0;
			if(countitem(611) < 10) {
				mes "[Morris]";
				mes "Wait. You don't have";
				mes "enough Magnifiers. You";
				mes "do want to join this club,";
				mes "don't you? Did you need to";
				mes "hear the requirements again?";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(7301) < 1887 && @lhzhatfailed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Not enough Tassels? Check.";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(5120) < 1 && @lhzhatfailed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Hm. You're missing";
				mes "the slotted Bucket Hat.";
				mes "You were so close...";
				set @lhzhatfailed,1;
				next;
			}
			if(Zeny < 1887 && failed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Slotted Bucket Hat. Got it.";
				mes "Hey. Where's the zeny?!";
				mes "That's the most important,";
				mes "er, qualification of all!";
				set @lhzhatfailed,1;
				next;
			}
			if(@lhzhatfailed == 1) {
				mes "[Morris]";
				mes "^333333*Sigh*^000000 You need";
				mes "^0000FF10 Magnifiers^000000,";
				mes "^0000FF1887 Tassels^000000,";
				mes "^0000FF1 Slotted Bucket Hat^000000";
				mes "and ^0000FF1,887 zeny^000000. That's all!";
				emotion e_an;
				next;
				mes "[Morris]";
				mes "Now, remember everything";
				mes "that you need this time, okay?";
				mes "I'll be waiting to welcome";
				mes "you into the elite ranks of ";
				mes "the Young Detective's Club.";
				close;
			}
			mes "[Morris]";
			mes "Magnifiers. Check.";
			mes "Tassels... Check.";
			mes "Slotted Bucket Hat. Got it.";
			mes "Aaaand zeny. Heh heh. Perfect.";
			next;
			mes "[Morris]";
			mes "Great, that's everything!";
			mes "Welcome to the club! Here's";
			mes "your Renown Detective's Cap,";
			mes "so wear it with pride as you";
			mes "take an active part in our club's";
			mes "activities and promotion!";
			delitem 7301,1887;
			delitem 5120,1;
			delitem 611,10;
			set Zeny, Zeny - 1887;
			set DTHATQ,2;
			getitem 5108,1;
			next;
			switch( select( "Wait, promotion?:Hooray!")) {
			case 1:
				mes "[Morris]";
				mes "Of course, isn't it obvious?";
				mes "As a member, one of your duties";
				mes "will be to sing accolades of this club so that more members";
				mes "will join and earn their own";
				mes "Renown Detective's Caps.";
				next;
				mes "[Morris]";
				mes "Alright, scurry off";
				mes "now and proudly display";
				mes "your new, rakishly stylish";
				mes "Renown Detective's Cap";
				mes "to all of your friends!";
				close;
			case 2:
				mes "[Morris]";
				mes "Alright, scurry off";
				mes "now and proudly display";
				mes "your new, rakishly stylish";
				mes "Renown Detective's Cap";
				mes "to all of your friends!";
				close;
			}
		case 2:
			mes "[Morris]";
			mes "Huh. You just failed";
			mes "the \"Test of Respect.\"";
			mes "You don't deserve the";
			mes "honor of wearing the";
			mes "Renowned Detective's Cap!";
			close;
		}
	}
	else if(DTHATQ == 2) {
		mes "[Morris]";
		mes "Have you come to me";
		mes "in order to obtain another";
		mes "Renown Detective's Cap?";
		mes "I realize that such a stylish";
		mes "headgear is in high demand.";
		next;
		mes "[Morris]";
		mes "Remember, make sure";
		mes "that you don't bring any";
		mes "^FF0000slotted Bucket Hats that";
		mes "have been upgraded or have";
		mes "cards compounded to them, or";
		mes "you'll lose those enhancements^000000.";
		next;
		mes "[Morris]";
		mes "As a proud member of";
		mes "the Young Detective's Club,";
		mes "did you bring everything";
		mes "you need in order to earn";
		mes "a Renown Detective's Cap?";
		next;
		switch( select( "I'm not sure~:Sure!" ) ) {
		case 1:
			mes "[Morris]";
			mes "What...?! Every good";
			mes "detective must have a";
			mes "photographic memory";
			mes "and be able to recall";
			mes "minute details in order";
			mes "to crack the case.";
			emotion e_sob;
			next;
			mes "[Morris]";
			mes "Remember...";
			mes "^0000FF10 Magnifiers^000000,";
			mes "^0000FF1887 Tassels^000000,";
			mes "^0000FF1 Slotted Bucket Hat^000000";
			mes "and ^0000FF1,887 zeny^000000. Okay?";
			close;
		case 2:	
			mes "[Morris]";
			mes "Great!";
			mes "Now let me just";
			mes "check to see if you";
			mes "brought everything...";
			next;
			set @lhzhatfailed,0;
			if(countitem(611) < 10) {
				mes "[Morris]";
				mes "Hmm, you don't have";
				mes "enough Magnifiers? But";
				mes "those are essential tools";
				mes "for sleuthing. Come now,";
				mes "hurry back with them!";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(7301) < 1887 && @lhzhatfailed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Not enough Tassels? Check.";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(5120) < 1 && @lhzhatfailed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Hm. You're missing";
				mes "the slotted Bucket Hat.";
				mes "You were so close...";
				set @lhzhatfailed,1;
				next;
			}
			if(Zeny < 1887 && failed == 0) {
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Slotted Bucket Hat. Got it.";
				mes "Hey. Where's the zeny?!";
				mes "That's the most important,";
				mes "er, qualification of all!";
				set @lhzhatfailed,1;
				next;
			}
			if(@lhzhatfailed == 1) {
				mes "[Morris]";
				mes "Remember...";
				mes "^0000FF10 Magnifiers^000000,";
				mes "^0000FF1887 Tassels^000000,";
				mes "^0000FF1 Slotted Bucket Hat^000000";
				mes "and ^0000FF1,887 zeny^000000. Okay?";
				emotion e_an;
				close;
			}
			set @lhzhatfailed,0;
			if(countitem(611) < 10) {
				mes "[Morris]";
				mes "Hmm, you don't have";
				mes "enough Magnifiers? But";
				mes "those are essential tools";
				mes "for sleuthing. Come now,";
				mes "hurry back with them!";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(7301) < 1887 && @lhzhatfailed == 0)
			{
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Not enough Tassels? Check.";
				set @lhzhatfailed,1;
				next;
			}
			if(countitem(5120) < 1 && @lhzhatfailed == 0)
			{
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Hm. You're missing";
				mes "the slotted Bucket Hat.";
				mes "You were so close...";
				set @lhzhatfailed,1;
				next;
			}
			if(Zeny < 1887 && failed == 0)
			{
				mes "[Morris]";
				mes "Magnifiers. Check.";
				mes "Tassels... Check.";
				mes "Slotted Bucket Hat. Got it.";
				mes "Hey. Where's the zeny?!";
				mes "That's the most important,";
				mes "er, qualification of all!";
				set @lhzhatfailed,1;
				next;
			}
			if(@lhzhatfailed == 1)
			{
				mes "[Morris]";
				mes "Remember...";
				mes "^0000FF10 Magnifiers^000000,";
				mes "^0000FF1887 Tassels^000000,";
				mes "^0000FF1 Slotted Bucket Hat^000000";
				mes "and ^0000FF1,887 zeny^000000. Okay?";
				emotion e_an;
				close;
			}
			mes "[Morris]";
			mes "Magnifiers. Check.";
			mes "Tassels... Check.";
			mes "Slotted Bucket Hat. Got it.";
			mes "Aaaand zeny. Heh heh. Perfect.";
			next;
			mes "[Morris]";
			mes "Great! You've just qualified";
			mes "to own yet another Renowned";
			mes "Detective's Cap. Congratulations! Now, let me collect all of these";
			mes "goods and zeny from you...";
			delitem 7301,1887;
			delitem 5120,1;
			delitem 611,10;
			set Zeny, Zeny - 1887;
			set DTHATQ,2;
			getitem 5108,1;
			next;
			mes "[Morris]";
			mes "Hahaha! It's what";
			mes "I expect from one of";
			mes "our Junior Gold Members!";
			mes "How does it feel like to be";
			mes "the cream of the cream of";
			mes "the crop? Great, isn't it?";
			close;
		}
	}
}

lighthalzen,360,313,3	script	p#LhzHat	706,{
	mes "[Boy]";
	mes "Hello, mister!";
	mes "Um, would you do";
	mes "me a favor, please?";
	next;
	if(countitem(526) && countitem(7270) && countitem(941) && countitem(10004)) {
		mes "[Boy]";
		mes "Oh! You brought me";
		mes "some Royal Jelly to";
		mes "eat, as well as everything";
		mes "I need to make a Baby Pacifier.";
		mes "Okay, let me get started on that right away. Just a moment...";
		next;
		mes "...";
		mes "......";
		next;
		mes "[Boy]";
		mes "Damn.";
		mes "That Royal Jelly";
		mes "was frickin' delicious!";
		mes "Now I can make your";
		mes "Baby Pacifier. Let's see";
		mes "here. Ah, here we go...";
		delitem 526,1;
		next;
		mes "[Boy]";
		mes "It's done!";
		mes "Now, you're the";
		mes "proud owner of your";
		mes "very own Baby Pacifier!";
		mes "I hope you're happy with";
		mes "yourself. Travel safe, okay?";
		delitem 7270,1;
		delitem 941,1;
		delitem 10004,1;
		getitem 5110,1;
		close;
	}
	switch( select( "What do you need?:Sorry, kid...")) {
	case 1:
		mes "[Boy]";
		mes "Well, my mom has been";
		mes "sick recently, so both of";
		mes "us haven't been able to eat";
		mes "for the past few days. But";
		mes "if she doesn't eat, how does";
		mes "she expect to get better?";
		emotion e_sob;
		next;
		mes "[Boy]";
		mes "So I guess what I'm";
		mes "asking is, would you be";
		mes "able to spare some food?";
		next;
		switch( select( "Help him.:Refuse to help.")) {
		case 1:
			if(!countitem(526)) {
				mes "[Boy]";
				mes "If you would, do you think";
				mes "you can get some Royal Jelly";
				mes "that I can give to my mom? The old lady next door says that it's";
				mes "really nutritious and helps you get better faster if you're sick.";
				next;
				mes "[Boy]";
				mes "My mom would be mad";
				mes "at me if she found out";
				mes "I was begging for it, but";
				mes "Royal Jelly is too expensive";
				mes "for me to get without any help!";
				close;
			}
			mes "[Boy]";
			mes "Oh, would it be alright";
			mes "if I have this Royal Jelly?";
			mes "It would really help my mom";
			mes "feel better. Thanks so much~";
			delitem 526,1;
			next;
			mes "[Boy]";
			mes "Hey, to pay you back, why";
			mes "don't I make a Baby Pacifier";
			mes "for you? I learned how to make";
			mes "one when my baby brother was";
			mes "born. But first, I'll need some";
			mes "ials to put it together...";
			next;
			mes "[Boy]";
			mes "Would you";
			mes "please bring";
			mes "^3131FF1 Nursing Bottle^000000,";
			mes "^3131FF1 Nose Ring^000000 and";
			mes "^3131FF1 Pacifier^000000? Oh, and one";
			mes "more ^3131FFRoyal Jelly^000000 for me~";
			close;
		case 2:
			mes "[Boy]";
			mes "Oh... Um, that's";
			mes "alright. Maybe I was";
			mes "asking too much from";
			mes "you. I mean, it's true";
			mes "that you barely know me...";
			emotion e_sob;
			close;
		}
	case 2:
		mes "[Boy]";
		mes "Th-that's okay.";
		mes "I guess you must";
		mes "be so busy that you";
		mes "don't even have the";
		mes "time to listen to some";
		mes "little boy's problems...";
		emotion e_sob;
		close;
	}
}

einbech,70,222,5	script	#LhzHat	91,{
	if(countitem(983) && countitem(7267) > 998 && countitem(749) && Zeny > 49999) {
		mes "[]";
		mes "Oh, hello, what's this?";
		mes "You're carrying 1 Black";
		mes "Dyestuffs, 1 Frozen Rose,";
		mes "999 Tiger Panties and even";
		mes "50,000 zeny with you. That's";
		mes "enough to make a Winter Hat...";
		next;
		mes "[]";
		mes "Um, would you mind letting";
		mes "me have those items so that";
		mes "I can make a Winter Hat?";
		mes "I'd never be able to gather";
		mes "those things on my own...";
		next;
		switch( select( "Let her have the items.:Don't give her the items." ) ) {
		case 1:
			mes "[]";
			mes "Oh, thank you so much!";
			mes "I've always wanted to make";
			mes "this hat and try it on, even";
			mes "if it's just once. But don't";
			mes "worry, I'll give it to you~";
			mes "Now please next; a moment...";
			next;
			mes "[]";
			mes "Let's see...";
			mes "I've got to fold";
			mes "the rose like this...";
			mes "Be careful with the dye...";
			mes "Where did I put all those";
			mes "pan--Oh, here we are.";
			next;
			mes "[]";
			mes "^333333*Whew!*^000000";
			mes "Finally, it's done!";
			mes "Now, if you don't mind,";
			mes "let me try this hat on";
			mes "for just a little while.";
			delitem 983,1;
			delitem 7267,999;
			delitem 749,1;
			set Zeny,Zeny - 50000;
			getitem 5115,1;
			next;
			mes "...";
			mes "......";
			next;
			mes "[]";
			mes "Ahhhhhh~";
			mes "It just feels...";
			mes "I felt so free~";
			mes "It was everything";
			mes "I imagined it to be.";
			next;
			mes "[]";
			mes "Here, please take";
			mes "this Winter Hat. I really";
			mes "hope that you'll enjoy it";
			mes "as much as I do. Well then,";
			mes "be safe in your travels, okay?";
			close;
		case 2:
			mes "[]";
			mes "I'm sorry, I know that";
			mes "I was asking a pretty big";
			mes "favor from someone I just";
			mes "met. I hope you understand";
			mes "how much I really want to";
			mes "make that Winter Hat...";
			close;
		}
	}
	mes "[]";
	mes "Look at that blue";
	mes "sky. Don't you wish";
	mes "you could just soar";
	mes "through the heavens";
	mes "with your own wings?";
	next;
	mes "[]";
	mes "Of course, it's an";
	mes "impossible dream,";
	mes "but with this Winter Hat,";
	mes "you can at least enjoy the";
	mes "sensation of freedom that";
	mes "a bird in flight must feel.";
	next;
	mes "[]";
	mes "If you would like";
	mes "a hat like this, I would";
	mes "need to have some items";
	mes "that I don't think I can ever";
	mes "obtain on my very own.";
	next;
	mes "[]";
	mes "^FF00001 Black Dyestuffs^000000,";
	mes "^FF0000999 Tiger Panties^000000,";
	mes "^FF00001 Frozen Rose^000000 and";
	mes "^FF000050,000 zeny^000000. If you can";
	mes "bring those to me, I shall";
	mes "make you a Winter Hat.";
	close;
}

lhz_in02,91,38,5	script	͹p #LhzHat	90,{
	mes "[͹p ]";
	mes "ժMS²b,";
	mes "S󥴧]۵RQ~,NOQk";
	next;
	mes "[͹p ]";
	mes "Qkӻ̤ǰt¥ժ,аݮȫȧAߦ?";
	next;
	switch( select( "s@F:" ) ) {
	case 1:
		if(countitem(731) > 9 && countitem(748) > 1 && countitem(982) && Zeny > 49999) {
			mes "[͹p ]";
			mes "Ah, I see that you've brought";
			mes "what I need to bleach the blood";
			mes "red hue from these Witherless";
			mes "Roses and adorn these flowers";
			mes "with eternal elegance. May I use these items to make a Mystic Rose?";
			next;
			switch( select( "Yes:No")){
			case 1:
				mes "[͹p ]";
				mes "Thank you. Please";
				mes "next; a moment while";
				mes "I concentrate in order to";
				mes "preserve the natural beauty";
				mes "of these gorgeous flowers...";
				next;
				mes "[͹p ]";
				mes "The rose truly is the";
				mes "undisputed queen of all";
				mes "flowers. All other flora must";
				mes "humbly bow to its regal beauty.";
				next;
				mes "...";
				mes "......";
				next;
				mes "...";
				mes "......";
				mes ".........";
				next;
				mes "[͹p ]";
				mes "There, it is finished.";
				mes "Please remember to wear";
				mes "your hair in an elegant and";
				mes "refined manner when wearing";
				mes "the Mystic Rose so as not to disgrace these beautiful flowers.";
				delitem 731,10;
				delitem 748,2;
				delitem 982,1;
				set Zeny,Zeny - 50000;
				getitem 5117,1;
				close;
			case 2:
				mes "[͹p ]";
				mes "White roses with thorns";
				mes "makes my heart beat with";
				mes "unceasing trepidation. What";
				mes "if I prick my finger and shed";
				mes "blood on its snow white petals?";
				close;
			}
		}
		mes "[͹p ]";
		mes "ڬOܷR,LROܮe|Q,";
		mes "֤kıoӥiF,ҥHQF@Ӥk";
		next;
		mes "[͹p ]";
		mes "аݮȫȧA]w?";
		mes "pA@N,ڥiHAs@@,AYW``ۥä[RF,NO^529DFFF^000000 ";
		next;
		mes "[͹p ]";
		mes "oO@D`Wu@,nwV⪺k§A,sbƦզ⪺u@,";
		next;
		mes "[͹p ]";
		mes "bkW,";
		mes "W'^529DFF2Jp 10^000000',";
		mes "Fk§A,";
		mes "W'^529DFFë 3^000000',";
		mes "k§A,s`JզR'^529DFFզV 1^000000' ";
		next;
		mes "[͹p ]";
		mes "٦JkLqM,";
		mes "٭nڤ@IuO'^529DFF5U^000000',ڴN|As@'^529DFFF^000000'";
		close;
	case 2:
		mes "[͹p ]";
		mes "ڥunݨ즳몺զ⪴ߴN|,";
		mes "`Q,⹳몺զäV⪺ˤl..";
		next;
		mes "[͹p ]";
		mes "ڤQp~{{k§A,ܦdsr?";
		close;
	}
}

lighthalzen,182,89,0	script	ݰ_ӫܱykH#Lh	91,{
	if(LHZBTQ == 0) {
		mes "[ݰ_ӫܱykH]";
		mes "Hmmm...?";
		mes "What? Did you";
		mes "need something?";
		next;
		switch( select( "N-Nothing.:Um, you look so relaxed.")) {
		case 1:
			mes "[ݰ_ӫܱykH]";
			mes "Huh.";
			mes "Alright then.";
			mes "Well, try not to stare";
			mes "at people so much.";
			close;
		case 2:
			mes "[ݰ_ӫܱykH]";
			mes "Really? You are probably";
			mes "the twentieth person to";
			mes "tell me that today. Mmm.";
			mes "That's strange, isn't it?";
			next;
			menu "I guess.",-,"It's not strange at all.",-;
			mes "[ݰ_ӫܱykH]";
			mes "Oh yeah.";
			mes "What's your name?";
			mes "That is, if you don't";
			mes "mind me asking you.";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "My name is " + strcharinfo(0) + "";
			mes "and I'm an adventurer~";
			next;
			mes "[Achiha]";
			mes "Oh, one of those?";
			mes "My name is Achiha, nice";
			mes "to meet you. I don't really";
			mes "do much of anything.";
			mes "Just sit. Relax.";
			set LHZBTQ,1;
			emotion e_heh;
			next;
			mes "[Achiha]";
			mes "I do have a hobby,";
			mes "though. Once in a while,";
			mes "I'll sew a hat. Do you think";
			mes "an adventurer like you would";
			mes "want to have a hat I made?";
			next;
			switch( select( "Er, I dunno.:Sure.")) {
			case 1:
				mes "[Achiha]";
				mes "Mm. I mean, the";
				mes "Red Bonnets I make";
				mes "might not be sturdy";
				mes "enough for battles.";
				mes "But what about those";
				mes "fish and cake hats?";
				next;
				mes "[Achiha]";
				mes "Hats...?";
				mes "That look like";
				mes "fish or cake? Mm.";
				mes "Haha. I just got it.";
				mes "That's, that's funny.";
				close;
			case 2:
				mes "[Achiha]";
				mes "Really? Well, I can sew";
				mes "together a ^0000FFRed Bonnet^000000.";
				mes "It reminds most people";
				mes "of a baby's bonnet, but";
				mes "it does look good on";
				mes "most people I know.";
				next;
				mes "[Achiha]";
				mes "Um, did you want me";
				mes "to make you one? I can";
				mes "go ahead and do it if you";
				mes "bring me some ials.";
				mes "Since it's just for fun,";
				mes "I won't ask for too much.";
				next;
				mes "[Achiha]";
				mes "Just bring";
				mes "^0000FF1 Green Lace^000000,";
				mes "^0000FF1 Silk Ribbon^000000,";
				mes "^0000FF1 Scarlet Dyestuffs^000000,";
				mes "^0000FF1 Sunday Hat^000000 and";
				mes "^0000FF50,000 zeny^000000.";
				next;
				mes "[Achiha]";
				mes "I think I'm going";
				mes "to just sit and relax";
				mes "a little bit longer. But";
				mes "if you want me to make";
				mes "a hat for you, come back";
				mes "with those ials, okay?";
				set LHZBTQ,2;
				close;
			}
		}
	}
	else if(LHZBTQ == 1) {
		mes "[Achiha]";
		mes "Oh, hello.";
		mes "Isn't it such a nice,";
		mes "quiet, pleasant day?";
		next;
		switch( select( "Indeed.:Would you please make a hat for me?")) {
		case 1:
			mes "[Achiha]";
			mes "Yeah. Today would";
			mes "be a nice day for a";
			mes "picnic or a long stroll.";
			mes "But all I want to do is";
			mes "just sit and relax...";
			close;
		case 2:
			mes "[Achiha]";
			mes "What are you talking";
			mes "about? Oh, you mean the";
			mes "Red Bonnet? Well, I guess";
			mes "I can make one. But I think";
			mes "I need some ials first.";
			next;
			mes "[Achiha]";
			mes "^0000FF1 Green Lace^000000,";
			mes "^0000FF1 Silk Ribbon^000000,";
			mes "^0000FF1 Scarlet Dyestuffs^000000,";
			mes "^0000FF1 Sunday Hat^000000 and";
			mes "^0000FF50,000 zeny^000000.";
			mes "That's what I need.";
			next;
			mes "[Achiha]";
			mes "Oh, but I don't";
			mes "feel like making it";
			mes "right now. I'm soooo";
			mes "tired. Let me just sit,";
			mes "relax, even if it's just";
			mes "a little while longer...";
			set LHZBTQ,2;
			close;
		}
	}
	else if(LHZBTQ == 2) {
		mes "[Achiha]";
		mes "Oh, good, you're here.";
		mes "I've been waiting for you.";
		mes "Did you bring everything that";
		mes "you need to make a ^0000FFRed Bonnet^000000?";
		next;
		switch( select( "Yes.:I forgot what I need.")) {
		case 1:
			if(countitem(10015) < 1 || countitem(10007) < 1 || countitem(975) < 1 || countitem(5032) < 1 || Zeny < 50000) {
				mes "[Achiha]";
				mes "Uh oh.";
				mes "You forgot";
				mes "a couple things.";
				mes "Would you like me";
				mes "to remind you what";
				mes "you need to bring?";
				next;
				mes "[Achiha]";
				mes "^0000FF1 Green Lace^000000,";
				mes "^0000FF1 Silk Ribbon^000000,";
				mes "^0000FF1 Scarlet Dyestuffs^000000,";
				mes "^0000FF1 Sunday Hat^000000 and";
				mes "^0000FF50,000 zeny^000000. Come back";
				mes "when you're ready, okay?";
				close;
			}
			mes "[Achiha]";
			mes "Oh, you brought";
			mes "everything. That's";
			mes "good. Okay, just give";
			mes "it to me. Um, let's see.";
			next;
			mes "[Achiha]";
			mes "Well, I'm finished.";
			mes "^333333*Yawn*^000000 And now I'm";
			mes "even more tired. Here,";
			mes "take this Red Bonnet.";
			mes "I hope you like it~";
			mes "I think I'll relax now...";
			delitem 10015,1;
			delitem 10007,1;
			delitem 975,1;
			delitem 5032,1;
			set Zeny,Zeny - 50000;
			getitem 5109,1;
			set LHZBTQ,3;
			next;
			mes "[Achiha]";
			mes "I hope you will enjoy the hat~";
			close;
		case 2:
			mes "[Achiha]";
			mes "Oh, you really";
			mes "forgot? Oh dear,";
			mes "let me try to remember.";
			mes "I didn't forget too, did I?";
			mes "Oh next;, I remember now...";
			next;
			mes "[Achiha]";
			mes "^0000FF1 Green Lace^000000,";
			mes "^0000FF1 Silk Ribbon^000000,";
			mes "^0000FF1 Scarlet Dyestuffs^000000,";
			mes "^0000FF1 Sunday Hat^000000 and";
			mes "^0000FF50,000 zeny^000000. Come back";
			mes "when you're ready, okay?";
			close;
		}
	}
	else if(LHZBTQ == 3) {
		mes "[Achiha]";
		mes "Oh, I remember you.";
		mes "You're the adventurer";
		mes "who likes my Red Bonnets";
		mes "so much. Did you want me";
		mes "to make another one for you?";
		next;
		switch( select( "Yes.:I forgot what I need." ) ) {
		case 1:
			if(countitem(10015) < 1 || countitem(10007) < 1 || countitem(975) < 1 || countitem(5032) < 1 || Zeny < 50000) {
				mes "[Achiha]";
				mes "Uh oh.";
				mes "You forgot";
				mes "a couple things.";
				mes "Would you like me";
				mes "to remind you what";
				mes "you need to bring?";
				next;
				mes "[Achiha]";
				mes "^0000FF1 Green Lace^000000,";
				mes "^0000FF1 Silk Ribbon^000000,";
				mes "^0000FF1 Scarlet Dyestuffs^000000,";
				mes "^0000FF1 Sunday Hat^000000 and";
				mes "^0000FF50,000 zeny^000000. Come back";
				mes "when you're ready, okay?";
				close;
			}
			mes "[Achiha]";
			mes "Oh, you brought";
			mes "everything. That's";
			mes "good. Okay, just give";
			mes "it to me. Um, let's see.";
			next;
			mes "[Achiha]";
			mes "Well, I'm finished.";
			mes "^333333*Yawn*^000000 And now I'm";
			mes "even more tired. Here,";
			mes "take this Red Bonnet.";
			mes "I hope you like it~";
			mes "I think I'll relax now...";
			delitem 10015,1;
			delitem 10007,1;
			delitem 975,1;
			delitem 5032,1;
			set Zeny,Zeny - 50000;
			getitem 5109,1;
			next;
			mes "[Achiha]";
			mes "I hope you will enjoy the hat~";
			close;
		case 2:
			mes "[Achiha]";
			mes "Oh, you really";
			mes "forgot? Oh dear,";
			mes "let me try to remember.";
			mes "I didn't forget too, did I?";
			mes "Oh next;, I remember now...";
			next;
			mes "[Achiha]";
			mes "^0000FF1 Green Lace^000000,";
			mes "^0000FF1 Silk Ribbon^000000,";
			mes "^0000FF1 Scarlet Dyestuffs^000000,";
			mes "^0000FF1 Sunday Hat^000000 and";
			mes "^0000FF50,000 zeny^000000. Come back";
			mes "when you're ready, okay?";
			close;
		break;
		}
	}

}

gl_prison1,137,138,5	script	㴵]k#LhzHat	1200,{
	if(ZLMASKQ == 0) {
		mes "[㴵]k]";
		mes "Kneel, worm!";
		mes "As ruler of this";
		mes "Underground Prison,";
		mes "I command all who step";
		mes "into my private realm!";
		next;
		mes "[㴵]k]";
		mes "Resist, and you shall be";
		mes "punished! Grovel and kiss";
		mes "my feet, and perhaps you";
		mes "might be spared. Hohohohoho!";
		next;
		switch( select(  "Oh, your highness!:Whatever.")) {
		case 1:
			mes "[㴵]k]";
			mes "The submissive woman is";
			mes "nothing but an ideal dream";
			mes "for the arrogant male! A true";
			mes "woman revels in her power to";
			mes "have her man do her bidding!";
			next;
			switch( select( "Yes, it's so true!:Boooo!" )) {
			case 1:
				mes "[㴵]k]";
				mes "However, in my lust for power, I may have inadventently crushed";
				mes "the spirits of my beloved a little too harshly. His pride crumbled,";
				mes "my man even cowers in front of the humans! It pains me to see it.";
				next;
				mes "[㴵]k]";
				mes "It is beneath me to ask";
				mes "this of you, but it will take";
				mes "a human like you to make";
				mes "him remember who he truly is,";
				mes "a proud creature of darkness";
				mes "who should fear only me!";
				next;
				mes "[㴵]k]";
				mes "Human. I offer you a small";
				mes "share of my power if you can";
				mes "take the pathetic, weeping lump";
				mes "of monster crying in the corner";
				mes "of this prison and make him";
				mes "realize his true nature.";
				set ZLMASKQ,1;
				close;
			case 2:
				mes "[㴵]k]";
				mes "You dirty, dirty human...";
				mes "How dare you have an ";
				mes "opinion different than mine!";
				mes "No matter. The day will come";
				mes "when all of your race shall";
				mes "address me only as \"queen.\"";
				close;
			}
		case 2:
			mes "[㴵]k]";
			mes "Mortal simpleton!";
			mes "Bah! The mocking of";
			mes "a boorish cur is worthless";
			mes "to me. I have all the time in";
			mes "the world to grind your pride";
			mes "to dust beneath my heels.";
			close;
		}
	}
	else if(ZLMASKQ > 0 && ZLMASKQ < 6) {
		mes "[㴵]k]";
		mes "Hm. If my beloved is";
		mes "acting stubborn or refuses";
		mes "to listen, feel free to take";
		mes "drastic measures. Just think";
		mes "of what I would do in your";
		mes "place. Ohohohohoho~!";
		close;
	}
	else if(ZLMASKQ == 6) {
		mes "[㴵]k]";
		mes "Ooh, you're back.";
		mes "ùgԤh is certainly";
		mes "back to his old self again,";
		mes "thanks to your efforts, human.";
		mes "Yes, his anger, his courage";
		mes "and passion are all restored~";
		next;
		mes "[㴵]k]";
		mes "As I promised, I shall";
		mes "grant you a share of my";
		mes "power. However, I will need";
		mes "some items to form this minor";
		mes "contract between you and me.";
		next;
		mes "[㴵]k]";
		mes "I will need";
		mes "^3131FF1 Cat's Eye^000000,";
		mes "^3131FF1 Forbidden Red Candle^000000 and";
		mes "^3131FF30 Worn-Out Magic Scrolls^000000.";
		mes "Then, I can grant you a measure";
		mes "of my power as I've promised.";
		set ZLMASKQ,7;
		close;
	}
	else if(ZLMASKQ == 7) {
		if(countitem(7263) && countitem(660) && countitem(7099) > 29) {
			mes "[㴵]k]";
			mes "I see that you have";
			mes "brought what I need to";
			mes "complete the contract";
			mes "between you and me,";
			mes "human. Let's begin...";
			next;
			mes "^3355FF㴵]k takes the red";
			mes "candle you've given her and";
			mes "drips the wax into her open";
			mes "palm. The Cat's Eye begins";
			mes "to glow with an eerie light.^000000";
			next;
			mes "[㴵]k]";
			mes "Now, place your index";
			mes "finger into my palm so";
			mes "that we may complete the";
			mes "final step of this contract...";
			next;
			switch( select( "Don't complete the contract.:Complete the contract." )) {
			case 1:
				mes "[㴵]k]";
				mes "Hm? What are you";
				mes "afraid of? This is a";
				mes "minor contract, so";
				mes "you are not selling me";
				mes "your soul, or anything";
				mes "else for that matter.";
				close;
			case 2:
				mes "[㴵]k]";
				mes "I, 㴵]k, as ruler";
				mes "of this realm, seal this";
				mes "eternal contract with this";
				mes "Forbidden Red Candle.";
				next;
				mes "[㴵]k]";
				mes "" + strcharinfo(0) + " will";
				mes "forever have a share";
				mes "in my power. Those that";
				mes "bow to me must also bow";
				mes "to " + strcharinfo(0) + ". It shall be done.";
				specialeffect 196; //Curse? EF_DEVIL
				specialeffect 192; //Poison attack? EF_POISONHIT
				next;
				mes "[㴵]k]";
				mes "Human, take this";
				mes "mask with you as an";
				mes "everlasting token of our";
				mes "contract. So long as you";
				mes "carry this, I will be at your";
				mes "side. So says 㴵]k!";
				delitem 7263,1;
				delitem 660,1;
				delitem 7099,30;
				getitem2 5121,1,1,0,0,254,0,getcharid(0)&0xffff,(getcharid(0)>>16)&0xffff;
				set ZLMASKQ,8;
				close;
			}
		}
		mes "[㴵]k]";
		mes "I will need";
		mes "^3131FF1 Cat's Eye^000000,";
		mes "^3131FF1 Forbidden Red Candle^000000 and";
		mes "^3131FF30 Worn-Out Magic Scrolls^000000.";
		mes "Then, I can grant you a measure";
		mes "of my power as I've promised.";
		close;
	}
	else if(ZLMASKQ == 8) {
		mes "[㴵]k]";
		mes "Ah, I greet you in";
		mes "peace, human. Behold,";
		mes "the splendor of our realm!";
		mes "Though, I do not blame you";
		mes "if you have no interest in";
		mes "commanding these Injustices...";
		next;
		mes "[㴵]k]";
		mes "Thanks to your help,";
		mes "my ùgԤh has returned";
		mes "to his old, monstrously";
		mes "passionate ways. Now I can";
		mes "show him the stinging love";
		mes "of my whip! Hohohohohoho!";
		emotion e_kis;
		close;
	}
}

gl_prison1,97,104,1	script	ùgԤh#LhzHat	1202,{
	if(ZLMASKQ == 0) {
		mes "[ùgԤh]";
		mes "Huh? Oh no!";
		mes "Another h-human?!";
		mes "P-please! S-stay away,";
		mes "don't come near me!";
		close;
	}
	else if(ZLMASKQ == 1) {
		mes "[ùgԤh]";
		mes "Huh? Oh no!";
		mes "Another h-human?!";
		mes "P-please! S-stay away,";
		mes "don't come near me!";
		next;
		mes "[ùgԤh]";
		mes "I... I swear!";
		mes "I'm not carrying any";
		mes "rare items or stuff you";
		mes "can wear, so please don't";
		mes "beat me! I... Oh my god, you";
		mes "don't believe me, don't you?";
		next;
		mes "[ùgԤh]";
		mes "You humans never leave";
		mes "me alone! Why do you have";
		mes "to bully me like this?! I'm";
		mes "honestly not carrying anything";
		mes "of value! Z-㴵]k, please!";
		mes "㴵]k, heeeeeelp me~!";
		emotion e_sob;
		if(!(
			countitem(1950) || countitem(1951) || countitem(1952) || 
			countitem(1953) || countitem(1954) || countitem(1955) || 
			countitem(1956) || countitem(1957) || countitem(1958) || 
			countitem(1959) || countitem(1960) || countitem(1961) || 
			countitem(1962) || countitem(1963) || countitem(1964) || 
			countitem(1965) || countitem(1966) || countitem(1967) || 
			countitem(1968) || countitem(1969) || countitem(1970) || 
			countitem(1971)
		))
		close;
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "You're pathetic!";
		mes "Aren't you supposed";
		mes "to be a monster? You know";
		mes "what 㴵]k would do if";
		mes "she were actually here?";
		next;
		mes "[ùgԤh]";
		mes "^333333*Sniff...*^000000";
		mes "P-probably...";
		mes "Probably whip me.";
		next;
		mes "^3355FFYou nonchalantly^000000";
		mes "^3355FFbrandish your Whip.^000000";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "That's right.";
		next;
		mes "^3355FF*Snap!*";
		mes "*Snap!*";
		mes "*Crack crack crack!*";
		mes "*Snap snap snap crack!*^000000";
		next;
		mes "[ùgԤh]";
		mes "Oh! That stinging pain";
		mes "that burns with bloodlust!";
		mes "It's almost as good as";
		mes "Zealtos's whip of love!";
		next;
		mes "[ùgԤh]";
		mes "㴵]k...";
		mes "She must be pissed";
		mes "at me, but I just can't";
		mes "stop being afraid of all";
		mes "you humans! Damn it all!";
		set ZLMASKQ,2;
		close;
	}
	else if(ZLMASKQ == 2 || ZLMASKQ == 3)
	{
		if(countitem(7315) > 368 && ZLMASKQ == 3)
		{
			mes "[ùgԤh]";
			mes "Y-you again!";
			mes "Why do you hound me?!";
			mes "Th-there's nothing I can";
			mes "give you, so please don't";
			mes "hurt me! Oh, oh p-please...!";
			emotion e_swt2;
			next;
			switch( select( "Feed him Dark Crystal Fragment.:Threaten him." ) )
			{
			case 1:
				mes "[ùgԤh]";
				mes "What...? You want";
				mes "me to eat these?";
				mes "It doesn't seem natural,";
				mes "but if  says I should,";
				mes "it might not be that bad.";
				next;
				mes "...";
				mes "......";
				next;
				mes "[ùgԤh]";
				mes "What's supposed to";
				mes "happen now? My inner";
				mes "demon is supposed to";
				mes "awaken by eating these?";
				mes "That sounds ridiculous!";
				mes "Though, I did just eat crystal.";
				next;
				mes "[ùgԤh]";
				mes "Wh-whoa. Ugh!";
				mes "My chest! Something's";
				mes "burning inside! I c-can't--!";
				mes "Can't think straight... I'm...";
				mes "Slowly... Losing my humanity!";
				next;
				mes "[ùgԤh]";
				mes "Huh... Huuurg--!";
				mes "Huk-huk! Heeeeh!";
				mes "Heeeeeh! Waaoooooh!";
				next;
				mes "[ùgԤh]";
				mes "...";
				mes "Grrrrr...!";
				next;
				mes "[ùgԤh]";
				mes "^333333*Pant pant*^000000";
				mes "What... just...";
				mes "What happened?";
				set ZLMASKQ,4;
				delitem 7315,369;
				close;
			break;

			case 2:
				mes "[" + strcharinfo(0) + "]";
				mes "So what happens";
				mes "if I don't decide not";
				mes "to hurt you? Whatcha";
				mes "gonna do then, huh?";
				next;
				mes "...";
				mes "......";
				next;
				mes "[ùgԤh]";
				mes "S-stop it!";
				mes "Just--Just stop it!";
				close;
			break;
			}
		}
		mes "[ùgԤh]";
		mes "Humans...";
		mes "They're everywhere!";
		mes "You guys--I can't...";
		mes "You're torturing me!";
		emotion e_sob;
		close;
	}
	else if(ZLMASKQ == 4)
	{
		mes "[ùgԤh]";
		mes "My chest was on fire,";
		mes "like I was, I dunno,";
		mes "burning with anger or";
		mes "something. It's gone";
		mes "now, but what were";
		mes "those crystals?";
		close;
	}
	else if(ZLMASKQ == 5)
	{
		mes "[ùgԤh]";
		mes "You again? Oh no,";
		mes "you're not going to hurt";
		mes "me or make me eat those";
		mes "weird crystals again, are you?";
		next;
		mes "^3131FF[" + strcharinfo(0) + "]^000000";
		switch( select( ":Injustice:㴵]k" ) )
		{
		case 1:
			mes "";
			set @temp1,1;
		break;

		case 2:
			mes "Injustice";
			set @temp1,2;
		break;

		case 3:
			mes "㴵]k";
			set @temp1,3;
		break;
		}
		switch( select( "hates:likes" ) )
		{
		case 1:
			mes "hates";
			set @temp2,1;
		break;

		case 2:
			mes "likes";
			set @temp2,2;
		break;
		}
		switch( select( ".:Injustice.:ùgԤh.:㴵]k." ) )
		{
		case 1:
			mes ".";
		break;

		case 2:
			mes "Injustice.";
		break;

		case 3:
			if((@temp1 == 1 || @temp1  == 2) && @temp2 == 1)
			{
				mes "[ùgԤh]";
				mes "I can't believe";
				mes "something like that!";
				mes "Oh, that doesn't matter.";
				mes "㴵]k is too good for me.";
				mes "I'm not even worthy of tasting";
				mes "the sting of her Love Whip.";
				emotion e_sob;
				close;
			}
			else if(@temp1 == 3 && @temp2 == 1)
			{
				mes "[ùgԤh]";
				mes "...";
				mes "......";
				mes "Hates me?";
				mes "N-no, that can't--";
				mes "I didn't, that doesn't--";
				next;
				mes "[ùgԤh]";
				mes "Huh...?";
				mes "What is that";
				mes "supposed to mean?";
				close;
			}
			else if(@temp1 == 3 && @temp2 == 2)
			{
				mes "[ùgԤh]";
				mes "I can't believe";
				mes "something like that!";
				mes "Oh, that doesn't matter.";
				mes "㴵]k is too good for me.";
				mes "I'm not even worthy of tasting";
				mes "the sting of her Love Whip.";
				emotion e_sob;
				close;
			}
		break;

		case 4:
			mes "㴵]k.";
		break;
		}
		switch( select( "Insult him.:Apologize." ) )
		{
		case 1:
			mes "[" + strcharinfo(0) + "]";
			mes "First of all,";
			mes "what exactly sets";
			mes "you apart from all the";
			mes "other eligible monsters";
			mes "that she can choose from?";
			mes "Not like you're much better...";
			next;
			mes "[ùgԤh]";
			mes "...";
			mes "......";
			next;
			switch( select( "Break his pride.:Tell him you were joking." ) )
			{
			case 1:
				mes "^3131FF[" + strcharinfo(0) + "]^000000";
				mes "I mean, there are guys";
				mes "like Bloody Murderer out";
				mes "there who are more evil";
				mes "than you, and best of all,";
				mes "not afraid of humans!";
				next;
				switch( select( "Go for the low blow.:Try to salvage his confidence." ) )
				{
				case 1:
					mes "[" + strcharinfo(0) + "]";
					mes "You know, me and 㴵]k";
					mes "were actually talking about";
					mes "you recently. She told me that";
					mes "the sight of you makes her";
					mes "feel sick! I mean, what kind";
					mes "of monster is afraid of humans?";
					next;
					mes "[" + strcharinfo(0) + "]";
					mes "Now you've reached the";
					mes "point where even Injustice";
					mes "is manlier than you now,";
					mes "if you know what I mean!";
					mes "Hahahahahahahahaha!";
					next;
					mes "[ùgԤh]";
					mes "...";
					mes "......";
					next;
					mes "[ùgԤh]";
					mes "...";
					mes "......";
					mes ".........";
					next;
					mes "[ùgԤh]";
					mes "...";
					mes "......";
					mes ".........";
					mes "............";
					next;
					mes "[ùgԤh]";
					mes "GRRRRRR!";
					mes "THAT'S ENOUGH!";
					emotion e_ag;
					next;
					mes "[ùgԤh]";
					mes "I don't care who the";
					mes "hell she is, I'm going";
					mes "to see 㴵]k and give";
					mes "that tramp a piece of my";
					mes "mind! Grrrr! She'll be sorry!";
					set ZLMASKQ,6;
					emotion e_an;
					close;
				break;

				case 2:
					mes "^3131FF[" + strcharinfo(0) + "]^000000";
					mes "But know that I think";
					mes "about it, maybe you look";
					mes "much tougher than that";
					mes "Bloody Murderer guy.";
					next;
					mes "[ùgԤh]";
					mes "*Sniff sniff*";
					mes "You really think so?";
					next;
					mes "...";
					mes "......";
					next;
					mes "[" + strcharinfo(0) + "]";
					mes "...Yeeeeeah.";
					close;
				break;
				}
			break;

			case 2:
				mes "[" + strcharinfo(0) + "]";
				mes "But now that I think";
				mes "about it, you actually";
				mes "are much better than all";
				mes "those other monsters.";
				mes "That stuff I said before?";
				mes "I was just kidding you.";
				next;
				mes "[ùgԤh]";
				mes "^333333*Sniff!*^000000";
				mes "You're...";
				mes "Not helping!";
				close;
			break;
			}
		break;

		case 2:
			mes "[" + strcharinfo(0) + "]";
			mes "I...";
			mes "I was just kidding!";
			mes "How could she hate";
			mes "somebody like you?";
			next;
			mes "[ùgԤh]";
			mes "No... No.";
			mes "You're right.";
			mes "I don't deserve love.";
			mes "Not from 㴵]k or";
			mes "from anybody else...";
			close;
		break;
		}
	}
	else if(ZLMASKQ > 5)
	{
		mes "[ùgԤh]";
		mes "㴵]k! How dare";
		mes "she say those things";
		mes "against me! Less manly";
		mes "than Injustice?! I'll just";
		mes "have to prove her wrong!";
		mes "Out the way, pithy human!";
		close;
	}

}

gl_prison1,100,48,5	script	#LhzHat	1201,{

	if(ZLMASKQ == 2)
	{
		mes "[]";
		mes "You know, I usually just";
		mes "run up and slash like crazy";
		mes "once I see you humans, but";
		mes "my heart's not in it today, so";
		mes "I'm gonna give you just one";
		mes "chance to run for your life.";
		next;
		switch( select( "Talk about ùgԤh.:Run for your life." ) )
		{
		case 1:
			mes "[]";
			mes "What th--? You know the";
			mes "same ùgԤh I know?";
			mes "Dayam, that's weird. But";
			mes "yeah, him and 㴵]k have";
			mes "some kind of... I dunno what";
			mes "it is, actually. Um, love?";
			next;
			mes "[]";
			mes "Anyway, ùgԤh has";
			mes "been acting really weird";
			mes "lately. I guess 㴵]k";
			mes "loved him to the point that";
			mes "she abused him to the point";
			mes "that he's scared of humans now.";
			next;
			mes "[]";
			mes "Huh. You know what'd help?";
			mes "Dark Crystal Fragments. It's";
			mes "worthless to humans, but if";
			mes "creatures of darkness eat it,";
			mes "it brings out more of their";
			mes "inner demon. Scary, huh?";
			next;
			mes "[]";
			mes "Since ùgԤh's pretty big, and he's acting like a total wuss, you";
			mes "you should probably get him to eat ^3131FF369 Dark Crystal Fragments^000000. Don't";
			mes "worry, you should be able to find those all over Rune-Midgard.";
			next;
			mes "[]";
			mes "I dunno why a human";
			mes "like you would want to";
			mes "help one of us out, though.";
			mes "What's in it for you, exactly?";
			set ZLMASKQ,3;
			close;
		break;

		case 2:
			mes "[]";
			mes "That's right!";
			mes "Run, get outta here!";
			mes "If you're not fast enough,";
			mes "I might eat you, human!";
			mes "...Well... Probably not.";
			close;
		break;
		}
	}
	else if(ZLMASKQ == 3)
	{
		mes "[]";
		mes "I don't get why someone";
		mes "like you, a seemingly heroic";
		mes "adventurer, would want to help";
		mes "out ùgԤh? Did 㴵]k";
		mes "blackmail you or something?";
		next;
		mes "[]";
		mes "Well, you could";
		mes "probably help him";
		mes "by getting him to eat";
		mes "^3131FF369 Dark Crystal Fragments^000000";
		mes "to sort of stir up the demon";
		mes "that sleeping within, you know?";
		close;
	}
	else if(ZLMASKQ == 4)
	{
		mes "[]";
		mes "Feeding him all of those";
		mes "Dark Crystal Fragments didn't";
		mes "work? But that was supposed";
		mes "to be foolproof! Dayam, what";
		mes "the hell happened to ùgԤh's";
		mes "inner demon?! Man oh man...";
		next;
		mes "[]";
		mes "Well, I don't know what";
		mes "else you could try. I mean,";
		mes "maybe you could try motivating";
		mes "him. Reverse psychology?";
		mes "It's weird talking about this";
		mes "with a human. Hahahaha~";
		set ZLMASKQ,5;
		close;
	}
	else if(ZLMASKQ == 5)
	{
		mes "[]";
		mes "ùgԤh sure looks";
		mes "tough, but I guess even";
		mes "he isn't totally evil. Yeah.";
		mes "We monsters aren't all";
		mes "bad... Just mostly bad.";
		close;
	}

}
