欧阳 发表于 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

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

*        ========================================================
*                        离婚登记人员 使用说明
*        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]
查看完整版本: GM离婚脚本- -快去装啦~~~