//==============================================
// GİӤH
// NXg & ץ by FPE(2006.7.3)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

payon_in01.gat,179,8,3	script	pJ~	106,{
	mes "[ӤH pJ~]";
	mes "w{Azݭn[uGܡH";
	next;
	menu	"[uG",A01,
		"ܨäЪGĥ[u",A02,
		"",-;

	mes "[ӤH pJ~]";
	mes "naApGݭnܡAwHɨӧڡI";
	close;
	end;

A01:
	mes "[ӤH pJ~]";
	mes "zݭnGġH";
	next;
	switch(select("īG","","ڽ","",""))
	{
	case 1:
		if(countitem(512)<1 || countitem(713)<1)
		{
			mes "[ӤH pJ~]";
			mes "oӡAo.. ƤڡC";
			mes "FīGGĻݭn1īGM1ӪŲ~C";
			mes "ٻݭnú 30 ZenyAȶOC";
			mes "ҦǳƦnFAڷ|XnYGġC";
			close;
			end;
		}
		mes "[ӤH pJ~]";
		mes "ݭnh֡H";
		next;
		switch(select("ҦڲզX","nwӼ","ڤn"))
		{
		case 1:
			set @a1,countitem(512);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 512,@a3;
			delitem 713,@a3;
			getitem 531,@a3;
			set zeny,zeny-@a3*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		case 2:
			mes "[ӤH pJ~]";
			mes "еwӼƶqaAbܮظ̿JAn[uƶqC";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(512)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 512,@number;
			delitem 713,@number;
			getitem 531,@number;
			set zeny,zeny-@number*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		}
		break;
	case 2:
		if(countitem(513)<1 || countitem(713)<1)
		{
			mes "[ӤH pJ~]";
			mes "oӡAo.. ƤڡC";
			mes "FGĻݭn1ӭM1ӪŲ~C";
			mes "ٻݭnú 30 ZenyAȶOC";
			mes "ҦǳƦnFAڷ|XnYGġC";
			close;
			end;
		}
		mes "[ӤH pJ~]";
		mes "ݭnh֡H";
		next;
		switch(select("ҦڲզX","nwӼ","ڤn"))
		{
		case 1:
			set @a1,countitem(513);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3 * 30) goto NoZeny;
			delitem 513,@a3;
			delitem 713,@a3;
			getitem 532,@a3;
			set zeny,zeny-@a3*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		case 2:
			mes "[ӤH pJ~]";
			mes "еwӼƶqaAbܮظ̿JAn[uƶqC";
			next;
			input @number;
			if(@number< 1 || @number>100) goto ErrorNum;
			if(countitem(513)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 513,@number;
			delitem 713,@number;
			getitem 532,@number;
			set zeny,zeny - @number*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		}
		break;
	case 3:
		if(countitem(515)<1 || countitem(713)<1)
		{
			mes "[ӤH pJ~]";
			mes "oӡAo.. ƤڡC";
			mes "FڽĻݭn1ӬڽM1ӪŲ~C";
			mes "ٻݭnú 30 ZenyAȶOC";
			mes "ҦǳƦnFAڷ|XnYGġC";
			close;
			end;
		}
		mes "[ӤH pJ~]";
		mes "ݭnh֡H";
		next;
		switch(select("ҦڲզX","nwӼ","ڤn"))
		{
		case 1:
			set @a1,countitem(515);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 515,@a3;
			delitem 713,@a3;
			getitem 534,@a3;
			set zeny,zeny-@a3*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		case 2:
			mes "[ӤH pJ~]";
			mes "еwӼƶqaAbܮظ̿JAn[uƶqC";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(515)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 515,@number;
			delitem 713,@number;
			getitem 534,@number;
			set zeny,zeny-@number*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		}
		break;
	case 4:
		if(countitem(514)<1 || countitem(713)<1)
		{
			mes "[ӤH pJ~]";
			mes "oӡAo.. ƤڡC";
			mes "FĻݭn1ӸM1ӪŲ~C";
			mes "ٻݭnú 30 ZenyAȶOC";
			mes "ҦǳƦnFAڷ|XnYGġC";
			close;
			end;
		}
		mes "[ӤH pJ~]";
		mes "ݭnh֡H";
		next;
		switch(select("ҦڲզX","nwӼ","ڤn"))
		{
		case 1:
			set @a1,countitem(514);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 514,@a3;
			delitem 713,@a3;
			getitem 533,@a3;
			set zeny,zeny-@a3*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		case 2:
			mes "[ӤH pJ~]";
			mes "еwӼƶqaAbܮظ̿JAn[uƶqC";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(514)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 514,@number;
			delitem 713,@number;
			getitem 533,@number;
			set zeny,zeny-@number*30;
			mes "[ӤH pJ~]";
			mes "oOznGġAD@wܤC";
			mes "...UAӧaC";
			close;
			end;
			break;
		}

	}
	mes "[ӤH pJ~]";
	mes "naAwUAӡI";
	close;
	end;

A02:
	mes "[ӤH pJ~]";
	mes "H٨S״IѫeACӤHOYGLͬC";
	mes "GOH۪ʤO@Aۤj۵M֡C";
	next;
	mes "[ӤH pJ~]";
	mes "{bͬܦnFA̪񪺦~HϦӤwYGC";
	mes "ҥHQӿkL@NYGC";
	mes "GONGGL̤KΦӥBDnC";
	next;
	mes "[ӤH pJ~]";
	mes "# GĤ #";
	mes "īGG -";
	mes "īG1ӡAŲ~1ӡA30ZenyC";
	mes "";
	mes "G -";
	mes "1ӡAŲ~1ӡA30ZenyC";
	mes "";
	next;
	mes "[ӤH pJ~]";
	mes "ڽG -";
	mes "ڽ1ӡAŲ~1ӡA30ZenyC";
	mes "";
	mes "G -";
	mes "1ӡAŲ~1ӡA30ZenyC";
	close;
	end;

ErrorNum:
	mes "[ӤH pJ~]";
	mes "藍_A[uGĨC̦h100ӡAo֩1ӡC";
	close;
	end;
ErrorTotal:
	mes "[ӤH pJ~]";
	mes "藍_AAaӪƤhGġI";
	close;
	end;
NoZeny:
	mes "[ӤH pJ~]";
	mes "藍_AAZeny[uGġI";
	close;
	end;
}