//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ʸͲ  -
//===========================================

payon_in01.gat,5,134,4	script	 ˹	89,{
	if(Weight*100/MaxWeight >= 90) {
		mes "[ ˹]";
		mes "ڸ̫ˣ嶼վ";
		mes "ѶĻ";
		mes "һὲһ";
		mes "Ĺ¸";
		close;
	}
	mes "[ ˹]";
	mes "ŷ ˹!";
	mes "һηһǧʷƷ!";
	mes "^FF0000ħʸͲ^000000!!";
	next;
	mes "[ ˹]";
	mes "˺üʮ...";
	mes "´껹´ѩ...";
	mes "ΪпճõĽ!";
	mes "ѾħѼʸŨ";
	mes "ɿЯ^0000FFħʸͲ^000000";
	mes "ǹ!";
	next;
	emotion 21;
	mes "[ ˹]";
	mes "ù˵";
	mes "һԵƷ!";
	mes "Ǹ";
	mes "ŷ ˹!!!";
	next;
	mes "[ ˹]";
	mes " ҪļʸͲ?";
	mes "ҲǸƷ˵";
	mes "зǳƷ!";
	next;
	switch (select("ʸͲ","ʸͲ","ʸͲ","֮ʸͲ","ʸͲ","ʸͲ","ʸͲ",
						"ʸͲ","ˮʸͲ","ӰӼʸͲ","μʸͲ","ʸͲ")) {
		case 1:
			set .@arr,1750;
			set .@quiv,12004;
			break;
		case 2:
			set .@arr,1770;
			set .@quiv,12005;
			break;
		case 3:
			set .@arr,1753;
			set .@quiv,12006;
			break;
		case 4:
			set .@arr,1765;
			set .@quiv,12007;
			break;
		case 5:
			set .@arr,1752;
			set .@quiv,12008;
			break;
		case 6:
			set .@arr,1751;
			set .@quiv,12009;
			break;
		case 7:
			set .@arr,1755;
			set .@quiv,12010;
			break;
		case 8:
			set .@arr,1756;
			set .@quiv,12011;
			break;
		case 9:
			set .@arr,1754;
			set .@quiv,12012;
			break;
		case 10:
			set .@arr,1767;
			set .@quiv,12013;
			break;
		case 11:
			set .@arr,1757;
			set .@quiv,12014;
			break;
		case 12:
			set .@arr,1762;
			set .@quiv,12015;
			break;
	}
	if(countitem(.@arr)<500 || Zeny<500) {
		mes "[ ˹]";
		mes "" +getitemname(.@arr)+ "";
		mes "500ֻʸĴʸͲ";
		mes "ΪԼط";
		mes "ֱ500ֻʸ";
		mes "Ҫ";
		next;
		mes "[ ˹]";
		mes "?ǲһ˲Ʒ!";
		mes "Ҳһʯѽ!";
		mes "˸ʯͷһص!ҵı!";
		mes "ҪʸͲĻ" +getitemname(.@arr)+ "500ֻ";
		mes "500";
		mes "һڼʸͲ㽻";
		close;
	}
	mes "[ ˹]";
	mes "~!";
	mes "պЯһʺϵƷ";
	mes "ҪҪֱ";
	mes "^FF0000500Zeny^000000Կ";
	mes getitemname(.@arr)+ "500";
	mes "һ500ʸڼʸͲ㽻Ĥ";
	next;
	switch (select("Ѳ϶","ֻһͲ","Ҳ뽻Ү")) {
	case 1:
		set .@have,countitem(.@arr);	//ʸ
		set .@max,.@have/500;		//󽻻
		set .@price,.@max*500;		//Ͻ
		mes "[ ˹]";
		mes "ӵеļʸ" +getitemname(.@arr)+ " :";
		mes "^0000FF" +.@have+ " ^000000";
		mes "ϵļʸͲ" +getitemname(.@quiv)+ " :";
		mes "^0000FF" +.@max+ " ^000000";
		mes "ʱҪĽ :";
		mes "^0000FF" +.@price+ " Zeny^000000";
		next;
		mes "Ҫ?";
		next;
		if(select("Ҫ","Ҳ뽻Ү")==2) {
			mes "[ ˹]";
			mes "ÿ...";
			mes "һΰķԼΰķ...";
			close;
		}
		break;
	case 2:
		set .@max,1;
		set .@price,500;
		break;
	case 3:
		mes "[ ˹]";
		mes "ÿ...";
		mes "һΰķԼΰķ...";
		close;
	}
	delitem .@arr,.@max*500;
	set Zeny,Zeny-.@price;
	getitem .@quiv,.@max;
	mes "[ ˹]";
	mes "Ʒ°";
	mes "^0000FFһע^000000ס";
	mes "^FF000090%ĻʸͲͲʹõ";
	mes "ǵСĲҪˣ˻ġ^000000";
	close;
}
