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

alberta_in,133,55,3	script	״	84,{
	if(DYE_EVE == 2) {
		mes "[ ״]";
		mes "....";
		mes "ȥҵĻѧ?";
		next;
		if(select("ѯĪ˹̹¼:")==1) {
			mes "[ ״]";
			mes "һѧ¼ûлȥǰ?";
			mes "... Ϊβȥ?ȥ!˵ǳصƷ ...";
		}
		else {
			mes "[ ״]";
			mes "лʵ˵ɣȻⲻǿ...";
		}
		close;
	}
	mes "[ ״]";
	mes "?";
	next;
	setarray .@talk$,"Ի","Һ","ѯйؿղҩˮ","ѯйصҩˮ","";
	if(countitem(971) && countitem(972)) {
		set .@word$,"ǸҺ";
		cleararray .@talk$[2],"",2;
	}
	else if(countitem(972)) {
		set .@word$,"ղ";
		set .@talk$[1],"";
		set .@talk$[3],"";
	}
	else if(countitem(971)) {
		set .@word$,"";
		cleararray .@talk$[1],"",2;
	}
	else {
		cleararray .@talk$[1],"",3;
	}
	switch (select(.@talk$[0],.@talk$[1],.@talk$[2],.@talk$[3],.@talk$[4])) {
	case 1:
		mes "[ ״]";
		mes "ΪѰħߣڼҴ";
		mes "ʱһλӻ ѧҵĴ";
		mes "ԻѧҺȤ";
		mes "ԷʹһЩµ";
		mes "ûеõ Ӧ.";
		mes "ǳͶԼо";
		next;
		mes "[ ״]";
		mes "ֻѧҵ";
		mes "'ղҩˮ... ҩˮ...'";
		mes "ʱҲ֪ˮͬĴҺ";
		close;
	default:
		mes "[ ״]";
		mes "!" +.@word$+ "!";
		mes "ҲûԿģ";
		mes "źҺû˽⣬λӻѧҲ ֪...";
		next;
		mes "[ ״]";
		mes "ȥʰ?";
		mes "þǰˣԲȷ";
		mes "סڼңֽ ^0000ffĪ˹̹^000000.";
		next;
		mes "[ ״]";
		mes "ϸȥʿ.";
		mes "ף.";
		set DYE_EVE,1;
		close;
	case 5:
		mes "[ ״]";
		mes "... ĵҮ.";
		close;
	}
}

geffen,184,114,6	script	ŷ³	82,{
	if(DYE_EVE == 2) {
		mes "[Ҿ ŷ³]";
		mes "үһ. ڵ";
		mes "԰...ûҵҪҵ?";
		next;
		if(select("Ī˹̹¼:")==1) {
			mes "[Ҿ ŷ³]";
			mes "û.";
			mes "סڴ̵ 2¥. ȻʶǺܾǸԵ. Ҹһ, Ҫ̫ ...";
		}
		else {
			mes "[Ҿ ŷ³]";
			mes "κζ־. ὲﻰ.";
			mes "ҵ Ǻ... һ˵Ĵ? ";
		}
		close;
	}
	mes "[Ҿ ŷ³]";
	mes "ȻΰħҲʱ䵹ת. һ˲ʱ仹ǹȥ.";
	mes "Ϊʲվ?";
	next;
	if(DYE_EVE > 0)
		set .@talk$,"Ī˹̹¼";
	switch (select("Ի",.@talk$,"ȡ")) {
	case 1:
		mes "[Ҿ ŷ³]";
		mes "оͳħҲͨ. кܶ ...";
		mes "ȫͶһ?  һ...  һ...";
		close;
	case 2:
		set DYE_EVE,2;
		mes "[Ҿ ŷ³]";
		mes "֪ĸҲ. ֪...";
		mes "Ҳܸ, ʲô.  Բ... Ҫ˽. ֻܸס.";
		next;
		mes "[Ҿ ŷ³]";
		mes "סڴ̵2¥. ȻʶǺܾǸԵ. Ҹһ, Ҫ̫ ...";
		close;
	case 3:
		mes "[Ҿ ŷ³]";
		mes "κζ־. ὲﻰ.";
		mes "ϧҲû취... ҲǴȻһ... ˵˵ ־... Ȼ.";
		close;
	}
}

geffen_in,141,140,3	script	Ī˹̹	121,{
	switch(DYE_EVE) {
	case 0:
	case 1:
		mes "[ѧĪ˹̹]";
		mes "... ...";
		mes "ˣҿ.....";
		close;
	case 2:
		set DYE_EVE,3;
		mes "[ѧĪ˹̹]";
		mes " ... .";
		mes " ...  ...";
		next;
		mes "[ѧĪ˹̹]";
		mes "...Һܾûм";
		mes "...Ǹϰ...";
		mes "ð ... ʲô?";
		break;
	case 3:
		mes "[ѧĪ˹̹]";
		mes "....";
		mes " ... ...";
		break;
	}
	next;
	switch (select("о:µƷ:ȡ")) {
	case 1:
		mes "[ѧĪ˹̹]";
		mes "...ĴоĴ...";
		mes "ô.. ûֱӶ... ";
		mes "......";
		next;
		mes "[ѧĪ˹̹]";
		mes "˵ʵ...ҵоѾɵĽ׶...";
		mes "ҵͷʲôܹ...";
		mes "...";
		mes "ֻʱ...";
		mes "ʱ......";
		next;
		mes "[ѧĪ˹̹]";
		mes "... ֪оʲô";
		mes "... Ǻܼ... ";
		mes "оˮܻ˵Ķ";
		mes "ôܻ";
		next;
		mes "[ѧĪ˹̹]";
		mes "ǺȤ? ";
		mes "ʯͷ͸Һһİ취!!!";
		mes "еĶҺ~~~~ ܻ!! ";
		next;
		mes "[ѧĪ˹̹]";
		mes "............";
		mes "ô...";
		mes "ĿǰΪֹܻеĶ.";
		mes "мµķ.";
		next;
		mes "[ѧĪ˹̹]";
		mes "ְ취Ķ";
		mes "еĻҪ... ";
		mes "ֻҪĻ!!";
		next;
		mes "[ѧĪ˹̹]";
		mes "......";
		mes "Դʹ˷ܺͿֵļ...";
		mes "......";
		mes "Ҫû...";
		close;
	case 2:
		mes "[ѧĪ˹̹]";
		mes "...ȻҲȤ.";
		mes "ǵ...ǵ...κ˶Ȥ...";
		next;
		mes "[ѧĪ˹̹]";
		mes "ô˷ܺȤ  ټ...ǺǺǺ";
		mes "... ʲ? ...";
		mes "? ";
		next;
		if(select("кͼ:ϼ")==1) {
			set .@need,971;
			set .@price,3000;
			set .@gain,973;
		}
		else {
			set .@need,972;
			set .@price,4000;
			set .@gain,974;
		}
		mes "[ѧĪ˹̹]";
		mes "...Ҫ" +getitemname(.@gain)+ "...";
		mes "ǺǺǺ...ҸҪʲô.";
		mes "............ ......";
		next;
		mes "[ѧĪ˹̹]";
		mes "......";
		mes "...ƾ...." +getitemname(.@need);
		mes "..пƿ...";
		next;
		mes "[ѧĪ˹̹]";
		mes "-- ֻҪ3ƷͿ.";
		mes "вμλҪʾ...";
		mes "...Ҫе̫ѹ";
		next;
		mes "[ѧĪ˹̹]";
		mes "...ûҪʲô..Ǻ...";
		mes "..ֻҪ" +.@price+ " zeny";
		next;
		mes "[ѧĪ˹̹]";
		mes "?㲻úܹ?";
		mes "...Ҹоõ...һ";
		mes "ʵʹ!";
		mes "";
		next;
		mes "[ѧĪ˹̹]";
		mes "...ʼ~";
		next;
		if(select("ʼ:ȡ")==2) {
			mes "[ѧĪ˹̹]";
			mes "... ...";
			close;
		}
		if(countitem(970)<1 || countitem(.@need)<1 || countitem(713)<1 || Zeny<.@price) {
			mes "[ѧĪ˹̹]";
			mes "ٶ!!";
			close;
		}
		mes "[ѧĪ˹̹]";
		mes "... ... ... .........Ҫ... ";
		mes "...... ... ... ... ... ! ...ް!!! ...!!!!!!";
		next;
		delitem 970,1;
		delitem .@need,1;
		delitem 713,1;
		set Zeny,Zeny-.@price;
		getitem .@gain,1;
		mes "[ѧĪ˹̹]";
		mes "......";
		close;
	case 3:
		mes "[ѧĪ˹̹]";
		mes "........";
		close;
	}
}