//==============================================
// ĲڡBѥXNPC
// NXg by FPE(2006.6.28)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

alde_alche.gat,24,188,5	script	զX c	740,{
	mes "[B  ]";
	mes "wӨҪNv´A";
	mes "ݭnAȶܡH";
	next;
	switch(select("ʶRsĪ~","ʶRs@",""))
	{
	case 1:
		mes "[B  ]";
		mes "аݻݭn򪫫~";
		next;
		if(select("Ĳ - 8z","")==1)
		{
			mes "[B  ]";
			mes "аݻݭnX?";
			mes "pQnмg '0'";
			next;
			input @num;
			if(@num<=0)
			{
				mes "[B  ]";
				mes "wF";
				mes "AUAaC";
				close;
				end;
			}
			if(@num>500)
			{
				mes "[B  ]";
				mes "п500ӥHU";
				close;
				end;
			}
			if(zeny<@num*8) break;
			if(checkweight(7134,@num)<1)
			{
				mes "[B  ]";
				mes "@AAwgWFA٬Oz@UAʶRaC";
				close;
				end;
			}
			getitem 7134,@num;
			set zeny,zeny-@num*8;
			mes "[B  ]";
			mes "±zϥ";
			close;
			end;
		}
		mes "[B  ]";
		mes "AUAaC";
		close;
		end;
		break;
	case 2:
		mes "[B  ]";
		mes "аݻݭnǪ~H";
		mes "@몺s@ѬO100,000ASXػs@Ѱ~C";
		next;
		switch(select("@Ĥs@","ss@","ϲ~s@","QĲ~s@","Ӫ~s@","~s@","@Ļs@","ֲĤs@"))
		{
		case 1:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "@Ĥs@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7144,1;
			}
			close;
			end;
			break;
		case 2:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "ss@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7127,1;
			}
			close;
			end;
			break;
		case 3:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "ϲ~s@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR",""))
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7128,1;
			}
			close;
			end;
			break;
		case 4:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "QĲ~s@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7129,1;
			}
			close;
			end;
			break;
		case 5:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "Ӫ~s@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR",""))
			{
				mes "[B  ]";
				mes "±zʶR";
				set Zeny,Zeny-100000;
				getitem 7130,1;
			}
			close;
			end;
			break;
		case 6:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "~s@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7131,1;
			}
			close;
			end;
			break;
		case 7:
			if(zeny<100000) break;
			mes "[B  ]";
			mes "@Ļs@ѶܡH";
			mes "O100,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-100000;
				getitem 7132,1;
			}
			close;
			end;
			break;
		case 8:
			if(zeny<240000) break;
			mes "[B  ]";
			mes "ֲĤs@ѶܡH";
			mes "O240,000C";
			next;
			if(select("ڭnʶR","")==1)
			{
				mes "[B  ]";
				mes "±zʶR";
				set zeny,zeny-240000;
				getitem 7133,1;
			}
			close;
			end;
			break;
		}
	case 3:
		mes "[B  ]";
		mes "AUAaC";
		close;
		end;
		break;
	}

	mes "[B  ]";
	mes "B";
	mes "нT{@UaB";
	close;
	end;
}