npc_alberta.txt

c151的晋级版

//Alberta City for Athena by AjS15822
//Modify By Robert 蝴蝶君 2004-1-31  Mailto:[e-mail]

alb2trea.gat,39,50,5	script	船员	100,{
	mes "[船员]";
	mes "你要回去了吗？";
	next;
	menu "是的，回爱尔贝塔",M0,"取消",MEnd;
	M0:
		warp "alberta.gat",192,169;
		close;
	MEnd:
		close;
}

alberta_in.gat,16,28,4	script	爱尔贝塔 药剂师	61,{
	mes "[爱尔贝塔 药剂师]";
	mes "嗯？你是谁？";
	next;
	menu "制作药水",L0,"交谈",L1,"获取相关信息",L2,"取消",LEnd;
	L0:
		if(countitem(713) < 1) 
			goto NeedBottle;
		mes "[爱尔贝塔 药剂师]";
		mes "你把需要的东西都准备好了吗？打算制作什么药水呢？";
		next;
		menu	"红色药水",L00,
			"赤色药水",L01,
			"黄色药水",L02,
			"白色药水",L03,
			"蓝色药水",L04,
			"绿色药水",L05,
			"不，我改变主意了",LEnd;
		L00:
			if(countitem(507) < 2 || countitem(713) < 1 || Zeny < 3) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "嗯，那么你打算制作多少红色药水呢？";
			next;
			menu "将现有材料全部制作",L00a,"我要定个数量",L00b,"取消",LEnd;
			L00a:
				if(countitem(507) < 2 || countitem(713) < 1)
					goto NeedOther;
				set a1,countitem(507)/2;
				set a2,countitem(713);
				if(Zeny < a2 * 3)
					goto NeedGold;
				if(a1 >= a2)
				set a3,a2;
				if(a2 > a1)
				set a3,a1;
				delitem 507,a3*2;
				delitem 713,a3;
				getitem 501,a3;
				set Zeny,Zeny - a3 * 3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成红色药水了，欢迎下次再来！";
				close;
			L00b:
				mes "[爱尔贝塔 药剂师]";
				mes "那请在输入框里输入一个数字吧！";
				next;
				input @number;
				if(@number < 1 || @number > 100) 
					goto Failnum;
				if(countitem(507) < 2 * @number || countitem(713) < @number || Zeny < 3 * @number) 
					goto NeedOther;
				delitem 507,@number *2;
				delitem 713,@number;
				set Zeny,Zeny - 3 * @number;
				getitem 501,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成红色药水了，欢迎下次再来！";
				close;

		L01:
			if(countitem(507) < 1 || countitem(508) < 1 || countitem(713) < 1 || Zeny < 5) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "那么，你打算制作多少赤色药水呢？";
			next;
			menu "将现有的材料全部制作",L01a,"我要定个数量",L01b,"取消",LEnd;
			L01a:
				if(countitem(507) < 1 || countitem(508) < 1 || countitem(713) < 1 ) 
					goto NeedOther;
				set a1,countitem(507);
				set a2,countitem(508);
				set a3,countitem(713);
				if(a1 < a2 && a1 < a3)
				set a4,a1;
				if(a2 < a3 && a2 < a1)
				set a4,a2;
				if(a3 < a1 && a3 < a2)
				set a4,a3;
				if(a1==a2 && a1==a3 && a2==a3)
				set a4,a1;
				if(Zeny < a4 *5)
					goto NeedGold;
				delitem 507,a4;
				delitem 508,a4;
				delitem 713,a4;
				set Zeny,Zeny-a4*5;
				getitem 502,a4;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成赤色药水了，欢迎下次再来！";
				close;
			L01b:
				mes "[爱尔贝塔 药剂师]";
				mes "那请在输入框里输入一个数字吧！";
				next;
				input @number;
				if(@number < 1 || @number > 100) 
					goto Failnum;
				if(countitem(507) < @number || countitem(508) < @number || countitem(713) < @number || Zeny < 5*@number) 
					goto NeedOther;
				delitem 507,@number;
				delitem 508,@number;
				delitem 713,@number;
				set Zeny,Zeny - 5 * @number;
				getitem 502,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成赤色药水了，欢迎下次再来！";
				close;
		L02:
			if(countitem(508) < 2 || countitem(713) < 1 || Zeny < 10) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "那么，你打算制作多少黄色药水呢？";
			next;
			menu "将现有的材料全部制作",L02a,"我要定个数量",L02b,"取消",LEnd;
			L02a:
				if(countitem(508) < 2 || countitem(713) < 1 ) 
					NeedOther;
				set a1,countitem(508)/2;
				set a2,countitem(713);
				if(a1>a2)
				set a3,a2;
				if(a2>a1)
				set a3,a1;
				if(Zeny < a3 * 10)
					goto NeedGold;
				delitem 508,a3*2;
				delitem 713,a3;
				set Zeny,Zeny-a3*10;
				getitem 503,a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成黄色药水了，欢迎下次再来！";
				close;
			L02b:
				mes "[爱尔贝塔 药剂师]";
				mes "那请在输入框里输入一个数字吧！";
				next;
				input @number;
				if(@number < 1 || @number > 100) 
					goto Failnum;
				if(countitem(508) < 2 * @number || countitem(713) < @number  || Zeny < 10 * @number) 
					goto NeedOther;
				delitem 508,@number;
				delitem 508,@number;
				delitem 713,@number;
				set Zeny,Zeny - 10 * @number;
				getitem 503,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成黄色药水了，欢迎下次再来！";
				close;
		L03:
			if(countitem(509) < 2 || countitem(713) < 1 || Zeny < 20) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "那么，你打算制作多少个白色药水呢？";
			next;
			menu "将现有数量全部制作",L03a,"我要定个数量",L03b,"取消",Canel;
			L03a:
				if(countitem(509) < 2 || countitem(713) < 1 || Zeny < 20) 
					goto NeedOther;
				set a1,countitem(509)/2;
				set a2,countitem(713);
				if(a1>a2)
				set a3,a2;
				if(a2>a1)
				set a3,a1;
				if(Zeny < a3 * 20)
					goto NeedGold;
				delitem 509,a3*2;
				delitem 713,a3;
				set Zeny,Zeny-a3*20;
				getitem 504,a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成白色药水了，欢迎下次再来！";
				close;
			L03b:
				mes "[爱尔贝塔 药剂师]";
				mes "那请在输入框里输入一个数字吧！";
				next;
				input @number;
				mes "[爱尔贝塔 药剂师]";
				if(@number < 1 || @number > 100) 
					goto Failnum;
				if(countitem(509) < 2 * @number || countitem(713) < @number || Zeny < 20 * @number ) 
					goto NeedOther;
				delitem 509,@number;
				delitem 509,@number;
				delitem 713,@number;
				set Zeny,Zeny-20 * @number;
				getitem 504,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成白色药水了，欢迎下次再来！";
				close;
		L04:
			if(countitem(510) < 2 || countitem(713) < 1 || Zeny < 30) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "那么，你打算制作多少个蓝色药水呢？";
			next;
			menu "将现有材料全部制作",L04a,"我要定个数量",L04b,"取消",LEnd;
			L04a:
				if(countitem(510) < 2 || countitem(713) < 1) 
					goto NeedOther;
				set a1,countitem(510)/2;
				set a2,countitem(713);
				if(a1 >= a2)
				set a3,a2;
				if(a2 > a1);
				set a3,a1;
				if(Zeny < a3*30)
					goto NeedGold;
				delitem 510,a3*2;
				delitem 713,a3;
				set Zeny,Zeny - a3*30;
				getitem 505,a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成蓝色药水了，欢迎下次再来！";
				close;
			L04b:
				mes "[爱尔贝塔 药剂师]";
				mes "那么，请在提示框内输入一个数量。";
				next;
				input @number;
				if(@number < 1 || @number > 100) 
					goto Failnum;
				if(countitem(510) < 2 * @number || countitem(713) < @number || Zeny < 30 * @number) 
					goto NeedOther;
				delitem 510,@number;
				delitem 510,@number;
				delitem 713,@number;
				set Zeny,Zeny-30*@number;
				getitem 505,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成蓝色药水了，欢迎下次再来！";
				close;
		L05:
			if(countitem(511) < 2 || countitem(713) < 1 || Zeny < 3) 
				goto NeedOther;
			mes "[爱尔贝塔 药剂师]";
			mes "那么，你打算制作多少个绿色药水呢？";
			next;
			menu "将现有材料全部制作",L05a,"我要定个数量",L05b,"取消",LEnd;
			L05a:
				if(countitem(511) < 2 || countitem(713) < 1) 
					goto NeedOther;
				set a1,countitem(511)/2;
				set a2,countitem(713);
				if(a1 >= a2)
				set a3,a2;
				if(a2 > a1)
				set a3,a1;
				delitem 511,a3*2;
				delitem 713,a3;
				set Zeny,Zeny-a3*3;
				getitem 506,a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成绿色药水了，欢迎下次再来！";
				close;
			L05b:
				mes "[爱尔贝塔 药剂师]";
				mes "那么，请在提示框内输入一个数量。";
				next;
				input @number;
				if(@number < 1 || @number > 100 ) 
					goto Failnum;
				if(countitem(511) < 2 * @number || countitem(713) < @number  || Zeny < 3 * @number) 
					goto NeedOther;
				delitem 511,@number;
				delitem 511,@number;
				delitem 713,@number;
				set Zeny,Zeny-3*@number;
				getitem 506,@number;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成绿色药水了，欢迎下次再来！";
				close;
		NeedBottle:
			mes "[爱尔贝塔 药剂师]";
			mes "你是来制作药水的吗？嘿嘿，没有空瓶，制作好的药水要往哪装啊？你必须有一个空瓶，才可以来制作药水！";
			close;
		NeedOther:
			mes "[爱尔贝塔 药剂师]";
			mes "对不起，你带来的材料不够制作药水，如果你对这些药水制作所需材料不清楚的话，我可以再次告诉你。";
			mes "看清楚了再来吧！再见！";
			close;

	L1:
		mes "[爱尔贝塔 药剂师]";
		mes "药水可以用来治疗、解除毒物状态，但是你必须谨记的是，使用药水是会上瘾的。";
		mes "不要嫌弃我又老又罗嗦，呵呵呵呵，我是这里的药剂师，如果你想要制作药水的话，或许我可以给你提供一些帮助！";