|
|
* ========================================================
* 离婚登记人员 使用说明
* 1. 要求男方先登记,记录下name,partyid.
* 2. 女方登记时,检查partyid.通过则登记name.
* 3. 在有人登记后的2分钟之内,其他男ID无法登记
* 4. 如果仅仅男方登记而没有女方登记.2分钟后该ID
* 也会被认为是离婚结束而导致无法再次申请.
* 解决方法:选择\"重新开始\",但是离婚成功的不能选择
* 5. 结婚登记所需要的物品
* 1) 男方：130W现金，结婚戒指×1
* 2) 女方：120W现金，结婚戒指×1
$@li_party_id
$@divorce_male_name$
EVENT_DIVORCE_APPLY
$@EVENT_DIVORCE
$@divorce_male
$@divorce_female
* ========================================================
*/
prt_church.gat,94,97,4 script 离婚 服务人员 71,{
mes \"[离婚 服务人员]\";
mes \"请问你是否有要离婚的对象啊\";
next;
menu \"请问离婚的过程是什么样子呢？\",L_MENU_1,
\"我想要申请离婚\",L_MENU_2,
\"重新开始\",L_MENU_3,
\"我们是无敌的单身军团！\",L_MENU_4;
close;
// 过程说明
L_MENU_1:
mes \"[离婚 服务人员]\";
mes \"首先确认新郎新娘们，\";
mes \"有都向我申请吗？\";
mes \"当然两位都是结过婚的人才对啊？\";
mes \"假如有申请的话，请两位组队之后申请.\";
next;
mes \"[离婚 服务人员]\";
mes \"男方先说话，然后确定要\";
mes \"离婚的决心，离婚才能执行\";
mes \"离婚才能执行,说完后请等待新娘说.\";
next;
mes \"[离婚 服务人员]\";
mes \"然后我会问新娘男方的名字\";
mes \"名字不能讲错，要讲正确\";
mes \"离婚才能执行.\";
next;
mes \"[离婚 服务人员]\";
mes \"最后一点，讲完名字后，回答要快\";
mes \"当^ff0000新郎讲完话，在2分钟之内，把所有的过程都做完吧^000000\";
mes \"要不然，离婚会停止\";
close;
L_MENU_3:
//如果正式完成了离婚.则不能重新开始
if ( EVENT_DIVORCE_APPLY == 2 ) goto L_DIVORCE;
mes \"[离婚 服务人员]\";
mes \"或许重新开始也不错\";
mes \"希望你能找到真正合适的伴侣\";
set EVENT_DIVORCE_APPLY, 0;
close;
// ===================单身军团出现=========================
L_MENU_4:
enablenpc \"we[s:24]\";
enablenpc \"we[s:25]\";
enablenpc \"we[s:26]\";
enablenpc \"we[s:27]\";
enablenpc \"we[s:28]\";
enablenpc \"we[s:29]\";
emotion 23;
mes \"[单身 军团]\";
mes \"精炼要自己做，才会做出好东西！\";
mes \"在洞穴里面组队是奢侈的行为！\";
mes \"我可以施下出心型的 NPC！\";
mes \"从出生到转职，都是自己练的！\";
mes \"过圣诞节的时候，到外面拔草求生！\";
mes \"…我们是无敌的单身军团！\";
next;
emotion 4;
disablenpc \"we[s:24]\";
disablenpc \"we[s:25]\";
disablenpc \"we[s:26]\";
disablenpc \"we[s:27]\";
disablenpc \"we[s:28]\";
disablenpc \"we[s:29]\";
close;
L_DIVORCE:
mes \"[离婚 服务人员]\";
mes \"你还没有伴侣哦~\";
next;
close;
// 离婚申请
L_MENU_2:
mes \"[离婚 服务人员]\";
mes \"想要离婚的话要申请噢，\";
mes \"男性要交出^0000881,300,000金币和结婚戒指\";
mes \"女性要交^0000881,200,000\";
mes \"金币和结婚戒指然后填写申请书即可，\";
mes \"假如男女双方都有申请的话，\";
mes \"就可以离婚了\";
next;
mes \"[离婚 服务人员]\";
mes \"请问你要申请离婚吗?\";
menu \"是\",-,\"不是\",L_NOdivorce;
// 是否登记或者已经结婚
if ( EVENT_MARRIAGE_APPLY < 3 ) goto L_L1;
if ( EVENT_DIVORCE == 1 ) goto L_L2;
// 将流程完全分开，方便以后修改
if ( Sex == 1 ) goto L_MALE_LI;
goto L_FEMALE_LI;
close;
// ====================男方登记====================
L_MALE_LI:
// 没有组队则提示并退出！
if ( getcharid(1) == 0 ) goto L_NO_TEAM;
// 如果有人已经申请或开始离婚，则提示等候
if ( $@li_party_id != 0 ) goto L_MUST_WAIT;
// 检查要求的报名道具
if( countitem(2634) < 1 ) goto L_LOSTD; // 检查结婚戒指
if( Zeny < 1300000 ) goto L_LOSTM; // 检查登记费用
// 全部带齐则扣除报名费
set Zeny, Zeny - 1300000;
// 暂存申请人AID，NAME
set $@divorce_male, getcharid(0);
set $@divorce_male_name$, strcharinfo(0);
// 暂存申请人PARTY ID
set $@li_party_id, getcharid(1);
// 将申请人状态改为申请完毕！
set EVENT_DIVORCE_APPLY, 1;
set $@EVENT_DIVORCE, 1;
mes \"[离婚 服务人员]\";
mes \"请在^FF00002分钟^000000内完成离婚哦！\";
// 男方申请完毕，开始计时！
initnpctimer \"TimerDivorce\";
close;
// ====================女方登记====================
L_FEMALE_LI:
if ( $@EVENT_DIVORCE != 1 ) goto L_WAIT;
// 没有组队则提示并退出！
if ( getcharid(1) == 0 ) goto L_NO_TEAM;
// 检查是否为申请人同一组队！
if ( getcharid(1) != $@li_party_id ) goto L_MUST_WAIT;
// 检查要求的报名道具
if( countitem(2635) < 1 ) goto L_LOSTD; // 检查结婚戒指
if( Zeny < 1200000 ) goto L_LOSTM; // 检查登记费用
// 核对名字是否与男方登记人一样
mes \"[离婚 服务人员]\";
mes \"请输入^FF0000男方^000000的名字！\";
next;
input $@li_name$;
if($@divorce_male_name$ != $@li_name$) goto L_DISAGREE;
// 全部带齐则扣除报名费
set Zeny, Zeny - 1200000;
// 暂存女方AID，NAME
set $@divorce_female, getcharid(0);
set $@divorce_female_name$, strcharinfo(0);
// 将申请人状态改为申请完毕！
set EVENT_DIVORCE_APPLY, 1;
mes \"[离婚 服务人员]\";
mes \"请在^FF00002分钟^000000内完成离婚哦！\";
enablenpc \"divorce_ring\";
close;
// ==================不满足条件后的跳转====================
L_NO_TEAM:
mes \"[离婚 服务人员]\";
mes \"不行哦！\";
mes \"必须先和你的爱人^FF0000组队^000000！\";
close;
L_MUST_WAIT:
mes \"[离婚 服务人员]\";
mes \"嗯，好像已经有人申请了\";
mes \"看样子，你不得不等一会\";
mes \"不好意思啊！\";
close;
L_LOSTD:
mes \"[离婚 服务人员]\";
mes \"你好像忘记带，\";
mes \"离婚时的戒指了，\";
mes \"是不是放在别的地方了呢？\";
mes \"仔细的找找之后，再来找我吧\";
close;
L_LOSTM:
next;
mes \"[离婚 服务人员]\";
mes \"你身上的现金好像不足喔\";
close;
L_L1:
mes \"[离婚 服务人员]\";
mes \"你还没结婚哦\";
close;
L_L2:
mes \"[离婚 服务人员]\";
mes \"申请过了就不要申请了.\";
close;
L_NOdivorce:
mes \"[离婚 服务人员]\";
mes \"祝你有一个开心的一天…！\";
close;
L_WAIT:
mes \"[离婚 服务人员]\";
mes \"我的孩子别急别急\";
mes \"先等男方宣誓吧！\";
close;
L_DISAGREE:
mes \"[离婚 服务人员]\";
mes \"哦！？我的上帝啊！\";
mes \"你居然记错了爱人的名字！\";
mes \"看来双方的意见还没有统一,好好商量一下吧！！\";
close;
}
prt_church.gat,94,97,4 script divorce_ring 111,20,20,{
// 检查性别
if ( Sex == 0 ) goto L_FEMALE;
goto L_MALE;
end;
L_FEMALE:
// 检查人物ID
if ( getcharid(0) != $@divorce_female ) end;
// 检查是否没有完成婚典
if ( EVENT_DIVORCE_APPLY != 1 ) end;
// 检查是否婚典进行
if ( $@EVENT_DIVORCE == 1 ) goto L_FEMALE_FIRST;
// 女方后移动
if ( $@GOOD != 1 ) goto Fall;
mes \"[离婚 服务人员]\";
mes \"听我的宣布吧！\";
announce $@divorce_male_name$ + \"和\" + $@divorce_female_name$ + \"的离婚完成了！\",15;
set EVENT_DIVORCE_APPLY, 2;
set EVENT_MARRIAGE_APPLY, 0;//把结婚的标志设为0
set $@li_party_id,0;
set $@divorce_male,0;
set $@divorce_female,0;
set $@divorce_male_name$,0;
set $@divorce_female_name$,0;
set $@GOOD, 0;
stopnpctimer \"TimerDivorce\";
disablenpc \"divorce_ring\";
close;
// 女方先移动
L_FEMALE_FIRST:
set EVENT_MARRIAGE_APPLY, 0;//把结婚的标志设为0
set $@EVENT_DIVORCE, 0;
set EVENT_DIVORCE_APPLY, 2;
// 完成离婚
set Result, divorce($@divorce_male_name$);
if (Result>0) goto L_DivorceOK;
if (Result==0) goto L_DivorceFail;
close;
L_MALE:
// 检查人物ID
if ( getcharid(0) != $@divorce_male ) end;
// 检查是否没有完成婚典
if ( EVENT_DIVORCE_APPLY != 1 ) end;
// 检查是否是婚典进行
if ( $@EVENT_DIVORCE == 1 ) goto L_MALE_FIRST;
// 男方后移动
if ( $@GOOD != 1 ) goto Fall;
mes \"[离婚 服务人员]\";
mes \"听我的宣布吧！\";
announce $@divorce_male_name$ + \"和\" + $@divorce_female_name$ + \"的离婚完成了！\",15;
set EVENT_DIVORCE_APPLY, 2;
set EVENT_MARRIAGE_APPLY, 0;//把结婚的标志设为0
set $@li_party_id,0;
set $@divorce_male,0;
set $@divorce_female,0;
set $@divorce_male_name$,0;
set $@divorce_female_name$,0;
set $@GOOD, 0;
stopnpctimer \"TimerDivorce\";
disablenpc \"divorce_ring\";
close;
// 男方先移动
L_MALE_FIRST:
set EVENT_MARRIAGE_APPLY, 0;//把结婚的标志设为0
set $@EVENT_DIVORCE, 0;
set EVENT_DIVORCE_APPLY, 2;
// 完成离婚
set Result, divorce($@divorce_female_name$);
if (Result>0) goto L_DivorceOK;
if (Result==0) goto L_DivorceFail;
close;
L_DivorceOK:
mes \"[离婚 服务人员]\";
mes \"成功~\";
set $@GOOD, 1;
close;
L_DivorceFail:
mes \"[离婚 服务人员]\";
mes \"失败~\";
close;
Fall:
mes \"[离婚 服务人员]\";
mes \"离婚失败~\";
close;
OnInit:
disablenpc \"divorce_ring\";
end;
}
// 用于整个离婚的计时！从开始到结束规定时间：2分钟
prt_church.gat,97,99,0 script TimerDivorce -1,{
end;
OnTimer120000:
announce $@divorce_male_name$ + \"和\" + $@divorce_female_name$ + \"的离婚终止了！\",15;
set $@li_party_id,0;
set $@divorce_male,0;
set $@divorce_female,0;
set $@divorce_male_name$,0;
set $@divorce_female_name$,0;
stopnpctimer;
end;
OnInit:
disablenpc \"divorce_ring\";
end;
} |
|
|Archiver|手机版|小黑屋|天羽论坛--最初的回忆
( 沪ICP备14004146号-1 ) 
百度
GG
IP卡
狗仔卡
显身卡
楼主
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡