//===== rAthena Script ======================================= 
//= Alchemist Shop
//===== By: ================================================== 
//= rAthena Dev Team
//===== Current Version: ===================================== 
//= 1.7
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= Merchants for Alchemist Materials and Manuals.
//===== Additional Comments: ================================= 
//= 1.1 fixed Medicine Bowl issue, thanx 2 MasterOfMuppets
//= 1.2 Reddozen's fixes of typos. added optional Elemental
//=     Potion Guide. [Lupus]
//= 1.3 Deleted Elemental Potions Guide due to original quest [Lupus]
//= 1.4 Alchemists can now purchase 2000 Medicine Bowls at once. [SinSloth]
//= 1.5 Updated to Aegis 10.3 Standards. [L0ne_W0lf]
//= 1.6 Corrected canceling purchase. [L0ne_W0lf]
//= 1.7 Updated to match AEGIS script. [Masao]
//============================================================ 

alde_alche,31,186,3	script	Ա#alde	883,{

	mes "[Ա]";
	mes "ӭ.";
	mes "רŷ";
	mes "Ŵѧߵ^0000FF鼮^000000.";
	next;
	mes "[Ա]";
	mes "ŴѧҪϰһЩ";
	mes "ʹ.";
	next;
	mes "[Ա]";
	mes "ж鼮,";
	mes "ʹüƷ.";
	next;
	mes "[Ա]";
	mes "";
	mes "ֻЩ鼮";
	mes " ^FF0000^000000.";
	next;
	mes "[Ա]";
	mes "ô, 嵥.";
	next;
	switch(select("[ƻը] 100,000 zeny:[ը] 100,000 zeny:[Ҭը] 100,000 zeny:[ܹը] 100,000 zeny:[㽶ը] 100,000 zeny:[ֲ෨] 100,000 zeny:[߼ҩˮ˵] 100,000 zeny:[] 100,000 zeny:[о] 100,000 zeny:[] 100,000 zeny:ȡ")){
	case 1:
		callsub S_SellManual,6279,100000;
		break;
	case 2:
		callsub S_SellManual,6280,100000;
		break;
	case 3:
		callsub S_SellManual,6281,100000;
		break;
	case 4:
		callsub S_SellManual,6282,100000;
		break;
	case 5:
		callsub S_SellManual,6283,100000;
		break;
	case 6:
		callsub S_SellManual,6284,100000;
		break;
	case 7:
		callsub S_SellManual,6285,100000;
		break;
	case 8:
		callsub S_SellManual,11022,100000;
		break;
	case 9:
		callsub S_SellManual,11023,100000;
		break;
	case 10:
		callsub S_SellManual,11024,100000;
		break;
	case 11:
		mes "[Ա]";
		mes "ллĻݹ.";
		mes "ӭٴι.";
		close;
	}

S_SellManual:
	mes "[Ա]";
	mes "Ҫ"+getitemname(getarg(0))+"?";
	mes "ܹҪ "+getarg(1)+" zeny.";
	mes "빺ٱ?";
	next;
	input .@amount;
	if (.@amount == 0) {
		mes "[Ա]";
		mes "뿴鼮?";
		close;
	}
	if (.@amount < 1 || .@amount > 99 ){
		mes "[Ա]";
		mes "޷򳬹99.";
		close;
	}
	mes "[Ա]";
	mes " "+.@amount+" "+getitemname(getarg(0))+".";
	mes "ܹҪ "+getarg(1) * .@amount+" Zeny.";
	mes "Ҫ?";
	next;
	if (select("ǵ:Ҫ") == 1) {
		if (Zeny < getarg(1) * .@amount) {
			mes "[Ա]";
			mes "û";
			mes "㹻ĽǮ.";
			mes "ȷǷ";
			mes "㹻ĽǮ.";
			close;
		}
		if (checkweight(getarg(0),.@amount) == 0){
			mes "[Ա]";
			mes "޷Яණ.";
			mes "ȷǷ㹻Яռ.";
			close;
		}
		mes "[Ա]";
		mes "ллĻݹ.";
		set Zeny,Zeny - getarg(1) * .@amount;
		getitem getarg(0),.@amount;
		close;
	}
	mes "[Ա]";
	mes "뻨ʱ";
	mes "һ.";
	close;
}

alde_alche,24,188,3	script	ۺϷԱ	740,{
	if (checkweight(1201,1) == 0) {
		mes "- ȵ! -";
		mes "- Я̫Ʒ -";
		mes "- ȰѶĶ -";
		mes "- ķڿֿ֮ -";
		mes "- ٻ! -";
		close;
	}
	mes "[ ɴ]";
	mes "ӭʦ֯";
	mes "Ҫʲô?";
	next;
	switch (select("ҩƷ:˵:ȡ")) {
	case 1:
		mes "[ ɴ]";
		mes "ҪʲôƷ";
		next;
		if (select("ҩ - 8 Zeny:ֹͣ") == 1) {
			mes "[ ɴ]";
			mes "Ҫ?";
			mes "Ҫֹͣд '0' ";
			next;
			while(1) {
				input .@input,0,2001;
				if (.@input == 0) {
					mes "[ ɴ]";
					mes "Ѿȡ´˵";
					close;
				}
				else if (.@input < 1 || .@input > 2000) {
					mes "[ ɴ]";
					mes "ι12000֮";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 8;
			set .@item_weight,.@input * 10;
			if (Zeny < .@sell) {
				mes "[ ɴ]";
				mes "";
				mes "ȷһЯĽ";
				close;
			}
			if ((MaxWeight - Weight) < .@item_weight) {
				mes "[ ɴ]";
				mes "Ӷܴ߰";
				mes "ȷһЯƷ͸";
				close;
			}
			set zeny,zeny-.@sell;
			getitem 7134,.@input; //Medicine_Bowl
			mes "[ ɴ]";
			mes "лĹ";
			mes "Ըʵõҩ";
			close;
		}
		mes "[ ɴ]";
		mes "ð~";
		mes "Ҫҩصĵߣʱ~";
		close;
	case 2:
		mes "[ ɴ]";
		mes "ҪЩƷ?";
		mes "һ˵100,000ң";
		mes "Ƚļ˵";
		next;
		switch(select("һҩˮ˵:ƾ˵:ƿ˵:˵:ֲƿ˵:̴ƿ˵:ҩ˵:ϸҩˮ˵:ȡ")) {
		case 1:
			callsub S_SellManual,7144,100000; //Normal_Potion_Book
			break;
		case 2:
			callsub S_SellManual,7127,100000; //Alcol_Create_Book
			break;
		case 3:
			callsub S_SellManual,7128,100000; //FireBottle_Create_Book
			break;
		case 4:
			callsub S_SellManual,7129,100000; //Acid_Create_Book
			break;
		case 5:
			callsub S_SellManual,7130,100000; //Plant_Create_Book
			break;
		case 6:
			callsub S_SellManual,7131,100000; //Mine_Create_Book
			break;
		case 7:
			callsub S_SellManual,7132,100000; //Coating_Create_Book
			break;
		case 8:
			callsub S_SellManual,7133,240000; //Slim_Potion_Create_Book
			break;
		case 9:
			mes "[ ɴ]";
			mes "ð~";
			mes "Ҫҩ˵Ļʱ~";
			close;
		}
	case 3:
		mes "[ ɴ]";
		mes "õΣףиõһ~";
		close;
	}

S_SellManual:
	if (Zeny < getarg(1)) {
		mes "[ ɴ]";
		mes "";
		mes "ȷһЯĽ";
		close;
	}
	mes "[ ɴ]";
	mes ""+getitemname(getarg(0))+"?";
	mes "Ȿ˵Ҫ "+getarg(1)+" zeny.";
	next;
	if (select("ȷ:") == 1) {
		set zeny,zeny-getarg(1);
		getitem getarg(0),1;
		mes "[ ɴ]";
		mes "ллݹ~";
		mes "Ըʵõҩ";
		close;
	}
	mes "[ ɴ]";
	mes "õģô´ɣ";
	close;
}
