npc_arrow_quiver.txt

JA++的最新...很多ROSF都用这个 ] 是个不错的东西-3-

//==============================================
// 箭筒制作
// 代码重写 by FPE (2006.6.26)
// Jathena++ 论坛：http://www.foxofice.net/bbs
//----------------------------------------------

payon_in02.gat,25,35,3	script	箭筒制作服务人员	85,{
	mes "[箭筒制作服务人员]";
	mes "你好，我能够将你的箭矢捆扎放在弓箭手工会特制的箭筒，需要我帮忙吗？";
	next;
	menu	"捆扎箭筒",L_SUB,
		"什么是箭筒？",-;
	mes "[箭筒制作服务人员]";
	mes "箭筒可以将同一种类的箭矢捆扎在一起，每只箭筒能放入箭矢500支，使用箭筒即可获得相应的箭矢。";
	next;
	mes "[箭筒制作服务人员]";
	mes "箭筒的优点是可以增加存放空间和减少负重量，制作箭筒需要相应的箭500支和竹筒1个。现在要开始制作吗？";
	next;
	menu	"捆扎箭筒",-,
		"下次再来",L_EXIT;
L_SUB:
	mes "[箭筒制作服务人员]";
	mes "你打算捆扎哪种箭矢？箭矢后的数字表示你持有此种箭的数量。";
	next;
	menu	"箭矢         - "+countitem(1750),L_SUB_1,
		"铁箭矢       - "+countitem(1770),L_SUB_2,
		"钢铁箭矢     - "+countitem(1753),L_SUB_3,
		"神之金属箭矢 - "+countitem(1765),L_SUB_4,
		"火箭矢       - "+countitem(1752),L_SUB_5,
		"银箭矢       - "+countitem(1751),L_SUB_6,
		"风灵箭矢     - "+countitem(1755),L_SUB_7,
		"地灵箭矢     - "+countitem(1756),L_SUB_8,
		"水灵箭矢     - "+countitem(1754),L_SUB_9,
		"影子箭矢     - "+countitem(1767),L_SUB_10,
		"无形箭矢     - "+countitem(1757),L_SUB_11,
		"铁锈箭矢     - "+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 "[箭筒制作服务人员]";
	mes "您要捆扎一筒还是全部捆扎？";
	next;
	menu	"只捆扎一筒就好",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 "[箭筒制作服务人员]";
	mes "这是你要的箭筒，还需要制作别的吗？";
	next;
	menu	"继续制作",L_SUB,
		"下次再来",L_EXIT;
L_NOARROW:
	mes "[箭筒制作服务人员]";
	mes "很抱歉，您至少要准备500支"+getitemname(@Arrow)+"和1个竹筒我才能帮你制作"+getitemname(@Quiver)+"。";
	close;
	end;
L_EXIT:
	mes "[箭筒制作服务人员]";
	mes "欢迎随时来这里找我。";
	close;
	end;
}