//==============================================
// ֭
// д &  by FPE(2006.7.3)
// Jathena++ ̳http://www.foxofice.net/bbs
//----------------------------------------------

payon_in01.gat,179,8,3	script	׿˺ɭ	106,{
	mes "[ ׿˺ɭ]";
	mes "ӭ٣Ҫӹˮ";
	next;
	menu	"ӹˮ",A01,
		"Իܹ֭ӹ",A02,
		"ȡ",-;

	mes "[ ׿˺ɭ]";
	mes "ǺðɣҪĻӭʱң";
	close;
	end;

A01:
	mes "[ ׿˺ɭ]";
	mes "Ҫʲô֭";
	next;
	switch(select("ƻ֭","㽶֭","֭ܲ","֭","ȡ"))
	{
	case 1:
		if(countitem(512)<1 || countitem(713)<1)
		{
			mes "[ ׿˺ɭ]";
			mes ".. ϲ";
			mes "Ϊƻ֭Ҫ1ƻ1ƿ";
			mes "Ҫ 30 Zenyķѡ";
			mes "еĶ׼ˣһóԵĹ֭";
			close;
			end;
		}
		mes "[ ׿˺ɭ]";
		mes "Ҫ٣";
		next;
		switch(select("еȫ","Ҫ","ҲҪ"))
		{
		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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		case 2:
			mes "[ ׿˺ɭ]";
			mes "ɣʾҪӹ";
			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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		}
		break;
	case 2:
		if(countitem(513)<1 || countitem(713)<1)
		{
			mes "[ ׿˺ɭ]";
			mes ".. ϲ";
			mes "Ϊ㽶֭Ҫ1㽶1ƿ";
			mes "Ҫ 30 Zenyķѡ";
			mes "еĶ׼ˣһóԵĹ֭";
			close;
			end;
		}
		mes "[ ׿˺ɭ]";
		mes "Ҫ٣";
		next;
		switch(select("еȫ","Ҫ","ҲҪ"))
		{
		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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		case 2:
			mes "[ ׿˺ɭ]";
			mes "ɣʾҪӹ";
			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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		}
		break;
	case 3:
		if(countitem(515)<1 || countitem(713)<1)
		{
			mes "[ ׿˺ɭ]";
			mes ".. ϲ";
			mes "Ϊ֭ܲҪ1ܲ1ƿ";
			mes "Ҫ 30 Zenyķѡ";
			mes "еĶ׼ˣһóԵĹ֭";
			close;
			end;
		}
		mes "[ ׿˺ɭ]";
		mes "Ҫ٣";
		next;
		switch(select("еȫ","Ҫ","ҲҪ"))
		{
		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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		case 2:
			mes "[ ׿˺ɭ]";
			mes "ɣʾҪӹ";
			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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		}
		break;
	case 4:
		if(countitem(514)<1 || countitem(713)<1)
		{
			mes "[ ׿˺ɭ]";
			mes ".. ϲ";
			mes "Ϊ֭Ҫ1Ѻ1ƿ";
			mes "Ҫ 30 Zenyķѡ";
			mes "еĶ׼ˣһóԵĹ֭";
			close;
			end;
		}
		mes "[ ׿˺ɭ]";
		mes "Ҫ٣";
		next;
		switch(select("еȫ","Ҫ","ҲҪ"))
		{
		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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		case 2:
			mes "[ ׿˺ɭ]";
			mes "ɣʾҪӹ";
			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 "[ ׿˺ɭ]";
			mes "ҪĹ֭ζһܲ";
			mes "ô...´ɡ";
			close;
			end;
			break;
		}

	}
	mes "[ ׿˺ɭ]";
	mes "Ǻðɣӭ´";
	close;
	end;

A02:
	mes "[ ׿˺ɭ]";
	mes "໹ûо߱ḻ֪ʶǰÿ˶ǳˮ";
	mes "ˮŵԭ֮һŴȻף";
	next;
	mes "[ ׿˺ɭ]";
	mes "ˣ˷ϲˮ";
	mes "취Ըˮ";
	mes "ǽˮɹ֭Ƿʳöζá";
	next;
	mes "[ ׿˺ɭ]";
	mes "# ֭ #";
	mes "ƻ֭ -";
	mes "ƻ1ƿ130Zeny";
	mes "";
	mes "㽶֭ -";
	mes "㽶1ƿ130Zeny";
	mes "";
	next;
	mes "[ ׿˺ɭ]";
	mes "֭ܲ -";
	mes "ܲ1ƿ130Zeny";
	mes "";
	mes "ѹ֭ -";
	mes "1ƿ130Zeny";
	close;
	end;

ErrorNum:
	mes "[ ׿˺ɭ]";
	mes "Բ𣬼ӹ֭ÿ1001";
	close;
	end;
ErrorTotal:
	mes "[ ׿˺ɭ]";
	mes "ԲĲϲô֭";
	close;
	end;
NoZeny:
	mes "[ ׿˺ɭ]";
	mes "ԲZenyӹ֭";
	close;
	end;
}