//==================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - ֭ ű - 
//===================================
// 汾1.8
//===================================

prt_in,47,173,2	script	Ī#juice	97,{
	mes "[С Ī]";
	if(MISC_QUEST&1 || @MORRISON > 10) {
		mes "... ! !";
		mes "һΪЩ޴߲ˮ, һȥ!";
		emotion e_pif;
		close;
	}
	if(@MORRISON == 10) {
		mes "..ѾԱ.";
		mes "㲻ٸ. ڼȥĻҷǳ.";
		next;
		mes "[С Ī]";
		mes "ô... ... .";
		next;
		getitem 529,3;
		getitem 530,1;
		set @MORRISON,0;
		mes "[С Ī]";
		mes "ұ͵͵ǹ.";
		mes "ٸһЩĻ, Ըǹ㻻." ;
		close;
	}
	mes ".. !!! .. ";
	mes "..ˮ!!";
	emotion e_sob;
	next;
	if(select("Ի:ر")==2) {
		mes "[С Ī]";
		mes "!!ܹ!!Ѿڳˮ!";
		mes "ʵ,ˮ~ҪƤкܶˮ.Եʱо";
		mes "һ..Բ.!~";
		emotion e_sob;
		close;
	}
	if(countitem(517)) {
		mes "[С Ī]";
		mes "! ..";
		mes "  Ӷ     1в?";
		emotion e_ic;
		next;
		next;
		if(select(":")==1) {
			if(countitem(517) == 0) {
				mes "... ! !";
				mes "һΪЩ޴߲ˮ, һȥ!";
				emotion e_pif;
				close;
			}
			delitem 517,1;
			set @MORRISON,@MORRISON+1;
			mes "[С Ī]";
			mes "~!!! Ү! !";
			mes "! ҿˮ.";
			mes "̫л. ھÿֶ. ...";
			emotion e_awsm;
			close;
		}
		set @MORRISON,11;
		mes "[С Ī]";
		mes "...";
		mes "... ... ܺ, ǳ~!!! ˽ļһ!";
		emotion e_bzz;
		close;
	}
	mes "[С Ī]";
	mes "!!ܹ!!Ѿڳˮ!";
	mes "ʵ,ˮ~ҪƤкܶˮ.Եʱо";
	mes "һ..Բ.!~";
	emotion e_wah;
	close;
}

prt_in,49,172,2	script	#juice	53,{
	mes "[ͥ ]";
	if(MISC_QUEST&1 || @MORRISON > 10) {
		mes " ûͲԷ...Ҫôųˮ...";
		mes "ٸ...Ĩ״...";
		next;
		mes "[ͥ ]";
		mes "!һлˮĨ״.";
		mes "? ޿";
		emotion e_hmm;
		set @MORRISON,0;
		set MISC_QUEST,MISC_QUEST | 1;
		close;
	}
	if(@MORRISON) {
		set @MORRISON,0;
		mes "!! ..⵽";
		mes "ôᷢ!!㲻ҪֵʳҶӳ!";
		mes "ѽ~~淳!! ȥ!";
		emotion e_pif;
		close;
	}
	mes "Ī!!һˮ~!~!!ȥ!";
	mes "ϰ...";
	emotion e_sob;
	next;
	if(select("̸:ȡ")==2) {
		mes "[ͥ ]";
		mes "Ī!! Ҫ!";
		emotion e_bzz;
		close;
	}
	mes "[ͥ ]";
	mes "..СĪҵĶ";
	mes "һ̫ҳˮ.Ѿܾû ɫ䲻һֱ...";
	mes "..취˺ˮ...";
	close;
}

payon_in03,188,146,5	script	׿˺ɭ#juice	86,{
	mes "[׿˺ɭ]";
	if(MISC_QUEST&1) {
		mes "ӭ Ҫӹˮ?";
		next;
		switch (select("ӹˮ:Ի:ȡ")) {
		case 1:
			mes "[׿˺ɭ]";
			mes "Ҫʲô֭?";
			next;
			switch (select("ƻ֭:㽶֭:֭ܲ:֭:ȡ")) {
			case 1:
				set .@fruit,512;
				set .@juice,531;
				break;
			case 2:
				set .@fruit,513;
				set .@juice,532;
				break;
			case 3:
				set .@fruit,515;
				set .@juice,534;
				break;
			case 4:
				set .@fruit,514;
				set .@juice,533;
				break;
			case 5:
				mes "[׿˺ɭ]";
				mes "ô...´...";
				close;
			}
			if (countitem(.@fruit) == 0 || countitem(713) == 0 || Zeny < 3) {
				mes "[׿˺ɭ]";
				mes "!";
				mes "ϲ! ֭Ҫˮһƿһ3!";
				next;
				mes "[׿˺ɭ]";
				mes "Ѳ϶Ļ";
				mes "һ֭!";
				close;
			}
			mes "[׿˺ɭ]";
			mes "Ҫ?";
			next;
			switch (select(":еȫ:ȡ")) {
			case 1:
				while(1) {
					input .@input;
					if (.@input == 0) {
						mes "[׿˺ɭ]"																									;
						mes "ֹͣ";
						close;
					}
					else if (.@input > 100) {
						mes "[׿˺ɭ]"																									;
						mes "һֻ100ƿ֭!";
						next;
					}
					else {
						break;
					}
					break;
				}
				set .@make,.@input;
				if(countitem(.@fruit) < .@make || countitem(713) <  .@make || Zeny < .@make * 3) {
					mes "[׿˺ɭ]";
					mes ",...ϲ";
					emotion e_gasp;
					close;
				}
				break;
			case 2:
				set .@make,1000;
				if(Zeny/3 < .@make) set .@make, Zeny/3;
				if(countitem(.@fruit) < .@make) set .@make, countitem(.@fruit);
				if(countitem(713) < .@make) set .@make, countitem(713);
				if(.@make > 0) break;
				mes "[׿˺ɭ]";
				mes "...Ĳϲ!";
				emotion e_gasp;
				close;
			case 3:
				mes "[׿˺ɭ]";
				mes "! ô... ´ټ.";
				close;
			}
			delitem .@fruit, .@make;
			delitem 713, .@make;
			set Zeny, Zeny - .@make * 3;
			getitem .@juice, .@make;
			mes "[׿˺ɭ]";
			mes "ҪĹ֭,ζһܲ.";
			mes "ô...´.";
			close;

		case 2:
			mes "[׿˺ɭ]";
			mes "# ֭ #";
			mes "ƻ֭ -";
			mes "-ƻ x1, ƿ x1, 3 .";
			mes "";
			mes "㽶֭ -";
			mes "㽶 x1, ƿ x1, 3 .";
			mes "";
			mes "֭ܲ -";
			mes "ܲ x1, ƿ x1, 3 .";
			mes "";
			mes "ѹ֭ -";
			mes " x1, ƿ x1, 3 .";
			close;
		case 3:
			mes "[׿˺ɭ]";
			mes "Ȼ,ǲӦ˵ʲô.";
			close;
		}
	}
	mes "ʲô?";
	next;
	if(select("Ի.:ȡ.")==1) {
		mes "[׿˺ɭ]";
		mes "ڻûо߱ḻ֪ʶǰÿ˶ǳˮ.";
		mes "ˮŵԭ֮һŴȻף.";
		next;
		mes "[׿˺ɭ]";
		mes ".";
		mes "˷ϲˮ.";
		mes "취Ըˮ.";
		mes "ǽˮɹ֭Ƿʳöζ";
		close;
	}
	mes "[׿˺ɭ]";
	mes "ȻˣǲӦ˵ʲô?";
	close;
}
