//================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ĲڡBsĻ ʶR - 
//================================
// *gJA
//================================

alde_alche,24,188,2	script	զX c	740,{
	if (checkweight(1201,1) == 0) {
		mes "- е! -";
		mes "- AWaFӦh~F -";
		mes "- FhlF -";
		mes "- Hbdԭܮw -";
		mes "- A^ӧa! -";
		close;
	}
	mes "[B ]";
	mes "wӨNv´A";
	mes "ݭnAȶ?";
	next;
	switch (select("ʶRsĪ~:ʶRs@:")) {
	case 1:
		mes "[B ]";
		mes "аݻݭn򪫫~";
		next;
		if(select("Ĳ - 8z:")==2)
			break;
		mes "[B ]";
		mes "аݻݭnX?";
		mes "pQnмg '0' ";
		while(1) {
			next;
			input .@num;
			if(.@num <= 0) {
				mes "[B ]";
				mes "AUAa";
				close;
			}
			if(.@num > 2000) {
				mes "[B ]";
				mes "п2000ӥHU";
				continue;
			}
			break;
		}
		if(Zeny < .@num*8) {
			mes "[B ]";
			mes "B";
			mes "нT{@UaB";
			close;
		}
		if(checkweight(7134,.@num)==0) {
			mes "ݼˤlaڡA";
			mes "нT{@Ua~q";
			close;
		}
		set Zeny,Zeny-.@num*8;
		getitem 7134,.@num;
		break;
	case 2:
		mes "[B ]";
		mes "аݻݭnǪ~?";
		mes "@몺s@ѬO100,000A";
		mes "SXػs@Ѱ~";
		next;
		switch (select("@Ĥs@:ss@:ϲ~s@:QĻs@:Ӫ~s@:~s@:@Ļs@:ֲĤs@:")) {
		default:
			set .@price,100000;
			break;
		case 8:
			set .@price,240000;
			break;
		case 9:
			mes "[B ]";
			mes "AUAa";
			close;
		}
		if(Zeny < .@price) {
			mes "[B ]";
			mes "B";
			mes "нT{@UaB";
			close;
		}
		set Zeny,Zeny-.@price;
		setarray .@itemid,7144,7127,7128,7129,7130,7131,7132,7133;
		getitem .@itemid[@menu-1],1;
		mes "[B ]";
		mes "P§AʶRA";
		mes "@AXΪ";
		close;
	case 3:
	}
	mes "[B ]";
	mes "AUAa";
	close;
}