npc_wedding.txt

制作网络游戏的一个小平台

/*	
 *	==================================================================
 *			结婚脚本流程说明
 *
 *	1. 需要到"结婚 服务人员"处登记,如果当时有人在结婚,则稍后登记.
 *		** 登记服务人员使用请参见具体说明 **
 *
 *	2. 当男方和女方都登记后,男方先和国王对话.然后女方对话
 *	3. 对话都完成后,退后一步,取得戒指.完成婚礼
 *	4. 每个婚礼固定限制时间5分钟.超出则无法完成婚礼并且无法再次结婚
 *	
 *	
 *
 *		2004-06-18 修正 BY 索克
 *		(参照 EVENT_MARRIAGE v1.1 BY Kingbo)
 
 
 
 $@marriage_party_id
 $@tmp_party_id
 $@marry_male
 $@marry_male_name$
 $@marry_female
 $@marry_female_name$
 $@EVENT_MARRIAGE
 EVENT_MARRIAGE_APPLY
 *	==================================================================	
 */

prt_church.gat,99,124,4	script	国王陛下	108,{
	
	if ( EVENT_MARRIAGE_APPLY == 0 ) goto L_SINGLE;
	if ( EVENT_MARRIAGE_APPLY == 1 ) goto L_CHECK;
	if ( EVENT_MARRIAGE_APPLY == 2 ) goto L_COME_HERE;
	
	mes "[国王陛下]";
	mes "结婚的感觉怎样";
	mes "是不是很美妙呢！";
	mes "祝你们幸福美满";
	close;
	
L_SINGLE:
	mes "[国王陛下]";
	mes "我的孩子";
	mes "你还是孤身一人吗？";
	mes "祝愿你早日找到自己的另一半！";
	close;
	
L_COME_HERE:
	mes "[国王陛下]";
	mes "来！我的孩子！";
	mes "^FF0000走到我的身边来！^000000";
	close;	

L_CHECK:
	if ( Sex == 1 ) goto L_MALE_MARRIAGE;
	goto L_FEMALE_MARRIAGE;
	close;
	
L_MALE_MARRIAGE:
	// 检查队伍ID、申请人ID来判断是否是正确的登记人
	if ( getcharid(1) == 0 || getcharid(1) != $@tmp_party_id || getcharid(0) != $@marry_male ) goto L_NOPARTY2;
	// 检查男女是否都登记完毕
	if ( $@marry_female == 0 ) goto L_NOT_APPLY;
	
	mes "[国王陛下]";
	mes "我亲爱的孩子，你做好结婚的准备了吗？";
	next;
	menu	"是的，我准备好了！",-,
		"我……再让我考虑一下……",L_MENU_2,
		"我是无敌单身汉",L_MENU_3;

	mes "[国王陛下]";
	mes "那么我们开始吧";
	mes "请准备好帅气的新郎礼服";
	mes "放松一下激动的心情";
	next;

	// 检查是否将燕尾服穿上 Item 7170
	// 不同的服务端可能需要修改这项内容
	if ( getequipname(2) != "身体-[Tuxedo]" ) goto L_NOWEAR;

	mes "[国王陛下]";
	mes "嗯，看来你准备的相当好，那么开始吧";
	next;
	announce "[国王陛下]：诸位亲爱的弟兄姐妹，我们现在聚集在这里，是为了这对新人要在上帝的面前结婚立约建立美满的家庭来做见证。婚姻的起源是上帝设立的。幸福的家庭是由于上帝的恩赐，所有敬畏上帝，遵行他的道理的，必定蒙受赐福，所以要用圣洁的心，以正式的礼仪来结婚，才能建立幸福和快乐的家庭。",15;
	mes "[国王陛下]";
	mes "我亲爱的孩子，请把你所爱的人名字写下来吧，我要让所有到来的人为你们祝福!!";
	next;

	// 检查输入的名字是否和女方申请人相同
	input $@name$;
	if($@marry_female_name$ != $@name$) goto L_DISAGREE;

	announce "[国王陛下]：这对幸福的人儿是"+ strcharinfo(0) + " 和 "+ $@marry_female_name$ + "，让我们一起来祝福这对新人。",15;
	mes "[国王陛下]";
	mes "请用圣洁的心，来聆听来自主的祝福吧！！";
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!";
	announce "[国王陛下]：婚姻是上帝的安排，夫妇是上帝所配合的，所以要用恭敬的心来领受上帝所安排的恩赐。 因为上帝起初创造亚当和夏娃，是一男一女的家庭，做我们的榜样，妻子还在丈夫不可再娶，丈夫还在妻子亦不可再嫁。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!";
	announce "[国王陛下]：结婚是一生的盟约，五伦之中夫妇最亲蜜。圣经说：他们要结连二人成为一体，丈夫不可离弃妻子。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!!";
	announce "[国王陛下]：主耶稣说：上帝所配合的人便不可分开。 夫妇要相爱，丈夫要爱惜照顾他的妻子，如同基督爱惜他的教会，妻子当顺服她的丈夫，如同教会顺服基督，夫妇同居一处，要和睦并要尊重长辈爱护小辈。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!!!";
	announce "[国王陛下]：上帝使你活在世上，你当以温柔和耐心来照顾对方，敬爱对方，无论对方富有还是贫穷，健康还是患病，你在上帝和众人面前许诺愿意这样吗？",15;
	next;
	mes "[国王陛下]";
	mes "现在你们二人已经听见圣经的这些教训，你们若愿意结合，请用举起你的手到头上立誓。";
	announce "[国王陛下]：来让我们听听来自["+ strcharinfo(0) + "]的誓言吧!!",15;
	next;
	mes "[国王陛下]";
	mes "宣誓：";
	announce "我宣誓：我——["+ strcharinfo(0) + "]愿意承受接纳 "+ $@marry_female_name$ + " 做我的妻子，诚实遵照上帝的旨命，和他生活在一起。无论在什么环境，都愿意终生养她、爱惜她、安慰她、尊重她、保护她，以至奉召归主。",15;
	next;
	announce "[国王陛下]：现在应该换问女方了",15;
	
	// 男方完成宣誓，等待女方宣誓！
	set $@EVENT_MARRIAGE, 1;
	set EVENT_MARRIAGE_APPLY, 2;
	close;

L_FEMALE_MARRIAGE:
	// 检查男方是否宣誓完成
	if ( $@EVENT_MARRIAGE != 1 ) goto L_WAIT;
	// 检查是否是正确的队伍和申请人
	if ( getcharid(1) == 0 || getcharid(1) != $@tmp_party_id || getcharid(0) != $@marry_female ) goto L_NOPARTY2;

	mes "[国王陛下]";
	mes "那么我们开始吧";
	mes "请准备好漂亮的新娘礼服,放松一下激动的心情";
	next;

	// 检查是否将结婚礼服穿上 Item 2338
	// 不同的服务端可能需要修改这项内容
	if (getequipname(2) != "身体-[Wedding_Dress]") goto L_NOWEAR;

	mes "[国王陛下]";
	mes "嗯，看来你准备的相当好，那么开始吧";
	next;
	announce "[国王陛下]：诸位亲爱的弟兄姐妹，我们现在聚集在这里，是为了这对新人要在上帝的面前结婚立约建立美满的家庭来做见证。婚姻的起源是上帝设立的。幸福的家庭是由于上帝的恩赐，所有敬畏上帝，遵行他的道理的，必定蒙受赐福，所以要用圣洁的心，以正式的礼仪来结婚，才能建立幸福和快乐的家庭。",15;
	mes "[国王陛下]";
	mes "我亲爱的孩子，请把你所爱的人名字写下来吧，我要让所有到来的人为你们祝福!!";
	next;

	//检查输入的名字是否和男方申请人相同
	input $@name$;
	if($@marry_male_name$ != $@name$) goto L_DISAGREE;

	announce "[国王陛下]：这对幸福的人儿是"+ strcharinfo(0) + " 和 "+ $@marry_male_name$ + "，让我们一起来祝福这对新人。",15;
	mes "[国王陛下]";
	mes "请用圣洁的心，来聆听来自主的祝福吧！！";
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!";
	announce "[国王陛下]：婚姻是上帝的安排，夫妇是上帝所配合的，所以要用恭敬的心来领受上帝所安排的恩赐。 因为上帝起初创造亚当和夏娃，是一男一女的家庭，做我们的榜样，妻子还在丈夫不可再娶，丈夫还在妻子亦不可再嫁。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!";
	announce "[国王陛下]：结婚是一生的盟约，五伦之中夫妇最亲蜜。圣经说：他们要结连二人成为一体，丈夫不可离弃妻子。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!!";
	announce "[国王陛下]：主耶稣说：上帝所配合的人便不可分开。 夫妇要相爱，丈夫要爱惜照顾他的妻子，如同基督爱惜他的教会，妻子当顺服她的丈夫，如同教会顺服基督，夫妇同居一处，要和睦并要尊重长辈爱护小辈。",15;
	next;
	mes "[国王陛下]";
	mes "请仔细的聆听!!!";
	announce "[国王陛下]：上帝使你活在世上，你当以温柔和耐心来照顾对方，敬爱对方，无论对方富有还是贫穷，健康还是患病，你在上帝和众人面前许诺愿意这样吗？",15;
	next;
	mes "[国王陛下]";
	mes "现在你们二人已经听见圣经的这些教训，你们若愿意结合，请用举起你的手到头上立誓。";
	announce "[国王陛下]：来让我们听听来自["+ strcharinfo(0) + "]的誓言吧!!",15;
	next;
	menu "我发誓，终生不悔！",-,"我……再让我考虑一下……",L_MENU_2;
	mes "[国王陛下]";
	mes "宣誓：";
	announce "我宣誓：我——["+ strcharinfo(0) + "]愿意承受接纳 "+ $@marry_male_name$ + " 做我的丈夫，诚实遵照上帝的旨命，和他生活在一起。无论在什么环境，都愿意终生养他、爱惜他、安慰他、尊重他、保护他，以至奉召归主。",15;
	next;
	announce "[国王陛下]：到我身边来，我的孩子！让所有人来见证你们的幸福！",15;
	
	// 女方同意并完成对话启动戒指管理员
	set EVENT_MARRIAGE_APPLY, 2;
	enablenpc "marriage_ring";
	close;
	end;
	
L_MENU_2:
	mes "[国王陛下]";
	mes "好好想想吧，毕竟这是你的选择……";
	close;
L_MENU_3:
	mes "[国王陛下]";
	mes "单身………倒也是一种选择......";
	close;
L_NOWEAR:
	mes "[国王陛下]";
	mes "看来没还没有准备好，快去准备一下结婚的衣服吧！！";
	mes "难道你要光着身子结婚吗？";
	close;
L_DISAGREE:
	mes "[国王陛下]";
	mes "哦！？我的上帝啊！";
	mes "你居然记错了爱人的名字！";
	mes "看来双方的意见还没有统一,好好商量一下吧！！";
	close;
L_NOT_APPLY:
	mes "[国王陛下]";
	mes "你怎么没有带来你的新娘？";
	mes "是不是你一个人偷偷跑来的？";
	mes "哈哈！真是个傻瓜啊！";
	close;

L_NOPARTY:
	mes "[国王陛下]";
	mes "你还没有和你要结婚的对象组队吗";
	mes "还不赶快去，组队好后再回来找我";
	close;

L_NOPARTY2:
	mes "[国王陛下]";
	mes "我的孩子别急别急";
	mes "还没有轮到你们这对新人";
	mes "请稍待喔";
	close;
L_WAIT:
	mes "[国王陛下]";
	mes "我的孩子别急别急";
	mes "先等男方宣誓吧！";
	close;

}


prt_church.gat,99,124,4	script	marriage_ring	139,20,20,{
	
	// 检查性别
	if ( Sex == 0 ) goto L_FEMALE;
	goto L_MALE;
	end;
	
L_FEMALE:
	// 检查人物ID
	if ( getcharid(0) != $@marry_female ) end;
	// 检查是否没有完成婚典
	if ( EVENT_MARRIAGE_APPLY != 2 ) end;
	// 检查是否是婚典进行
	if ( $@EVENT_MARRIAGE == 1 ) goto L_FEMALE_FIRST;
	
	// 女方后移动
	mes "[国王陛下]";
	mes "好来听我的宣布吧！";
	announce "[国王陛下]：那么我在此宣布，祝贺你们成为夫妻！",15;
	announce $@marry_male_name$ + "和" + $@marry_female_name$ + "的婚礼完成了！",15;
	// 取得戒指
	getitem 2635, 1;
	set EVENT_MARRIAGE_APPLY, 3;
	set $@tmp_party_id,0;
	set $@marry_male,0;
	set $@marry_male_name$,0;
	set $@marry_female,0;
	set $@marry_female_name$,0;
	stopnpctimer "TimerMarriage";
	disablenpc "marriage_ring";
	close;

	// 女方先移动
L_FEMALE_FIRST:
	// 完成婚典
	set EVENT_MARRIAGE_APPLY, 3;
	set $@EVENT_MARRIAGE, 0;
	
	// 取得戒指
	getitem 2635, 1;
	// 完成结婚
	marriage($@marry_male_name$);
	close;	

L_MALE:
	// 检查人物ID
	if ( getcharid(0) != $@marry_male ) end;
	// 检查是否没有完成婚典
	if ( EVENT_MARRIAGE_APPLY != 2 ) end;
	// 检查是否是婚典进行
	if ( $@EVENT_MARRIAGE == 1 ) goto L_MALE_FIRST;
	
	// 男方后移动
	mes "[国王陛下]";
	mes "好来听我的宣布吧！";
	announce "[国王陛下]：那么我在此宣布，祝贺你们成为夫妻！",15;
	announce $@marry_male_name$ + "和" + $@marry_female_name$ + "的婚礼完成了！",15;
	// 取得戒指
	getitem 2634, 1;
	set EVENT_MARRIAGE_APPLY, 3;
	set $@tmp_party_id,0;
	set $@marry_male,0;
	set $@marry_male_name$,0;
	set $@marry_female,0;
	set $@marry_female_name$,0;
	stopnpctimer "TimerMarriage";
	disablenpc "marriage_ring";
	close;

	// 男方先移动
L_MALE_FIRST:
	// 完成婚典
	set EVENT_MARRIAGE_APPLY, 3;
	set $@EVENT_MARRIAGE, 0;
	
	// 取得戒指
	getitem 2634, 1;
	// 完成结婚
	marriage($@marry_female_name$);
	close;	
		
OnInit:
	disablenpc "marriage_ring";
	end;
}



/*
 *	========================================================
 *			结婚登记人员 使用说明
 *	1. 要求男方先登记,记录下aid,name,partyid.
 *	2. 女方登记时,检查partyid.通过则登记aid,name.
 *	3. 在有人登记后的5分钟之内,其他男ID无法登记
 *	4. 如果仅仅男方登记而没有女方登记.5分钟后该ID
 *	   也会被认为是结婚结束而导致无法再次申请.
 *	   解决方法:选择"重新开始",但是结婚成功的不能选择
 *	5. 结婚登记所需要的物品
 *	   1) 男方：130W现金，钻石戒指×1，燕尾服×1(不被扣除)
 *	   2) 女方：120W现金，钻石戒指×1，礼服×1(不被扣除)
 *	========================================================
 */
 
prt_church.gat,94,100,4	script	结婚 服务人员	71,{
	mes "[结婚 快乐]";
	mes "所谓结婚是指，";
	mes "期待着幸福，所有人们的希望，";
	mes "请问你是否有，";
	mes "想要结婚的对象吗？";
	next;
	menu "请说明有关结婚典礼的事情",L_MENU_1,
             "请问结婚典礼的过程是什么样子呢？",L_MENU_2,