结婚系统

ping5562

[@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
  目前不能进行，请稍候。\
<参数初始化[url=]/@ResetWeddingVariables>\[/url]
#ELSESAY
  <申请结婚[url=]/@wantGetMarried>\[/url]
<同性结婚[url=]/@wantGetMarried32>{FCOLOR/1[/url]}(结婚手续费双倍){FCOLOR/12}\
  <申请离婚[url=]/@wantDivorce>\[/url]
  <摘下结婚戒指[url=]/@TakeMarriedRing[/url]> \

#IF
  Equal   B1{MANNAME}     %USERNAME
#SAY
  <取消结婚申请[url=]/@PreCancelWedding>\[/url] \

#IF
  IsAdmin
#SAY
  <参数初始化[url=]/@ResetWeddingVariables>\[/url]
end
   [@TakeMarriedRing]
   begin
  #SAY
   摘下结婚戒指需要200,000金币。 \
   摘下要作为结婚戒指的戒指，与配偶交换，该戒指就会成为结婚戒指。 \ \
   <即使需要支付20万金币，也要摘下结婚戒指。[url=]/@ExchangeMarriedRing[/url]> \

   end
[@ExchangeMarriedRing]
begin
  #IF
   checkgold 200000
  #ACT
   take 金币 200000
   CancelMarriageRing
   SysMsg "已丧失了结婚戒指的功能"
   close
  #ELSESAY
   您的钱不够。 \ \
   <关  闭[url=]/@exit[/url]>
   end
[@ResetWeddingVariables]
begin
  #ACT
   goto @cancelWedding
   close
end
[@PreCancelWedding]
begin
  #ACT
   SysMsg "您已经取消了结婚申请。"
   goto @CancelWedding
end
[@CancelWedding]
begin
  #ACT
   Mov  N0{START}      0
   Mov  N1(WEDDING}    0
   Mov  N3{TIME}       0
   Mov  N4{TRY}        0
   Mov  N5{WAITINGTIMEOUT} 0
   Mov  N6{MAN}        0
   Mov  N7{GIRL}       0
   Mov  B1{MANNAME}    ""
   Mov  B2{GIRLNAME}   ""
   Mov  B3{INPUTGIRLNAME}  ""
   Mov  B4 ""
   close
   ClearDelayGoto
end
[@wantGetMarried]
begin
  #IF
   !CheckLevel 22
  #SAY
   22级以上才可以使用此项功能。\
  #ACT
   break
  
  #IF
   CheckMarriage
  #SAY
   已婚状态下不可再婚。\
  #ACT
   break
  
  #IF
   Gender [man]
  #ACT
   goto @wantGetMarried_man
  #ELSEACT
   goto @wantGetMarried_woman
   end
[@wantGetMarried_man]
begin
  #IF
   Equal   B1{MANNAME}     ""
  #SAY
   <请输入您要迎娶的新娘的名字。[url=]/@@InputMarried_Woman[/url]>
  #ELSESAY
   现在不能进行结婚申请。\ \
   <关  闭[url=]/@exit[/url]>
end
[@@InputMarried_Woman]
begin
  #IF
   Mov     B5  %INPUTSTR
   !Equal  B5  ""
  #SAY
   您要迎娶的新娘名字是 <$INPUTSTR> 。 \
   新娘名字正确吗？ \ \
   <正确[url=]/@ProcessMarried[/url]> \
   <不正确[url=]/@wantGetMarried_man[/url]> \
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 [local] 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 [local] 5 @startWeddingloop
   break
  
  #IF
   !CheckGold   500000
  #ACT
   SysMsg  "结婚费用不够。"
   Delaygoto [local] 5 @startWeddingloop
   break
  
  #IF
  #ACT
   Take    金币          500000
   Mov     N0{START}   1              
   Mov     N3{TIME}    0  
   EventMsg  "0" "马上就会举行新郎 <$OUTPUT(B1)>先生和新娘<$OUTPUT(B2)>女士的婚礼。"
   SysMsg    "婚礼相关准备已做好。"
   Delaygoto [local] 10  @weddingCeremony      
   close
end


[@weddingCeremony]
begin
  #IF
   Equal N1{WEDDING} 0
  #ACT
   break
  
  #IF
   Inc    N3{TIME} 1
   Large  N3{TIME} 360
  #ACT
   EventMsg  "0"  "预约的婚礼时间已到。"
   break
  
  #IF
   Equal  N1{WEDDING}   1
  #ACT
   EventMsg   "0"  "现在开始举行新郎 <$OUTPUT(B1)>先生和新娘<$OUTPUT(B2)>女士的婚礼。"
   Mov  N1{WEDDING}  2
   Delaygoto [local]   10  @weddingCeremony
   break
  
  #IF
   Equal  N1{WEDDING}  2
  #ACT
   EventMsg  "0"  "新郎 <$OUTPUT(B1)> 发誓会在人生风风雨雨的旅途中永远爱新娘<$OUTPUT(B2)>吗？ 请用“是/不是”来简短回答。 "
   Mov  N4{TRY}    5
   CaptureSaying   %B1  @ListenSayYes_man
   Mov   N1{WEDDING}  3
   Delaygoto [local]   10  @weddingCeremony
   break
  
  #IF
   Equal N1{WEDDING}  3
  #ACT
   EventMsg  "0"  "新郎请用“是/不是”来回答。"
   Delaygoto [local]   10  @weddingCeremony
   break
  
  #IF
   Equal  N1{WEDDING}  4
  #ACT
   Eventmsg   "0"  "新娘 <$OUTPUT(B2)>发誓会在人生风风雨雨的旅途中永远爱新郎 <$OUTPUT(B1)> 吗？请用“是/不是”来简短回答。"
   Mov  N4{TRY}    5     
   CaptureSaying  %B2  @ListenSayYes_woman
   Mov  N1{WEDDING}  5
   Delaygoto [local]   10  @weddingCeremony
   break
  
  #IF
   Equal N1{WEDDING}  5
  #ACT
   EventMsg  "0"  "新娘请用“是/不是”来回答。"
   Delaygoto [local]   10  @weddingCeremony
   break
  
  #IF
   Equal  N1{WEDDING}  6
  #ACT
   Eventmsg "0" "现在新郎新娘交换作为结婚信物的戒指。请交换戒指。"
   GetMarried  %B1  %B2
   mov   N1{WEDDING}  7
   Delaygoto [local]   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 [local]   10  @weddingCeremony
end

[@GetFace]
begin
  #IF
   CheckJob  Warrior
  #ACT
   mov  P1 0
  
  #IF
   CheckJob  Wizard
  #ACT
   mov p1 1
  
  #IF
   CheckJob  Taoist
  #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
   mov  B9 %INPUTSTR
   mov  P1 %@GetFace
   EventMsg "0"  "<$OUTPUT(B9)>" %P1
  
  #IF
   Equal  N1{WEDDING}  3
   Equal  B9  "是"
  #ACT
   Mov  B9  ""
   EventMsg  "0"  "新郎 <$OUTPUT(B1)> 先生已回答“是”。"
   Mov  N1{WEDDING}  4
   CaptureSaying  ""
   break
  
  #IF
   Equal  N1{WEDDING}  3
   Equal  B9  "不是"
  #ACT
   Mov  B9  ""
   EventMsg  "0"  "新郎 <$OUTPUT(B1)> 先生回答“不是”"
   EventMsg  "0"  "这场婚事视为无效。"
   goto @cancelWedding
   CaptureSaying  ""
   Break
  
  #IF
   Equal  N1{WEDDING} 3
   !Equal  B9  ""
  #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
   mov  B9 %INPUTSTR
   mov  P1 %@GetFace
   EventMsg "0"  "<$OUTPUT(B9)>" %P1
  
  #IF
   Equal  N1{WEDDING}  5
   Equal  B9  "是"
  #ACT
   Mov  B9  ""
   EventMsg  "0"  "新娘 <$OUTPUT(B2)> 女士已回答“是”。"
   Mov  N1{WEDDING}  6
   CaptureSaying  ""
   break
  
  #IF
   Equal  N1{WEDDING}  5
   Equal  B9  "不是"
  #ACT
   Mov  B9  ""
   EventMsg  "0"  "新娘 <$OUTPUT(B2)>女士回答“不是”。"
   EventMsg  "0"  "这场婚事视为无效。"
   CaptureSaying
   goto @cancelWedding
   Break
  
  #IF
   Equal  N1{WEDDING} 5
   !Equal  B9  ""
  #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万金币。\ \
   <付钱，离婚。 [url=]/@divorcenow>\[/url]
  
  [@divorcenow]
  #IF
   checkgold 5000000
  #ACT
   take 金币 5000000
   Divorce
   close
end
}