传奇gom引擎结婚系统脚本！拿来直接用！

[@main]
#IF
#act
OPENMERCHANTBIGDLG 32 33 1 0 0 0 0 0 0
#SAY
\ \
<ImgEx:32:36:37:38:370:-19/@Exit> \ \
<  结婚系统/FCOLOR=254>  <Hot~/FCOLOR=249>       <30灵符购买结婚戒指/@购买戒指><(只需男方佩戴即可)>\
\ \
\ <我想结婚/@marry>  <结婚时请面对面等待结婚完成，否则失败后戒指消失不补偿/FCOLOR=228>\   \
\ <我想离婚/@unmarry>  <结婚时请面对面等待结婚完成，否则失败后戒指消失不补偿/FCOLOR=228>\ \


<属性：/FCOLOR=250><人物倍攻属性提高【1.10倍】/FCOLOR=70>\ 
<命令  ：/FCOLOR=254>  @夫妻传送  @允许夫妻传送\ 
<小提示：/FCOLOR=254>  聊天框点击特殊命令按钮可快捷输入


[@购买戒指]
#if
NOT checkGAMEGIRD < 30
#act
GAMEGIRD - 30
give 求婚戒指 1
messagebox 购买求婚戒指成功，男方佩戴戒指后即可面对面结婚了
break
#elseact
messagebox 当前灵符不足30，无法购买
break


[@marry]
#IF
#act
OPENMERCHANTBIGDLG 32 33 1 0 0 0 0 0 0
#SAY
\ \
<ImgEx:32:36:37:38:370:-19/@Exit> \
<  结婚系统/FCOLOR=254>  <Hot~/FCOLOR=249>\
\ \
求婚者必须是男性且佩戴求婚戒指，\
你准备好求婚了吗？\ \
<准备好了/@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
MOV S$结婚状态 已结婚
#CALL [\游戏登陆\在线刷新属性.txt] @刷新在线属性EX

[@ResposeMarryFail]
#if
   checkmarry
#act
   break
#say
\ \ \ \
你都结过婚了，还来注册结婚，想犯重婚罪呀！！！ \ \
<返回/@main>

#if
#act
  marry responsemarry fail

[@EndMarry]
#if
#act
MOV S$结婚状态 已结婚
#CALL [\游戏登陆\在线刷新属性.txt] @刷新在线属性EX
BREAK
#SAY
\ \ \ \
你们二个已经成为了一对全法夫妻了。\ \
<关闭/@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
MOV S$结婚状态 离婚
#CALL [\游戏登陆\在线刷新属性.txt] @刷新在线属性EX
;=======================================================
;回应离婚请求
[@ResposeUnMarry]
#if
  checkmarry
#act
  unmarry responseunmarry
MOV S$结婚状态 已结婚
#CALL [\游戏登陆\在线刷新属性.txt] @刷新在线属性EX
BREAK

;===============================================
;请求离婚后显示的信息
[@WateUnMarry]
\ \ \ \
你已向对方发出离婚请求，请耐心等待对方的答复。

;===============================================
;请求离婚后对方显示的信息
[@RevUnMarry]
\ \ \ \
对方向你离婚请求，你是否答应离婚？ \ \
<我愿意/@RequestUnMarry>
<返回/@main>

;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExeMarryFail]
\ \ \ \
你都没结过婚，跑来做什么？ \ \
[返回/@main]

;==============================================
;强行离婚
[@fUnMarry]
#if
  checkmarry
#act
  unmarry requestunmarry force
Gmexecute 开始提问 @强行离婚提问
break

;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
#IF
#ACT
MOV S$结婚状态 离婚
#CALL [\游戏登陆\在线刷新属性.txt] @刷新在线属性EX
BREAK
#SAY
\ \ \ \
呵呵，你已经脱离苦海了！！！ \ \
<退出/@exit>
[@asktime]
你调查结婚时间的请求已发出，\
请稍后。\
<确定/@exit>

打赏

打赏是一种认可，感谢您，让我们有了更多的力量去分享价值。