//========================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ͱ ű -
//========================
//= 汾1.2(TRO)
//========================

// 
prt_in,231,30,2	script	::HairDresser	756,{
	cutin "son",2;
	mes "[]";
	mes "~";
	mes "־ ^3355FF^000000";
	mes "Ϊ˻ҵĺ񰮣";
	mes "Ѿѧ";
	mes "ôλͷĹ";
	next;
	mes "[]";
	mes "ʱҲҪһ鰡";
	mes "תһ飬";
	mes "㻻һ·ͺ?";
	next;
	switch(select("Ҫ:ı䷢:Ի")) {
	case 1:
		mes "[]";
		mes "࣬1ŵ19ţ";
		mes "Ҫ?";
		mes "뿴Ļ ѡ0ţ";
		next;
		input .@style;
		mes "[]";
		switch(.@style) {
		case 0:
			mes "ô?";
			mes "ϲķ͵Ļ";
			mes "ʱҰæ";
			mes "һᾡıݰ";
			close2;
			cutin "son",255;
			end;
		case 1:
			if(Sex) {
				mes "'װ' !";
				mes "ƽȣص㣬";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "˭˶ȥķͣ";
				mes "ô?";
				break;
			}
		case 2:
			if(Sex) {
				mes "'˫ֽʹ' !";
				mes "һλĽʿͺƣ";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "Ըо";
				mes "һǿķͣ";
				mes "ô?";
				break;
			}
		case 3:
			if(Sex) {
				mes "'鱬' !";
				mes "Ըо֪ķͣ";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "Ȼеоůķͣ";
				mes "ô?";
				break;
			}
		case 4:
			if(Sex) {
				mes "'ʸ' !";
				mes "ĺ峺ķͣ";
				mes "ô?";
				break;
			} else {
				mes "' ' !";
				mes "Ҫˬĸоǲķͣ";
				mes "ô?";
				break;
			}
		case 5:
			if(Sex) {
				mes "'ʹ֮ϱ' !";
				mes "ǺƽȺϵķͣ";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "ǿоķͣ";
				mes "ô?";
				break;
			}
		case 6:
			if(Sex) {
				mes "'Ƴʹ' !";
				mes "ǽƳ";
				mes "ΰĻķͣ";
				mes "ô?";
				break;
			} else {
				mes "'¶̵' !";
				mes "ӿ׬Ǯķͣ";
				mes "ô?";
				break;
			}
		case 7:
			if(Sex) {
				mes "'ʩ' !";
				mes "ожоķͣ";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "˭εķͣ";
				mes "ô?";
				break;
			}
		case 8:
			if(Sex) {
				mes "'ﻥ' !";
				mes "ֻҪһ۵Ļ";
				mes "úܶϵķ!";
				mes "ô?";
				break;
			} else {
				mes "'̸֮' !";
				mes "ʥգƯ";
				mes "ô?";
				break;
			}
		case 9:
			if(Sex) {
				mes "'ɢ' !";
				mes "ķͣ";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "þоķͣ";
				mes "ô?";
				break;
			}
		case 10:
			if(Sex) {
				mes "'ת' !";
				mes "оϿħһ֮еķ!";
				mes "ô?";
				break;
			} else {
				mes "'ҩ' !";
				mes "оʹ˿ڣõķ!";
				mes "ô?";
				break;
			}
		case 11:
			if(Sex) {
				mes "'֪ʶ' !";
				mes "صΪͣķ";
				mes "ô?";
				break;
			} else {
				mes "'ʥʮ' !";
				mes "оûвη..";
				mes "ô?";
				break;
			}
		case 12:
			if(Sex) {
				mes "'Ȩʹ' !";
				mes "̶ܼ۵ķ!";
				mes "ô?";
				break;
			} else {
				mes "'Ϯ' !";
				mes "пķ...?";
				mes "ô?";
				break;
			}
		case 13:
			if(Sex) {
				mes "'ױ' !";
				mes "оϺ";
				mes "׻йĸо!!";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "˵Ļᱻĸо";
				mes "ô?";
				break;
			}
		case 14:
			if(Sex) {
				mes "'' !";
				mes "˸оҪȥķͣ";
				mes "ô?";
				break;
			} else {
				mes "'Ϊ' !";
				mes "κˣķ...";
				mes "ô?";
				break;
			}
		case 15:
			if(Sex) {
				mes "'Ӱ֮' !";
				mes "̴̵ĸо񱻴̵ķ!";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "СĽӽĻᱻߵķ!";
				mes "ô?";
				break;
			}
		case 16:
			if(Sex) {
				mes "'' !";
				mes "оߵ˺ķ...?";
				mes "ô?";
				break;
			} else {
				mes "'λ' !";
				mes "Ļоƶķ";
				mes "ô?";
				break;
			}
		case 17:
			if(Sex) {
				mes "'Ѱҿʯ' !";
				mes "·񶫼ķͣ";
				mes "ô?";
				break;
			} else {
				mes "'֮' !";
				mes "þ㱵ģƯķ!";
				mes "ô?";
				break;
			}
		case 18:
			if(Sex) {
				mes "'' !";
				mes "һʱƯķ...!";
				mes "ô?";
				break;
			} else {
				mes "'' !";
				mes "Ŵ̼оģʵķͣ";
				mes "ô?";
				break;
			}
		case 19:
			if(Sex) {
				mes "'ްԻȭ' !";
				mes "һȭеϣķ!";
				mes "ô?";
				break;
			} else {
				mes "'Ԫ' !";
				mes "񴵶ķһһķ";
				mes "ô?";
				break;
			}
		default:
			mes "ࡣûַͰ";
			mes "ֻд1ŵ 19Ϊֹ";
			close2;
			cutin "son",255;
			end;
		}
		cutin "son",255;
		callsub L_cutin,.@style;
		close2;
		end;
	case 2:
		if(BaseLevel < 60) {
			mes "[]";
			mes "ࡣˣڵķͣ";
			mes "ʺ㲻ˣ";
			mes "Ҫĳֵķͣ";
			mes "װƷװһ°";
			close2;
			cutin "son",255;
			end;
		} else if((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) || (Zeny < 99800)) {
			mes "[]";
			mes "Ҫ͵Ļ";
			mes "Ҫ׼һЩ";
			mes "ҪĶȽ϶࣬";
			mes "úõļ!";
			next;
			mes "[]";
			mes "кͼ 3";
			mes "ϼ 3";
			mes "100";
			mes "̱100";
			mes "100";
			mes "ɫͷ100";
			mes "ͷ100";
			next;
			mes "[]";
			mes "⻹Ҫ 99,800 ң";
			mes "׼֮Ļ";
			mes "һҵı㿴ģ";
			close2;
			cutin "son",255;
			end;
		}
		mes "[]";
		mes "õģ... ѡ뻻ķͰ";
		mes "һҵı㿴";
		mes "࣬1ŵ19ţ";
		mes "Ҫ?";
		next;
		input .@style;
		if(.@style > 19) {
			mes "[]";
			mes "ࡣûַͰ";
			mes "ֻд1ŵ 19Ϊֹ";
			close2;
			cutin "",255;
			end;
		} else if(.@style == 0) {
			mes "[]";
			mes "Ѿȡ";
			close2;
			cutin "",255;
			end;
		} else if(getlook(1) == .@style) {
			mes "[]";
			mes "Ѿˣ";
			mes "ΪҪٿķ";
			close2;
			cutin "",255;
			end;
		}
		cutin "son",255;
		callsub L_cutin,.@style;
		mes "[]";
		mes " " + .@style + "ŷ";
		mes "ҽΪı";
		mes "Ҫʼı䷢??";
		next;
		if(select("ǣھ͸ı䷢:ٿǿ...")==2) {
			mes "[]";
			mes "ðɣҪصѡͣ";
			mes "һַϲģ";
			mes "ǵ÷ͺ֮Ұ!";
			close2;
			cutin "",255;
			end;
		}
		if(getlook(6) == 0) {
			mes "[]";
			mes "㻹ûȾͷѽ?";
			mes "ҾȾµķɫȽϺࡣ";
			mes "ڻ֮ǰҿṩ";
			mes "ҪȾɫ?";
			next;
			switch(select("ɫ:ɫ:ɫ:ɫ:ɫ:ɫ:ɫ:ɫ:ȡ")) {
			case 1:
				set .@pallete,8;
				break;
			case 2:
				set .@pallete,1;
				break;
			case 3:
				set .@pallete,2;
				break;
			case 4:
				set .@pallete,3;
				break;
			case 5:
				set .@pallete,4;
				break;
			case 6:
				set .@pallete,5;
				break;
			case 7:
				set .@pallete,6;
				break;
			case 8:
				set .@pallete,7;
				break;
			case 9:
				mes "[]";
				mes "ðɣ";
				mes "ӭٶȹ٣";
				mes "ֻǷҪͷɫҲǺҪ";
				close2;
				cutin "",255;
				end;
			}
		}
		mes "[]";
		mes "ڣҪʼ~ 벻Ҫ~";
		mes "ˣķͿܾͻĺѿ";
		mes "ֻҪҾͺãΪƯķ!";
		next;
		mes "[]";
		mes "-     -";
		mes "-     -";
		mes "- ž ž ž ž -";
		next;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,.@style;
		setlook 6,.@pallete;
		mes "[]";
		mes "~ ǳĲ!";
		mes "ϣϲ " + .@style + "ŷ";
		mes "㿴ϲķ";
		mes "ӭʱࡣ";
		setlook 1,.@style;
		setlook 6,.@pallete;
		close2;
		cutin "",255;
		end;
	case 3:
		mes "[]";
		mes "ÿһ˶аȨ...";
		mes "ϣҵ";
		mes "ʺķ";
		close2;
		cutin "son",255;
		end;
	}
L_cutin:
	if(Sex) {
		if(getarg(0) < 10)
		cutin "hair_m_0"+getarg(0),4;
		else
		cutin "hair_m_"+getarg(0),4;
	} else {
		if(getarg(0) < 10)
		cutin "hair_f_0"+getarg(0),4;
		else
		cutin "hair_f_"+getarg(0),4;
	}
	return;
}

morocc,160,97,4	duplicate(HairDresser)	#moc	756
geffen,120,60,8	duplicate(HairDresser)	#gef	756
aldebaran,143,116,4	duplicate(HairDresser)	#alde	756
izlude,134,92,4	duplicate(HairDresser)	#izl	756


// ˵ ʦ
alberta,33,141,1	script	˵ ʦ	87,{
	mes "[ ]";
	mes "! ˵ʲôʦٳ";
	mes "˵ʲôԵ֮ģ";
	mes "Ҳһλ˵ļֵ˰!";
	mes "ҲĴѽ!";
	next;
	switch(select("һе?:Ҳף!!:......")) {
	case 1:
		mes "[ ]";
		mes "!? ʦϣ";
		mes "ݵף";
		mes "ΪȤѽ";
		mes "";
		mes "һλԳǷʦС...";
		next;
		mes "[ ]";
		mes "ҲŻصһ˵ģ";
		mes "һֱ۲죬ҶԼҪķͰ";
		mes "ǲе!! ʦ˵";
		mes "'̺?Ļ~'";
		mes "̳ɺֵģķ͸!";
		next;
		mes "[ ]";
		mes "պ͵գ";
		mes "鶼... ַôܳƵϣ";
		mes "! ͷ";
		mes "ʱһ֪̫!";
		mes "֮ܶһ仰ǲⰡ!!";
		next;
		mes "[ ]";
		mes "ҲõҵݵףĻ";
		mes "ʱ˵ɣ";
		mes "һرĻһ˼͵ģ";
		mes "֪? Ҫίиֱʦ";
		mes "ҵ˼";
		close;
	case 2:
		if(BaseLevel < 60) {
			mes "[ ]";
			mes "ţ۹Ļ";
			mes "ʺķ͵ǣ";
			mes "Ŀǰķǡ";
			mes "ΪҽģŰ";
			close;
		}
		if(Zeny < 199800) {
			mes "[ ]";
			mes "ѽ? ĶҪֻҪѽ!";
			mes "׼199,800 ֮Ұɣ";
			mes "ļ۸񣬿ԵõҵƯף";
			mes "Ҫеٲе..";
			close;
		}
		mes "[ ]";
		mes "ðɣҾͽ 199,800 Ұɣ";
		mes "? 㻹Ҫ";
		mes "λʦ";
		mes "ȥ񻰵ķҲѽ...";
		next;
		if(select("ǾͰ:ǲ") ==1 ) {
			mes "[ ]";
			mes "ô----- ʼ!!!";
			mes "ʼҪņ!!";
			next;
			mes "[ ]";
			mes "!! !!";
			next;
			mes "[ ]";
			mes "Ӵ!! !! !!";
			next;
			mes "[ ]";
			mes "!! ˲𣬺˲ѽ!!";
			mes "˭׷浽ҵķѽ!";
			mes "۹!!";
			setlook 1,rand(1,19);
			setlook 6,rand(1,6);
			set Zeny,Zeny-199800;
			close;
		}
		mes "[ ]";
		mes "! ı!! һڵ!!";
		mes "ǣΰĽ֣֮";
		mes "ʵ£";
		mes "һ򵽵...";
		close;
	case 3:
		mes "[ ]";
		mes "һλݵֶ֪С";
		mes "ȥȥǣ";
		mes "ʵ̫! ÿ!!";
		mes "շ!!";
		close;
	}
}

lhz_in02.gat,100,143,2	script	 ʦ	122,{
	mes "[С ]";
	mes "˵ܵףķʦĹӣС ";
	mes "˰ïܷͣͶյʦңС ";
	next;
	mes "[С ]";
	mes "ͷ?";
	mes "벻ҪԥҪʲôķ";
	next;
	switch(select(":ı䷢:Ի")) {
	case 1:
		mes "[С ]";
		mes "뿴Ƶķ?";
		next;
		mes "[С ]";
		mes "µķʹ20ŵ23Ϊֹ";
		mes "뿴Ļѡ0";
		next;
		input .@hair;
		if(.@hair==0) {
			mes "[С ]";
			mes "ϧ";
			mes "һ漣Ļӭʱ";
			close;
		}
		if(.@hair<20 || .@hair>23) {
			mes "[С ]";
			mes "?";
			mes "20~23";
			close;
		}
		if(Sex) {
			switch(.@hair) {
			case 20:
				cutin "hair_m_20",4;
				mes "[С ]";
				mes "أ^4A4AFFϵص ^000000";
				mes "е񳤷ķͣǿϸ㡢͵ĸоҵҰ";
				close;
			case 21:
				cutin "hair_m_21",4;
				mes "[С ]";
				mes "^4A4AFF ^000000";
				mes "ëβ˴̵ķͣ";
				mes "Ұ޵ıܺʹԸֳ";
				close;
			case 22:
				cutin "hair_m_22",4;
				mes "[С ]";
				mes "أ!õѡ!۹Ⱑ!";
				mes "ֽ^4A4AFFС ^000000!!";
				next;
				mes "[С ]";
				mes "ƵǰͲ෢ѺķԲ״õķͣǳɾĸо";
				mes "ѿ˱ɣС ׹Ӱĸо!";
				close;
			case 23:
				cutin "hair_m_23",4;
				mes "[С ]";
				mes "ѡ^4A4AFFҰ˹ ^000000";
				mes "Сӷ͸һ㣬";
				mes "Ѻķͼĸһˣ";
				mes "еɸɾĸо";
				mes "Ӥζ";
				next;
				mes "[С ]";
				mes "ϲ?";
				close;
			}
		}
		else {
			switch(.@hair) {
			case 20:
				cutin "hair_f_20",4;
				mes "[С ]";
				mes "أ^4A4AFF ^000000";
				mes "ͷڶǰȻ´泩ӡ";
				mes "ϲ?";
				close;
			case 21:
				cutin "hair_f_21",4;
				mes "[С ]";
				mes "^4A4AFF˹ ^000000";
				mes "ǰͷ΢ŪһЩ";
				mes "ͷһЩ";
				mes "һĸо";
				close;
			case 22:
				cutin "hair_f_22",4;
				mes "[С ]";
				mes "أ^4A4AFF÷ɯ ^000000";
				mes "ͷܻãҲܸһֺܿĸо";
				close;
			case 23:
				cutin "hair_f_23",4;
				mes "[С ]";
				mes "ѡ^4A4AFFŮ˿ ^000000";
				mes "ͷŪԲ״ֿɰLOLIĸо";
				close;
			}
		}
	case 2:
		if(baselevel < 60) {
			mes "[С ]";
			mes "С ףΪ˿ṩķ";
			next;
			mes "[С ]";
			mes "Ǻܿϧ˿ʲ";
			mes "úĥҰ";
			close;
		}
		if(countitem(973) < 3 || countitem(974) < 3 || countitem(901) < 100 || countitem(1094) < 100 ||
							countitem(1020) < 100 || countitem(1060) < 100 || countitem(7152) < 100 || Zeny < 99800) {
			mes "[С ]";
			mes "أ¶?";
			mes "ҪҪķ͵Ļ׼Ϻ?";
			next;
			mes "[С ]";
			mes "кͼ3ϼ3";
			mes "100";
			mes "̱100";
			mes "100ɫͷ100";
			mes "ͷ100";
			mes "99,800Zeny";
			next;
			mes "[С ]";
			mes "׼õĻһĿ^4A4AFF׵漣^000000";
			close;
		}
		mes "[С ]";
		mes "ڸı䷢͵ʱ";
		mes "˵һҪƷ";
		next;
		mes "[С ]";
		mes "кͼ3ϼ3";
		mes "100";
		mes "̱100";
		mes "100ɫͷ100";
		mes "ͷ100";
		mes "99,800Zeny";
		next;
		mes "[С ]";
		mes "϶ˣ";
		mes "Ҫʼ?";
		next;
		if(select("ʼ:Ҫ....")==2) {
			mes "[С ]";
			mes "ѵ㲻ϲƵķ....?";
			mes "....Ϊʲô㲻ҵ....";
			mes "ǲҵ";
			close;
		}
		mes "[С ]";
		mes "ô˵ϣıķͺ";
		mes "С һʧ";
		next;
		mes "[С ]";
		if(Sex) {
			mes "20šϵص ";
			mes "21š ";
			mes "22šС ";
			mes "23šҰ˹ ";
		}
		else {
			mes "20š ";
			mes "21š˹ ";
			mes "22š÷ɯ ";
			mes "23šŮ˿ ";
		}
		next;
		input .@hair;
		if(.@hair == 0) {
			mes "[С ]";
			mes "Ѿȡ";
			close;
		}
		if(.@hair < 20 || .@hair > 23) {
			mes "[С ]";
			mes "20~23ĺ";
			close;
		}
		cutin "hair_" +((Sex)? "m": "f")+ "_" +((.@hair < 10)? "0": "")+.@hair+ "",4;
		mes "[С ]";
		mes "ѡ" +.@hair+ "ŷ";
		mes "ôҪı䷢?";
		next;
		if(select("ǵ:....")==2) {
			mes "[С ]";
			mes "Ū?";
			mes "ȷһ";
			close;
		}
		mes "[С ]";
		mes "ôҪʼ";
		mes "漣....!!";
		next;
		mes "-   -";
		mes "-   -";
		mes "-  -";
		next;
		mes "-   -";
		mes "-   -";
		mes "-  -";
		next;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		set Zeny,Zeny-99800;
		setlook 1,.@hair;
		setlook 6,rand(9);
		mes "[С ]";
		mes "";
		mes "ôƵ·ͻ?";
		mes "....С׵ĹȻһ";
		mes (Sex)? "˧ķ!": "Ưķ!"; //Ůδ
		close;
	case 3:
		mes "[С ]";
		mes "ѵ㲻ϲƵķ....?";
		mes "....Ϊʲô㲻ҵ....";
		mes "ǲҵ";
		close;
	}
}

lhz_in02.gat,91,155,4	script	ϰ ʦ	862,{
	emotion 23;
	mes "[ϰ ʦ]";
	mes "Ӵ!һ....";
	next;
	mes "[ϰ ʦ]";
	mes "Ǹ....ӭ!";
	mes "ʲô?";
	mes "Ү?ͷ?˵....ͷʹ?";
	next;
	mes "[ϰ ʦ]";
	mes "ڷ?";
	next;
	switch(select("ʲôİ?:һͺ:ѯйС ׵")) {
	case 1:
		mes "[ϰ ʦ]";
		mes "Ү?˵˭?ʦ?";
		mes "ʦ....ѽ";
		next;
		mes "[ϰ ʦ]";
		mes "ҲҪʦ?";
		mes "ǵ~㵽Ҫ....";
		mes "׽ŪŮĻᱻܳͷ!!";
		next;
		mes "[ϰ ʦ]";
		mes "Ӵ!ǼϰӱʦҪ͵!";
		mes "ɣ!";
		close;
	case 2:
		if(BaseLevel < 60) {
			mes "[ϰ ʦ]";
			mes "?";
			mes "....";
			next;
			mes "[ϰ ʦ]";
			mes "ҵ˼ǣȻҺ룬ֻǸϰʦŪС";
			mes "?";
			close;
		}
		if(Zeny < 250000) {
			mes "[ϰ ʦ]";
			mes "ǺǺǣֻһ֣ڹѧϰ";
			mes "ı䷢͵Ļ250,000Zenyͺ";
			next;
			mes "[ϰ ʦ]";
			mes "ʦߣȻһǼϰһⶼû!!";
			mes "ҵʵŪҲ̫!!";
			close;
		}
		mes "[ϰ ʦ]";
		mes "ҪͷԿ?";
		mes "۰~лл!";
		mes "ʵսϰ!ѽ~!";
		next;
		mes "[ϰ ʦ]";
		mes "ҵ250,000ZenyҾ͵͵͵ʹõĲϷˣûϵ?";
		mes "Ҫһַ?";
		next;
		if(select("ѡ:˰")==2) {
			mes "[ϰ ʦ]";
			mes "Ү??";
			mes "㻹ǶԼϰûаն԰?";
			mes "Ϊ˵ͷǺҪ....~~";
			close;
		}
		mes "[ϰ ʦ]";
		mes "ش1~23ΪֹѡһҪķͰ";
		next;
		input .@hair;
		if(.@hair == 0) {
			mes "[ϰ ʦ]";
			mes "Ŷ....ǲ?";
			close;
		}
		if(.@hair < 0 || .@hair > 23) {
			mes "[ϰ ʦ]";
			mes "һ!";
			mes "Ǵ1~23Ŷ!";
			close;
		}
		cutin "hair_" +((Sex)? "m": "f")+ "_" +((.@hair < 10)? "0": "")+.@hair+ "",4;
		mes "[ϰ ʦ]";
		mes "ѡ?";
		next;
		if(select("ǵ:Ҫ")==2) {
			mes "[ϰ ʦ]";
			mes "~Ϊʲô~?";
			close;
		}
		mes "[ϰ ʦ]";
		mes "ð!!";
		mes "Ҫʼ!!";
		next;
		mes "[ϰ ʦ]";
		mes "ʵϰʼ!";
		mes "!";
		next;
		mes "[ϰ ʦ]";
		mes "~!!";
		next;
		mes "[ϰ ʦ]";
		mes "! ! Ү!";
		next;
		mes "[ϰ ʦ]";
		mes "....";
		mes "ţǳ!";
		next;
		mes "[ϰ ʦ]";
		mes "!";
		next;
		mes "[ϰ ʦ]";
		mes "!!!!";
		next;
		mes "[ϰ ʦ]";
		mes "....";
		next;
		setlook 1,rand(1,23);
		setlook 6,rand(9);
		set Zeny,Zeny-250000;
		mes "[ϰ ʦ]";
		mes "!ɹ!";
		mes "?ϣķͲһ?";
		mes "~һǴ!";
		next;
		emotion 30;
		mes "[ϰ ʦ]";
		mes "ʵʵϰ!";
		mes "Ժ!";
		close;
	case 3:
		mes "[ϰ ʦ]";
		mes "....ûаѽ...";
		mes "ӴҲǵ~";
		mes "Щʲôѽ˺....";
		close;
	}
}
lhz_in02.gat,100,134,2	script	Ⱦʦ	850,{
	mes "[Ⱦʦ ɴ]";
	mes "Ӵ!";
	mes ((Sex)? "": "")+ "ķĺƯ!";
	mes "ͷ?";
	mes "΢ȾɫĻǽ!";
	mes "ҪҪȾɫ?";
	while(1) {
		next;
		switch(select("ҪȾͷ:йȾɫĽ:Ի")) {
		case 1:
			mes "[Ⱦʦ ɴ]";
			mes "....";
			mes "ϲɫ?";
			mes "ɫ? ڰɫ?";
			mes "Ըеɫ? ɫ?";
			setarray .@color,8,1,2,3,4,5,6,7;
			setarray .@item,975,976,981,980,979,978,982,983;
			while(1) {
				next;
				set .@num,select("::::::::")-1;
				if(.@num==8) {
					mes "[Ⱦʦ ɴ]";
					mes "Ӵ㲻?";
					mes "ɫҲӦòѽ";
					close;
				}
				if(getlook(6) == .@color[.@num]) {
					mes "[Ⱦʦ ɴ]";
					mes "ɫʻͦ޵ģ㻹ҪͬɫȾɫ?";
					mes "~";
					continue;
				}
				if(countitem(.@item[.@num]) < 1) {
					mes "[Ⱦʦ ɴ]";
					mes "?û'" +getitemname(.@item[.@num])+ "'";
					close;
				}
				if(Zeny < 1000) {
					mes "[Ⱦʦ ɴ]";
					mes "ȾɫҪķã1,000Zeny";
					close;
				}
				set Zeny,Zeny-1000;
				delitem .@item[.@num],1;
				setlook 6,.@color[.@num];
				mes "[Ⱦʦ ɴ]";
				mes "ǺǣɫƯ?";
				mes "ıʱʱӭٴι!";
				close;
			}
		case 2:
			mes "[Ⱦʦ ɴ]";
			mes "Ϊ鲻õʱ";
			mes "๤Ϲǰ";
			mes "Ưʱ";
			mes "ûκֻʱ!";
			next;
			mes "[Ⱦʦ ɴ]";
			mes "ҪȾɫ1,000ZenyʹҪȾɫȾһĻһȾƯɫ!";
			continue;
		case 3:
			mes "[Ⱦʦ ɴ]";
			mes "ĸ΢Ĳ죬";
			mes "Ҳתã";
			mes "ƽʱһЩһı";
			mes "ҲжصȤζ";
			close;
		}
	}
}