天羽论坛--最初的回忆

标题: GM离婚脚本- -快去装啦~~~ [打印本页]

作者: 恶魔の断翼 时间: 2005-6-11 00:27
标题: 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[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;
}

作者: 弒神天使 时间: 2005-6-11 01:12
早就应该搞个离婚系统了~~N个号结婚了没得离~~顶一下~~GM快快快快快实装

作者: 我行我速~ 时间: 2005-6-11 07:40
.........
N个好结婚没的离?楼上的不会是烂交吧,各位MM当心了!!~

作者: 翔空 时间: 2005-6-11 08:29

Originally posted by 我行我速~ at 2005-6-11 07:40 AM:
.........
N个好结婚没的离?楼上的不会是烂交吧,各位MM当心了!!~

哈哈[s:6]

作者: じ☆veの乖♂ 时间: 2005-6-11 08:37

Originally posted by 弒神天使 at 2005-6-11 01:12 AM:
早就应该搞个离婚系统了~~N个号结婚了没得离~~顶一下~~GM快快快快快实装

介绍几个来啊`em05

作者: 清秋 时间: 2005-6-11 09:10
汗咯~ 怎么那么殷勤啊~
不过也对啦，借了婚以后练戒指都不能丢不能卖不能放仓库
很郁闷的

作者: bitan 时间: 2005-6-11 09:14

Originally posted by 弒神天使 at 2005-6-11 01:12 AM:
早就应该搞个离婚系统了~~N个号结婚了没得离~~顶一下~~GM快快快快快实装

晕，好累。。。

作者: 24K 时间: 2005-6-11 09:20
结婚好贵啊，没钱结婚……

作者: 欧阳 时间: 2005-6-16 18:31
非常感谢，您的回复已经发布，现在将转入主题页。

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

作者: 烈∮仁 时间: 2005-6-16 18:37
标题: 这个不错~结婚=结分~哈哈。。。
结婚都希望不离婚的，不过对方感情已破碎~离婚也是件好事~可惜我没结过婚~~她结过N次婚？？？乱交~~晕死。。不要找我啊。MM~~怕怕~~~哈哈~~

作者: 欧阳 时间: 2005-6-16 18:38
非常感谢，您的回复已经发布，现在将转入主题页。

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

作者: 欧阳 时间: 2005-6-16 18:40
非常感谢，您的回复已经发布，现在将转入主题页。

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

作者: 欧阳 时间: 2005-6-16 18:41
非常感谢，您的回复已经发布，现在将转入主题页。

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

作者: lovexkk 时间: 2005-6-16 19:02
楼上的在干什么?灌水?

作者: 天堂商务 时间: 2005-6-16 20:32
看来各位的婚姻都蛮失败的……要是在现实里，那离婚办和律师所可以就高兴了

作者: ゛季侯風﹏⺌ 时间: 2005-6-16 20:34
谢谢，帮您顶个！em06

作者: 天堂商务 时间: 2005-6-16 20:37
看来各位的婚姻都蛮失败的……要是在现实里，那离婚办和律师所可以就高兴了

作者: 弒神天使 时间: 2005-6-16 22:13
游戏的婚姻也就玩玩罢了~~我10几个号全结婚了~~郁闷~~加上很多都是RO老婆说不玩了我才找另一个结的~~没办法~~魅力大[s:8]

欢迎光临天羽论坛--最初的回忆 (http://tyro.vip/)