//===== rAthena Script ======================================= 
//= Elemental Stone Trader
//===== By: ================================================== 
//= rAthena Team & MasterOfMuppets
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Trade impure types of elemental stones for pure ones.
//===== Additional Comments: ================================= 
//= 1.0 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
//= 1.1 Optimized. [Euphy]
//============================================================ 

ama_in02,61,27,7	script	ʦ#ama	749,{
	mes "[չ]";
	mes "ǺǺǺǺǹ!";
	mes "˾!";
	mes "ƽĵһ!";
	next;
	mes "[չ]";
	mes "û뵽ôңԶĵط";
	mes "ᷢҵ!";
	mes "һ...";
	mes "ԭеĻȤ";
	next;
	mes "[չ]";
	mes "ǺǺ...ҪСĵ..";
	mes "֯Ǳ߷";
	mes "й¶ҩӦû..";
	mes "..";
	next;
	mes "[չ]";
	mes "!ʲôҪ˵?";
	mes "۹ĻԵĿ֮";
	mes "صȥ";
	mes "..Ȼ͸㳢";
	mes "ƿζ..";
	next;
	if (select(",Ե:Ҫæĵط?") == 1) {
		mes "[չ]";
		mes "úú...";
		mes "ʲôǹԹԵİ";
		mes "Ǹǻõؾ...";
		mes "...";
		close;
	}
	mes "[չ]";
	mes "˵Ҫ?";
	mes "...";
	mes "ڻҪһЩƷ";
	mes "...";
	next;
	mes "[չ]";
	mes "ҵʵҪʯ";
	mes "ѼĻ";
	mes "ҽʾм";
	mes "дЩ?";
	next;
	if(select("û:м")==1) {
		mes "[չ]";
		mes "Ļ";
		mes "ȥѼʯ8";
		mes "ͬĻ";
		mes "һỻһĸ..";
		next;
		mes "[չ]";
		mes "ô. ȥѼʯ8";

		mes "[չ]";
		mes "Ū֮";
		mes "ȻһĽųԻƿ!";
		next;
		mes "[չ]";
		mes "ô!˵Ҫҵ";
		mes "Ҫŵ!...";
		close;
	}
	mes "[չ]";
	mes "ܺãʲô?";
	next;
	setarray .@Items[1],995,997,994,996;
	set .@i,select("ˮԭʯ","ԭʯ","ԭʯ","ԭʯ")-1;
	mes "[չ]";
	if (countitem(.@i) > 7) {
		mes "һ8㻻...";
		mes "һʯͷ";
		mes "о!";
		mes "ߴߴߴ......";
		next;
		mes "[չ]";
		mes "ô, ҪҪѡһ?";
		next;
		set .@menu$, "";
		for(set .@j,1; .@j<5; set .@j,.@j+1) {
			if (.@Items[.@j] != .@i) set .@menu$, .@menu$+getitemname(.@Items[.@j]);
			set .@menu$, .@menu$+":";
		}
		set .@menu$, .@menu$+"ȡ";
		set .@j, select(.@menu$);
		mes "[չ]";
		if (.@j == 5) {
		mes ".";
		mes "Ҫȥ߱˵";
		mes "Լ˰!";
			close;
		}
		else if (.@j == 4) {
			if (countitem(.@i) > 11) {
				delitem .@i,12;
				getitem 996,1;
				mes "Ӧ֪";
				mes "ҵĴҲǺܶ";
				mes "Ҫ^0000FF12^000000, ?";
				mes "еĻù!";
				mes "ߴߴߴ......";
				close;
			}
			mes "Ӧ֪";
			mes "Ҫȡ8ˮԭʯ";
			mes "һͬԵԭʯ";
			mes "ʳǴֲڵķʯ";
			mes "ǾͶ4ʯͷ. 8 + 4 = 12...";
			mes "Ҫ ^0000FF12^000000 ʯͷ.";
			next;
			mes "[չ]";
			mes "ʯͷ, ~!!";
			mes "ͬʱĳŵ! Kehheheheheh...";
			close;
		}
		else {
			delitem .@i,8;
			getitem .@Items[.@j],1;
			mes "Keheheh! ѡ˸ö!";
			mes "úʹ...";
			mes "ʯͷĻǵøҴ!";
			close;
		}
	} else if (countitem(.@i)) {
		mes "㲻ֻˮĸ";
		mes "ʯͷ... ˵ 8!";
		mes "Ҵ8ʯͷ!";
		mes "Keheheh.....";
		next;
		mes "[չ]";
		mes "ʯͷ, ~!!";
		mes "ͬʱĳŵ! Kehheheheheh...";
		close;
	}
	mes "Keheheh~ Ŀڴ";
	mes "Ȼٻش";
	mes "Ǹ.....";
	next;
	mes "[չ]";
	mes "ʯͷ! ˵Ҫҵ!";
	mes "ͬʱĳŵ! Kehheheheheh...";
	close;
}
