如何让传奇会员免费结婚

[@main]
如果你是会员，那么你只要是男性就可以结婚。
<求婚/@marry>
<离婚/@unmarry>
<询问结婚时间/@asktime>
<离开/@exit>

[@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 男
#say
你变态呀！！！想搞同性恋！！！
<返回/@main>
#act
  break

#if
   checkposedir 2
#elsesay
你们二个面对面站好呀，不要乱动。
<返回/@main>
#elseact
  break

#if
  checklevel 40
#elsesay
结婚要求你的等级必须40级或以上，小伙子努力练好级再来找我。
<返回/@main>
#elseact
  break
#if
  checkposelevel > 34
#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
要收1根金条的手续费，你没有金条，
我不能让你离婚。
<确定/@exit>
;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
呵呵，你已经脱离苦海了！！！
<退出/@exit>
[@asktime]
你调查结婚时间的请求已发出，
请稍后。
<确定/@exit>


[@GUANLIDE]
#SAY
◇◇◆◇◇◆◆◆◆◆◇◇◇◇◆◇◇◇◆◇◇◇◇◇
◇◇◆◇◇◆◇◆◇◇◇◇◇◇◇◆◇◇◆◇◇◇◇◇
◆◆◆◆◇◆◆◆◆◆◆◇◆◆◆◆◆◇◆◇◇◇◇◇
◇◆◇◆◇◆◇◆◇◇◇◇◇◇◇◆◇◇◆◇◇◇◇◇
◇◆◇◆◇◆◆◇◆◇◆◇◇◇◆◆◆◇◆◇◇◇◇◇
◆◇◇◆◇◆◆◆◆◆◇◇◇◆◇◆◇◆◆◇◇◇◇◇
◆◆◇◆◇◆◇◇◇◆◇◇◆◇◇◆◇◇◆◇◇◇◇◇
◇◇◆◇◇◆◆◆◆◆◇◇◇◇◇◆◇◇◆◇◇◇◆◇
◇◆◇◆◇◆◇◇◇◆◇◇◇◇◇◆◇◇◆◇◇◇◆◇
◆◇◇◇◇◆◆◆◆◆◇◇◇◇◇◆◇◇◆◆◆◆◆◇

真是难得给力的帖子啊。

真是难得给力的帖子啊。

看到这帖子真是高兴！

强烈支持楼主ing……

真是难得给力的帖子啊。

真是难得给力的帖子啊。

我只是路过打酱油的。

无回帖，不论坛，这才是人道。

我只是路过打酱油的。