npc_syrup.txt

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

//==============================================
// 果汁商人
// 代码重写 & 修正 by FPE(2006.7.3)
// Jathena++ 论坛：http://www.foxofice.net/bbs
//----------------------------------------------

payon_in01.gat,179,8,3	script	马雷克汉森	106,{
	mes "[商人 马雷克汉森]";
	mes "欢迎光临，您需要加工水果吗？";
	next;
	menu	"加工水果",A01,
		"对话并介绍果汁加工",A02,
		"取消",-;

	mes "[商人 马雷克汉森]";
	mes "那好吧，如果有需要的话，欢迎随时来找我！";
	close;
	end;

A01:
	mes "[商人 马雷克汉森]";
	mes "您需要什么果汁？";
	next;
	switch(select("苹果汁","香蕉汁","红萝卜汁","葡萄汁","取消"))
	{
	case 1:
		if(countitem(512)<1 || countitem(713)<1)
		{
			mes "[商人 马雷克汉森]";
			mes "这个，这个.. 材料不够啊。";
			mes "为了做苹果果汁需要1个苹果和1个空瓶。";
			mes "还需要缴 30 Zeny的服务费。";
			mes "所有的都准备好了，我会做出好吃的果汁。";
			close;
			end;
		}
		mes "[商人 马雷克汉森]";
		mes "需要多少？";
		next;
		switch(select("把所有的全部给我组合","要定个数","我不要"))
		{
		case 1:
			set @a1,countitem(512);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 512,@a3;
			delitem 713,@a3;
			getitem 531,@a3;
			set zeny,zeny-@a3*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		case 2:
			mes "[商人 马雷克汉森]";
			mes "那请给定个数量吧，在提示框里输入你要加工的数量。";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(512)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 512,@number;
			delitem 713,@number;
			getitem 531,@number;
			set zeny,zeny-@number*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		}
		break;
	case 2:
		if(countitem(513)<1 || countitem(713)<1)
		{
			mes "[商人 马雷克汉森]";
			mes "这个，这个.. 材料不够啊。";
			mes "为了做香蕉果汁需要1个香蕉和1个空瓶。";
			mes "还需要缴 30 Zeny的服务费。";
			mes "所有的都准备好了，我会做出好吃的果汁。";
			close;
			end;
		}
		mes "[商人 马雷克汉森]";
		mes "需要多少？";
		next;
		switch(select("把所有的全部给我组合","要定个数","我不要"))
		{
		case 1:
			set @a1,countitem(513);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3 * 30) goto NoZeny;
			delitem 513,@a3;
			delitem 713,@a3;
			getitem 532,@a3;
			set zeny,zeny-@a3*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		case 2:
			mes "[商人 马雷克汉森]";
			mes "那请给定个数量吧，在提示框里输入你要加工的数量。";
			next;
			input @number;
			if(@number< 1 || @number>100) goto ErrorNum;
			if(countitem(513)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 513,@number;
			delitem 713,@number;
			getitem 532,@number;
			set zeny,zeny - @number*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		}
		break;
	case 3:
		if(countitem(515)<1 || countitem(713)<1)
		{
			mes "[商人 马雷克汉森]";
			mes "这个，这个.. 材料不够啊。";
			mes "为了做红萝卜汁需要1个红萝卜和1个空瓶。";
			mes "还需要缴 30 Zeny的服务费。";
			mes "所有的都准备好了，我会做出好吃的果汁。";
			close;
			end;
		}
		mes "[商人 马雷克汉森]";
		mes "需要多少？";
		next;
		switch(select("把所有的全部给我组合","要定个数","我不要"))
		{
		case 1:
			set @a1,countitem(515);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 515,@a3;
			delitem 713,@a3;
			getitem 534,@a3;
			set zeny,zeny-@a3*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		case 2:
			mes "[商人 马雷克汉森]";
			mes "那请给定个数量吧，在提示框里输入你要加工的数量。";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(515)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 515,@number;
			delitem 713,@number;
			getitem 534,@number;
			set zeny,zeny-@number*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		}
		break;
	case 4:
		if(countitem(514)<1 || countitem(713)<1)
		{
			mes "[商人 马雷克汉森]";
			mes "这个，这个.. 材料不够啊。";
			mes "为了做葡萄汁需要1个葡萄和1个空瓶。";
			mes "还需要缴 30 Zeny的服务费。";
			mes "所有的都准备好了，我会做出好吃的果汁。";
			close;
			end;
		}
		mes "[商人 马雷克汉森]";
		mes "需要多少？";
		next;
		switch(select("把所有的全部给我组合","要定个数","我不要"))
		{
		case 1:
			set @a1,countitem(514);
			set @a2,countitem(713);
			set @a3,min(@a1,@a2);
			if(zeny<@a3*30) goto NoZeny;
			delitem 514,@a3;
			delitem 713,@a3;
			getitem 533,@a3;
			set zeny,zeny-@a3*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		case 2:
			mes "[商人 马雷克汉森]";
			mes "那请给定个数量吧，在提示框里输入你要加工的数量。";
			next;
			input @number;
			if(@number<1 || @number>100) goto ErrorNum;
			if(countitem(514)<@number || countitem(713)<@number) goto ErrorTotal;
			if(zeny<@number*30) goto NoZeny;
			delitem 514,@number;
			delitem 713,@number;
			getitem 533,@number;
			set zeny,zeny-@number*30;
			mes "[商人 马雷克汉森]";
			mes "这是您要的果汁，味道一定很不错。";
			mes "那么...下次再来吧。";
			close;
			end;
			break;
		}

	}
	mes "[商人 马雷克汉森]";
	mes "那好吧，欢迎下次再来！";
	close;
	end;

A02:
	mes "[商人 马雷克汉森]";
	mes "人类还没有具备丰富的知识前，每个人都是吃水果过生活。";
	mes "水果是让人类活着的原动力之一，有着大自然的祝福。";
	next;
	mes "[商人 马雷克汉森]";
	mes "现在生活条件变好了，最近的年轻人反而不喜欢吃水果。";
	mes "所以想个办法让他们愿意吃水果。";
	mes "结果是将水果打成果汁让他们方便食用而且味道更好。";
	next;
	mes "[商人 马雷克汉森]";
	mes "# 果汁介绍 #";
	mes "苹果果汁 -";
	mes "苹果1个，空瓶1个，30个Zeny。";
	mes "";
	mes "香蕉果汁 -";
	mes "香蕉1个，空瓶1个，30个Zeny。";
	mes "";
	next;
	mes "[商人 马雷克汉森]";
	mes "萝卜果汁 -";
	mes "萝卜1个，空瓶1个，30个Zeny。";
	mes "";
	mes "葡萄果汁 -";
	mes "葡萄1个，空瓶1个，30个Zeny。";
	close;
	end;

ErrorNum:
	mes "[商人 马雷克汉森]";
	mes "对不起，加工果汁每次最多100个，不得少于1个。";
	close;
	end;
ErrorTotal:
	mes "[商人 马雷克汉森]";
	mes "对不起，你带来的材料不够做那么多果汁！";
	close;
	end;
NoZeny:
	mes "[商人 马雷克汉森]";
	mes "对不起，你的Zeny不够加工果汁！";
	close;
	end;
}