姻缘_月老-sh030.txt

企业版传奇世界本

[@main]
你想做什么？想结婚吗？我这好久都不办理结婚登记了！\\
我要<求婚/@求婚>　　我要<离婚/@2131231>\
<打听消息/@打听消息>\
我要<回城/@回城>\
　　<离开/@exit>\


[@回城]
#act
mapmove 2 222 442

[@求婚]
求婚者必须是男性且装备求婚戒指，\
如果你的求婚失败,你的求婚戒指会保留下来\
求婚成功后,你的求婚戒指就会将被收走.\
每次求婚收取1000金币手续费,你准备好求婚了吗?\
<准备好了/@agree>\
<没有/@exit>,下次再来\
<返回/@main>\

[@打听消息]
你想知道求婚戒指在哪里出吗？\
告诉你，在蛇洞-未知暗殿-金刚人身上出！\\
<确定/@eixt>\

[@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 > 40
#elsesay
结婚要求双方都已经满40级\ \
<返回/@main>
#elseact
break
#if
checkitem 求婚戒指 1
#elsesay
你没求婚戒指，弄到求婚戒指再来找我吧！！！\ \
<返回/@main>
#elseact
break 
#if
#act
take 求婚戒指 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>
#elsesay
你声望不足5点以上。\
<离开/@exit>
[@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]

[@2131231]
要离婚是吧？目前随便结婚的的人太多了，为了对爱情不专一的\
人进行惩罚，所以强制离婚需要收取100个元宝！\\
<我要强行离婚/@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
CHECKGAMEGOLD > 99
checkmarry
#act
GAMEGOLD - 100
unmarry requestunmarry force
#elsesay
强制离婚要收取100个元宝手续费，你没有元宝，\
我不能让你离婚。\
<确定/@exit>

[@UnMarryEnd]
呵呵，你已经脱离苦海了！！！ \ \
<退出/@exit>

[@asktime]
你调查结婚时间的请求已发出，\
请稍后。\
<确定/@exit>