npc_amatsu.txt

c151的晋级版

//船员大全

amatsu.gat,195,78,4	script	船员	100,{
	mes "[船员]";
	mes "如果你希望到爱尔贝塔或是依斯鲁德岛，请使用我们的水路，现在为免费服务中。我们很乐意为您提供服务，那么现在你打算到哪去呢？";
	next;
	menu "爱尔贝塔 = 600 Zeny",M0,"依斯鲁德岛 = 800 Zeny",M1,"结束对话",MEnd;
	
	M0:
		if(Zeny<600) goto NoZeny;
		mes "[船员]";
		mes "爱尔贝塔？那么我们现在就出发吧！";
		next;
		set Zeny,Zeny-600;
		warp "alberta.gat",27,236;
		close;
	M1:
		if(Zeny<800) goto NoZeny;
		mes "[船员]";
		mes "嗯……依斯鲁德岛，那我们出发吧！";
		next;
		set Zeny,Zeny-800;
		warp "izlude.gat",128,111;
		close;
	MEnd:
		mes "[船员]";
		mes "感谢你的参与，希望下次见面！";
		close;
	NoZeny:
		mes "[船员]";
		mes "对不起，你的钱不够。";
		close;
}

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

gon_fild01.gat,255,83,5	script	船员	100,{
	mes "[船员]";
	mes "你打算回去了吗？";
	next;
	menu "返回爱尔贝塔",M0,"离开",MEnd;
	M0:
		warp "alberta.gat",192,169;
		close;
	MEnd:
		close;
}

alberta.gat,246,117,4	script	船长	88,{
		mes "[船长]";
		mes "我刚从乌龟岛回来，真是吓死我了。";
		mes "那真是个不毛之地啊，你找我有什么事吗？";
		next;
		menu "想听乌龟岛的传说",about,"没事",MEnd;
	about:
		mes "[船长]";
		mes "流传于往来艾尔贝塔与依斯鲁得岛商船的";
		mes "船员之间的有两个传说：第一种是在小岛";
		mes "附近沉没的海盗船里藏着叫人难以想象的";
		mes "巨大宝藏！";
		mes "第二种则是关于乌龟岛流传下来的传说。 ";
		next;
		mes "[船长]";
		mes "由于岛的模样像是一只乌龟抬头的样子，";
		mes "而被命名的乌龟岛是个只要你搭船靠近的";
		mes "话就会看到哪里被一团什么都看不见的浓";
		mes "雾包围住的岛屿。因为乌龟岛拥有这样的";
		mes "神秘的色彩，所以许多冒险家都不顾危险";
		next;
		mes "[船长]";
		mes "前往乌龟岛进行调查，去追求那份神秘！";
		mes "我也就是为了寻找那份神秘，而去寻找乌";
		mes "龟岛。但我在见到那可怕的龟群之后，我";
		mes "决定坚决不上岛，那地方实在太恐怖了。";
		mes "真的！我坚信你不会想去那恐怖之地的！";
		next;
		menu "不！我想去乌龟岛",Jiaqian,"对！还是不去安全",MEnd;
	Jiaqian:
		mes "[船长]";
		mes "真的想去吗？但你得支付巨额航海费用。";
		mes "如果你肯支付我一万元的话就送你上岛。";
		mes "我可是冒着生命危险才能送你上岸的哦。";
		next;
		menu "请送我上岛",M0,"太贵了算了",MEnd;
	M0:
		if(Zeny<10000) goto NoZeny;
		mes "[船长]";
		mes "那么请先上船吧。坐稳了！开船啦。";
		next;
		set Zeny,Zeny-10000;
		warp "tur_dun01.gat",159,35;
		close;
	NoZeny:
		mes "[船长]";
		mes "你个穷小子没钱在这里喊什么？";
		close;
	MEnd:
		close;
}

tur_dun01.gat,164,31,8	script	船长	88,{
	mes "[船员]";
	mes "您准备离开这不毛之地了吗？";
	next;
	menu "是！快送我回爱尔贝塔",M0,"不！我还想在这里转转",MEnd;
	M0:
		warp "alberta.gat",245,114;
		close;
	MEnd:
		close;
}

alberta.gat,189,151,5	script	船员	100,{
	mes "[船员]";
	mes "你要去哪个地方？";
	next;
	menu 	"遇难船 -> 250 Zeny.",M0,
		"依斯鲁德岛-> 500 Zeny",M1,
		"离开",L0c;
	M0:
		if(Zeny < 250) goto NoZenyM0;
		set Zeny,zeny - 250;
		warp "alb2trea.gat",43,53;
		close;
	M1:
		if(Zeny < 500) goto NoZenyM1;
		set Zeny,zeny - 500;
		warp "izlude.gat",176,182;
		close;
	M2:
		if(Zeny < 800) goto NoZenyM2;
		set Zeny,zeny - 800;
		warp "tur_dun01.gat",154,242;
		close;
	M3:
		if(Zeny < 1000) goto NoZenyM3;
		set Zeny,zeny - 1000;
		warp "amatsu.gat",197,82;
		close;
	M4:
		if(Zeny < 1500) goto NoZenyM4;
		set Zeny,zeny - 1500;
		warp "gon_fild01.gat",258,85;
		close;
	NoZenyM0:
		mes "[船员]";
		mes "对不起，你至少得有250Zeny，我才可以送你去。";
		goto NoZeny;
	NoZenyM1:
		mes "[船员]";
		mes "对不起，你至少得有500Zeny，我才可以送你去。";
		goto NoZeny;
	NoZenyM2:
		mes "[船员]";
		mes "对不起，你至少得有800Zeny，我才可以送你去。";
		close;
	NoZenyM3:
		mes "[船员]";
		mes "对不起，你至少得有1000Zeny，我才可以送你去。";
		close;
	NoZenyM4:
		mes "[船员]";
		mes "对不起，你至少得有1500Zeny，我才可以送你去。";
		close;
	L0c:
		close;
}

alberta.gat,195,151,3	script	保罗	86,{
	mes "[保罗]";
	mes "大家好，女士们先生们。愿意何我们一起到沉船上探险吗？这是一次非常刺激而且合法的活动。";
	mes "哦！在参加之前，我必须先声明一件事情：如果你没有事先准备，请不要参加这次活动！";
	next;
	mes "[保罗]";
	mes "你准备好了吗？OK！那么请选择你准备前往的路线，当然，还需要200Zeny。";
	next;
	menu "参加",M0,"离开",MEnd;
	M0:
		if(Zeny < 200) goto NoZeny;
		set Zeny,zeny - 200;
		warp "alb2trea.gat",62,69;
		close;
	MEnd:
		mes "[保罗]";
		mes "欢迎下次再来！";
		close;
	NoZeny:
		mes "[保罗]";
		mes "很遗憾，你连200Zeny都没有，看来你不能参加这次活动。等你凑足了200Zeny的时候再来吧！";
		close;
}