npc_sage.txt

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

//==============================================
// 药钵、说明书出售NPC
// 代码重写 by FPE(2006.6.28)
// Jathena++ 论坛：http://www.foxofice.net/bbs
//----------------------------------------------

alde_alche.gat,24,188,5	script	组合 贩卖员	740,{
	mes "[葛伯 阿 纱普]";
	mes "欢迎来到炼金术师组织，";
	mes "需要什么服务吗？";
	next;
	switch(select("购买制药物品","购买制作说明书","取消"))
	{
	case 1:
		mes "[葛伯 阿 纱普]";
		mes "请问需要什么物品";
		next;
		if(select("药钵 - 8z","停止交易")==1)
		{
			mes "[葛伯 阿 纱普]";
			mes "请问需要几个?";
			mes "如想要停止交易请写 '0'";
			next;
			input @num;
			if(@num<=0)
			{
				mes "[葛伯 阿 纱普]";
				mes "交易已取消了";
				mes "那，下次再说吧。";
				close;
				end;
			}
			if(@num>500)
			{
				mes "[葛伯 阿 纱普]";
				mes "请选于500个以下";
				close;
				end;
			}
			if(zeny<@num*8) break;
			if(checkweight(7134,@num)<1)
			{
				mes "[葛伯 阿 纱普]";
				mes "不对哦，你已经超重了，还是整理一下再来购买吧。";
				close;
				end;
			}
			getitem 7134,@num;
			set zeny,zeny-@num*8;
			mes "[葛伯 阿 纱普]";
			mes "谢谢您的使用";
			close;
			end;
		}
		mes "[葛伯 阿 纱普]";
		mes "那，下次再说吧。";
		close;
		end;
		break;
	case 2:
		mes "[葛伯 阿 纱普]";
		mes "请问需要哪些物品？";
		mes "一般的制作说明书是100,000金币，比较特殊的几种制作说明书除外。";
		next;
		switch(select("一般药水制作说明书","酒精制作说明书","火烟瓶制作说明书","盐酸瓶制作说明书","植物瓶制作说明书","刺锤瓶制作说明书","护贝药制作说明书","纤细药水制作说明书"))
		{
		case 1:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "一般药水制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7144,1;
			}
			close;
			end;
			break;
		case 2:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "酒精制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7127,1;
			}
			close;
			end;
			break;
		case 3:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "火烟瓶制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消"))
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7128,1;
			}
			close;
			end;
			break;
		case 4:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "盐酸瓶制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7129,1;
			}
			close;
			end;
			break;
		case 5:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "植物瓶制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消"))
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set Zeny,Zeny-100000;
				getitem 7130,1;
			}
			close;
			end;
			break;
		case 6:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "刺锤瓶制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7131,1;
			}
			close;
			end;
			break;
		case 7:
			if(zeny<100000) break;
			mes "[葛伯 阿 纱普]";
			mes "护贝药制作说明书吗？";
			mes "是100,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-100000;
				getitem 7132,1;
			}
			close;
			end;
			break;
		case 8:
			if(zeny<240000) break;
			mes "[葛伯 阿 纱普]";
			mes "纤细药水制作说明书吗？";
			mes "是240,000金币。";
			next;
			if(select("我要购买","取消")==1)
			{
				mes "[葛伯 阿 纱普]";
				mes "谢谢您的购买";
				set zeny,zeny-240000;
				getitem 7133,1;
			}
			close;
			end;
			break;
		}
	case 3:
		mes "[葛伯 阿 纱普]";
		mes "那，下次再说吧。";
		close;
		end;
		break;
	}

	mes "[葛伯 阿 纱普]";
	mes "金额不足噢";
	mes "请确认一下所携带的金额";
	close;
	end;
}