npc_town_alberta.txt

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

//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;
		end;
	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;
				set @a3,min(@a1,@a2);
				delitem 507,@a3*2;
				delitem 713,@a3;
				getitem 501,@a3;
				set Zeny,Zeny - @a3 * 3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成红色药水了，欢迎下次再来！";
				close;
				end;
			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;
				end;

		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);
				set @a4,min(min(@a1,@a2),@a3);
				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;
				end;
			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;
				end;
		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 ) 
					goto NeedOther;
				set @a1,countitem(508)/2;
				set @a2,countitem(713);
				set @a3,min(@a1,@a2);
				if(Zeny < @a3 * 10)
					goto NeedGold;
				delitem 508,@a3*2;
				delitem 713,@a3;
				set Zeny,Zeny-@a3*10;
				getitem 503,@a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成黄色药水了，欢迎下次再来！";
				close;
				end;
			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;
				end;
		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);
				set @a3,min(@a1,@a2);
				if(Zeny < @a3 * 20)
					goto NeedGold;
				delitem 509,@a3*2;
				delitem 713,@a3;
				set Zeny,Zeny-@a3*20;
				getitem 504,@a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成白色药水了，欢迎下次再来！";
				close;
				end;
			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;
				end;
		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);
				set @a3,min(@a1,@a2);
				if(Zeny < @a3*30)
					goto NeedGold;
				delitem 510,@a3*2;
				delitem 713,@a3;
				set Zeny,Zeny - @a3*30;
				getitem 505,@a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成蓝色药水了，欢迎下次再来！";
				close;
				end;
			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;
				end;
		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);
				set @a3,min(@a1,@a2);
				delitem 511,@a3*2;
				delitem 713,@a3;
				set Zeny,Zeny-@a3*3;
				getitem 506,@a3;
				mes "[爱尔贝塔 药剂师]";
				mes "大功告成，已经把所有的材料都制作成绿色药水了，欢迎下次再来！";
				close;
				end;
			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;
				end;
		NeedBottle:
			mes "[爱尔贝塔 药剂师]";
			mes "你是来制作药水的吗？嘿嘿，没有空瓶，制作好的药水要往哪装啊？你必须有一个空瓶，才可以来制作药水！";
			close;
			end;
		NeedOther:
			mes "[爱尔贝塔 药剂师]";
			mes "对不起，你带来的材料不够制作药水，如果你对这些药水制作所需材料不清楚的话，我可以再次告诉你。";
			mes "看清楚了再来吧！再见！";
			close;
			end;

	L1:
		mes "[爱尔贝塔 药剂师]";
		mes "药水可以用来治疗、解除毒物状态，但是你必须谨记的是，使用药水是会上瘾的。";
		next;
		mes "[爱尔贝塔 药剂师]";
		mes "不要嫌弃我又老又罗嗦，呵呵呵呵，我是这里的药剂师，如果你想要制作药水的话，或许我可以给你提供一些帮助！";
		close;
		end;
	L2:
		mes "[爱尔贝塔 药剂师]";
		mes "真是好学的年轻人，那好吧，我就告诉你一些药水的秘方。药水比起药草来说，能够恢复能量最多，而且恢复的速度也是非常快速的。";
		next;
		mes "[爱尔贝塔 药剂师]";
		mes "我可以帮助你制作一些常用的药水，当然收取一些报酬也是必须的，因为我必须生活，呵呵呵呵……，下面是制作药水的一些秘方。";
		next;
		mes "[爱尔贝塔 药剂师]";
		mes "红色药水 - ^00FFFF2个红色药草，1个空瓶^000000，加工费是3Zeny。";
		mes "赤色药水 - ^00FFFF1个红色药草，1个黄色药草，1个空瓶^000000，加工费是5Zeny。";
		mes "黄色药水 - ^00FFFF2个黄色药草，1个空瓶^000000，加工费是10Zeny。";
		next;
		mes "[爱尔贝塔 药剂师]";
		mes "白色药水 - ^00FFFF2个白色药草，1个空瓶^000000，加工费是20Zeny。";
		mes "蓝色药水 - ^00FFFF2个蓝色药草，1个空瓶^000000，加工费是30Zeny。";
		mes "绿色药水 - ^00FFFF2个绿色药草，1个空瓶^000000，加工费是3Zeny。";
		close;
		end;
	LEnd:
		mes "[爱尔贝塔 药剂师]";
		mes "那好吧，欢迎下次光临，再见！";
		close;
		end;
	Failnum:
		mes "[爱尔贝塔 药剂师]";
		mes "对不起，每次制作药水不得少于1个，不得多于100个。";
		close;
		end;
	NeedGold:
		mes "[爱尔贝塔 药剂师]";
		mes "请检查你是否拥有足够的Zeny，加工费可是不能少的。";
		close;
		end;

		
}

alberta_in.gat,20,183,6	script	商人	49,{
	mes "[商人]";
	mes "人们都说，传说中有一种武器的命中非常好，如果那是真的，那可真是太好了！";
	close;
	end;
}

alberta_in.gat,133,55,6	script	商人	84,{
	mes "[商人]";
	mes "怎么了？";
	next;
	menu "交谈",Talk,"取消",Cancel;
	
	Talk:
		mes "[商人]";
		mes "我在吉芬寻找魔法道具的时候，听到了一些关于疯狂科学家的传言。";
		mes "出于好奇，我试着去找他几次，可惜他总是沉浸在工作中，根本无视我的存在。";
		next;
		mes "[商人]";
		mes "我现在还依稀记得那个地方，下次有机会，我一定再去看看。";
		mes "虽然印象已经不是很深刻了，但是那些与其他溶液不同的水究竟是什么？";
		close;
		end;
	Cancel:
		mes "[商人]";
		mes "做为一名商人，我知道很多事情呢！";
		close;
		end;
}

alberta.gat,53,39,0	script	商人	100,{
	mes "[商人]";
	mes "呃？看起来你很面生，欢迎来到爱尔贝塔。我有一个不错的计划，";
	next;
	mes "[商人]";
	mes "听说魔法之都吉芬有在贩卖一种可以抵抗魔法的神秘防具，如果可以大量买卖那种道具的话，那我一定会赚大钱的。";
	close;
	end;
}

alberta.gat,58,80,2	script	马杰	99,{
	mes "[马杰]";
	mes "我们商人，可以开店做生意，用杀价技巧从其它店买进便宜货，然後借手推车，放在手推车上面增加载货量。";
	next;
	mes "[马杰]";
	mes "也不需要一个一个去交易，我们有着一个神秘的技能，可以自动贩卖物品";
	close;
	end;
}


alberta.gat,62,156,2	script	毕力都	102,{