月老-yue2.txt

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

[@main]
#if
hasmarry
#say
你已经结婚了，你还有什么事情吗？\\
<查询结婚时间/@asktime>\
<离开这里/@exit>

#if
grouperisoppositesex
#act
goto @main1
#elsesay
你一个人结什么婚。\
<离开这里/@exit>

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

[@main1]
#if
checksex 女
#say
请等待男方提出结婚申请.....

#if
check [066] 1
#act
goto @marry
#elseact
cqclearanswer
#elsesay
请准备好回答问题\\
<你问吧/@quest>\
<关闭/@et>

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

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

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

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

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

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


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

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

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

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

[@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]
你觉得什么样的小孩子比较可爱\\
<不喜欢小孩/@an43>\
<小男孩/@an41>\
<小女孩/@an42>\
<都喜欢/@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 @move2 @fail
#act
set [066] 1
goto @marry
#elseact
cqclearanswer
goto @fail

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

[@marry]
你们配合默契可以结婚，结婚需要\
10000金币手续费。\\
<申请结婚/@marry2>\
<先等等/@et>

[@marry2]
#if
checkgold 10000
#act
goto @marry3
#elsesay
你的金币不足，不能申请结婚。\\
<离开/@out>

[@marry3]
#if
checkitemingroupers 订婚戒指 1
#act
take 金币 10000
takeitemfromgroupers 订婚戒指 1
confirmmarry
cqclearanswer
giveitemtogroupers 结婚戒指 1
set [066] 0
close
#elsesay
你们没有一对订婚戒指，不能结婚。\\
<离开/@et>