📄 npc_wedding.txt
字号:
//==============================================
// 结婚脚本
// 代码重写 by FPE(2006.7.3)
// Jathena++ 论坛：http://www.foxofice.net/bbs
//----------------------------------------------
/*
* ==================================================================
* 结婚脚本流程说明
*
* 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,{
switch(EVENT_MARRIAGE_APPLY)
{
case 0:
mes "[国王陛下]";
mes "我的孩子";
mes "你还是孤身一人吗？";
mes "祝愿你早日找到自己的另一半！";
close;
end;
break;
case 1:
if(sex) goto L_MALE_MARRIAGE;
goto L_FEMALE_MARRIAGE;
break;
case 1:
mes "[国王陛下]";
mes "来！我的孩子！";
mes "^FF0000走到我的身边来！^000000";
close;
end;
break;
default:
mes "[国王陛下]";
mes "结婚的感觉怎样";
mes "是不是很美妙呢！";
mes "祝你们幸福美满";
close;
end;
}
L_MALE_MARRIAGE:
// 检查队伍ID、申请人ID来判断是否是正确的登记人
if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_male)
{
mes "[国王陛下]";
mes "我的孩子别急别急";
mes "还没有轮到你们这对新人";
mes "请稍待喔";
close;
end;
}
// 检查男女是否都登记完毕
if($@marry_female==0)
{
mes "[国王陛下]";
mes "你怎么没有带来你的新娘？";
mes "是不是你一个人偷偷跑来的？";
mes "哈哈！真是个傻瓜啊！";
close;
end;
}
mes "[国王陛下]";
mes "我亲爱的孩子，你做好结婚的准备了吗？";
next;
menu "是的，我准备好了！",-,
"我……再让我考虑一下……",A01,
"我是无敌单身汉",A02;
mes "[国王陛下]";
mes "那么我们开始吧";
mes "请准备好帅气的新郎礼服";
mes "放松一下激动的心情";
next;
// 检查是否将燕尾服穿上 Item 7170
// 不同的服务端可能需要修改这项内容
if(getequipid(2)!=7170)
{
mes "[国王陛下]";
mes "看来没还没有准备好，快去准备一下结婚的衣服吧！！";
mes "难道你要光着身子结婚吗？";
close;
end;
}
mes "[国王陛下]";
mes "嗯，看来你准备的相当好，那么开始吧";
next;
misceffect 347;
announce "[国王陛下]：诸位亲爱的弟兄姐妹，我们现在聚集在这里，是为了这对新人要在上帝的面前结婚立约建立美满的家庭来做见证。婚姻的起源是上帝设立的。幸福的家庭是由于上帝的恩赐，所有敬畏上帝，遵行他的道理的，必定蒙受赐福，所以要用圣洁的心，以正式的礼仪来结婚，才能建立幸福和快乐的家庭。",15;
mes "[国王陛下]";
mes "我亲爱的孩子，请把你所爱的人名字写下来吧，我要让所有到来的人为你们祝福!!";
next;
// 检查输入的名字是否和女方申请人相同
input $@name$;
if($@marry_female_name$!=$@name$)
{
mes "[国王陛下]";
mes "哦！？我的上帝啊！";
mes "你居然记错了爱人的名字！";
mes "看来双方的意见还没有统一,好好商量一下吧！！";
close;
end;
}
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;
end;
L_FEMALE_MARRIAGE:
// 检查男方是否宣誓完成
if($@EVENT_MARRIAGE!=1)
{
mes "[国王陛下]";
mes "我的孩子别急别急";
mes "先等男方宣誓吧！";
close;
end;
}
// 检查是否是正确的队伍和申请人
if(getcharid(1)==0 || getcharid(1)!=$@tmp_party_id || getcharid(0)!=$@marry_female )
{
mes "[国王陛下]";
mes "我的孩子别急别急";
mes "还没有轮到你们这对新人";
mes "请稍待喔";
close;
end;
}
mes "[国王陛下]";
mes "那么我们开始吧";
mes "请准备好漂亮的新娘礼服,放松一下激动的心情";
next;
// 检查是否将结婚礼服穿上 Item 2338
// 不同的服务端可能需要修改这项内容
if(getequipid(2)!=2338)
{
mes "[国王陛下]";
mes "看来没还没有准备好，快去准备一下结婚的衣服吧！！";
mes "难道你要光着身子结婚吗？";
close;
end;
}
mes "[国王陛下]";
mes "嗯，看来你准备的相当好，那么开始吧";
next;
misceffect 347;
announce "[国王陛下]：诸位亲爱的弟兄姐妹，我们现在聚集在这里，是为了这对新人要在上帝的面前结婚立约建立美满的家庭来做见证。婚姻的起源是上帝设立的。幸福的家庭是由于上帝的恩赐，所有敬畏上帝，遵行他的道理的，必定蒙受赐福，所以要用圣洁的心，以正式的礼仪来结婚，才能建立幸福和快乐的家庭。",15;
mes "[国王陛下]";
mes "我亲爱的孩子，请把你所爱的人名字写下来吧，我要让所有到来的人为你们祝福!!";
next;
//检查输入的名字是否和男方申请人相同
input $@name$;
if($@marry_male_name$!=$@name$)
{
mes "[国王陛下]";
mes "哦！？我的上帝啊！";
mes "你居然记错了爱人的名字！";
mes "看来双方的意见还没有统一,好好商量一下吧！！";
close;
end;
}
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 "我发誓，终生不悔！",-,
"我……再让我考虑一下……",A01;
mes "[国王陛下]";
mes "宣誓：";
announce "我宣誓：我——["+ strcharinfo(0) + "]愿意承受接纳 "+ $@marry_male_name$ + " 做我的丈夫，诚实遵照上帝的旨命，和他生活在一起。无论在什么环境，都愿意终生养他、爱惜他、安慰他、尊重他、保护他，以至奉召归主。",15;
next;
announce "[国王陛下]：到我身边来，我的孩子！让所有人来见证你们的幸福！",15;
// 女方同意并完成对话启动戒指管理员
set EVENT_MARRIAGE_APPLY,2;
enablenpc "marriage_ring";
close;
end;
A01:
mes "[国王陛下]";
mes "好好想想吧，毕竟这是你的选择……";
close;
end;
A02:
mes "[国王陛下]";
mes "单身………倒也是一种选择......";
close;
end;
}
prt_church.gat,100,121,4 script marriage_ring 139,1,1,{
// 检查性别
if(sex) goto L_MALE;
// 检查人物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;
end;
// 女方先移动
L_FEMALE_FIRST:
// 完成婚典
set EVENT_MARRIAGE_APPLY,3;
set $@EVENT_MARRIAGE,0;
// 取得戒指
getitem 2635, 1;
// 完成结婚
marriage($@marry_male_name$);
close;
end;
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;
end;
// 男方先移动
L_MALE_FIRST:
// 完成婚典
set EVENT_MARRIAGE_APPLY,3;
set $@EVENT_MARRIAGE,0;
// 取得戒指
getitem 2634,1;
// 完成结婚
marriage($@marry_female_name$);
close;
end;
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 "请说明有关结婚典礼的事情",A01,
"请问结婚典礼的过程是什么样子呢？",A02,
"我想要申请结婚典礼",A03,
"我们是无敌的单身军团！",A04,
"重新开始",A05;
// 婚典说明
A01:
mes "[结婚 快乐]";
mes "现在结婚是在卢恩-米德加兹王国，";
mes "国王特力期坦3世陛下，";
mes "为了下达对王国内所有的百姓们的祝福，";
mes "用尊贵的语言，亲自主持证婚人的角色";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -