//==============================================
// bs@
// NXg by FPE (2006.6.26)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

payon_in02.gat,25,35,3	script	bs@AȤH	85,{
	mes "[bs@AȤH]";
	mes "AnAگNAbڮϩb}bu|SsbAݭnܡH";
	next;
	menu	"Ͻb",L_SUB,
		"ObH",-;
	mes "[bs@AȤH]";
	mes "biHNP@bڮϦb@_ACbJb500AϥνbYiobڡC";
	next;
	mes "[bs@AȤH]";
	mes "buIOiHW[sŶM֭tqAs@bݭnb500M˵1ӡC{bn}ls@ܡH";
	next;
	menu	"Ͻb",-,
		"UA",L_EXIT;
L_SUB:
	mes "[bs@AȤH]";
	mes "A⮹ϭؽbڡHbګ᪺ƦrܧAؽbƶqC";
	next;
	menu	"b         - "+countitem(1750),L_SUB_1,
		"Kb       - "+countitem(1770),L_SUB_2,
		"Kb     - "+countitem(1753),L_SUB_3,
		"ݽb - "+countitem(1765),L_SUB_4,
		"b       - "+countitem(1752),L_SUB_5,
		"Ƚb       - "+countitem(1751),L_SUB_6,
		"Fb     - "+countitem(1755),L_SUB_7,
		"aFb     - "+countitem(1756),L_SUB_8,
		"Fb     - "+countitem(1754),L_SUB_9,
		"vlb     - "+countitem(1767),L_SUB_10,
		"Lνb     - "+countitem(1757),L_SUB_11,
		"K׽b     - "+countitem(1762),L_SUB_12;
L_SUB_1:
	set @Arrow,1750;
	set @Quiver,12004;
	goto L_CHECK;
L_SUB_2:
	set @Arrow,1770;
	set @Quiver,12005;
	goto L_CHECK;
L_SUB_3:
	set @Arrow,1753;
	set @Quiver,12006;
	goto L_CHECK;
L_SUB_4:
	set @Arrow,1765;
	set @Quiver,12007;
	goto L_CHECK;
L_SUB_5:
	set @Arrow,1752;
	set @Quiver,12008;
	goto L_CHECK;
L_SUB_6:
	set @Arrow,1751;
	set @Quiver,12009;
	goto L_CHECK;
L_SUB_7:
	set @Arrow,1755;
	set @Quiver,12010;
	goto L_CHECK;
L_SUB_8:
	set @Arrow,1756;
	set @Quiver,12011;
	goto L_CHECK;
L_SUB_9:
	set @Arrow,1754;
	set @Quiver,12012;
	goto L_CHECK;
L_SUB_10:
	set @Arrow,1767;
	set @Quiver,12013;
	goto L_CHECK;
L_SUB_11:
	set @Arrow,1757;
	set @Quiver,12014;
	goto L_CHECK;
L_SUB_12:
	set @Arrow,1762;
	set @Quiver,12015;
L_CHECK:
	if(countitem(@Arrow)<500 || countitem(7150)<1) goto L_NOARROW;
	if(countitem(@Arrow)<1000 || countitem(7150)<2) goto L_GETQUIVER_1;
	mes "[bs@AȤH]";
	mes "znϤ@٬OϡH";
	next;
	menu	"uϤ@Nn",L_GETQUIVER_1,
		"",-;
	if((countitem(@Arrow)/500)>=countitem(7150)) set @temp,countitem(7150);
	if((countitem(@Arrow)/500)<=countitem(7150)) set @temp,(countitem(@Arrow)/500);
	delitem @Arrow,(500 * @temp);
	delitem 7150,@temp;
	getitem @Quiver,@temp;
	goto L_GETQUIVER_2;
L_GETQUIVER_1:
	delitem @Arrow,500;
	delitem 7150,1;
	getitem @Quiver,1;
L_GETQUIVER_2:
	mes "[bs@AȤH]";
	mes "oOAnbAٻݭns@OܡH";
	next;
	menu	"~s@",L_SUB,
		"UA",L_EXIT;
L_NOARROW:
	mes "[bs@AȤH]";
	mes "ܩpAzܤ֭nǳ500"+getitemname(@Arrow)+"M1Ӧ˵ڤ~As@"+getitemname(@Quiver)+"C";
	close;
	end;
L_EXIT:
	mes "[bs@AȤH]";
	mes "wHɨӳo̧ڡC";
	close;
	end;
}