//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -------------------------------------------
// - Ⱦ ű -
// ------------------------------------------
//  дJA
//============================================

prt_in.gat,225,40,2	script	Ӳ	91,{
	if(Sex) {
		mes "[Ӳ]";
		mes "ӭ. Ӵ! ķʱĺܲ.";
		mes "Ҫרұһ...";
		mes "°. ..";
	} else {
		if(rand(2)) {
			mes "[Ӳ]";
			mes "ѽ! ! ڸʲô?";
			mes "ķ! ĺܲ! ҵ찡~";
			mes ". ܻΣ.";
			mes "һжҺ? ?";
		}
		else {
			mes "[Ӳ]";
			mes "Ӵ!";
			mes "~ȾͷĻĺܿɰӴ,";
			mes "Ⱦͷ?";
		}
	}
	next;
	switch (select("Ⱦͷ.:Ⱦɫ.:ȡ.")) {
	case 1:
		mes "[Ӳ]";
		mes "~~ú~~";
		mes "ǲҪԥ... Ҫĺû.";
		mes "Ҫѡʲôɫ.";
		setarray .@word$,"ɫ:ɫ:ɫ:ɫ:ɫ:ɫ:ɫ:ɫ";
		setarray .@color,8,1,2,3,4,5,6,7;
		setarray .@itemid,975,976,981,980,979,978,982,983;
		while(1) {
			next;
			set .@j,select("ɫȾ.:ɫȾ.:ɫȾ.:ɫȾ.:ɫȾ.:ɫȾ.:ɫȾ.:ɫȾ.:.")-1;
			mes "[Ӳ]";
			mes "ɫ~";
			next;
			if(select("!:Ⱦ!")==2) {
				if(.@dyecount) {
					mes "[Ӳ]";
					mes "ð";
					mes "ڵɫҲʺ";
				}
				else {
					mes "[Ӳ]";
					mes "ϲڵɫ";
					mes "ʺŶ";
				}
				close;
			}
			if(Zeny<5000) {
				mes "[Ӳ]";
				mes "Ǯ";
				close;
			}
			if(countitem(.@itemid[.@j])<1) {
				mes "[Ӳ]";
				mes "ʲôҪ" +.@word$[.@j]+ "Ⱦ";
				mes "" +.@word$[.@j]+ "ȾϡǱ";
				close;
			}
			if(getlook(6) == .@color[.@j]) {
				mes "[Ӳ]";
				mes "..";
				mes "ѡɫͷɫһ...";
				mes "Ҫһɫ.";
				continue;
			}
			set .@dyecount,1;
			set Zeny,Zeny-5000;
			delitem .@itemid[.@j],1;
			setlook 6,.@color[.@j];
			mes "[Ӳ]";
			mes "";
			mes "Ⱦɫ?";
			next;
			if(select(":")==2) {
				mes "[Ӳ]";
				mes "~?ĲҪ? еϧ....";
				close;
			}
			mes "[Ӳ]";
			mes "õģ֪";
		}
	case 2:
		mes "[Ӳ]";
		mes "鲻õʱ , ʧʱ ,";
		mes "װ˧ʱ. رʱ";
		mes "رĳ, رĿռ,";
		mes "ֻеĶط. ҫ ?";
		next;
		mes "[ȾʦӲ]";
		mes "ԼȾ.";
		mes "ʲôɫʹϸķ";
		mes ".";
		mes "ҪԷѹ,";
		mes "õǵõһ. Ǻ~";
		next;
		mes "[ȾʦӲ]";
		mes "*úλ *";
		mes "- ҪȾƷ 1.";
		mes "-1000.";
		close;
	case 3:
		mes "[Ӳ]";
		mes "Ů˶аȨ.";
		close;
	}
}