npc_event_adoption.txt

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

//====================================================================
//Ragnarok Online EP4.0(J) Marriage System      V1.0
//====================================================================
prt_church.gat,105,100,4	script	认养孩子 服务人员	71,{
	mes "[快乐的玛瑞]";
	mes "所谓养育子女";
	mes "就是给予他/她幸福，将所有的希望都寄托于他/她们身上。";
	mes "或许、也许……";
	mes "你想成为养子吗？";
	mes "还是想认养孩子？";
	next;
	menu "成为养子有什么规定",-,"如何成为养子",L2,"我想成为养子",L3,"单身军团永远无敌！",L4;
		mes "[快乐的玛瑞]";
		mes "这是因为测试认养而制定的临时规定:";
		next;
		mes "[快乐的玛瑞]";
		mes "想要成为养子的人";
		mes "必须是没有进阶转职的职业，以后也不能转职";
		next;
		mes "[快乐的玛瑞]";
		mes "一旦成为养子，就不能恢复原来的面貌";
		mes "也无法脱离这种养子的关系。";
		next;
		mes "……";
		next;
		mes "……";
		next;
		mes "……除非使用另外一种方法。";
		close;
	L2:
		mes "[快乐的玛瑞]";
		mes "和你要成为他们养子的结婚伴";
		mes "侣，组成队伍然后来和我说话。";
		next;
		mes "[快乐的玛瑞]";
		mes "先输入父亲的名字，再输入";
		mes "母亲的名字，必须确认名字输";
		mes "入正确。否则无法成功认养。";
		next;
		mes "[快乐的玛瑞]";
		mes "因为一些玩家的名字有特殊字符的关系";
		mes "为了避免输入错误";
		mes "在认养之前";
		mes "可以和扮演父母的玩家先私聊对话";
		next;
		mes "[快乐的玛瑞]";
		mes "私聊对话以后";
		mes "点击输入对话栏左边的按钮";
		mes "会列出刚才私聊对象的名字";
		mes "这时可以选择刚才对话的名字";
		next;
		mes "[快乐的玛瑞]";
		mes "选中你要复制的名字以后";
		mes "可以用 Ctrl+C 复制下来";
		mes "在进行认养过程时";
		mes "就可以用 Shift＋Insert";
		mes "把复制的名字粘贴到输入框。";
		next;
		mes "[快乐的玛瑞]";
		mes "1)认养的孩子必须和已婚伴侣组队";
		mes "2)认养的孩子和父母先私聊";
		mes "选择好对方的名字以后";
		mes "3)认养孩子用 Ctrl + C 复制";
		mes "对方的名字";
		next;
		mes "[快乐的玛瑞]";
		mes "请务必记得这个流程，以免";
		mes "认养失败";
		next;
		mes "[快乐的玛瑞]";
		mes "说到这里，你听明白了吗？";
		mes "我让你试试这个方法吧。";
		next;
		mes "[快乐的玛瑞]";
		mes "Ctrl＋C 复制对方的名字";
		mes "Shift＋Insert 粘贴对方的名字到输入框";
		mes "你试试看吧。";
		next;
		input @test$;
		mes "[快乐的玛瑞]";
		mes "怎么样？出来了吗？";
		next;
		mes "[快乐的玛瑞]";
		mes "结婚的手续我就不在这里提及了";
		mes "如果你有什么疑问可以到普隆德拉。";
		mes "教堂的婚礼进行人员询问。";
		close;
	L3:
		mes "[快乐的玛瑞]";
		mes "请先输入父亲的名字";
		next;
		input @PapaName$;
		mes "[快乐的玛瑞]";
		mes "再输入母亲的名字";
		next;
		input @MamaName$;
		mes "[快乐的玛瑞]";
		mes "确定了吗？";
		next;
		menu "是的",L3_1,"我还是再想想",-;
			mes "[快乐的玛瑞]";
			mes "今天是幸福的日子呀~";
			close;
		L3_1:
			if (adoption(@PapaName$,@MamaName$)==0) goto LError;
			mes "[快乐的玛瑞]";
			mes "恭喜，认养结亲手续办理成功！";
			mes "如你们一家三口永远幸福美满哦~";
			close;
	L4:
		mes "嗯...有时候一个人会孤独的。";
		close;
LError:
	mes "[快乐的玛瑞]";
	mes "不符合条件，认养失败。";
	close;
}