结婚系统
[@Marrage]{
begin
#Define N0{START} N0
#Define N1{WEDDING} N1
#Define N3{TIME} N3
#Define N4{TRY} N4
#Define N5{WAITINGTIMEOUT} N5
#Define N6{MAN} N6
#Define N7{GIRL} N7
#Define B1{MANNAME} B1
#Define B2{GIRLNAME} B2
#Define B3{INPUTGIRLNAME}B3
#IF
Equal N0{START} 1
#SAY
目前不能进行，请稍候。\
<参数初始化/@ResetWeddingVariables>\
#ELSESAY
<申请结婚/@wantGetMarried>\
<同性结婚/@wantGetMarried32>{FCOLOR/1}(结婚手续费双倍){FCOLOR/12}\
<申请离婚/@wantDivorce>\
<摘下结婚戒指/@TakeMarriedRing> \
#IF
Equal B1{MANNAME} %USERNAME
#SAY
<取消结婚申请/@PreCancelWedding>\ \
#IF
IsAdmin
#SAY
<参数初始化/@ResetWeddingVariables>\
end
[@TakeMarriedRing]
begin
#SAY
摘下结婚戒指需要200,000金币。 \
摘下要作为结婚戒指的戒指，与配偶交换，该戒指就会成为结婚戒指。 \ \
<即使需要支付20万金币，也要摘下结婚戒指。/@ExchangeMarriedRing> \
end
[@ExchangeMarriedRing]
begin
#IF
checkgold 200000
#ACT
take 金币 200000
CancelMarriageRing
SysMsg "已丧失了结婚戒指的功能"
close
#ELSESAY
您的钱不够。 \ \
<关闭/@exit>
end
[@ResetWeddingVariables]
begin
#ACT
goto @cancelWedding
close
end
[@PreCancelWedding]
begin
#ACT
SysMsg "您已经取消了结婚申请。"
goto @CancelWedding
end
[@CancelWedding]
begin
#ACT
MovN0{START} 0
MovN1(WEDDING} 0
MovN3{TIME} 0
MovN4{TRY} 0
MovN5{WAITINGTIMEOUT} 0
MovN6{MAN} 0
MovN7{GIRL} 0
MovB1{MANNAME} ""
MovB2{GIRLNAME} ""
MovB3{INPUTGIRLNAME}""
MovB4 ""
close
ClearDelayGoto
end
[@wantGetMarried]
begin
#IF
!CheckLevel 22
#SAY
22级以上才可以使用此项功能。\
#ACT
break
#IF
CheckMarriage
#SAY
已婚状态下不可再婚。\
#ACT
break
#IF
Gender
#ACT
goto @wantGetMarried_man
#ELSEACT
goto @wantGetMarried_woman
end
[@wantGetMarried_man]
begin
#IF
Equal B1{MANNAME} ""
#SAY
<请输入您要迎娶的新娘的名字。/@@InputMarried_Woman>
#ELSESAY
现在不能进行结婚申请。\ \
<关闭/@exit>
end
[@@InputMarried_Woman]
begin
#IF
Mov B5%INPUTSTR
!EqualB5""
#SAY
您要迎娶的新娘名字是 <$INPUTSTR> 。 \
新娘名字正确吗？ \ \
<正确/@ProcessMarried> \
<不正确/@wantGetMarried_man> \
end
[@ProcessMarried]
begin
#IF
Equal N6{MAN} 1
#SAY
别人正在使用该功能。 1\
#ACT
break
#IF
!Equal B1{MANNAME} ""
#SAY
别人正在使用该功能。 2\
#ACT
break
#IF
!Equal B3{INPUTGIRLNAME} ""
#SAY
别人正在使用该功能。 3\
#ACT
break
#IF
!CheckGold 500000
#ACT
SysMsg"结婚费用不够。"
close
break
#IF
#ACT
mov N1{WEDDING} 1
mov B1{MANNAME} %USERNAME
mov B3{INPUTGIRLNAME} %INPUTSTR
mov N6{MAN} 1
mov N5{WAITINGTIMEOUT}0
Delaygoto 5 @startWeddingloop
SysMsg"已完成结婚申请，等新娘也来申请结婚，就会结算结婚费用。"
close
end
[@wantGetMarried_woman]
begin
#IF
equal N6{MAN} 1
equal B3{INPUTGIRLNAME} %USERNAME
#ELSEACT
SysMsg"新郎尚未申请结婚。"
close
break
#IF
CheckGold 500000
#ACT
Take 金币 500000
mov N7{GIRL} 1
mov B2{GIRLNAME} %USERNAME
SysMsg"已完成结婚申请。"
close
#ELSEACT
SysMsg"结婚费用不够。"
close
end
[@startWeddingloop]
begin
#IF
Equal N0{START} 1
#ACT
break
#IF
Inc N5{WAITINGTIMEOUT} 1
Large N5{WAITINGTIMEOUT} 10 ;360
#ACT
SysMsg"已完成结婚申请，等新娘也来申请结婚，就会结算结婚费用。"
goto @CancelWedding
break
#IF
Equal N6{MAN} 1
Equal N7{GIRL} 1
#ELSEACT
SysMsg"正在等候新娘申请结婚。"
Delaygoto 5 @startWeddingloop
break
#IF
!CheckGold 500000
#ACT
SysMsg"结婚费用不够。"
Delaygoto 5 @startWeddingloop
break
#IF
#ACT
Take 金币 500000
Mov N0{START} 1
Mov N3{TIME} 0
EventMsg"0" "马上就会举行新郎 <$OUTPUT(B1)>先生和新娘<$OUTPUT(B2)>女士的婚礼。"
SysMsg "婚礼相关准备已做好。"
Delaygoto 10@weddingCeremony
close
end
[@weddingCeremony]
begin
#IF
Equal N1{WEDDING} 0
#ACT
break
#IF
Inc N3{TIME} 1
LargeN3{TIME} 360
#ACT
EventMsg"0""预约的婚礼时间已到。"
break
#IF
EqualN1{WEDDING} 1
#ACT
EventMsg "0""现在开始举行新郎 <$OUTPUT(B1)>先生和新娘<$OUTPUT(B2)>女士的婚礼。"
MovN1{WEDDING}2
Delaygoto 10@weddingCeremony
break
#IF
EqualN1{WEDDING}2
#ACT
EventMsg"0""新郎 <$OUTPUT(B1)> 发誓会在人生风风雨雨的旅途中永远爱新娘<$OUTPUT(B2)>吗？ 请用“是/不是”来简短回答。 "
MovN4{TRY} 5
CaptureSaying %B1@ListenSayYes_man
Mov N1{WEDDING}3
Delaygoto 10@weddingCeremony
break
#IF
Equal N1{WEDDING}3
#ACT
EventMsg"0""新郎请用“是/不是”来回答。"
Delaygoto 10@weddingCeremony
break
#IF
EqualN1{WEDDING}4
#ACT
Eventmsg "0""新娘 <$OUTPUT(B2)>发誓会在人生风风雨雨的旅途中永远爱新郎 <$OUTPUT(B1)> 吗？请用“是/不是”来简短回答。"
MovN4{TRY} 5
CaptureSaying%B2@ListenSayYes_woman
MovN1{WEDDING}5
Delaygoto 10@weddingCeremony
break
#IF
Equal N1{WEDDING}5
#ACT
EventMsg"0""新娘请用“是/不是”来回答。"
Delaygoto 10@weddingCeremony
break
#IF
EqualN1{WEDDING}6
#ACT
Eventmsg "0" "现在新郎新娘交换作为结婚信物的戒指。请交换戒指。"
GetMarried%B1%B2
mov N1{WEDDING}7
Delaygoto 10@weddingCeremony
break
#IF
Equal N1{WEDDING} 7
CheckMarriageRing%B1
CheckMarriageRing%B2
#ACT
EventMsg"0" "至此，新郎 <$OUTPUT(B1)>先生和新娘 <$OUTPUT(B2)> 女士的婚礼结束。祝二位白头偕老，永远幸福！"
goto @cancelWedding
Break
#IF
#ACT
Delaygoto 10@weddingCeremony
end
[@GetFace]
begin
#IF
CheckJobWarrior
#ACT
movP1 0
#IF
CheckJobWizard
#ACT
mov p1 1
#IF
CheckJobTaoist
#ACT
mov p1 2
#IF
#ACT
mul p1 2
mov p1 p9
#IF
gender woman
#ACT
inc p1
#IF
#ACT
inc p1 20000
#SAY
<$OUTPUT(p1)>
end
[@ListenSayYes_man]
begin
#IF
Equal N1{WEDDING}0
#ACT
CaptureSaying ""
break
#IF
#ACT
movB9 %INPUTSTR
movP1 %@GetFace
EventMsg "0""<$OUTPUT(B9)>" %P1
#IF
EqualN1{WEDDING}3
EqualB9"是"
#ACT
MovB9""
EventMsg"0""新郎 <$OUTPUT(B1)> 先生已回答“是”。"
MovN1{WEDDING}4
CaptureSaying""
break
#IF
EqualN1{WEDDING}3
EqualB9"不是"
#ACT
MovB9""
EventMsg"0""新郎 <$OUTPUT(B1)> 先生回答“不是”"
EventMsg"0""这场婚事视为无效。"
goto @cancelWedding
CaptureSaying""
Break
#IF
EqualN1{WEDDING} 3
!EqualB9""
#ACT
EventMsg"0" "新郎请用“是/不是”来回答。"
#IF
Large N4{TRY} 0
#ACT
SysMsg "只剩下<$OUTPUT(N4)>次的机会。请用“是/不是”来回答。"
#ELSEACT
EventMsg"0""婚礼已取消。"
goto @cancelWedding
CaptureSaying""
Break
#IF
#ACT
Dec N4{TRY} 1
end
[@ListenSayYes_woman]
begin
#IF
Equal N1{WEDDING}0
#ACT
CaptureSaying ""
break
#IF
#ACT
movB9 %INPUTSTR
movP1 %@GetFace
EventMsg "0""<$OUTPUT(B9)>" %P1
#IF
EqualN1{WEDDING}5
EqualB9"是"
#ACT
MovB9""
EventMsg"0""新娘 <$OUTPUT(B2)> 女士已回答“是”。"
MovN1{WEDDING}6
CaptureSaying""
break
#IF
EqualN1{WEDDING}5
EqualB9"不是"
#ACT
MovB9""
EventMsg"0""新娘 <$OUTPUT(B2)>女士回答“不是”。"
EventMsg"0""这场婚事视为无效。"
CaptureSaying
goto @cancelWedding
Break
#IF
EqualN1{WEDDING} 5
!EqualB9""
#ACT
EventMsg"0" "新娘请用“是/不是”来回答。"
#IF
Large N4{TRY} 0
#ACT
SysMsg "<只剩下$OUTPUT(N4)>次的机会。请用“是/不是”来回答。"
#ELSEACT
EventMsg"0""婚礼已取消。"
goto @cancelWedding
CaptureSaying""
Break
#IF
#ACT
Dec N4{TRY} 1
end
[@wantGetMarried32]
#CALL [系统脚本\tongxing.txt] @tongxing+
[@wantDivorce]
begin
#IF
CheckMarriage
#SAY
确定要离婚吗？\
离婚需要支付500万金币。\ \
<付钱，离婚。 /@divorcenow>\
[@divorcenow]
#IF
checkgold 5000000
#ACT
take 金币 5000000
Divorce
close
end
}
页:
[1]