gm8(20%12-5-28)t带给大家一个结婚离婚脚本

为了提高大家的脚本编写水平，sf05特意送给大家一个结婚离婚脚本，供大家参考学习。希望大家会喜欢，下面就是脚本内容：
[@main]
<$USERNAME>，欢迎来到红娘庄，是来结婚的吧？你有心上人了？\
只要男方35级以上，女方30级以上的未婚情侣，都可以来这里登记\
结婚，结婚的手续很简单，只要双方同意就可以完婚。但是，不管\
成不成，我都要收取求婚戒指。\ \
<我想结婚/@marry> <我想离婚/@unmarry>\
<婚礼一号火焰/@ILOVEYOU> <婚礼二号火焰/@LOVEYOU> <婚礼三号火焰/@心>\
<离开/@exit>
[@LOVEYOU]
#IF
  large I31 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  GMexecute MOBFIREBURN m101 14 38 5 1800 0
  GMexecute MOBFIREBURN m101 14 37 5 1800 0
  GMexecute MOBFIREBURN m101 14 36 5 1800 0
  mov I31 1
  close
  break
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@ILOVEYOU]
#IF
  large I32 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  mov I32 1
  break
  close
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@心]
#IF
  large I33 0
#ACT
  messagebox 该火焰已经放过了...
  break
#IF
  Checkitem 金条 1
#ACT
  take 金条 1
  mov I33 1
  GMexecute MOBFIREBURN m101 19 42 5 1800 0
  break
close
#IF
#ACT
  messagebox 放婚礼火焰需要一根金条....
[@marry]
求婚者必须是男性且拥有求婚戒指，\
你准备好求婚了吗？\ \
<准备好了/@agree>\
<下次再来/@exit>\ \ \
<返回/@main>
新开传奇论坛的朋友要注意了，下面这段脚本是用来检测玩家是否已经结婚的。如果结过婚了就理所当然的，不能让他再结一次了。哈哈
[@agree]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#if
  checkposemarry
#say
对方已经结过婚了，是不是想犯重婚罪呀！！！\ \
<返回/@main>
#act
  break
#if
   gender man
#elsesay
只有男的向女的求婚，还没见过大姑娘向小伙子求婚的。\ \
<返回/@main>
#elseact
   break
如果有朋友看不懂这些脚本，又想自己开论坛的话。可以联系我们的开区一条龙客服，我们可以帮你达成愿望的。
#if
  checkposegender man
#say
你变态呀！！！想搞同性恋！！！ \ \
<返回/@main>
#act
  break
#if
   checkposedir 2
#elsesay
你们二个面对面站好呀，不要乱动。\ \
<返回/@main>
#elseact
  break
#if
  CHECKLEVELEX > 34
#elsesay
结婚要求你的等级必须35级或以上，小伙子努力练好级再来找我。\ \
<返回/@main>
#elseact
  break
#if
  checkposelevel > 29
#elsesay
你的对象还没成年，等她长大点再来吧！小伙子不要心急嘛！\ \
<返回/@main>
#elseact
  break
#if
   checkitemw 求婚戒指 1
#elsesay
你没求婚,戒指，弄到求婚戒指再来找我吧！！！\ \
<返回/@main>
#elseact
   break
#if
#act
   takew 求婚戒指 1
   marry
[@StartMarry]
#if
   checkmarry
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#act
   break
#if
   gender man
#act
   break
#say
婚礼现在正式开始。\ \
你愿意娶对方为妻，并照顾她一生一世吗？\ \
<我愿意/@RequestMarry>
#if
   gender
#act
   break
#say
婚礼现在正式开始。\ \
请耐心等待你心爱的人向你求婚\ \

[@RequestMarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#if
#act
  marry requestmarry
[@WateMarry]
你已向对方求婚，请耐心等待对方的答复。
[@RevMarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#if
#say
对方向你求婚，你是否答应嫁给他？ \ \
<我愿意/@ResposeMarry> \
<我不愿意/@ResposeMarryFail>
[@ResposeMarry]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#if
#act
  marry responsemarry ok
[@ResposeMarryFail]
#if
   checkmarry
#act
   break
#say
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>
#if
#act
  marry responsemarry fail
[@EndMarry]
你们二个已经成为了一对全法夫妻了。\ \
<关闭/@exit>
[@EndMarryFail]
结婚失败！\ \
<关闭/@exit>
[@MarryDirErr]
对方没站好位置
[@MarryCheckDir]
请站好位置\\
[@HumanTypeErr]
你变态呀，既然选择一个非人类作为结婚对象。
[@MarrySexErr]
你变态呀，既然同性恋。
;==========================================
离婚开始
[@unmarry]
#if
   checkmarry
#act
   unmarry
#elsesay
你都没结婚离什么婚？？\ \
<返回/@main>
;=======================================================
;双方离婚时没面对面站好显示的信息
[@UnMarryCheckDir]
要离婚是吧？离婚是二个人的事，必须二个人对面对站好位置，\
如果人来不了你只能选择强行离婚姻了。\ \
<我要强行离婚/@fUnMarry>\
<返回/@main>
;=======================================================
;对面位置不是人物时显示的信息
[@UnMarryTypeErr]
你对面站了个什么东西，怎么不太象人来的。\ \
<返回/@main>
;=======================================================
;开始离婚程序后，双方显示的信息
[@StartUnMarry]
#if
   gender man
#act
   BREAK
#say
是否确定真的要与你共事多年的妻子离婚吗？\ \
<确定/@RequestUnMarry>
#if
  gender
#say
你的老公现在向我请求离婚，是不是愿意协议离婚？ \ \
<确定/@RequestUnMarry>
#act
  break
;=======================================================
;发出离婚请求
[@RequestUnMarry]
#if
  checkmarry
#act
  unmarry requestunmarry
;=======================================================
;回应离婚请求
[@ResposeUnMarry]
#if
  checkmarry
#act
  unmarry responseunmarry
;===============================================
;请求离婚后显示的信息
[@WateUnMarry]
你已向对方发出离婚请求，请耐心等待对方的答复。
;===============================================
;请求离婚后对方显示的信息
[@RevUnMarry]
对方向你离婚请求，你是否答应离婚？ \ \
<我愿意/@RequestUnMarry>
<返回/@main>
;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExeMarryFail]
你都没结过婚，跑来做什么？ \ \
[返回/@main]
;==============================================
;强行离婚
[@fUnMarry]
#if
  checkitem 金条 1
  checkmarry
#act
  take 金条 1
  unmarry requestunmarry force
#elsesay
要收一根金条的手续费，你没有金条，\
我不能让你离婚。\
<确定/@exit>
;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
呵呵，你已经脱离苦海了！！！ \ \
<退出/@exit>
[@asktime]
你调查结婚时间的请求已发出，\
请稍后。\
<确定/@exit>
爱上版本站提供传奇一条龙技术文章、传奇服务端下载、传奇论坛登陆器下载等等，感谢你对的持续关注!

哥回复的不是帖子，是寂寞！

支持楼上的！

吹牛的人越来越多了！

顶顶更健康！

谢谢楼主的分享！

楼主，您忘记吃药了吧？

信楼主，得永生！

雷锋做好事不留名，都写在帖子里！

楼主是男的还是女的？