GM离婚脚本- -快去装啦~~~

欧阳发表于 2005-6-16 18:40:14

非常感谢，您的回复已经发布，现在将转入主题页。

对不起，您两次发表间隔少于 15 秒，请不要灌水

欧阳发表于 2005-6-16 18:41:25

非常感谢，您的回复已经发布，现在将转入主题页。

对不起，您两次发表间隔少于 15 秒，请不要灌水

lovexkk 发表于 2005-6-16 19:02:56

楼上的在干什么?灌水?

天堂商务 发表于 2005-6-16 20:32:27

看来各位的婚姻都蛮失败的……要是在现实里，那离婚办和律师所可以就高兴了

゛季侯風﹏⺌ 发表于 2005-6-16 20:34:45

谢谢，帮您顶个！em06

天堂商务 发表于 2005-6-16 20:37:27

看来各位的婚姻都蛮失败的……要是在现实里，那离婚办和律师所可以就高兴了

弒神天使 发表于 2005-6-16 22:13:52

游戏的婚姻也就玩玩罢了~~我10几个号全结婚了~~郁闷~~加上很多都是RO老婆说不玩了我才找另一个结的~~没办法~~魅力大

恶魔の断翼 发表于 2005-6-11 00:27:13

* ========================================================
* 离婚登记人员使用说明
* 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\";
enablenpc \"we\";
enablenpc \"we\";
enablenpc \"we\";
enablenpc \"we\";
enablenpc \"we\";
emotion 23;
mes \"[单身军团]\";
mes \"精炼要自己做，才会做出好东西！\";
mes \"在洞穴里面组队是奢侈的行为！\";
mes \"我可以施下出心型的 NPC！\";
mes \"从出生到转职，都是自己练的！\";
mes \"过圣诞节的时候，到外面拔草求生！\";
mes \"…我们是无敌的单身军团！\";
next;
emotion 4;
disablenpc \"we\";
disablenpc \"we\";
disablenpc \"we\";
disablenpc \"we\";
disablenpc \"we\";
disablenpc \"we\";
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_ring111,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;
}

页: 1 [2]

天羽论坛--最初的回忆's Archiver

GM离婚脚本- -快去装啦~~~