月老-yue.txt

神迹的服务器端 官方的1.75版本 网络上有流传 请勿用于非法用途

[@main]
#if
hasmarry
#act
set [066] 0
#say
你已经结婚了，你有什么事情吗？\\
<申请离婚/@divorce>\
<查询结婚时间/@asktime>\
<补领结婚戒指/@getring>\
<离开这里/@exit>\
<关闭/@et>
#elsesay
你找我有什么事情？\\
<申请结婚/@marry>\
<离开这里/@exit>\
<关闭/@et>

[@getring]
#if
checkitem 结婚戒指 1
#say
你不需要补领结婚戒指。\\
<关闭/@et>

#if
checkitemw 结婚戒指 1
#say
你不需要补领结婚戒指。\\
<关闭/@et>

#if
checkbaggage
#act
give 结婚戒指 1
#say
你的结婚戒指已经补领了。\\
<关闭/@et>
#elsesay
你的包裹已经满了，先整理一下吧。\\
<关闭/@et>

[@divorce]
#if
hasmarry
#say
想要离婚的话你必须支付一根金条并\
扣除10点声望，你确定要离婚吗？\\
<确定/@leave>\
<不离/@et>\
#elsesay
你没有婚姻关系，不需要离婚。\\
<关闭/@et>

[@leave]
#if
checkitem 金条 1
#act
take 金条 1
take 结婚戒指 1
takew 结婚戒指 1
cqclearanswer
subrepute 10 离婚
breakmarry
#say
你婚姻关系已经解除了。\\
<确定/@et>
#elsesay
你没有金条，\
我不能让你离婚。\
<确定/@et>

[@asktime]
#if
checkmarry
#say
你是在<$MARRYTIME>结婚的。\\
<确定/@et>
#elsesay
你现在没有婚姻关系。\\
<确定/@et>

[@exit]
#if
#act
set [066] 0
cqclearanswer
mapmove snow 60 60

[@marry]
#if
grouperisoppositesex
#act
set [066] 0
cqclearanswer
goto @marry0
#elsesay
你一个人来结什么婚。\\
<离开/@et>

[@marry0]
#if
checksex 女
#act
cqclearanswer
goto @marry2

#if
isreputeenough 6
#act
cqclearanswer
goto @marry2
#elseact
forcegroupergotosection 男方声望不足6点，不能申请结婚。
goto @fail2

[@fail2]
男方声望不足6点，不能申请结\
婚。\\
<离开/@exit>

[@marry2]
#if
grouperissamerace
#say
很好，一会你们两个将分开在不同地\
方回答问题以考验你们的默契，准备\
好了吗？\\
<准备好了/@checksex>\
<没准备好/@et>
#elsesay
仙魔之间通婚远非寻常，双方必须通\
过严格考验才能结成夫妻，你准备好\
进行考验了吗？\\
<准备好了/@move>\
<以后再来/@et>

[@move]
#if
#act
map yue4

[@move2]
#if
#act
mapmove yue2 73 50

[@checksex]
#if
checksex 男
#act
map yue2
#elseact
goto @quest

[@fail]
你们看来还不够默契，请下次再来\
吧。\\
<离开/@out>

[@quest]
你们两人的爱情属于那种类型\\
<一见钟情/@an11>\
<青梅竹马/@an12>\
<相知相爱/@an13>

[@an11]
#if
#act
cqaddanswer 11
goto @quest2

[@an12]
#if
#act
cqaddanswer 12
goto @quest2

[@an13]
#if
#act
cqaddanswer 13
goto @quest2

[@quest2]
你喜欢认为什么样的家庭\\
<两人世界/@an21>\
<三口之家/@an22>\
<几世同堂/@an23>

[@an21]
#if
#act
cqaddanswer 21
goto @quest3

[@an22]
#if
#act
cqaddanswer 22
goto @quest3

[@an23]
#if
#act
cqaddanswer 23
goto @quest3

[@quest3]
维持家庭幸福的关键是什么\\
<浪漫感情/@an31>\
<经济富裕/@an32>\
<相互谦让/@an33>\
<子女幸福/@an34>

[@an31]
#if
#act
cqaddanswer 31
goto @quest4

[@an32]
#if
#act
cqaddanswer 32
goto @quest4

[@an33]
#if
#act
cqaddanswer 33
goto @quest4

[@an34]
#if
#act
cqaddanswer 34
goto @quest4

[@quest4]
你觉得什么样的小孩子比较可爱\\
<小男孩/@an41>\
<小女孩/@an42>\
<不喜欢小孩/@an43>\
<都喜欢/@an44>

[@an41]
#if
#act
cqaddanswer 41
goto @checkan

[@an42]
#if
#act
cqaddanswer 42
goto @checkan

[@an43]
#if
#act
cqaddanswer 43
goto @checkan

[@an44]
#if
#act
cqaddanswer 44
goto @checkan

[@fail]
你们看来还不够默契，请下次再来\
吧。\\
<离开/@exit>

[@checkan]
#if
cqothergrouperiscomplete 4
#act
goto @checkan2
#elseact
goto @checkan0

[@checkan0]
#if
cqothergrouperiscomplete 1
#say
你的心上人还没有答完问题\\
<返回/@checkan>
#elsesay
你的心上人还没有开始回答问题\\
<返回/@checkan>

[@checkan2]
#if
cqcompareanswer @marry @fail
#act
goto @move2
#elseact
cqclearanswer
goto @fail