[@main]
ʲô\
</@marry>\
<ȡ/@wantcancel>\
</@divorce>\
<ѯʽʱ/@asktime>\
<Ϣ/@ask>\
<뿪/@exit>\

[@marry]
,ӵ5\
ֵʹָ!֮\
ֻ֧1000ҵѣͿ\
ˡ顱\
<ҹ,Ҫ/@marry1>\
<´/@main>

[@marry1]
#if
checkex gold < 1000
#say
С̫,1000鶼ò,!\
#act
return
#if
ismarried 
#say
Ѿ,ʲô!\
#act
return
#if
checkequipmentex ָ
#elsesay
ûϽָ,!\
#if
checkex credit < 5
#say
ֵ5,ҲܴӦ!\
#act
return
#if
checkex sex = 1
#say
Ů,ʲô,¼޲ȥ?\
#elseact
inputtext : 16 @postrequest
close

[@postrequest]
#if
humonline $inputtext
#say
ѷͣ\\
#act
showpage $inputtext @checkandrequest1 $username
#elsesay
<$inputtext>ߣ޷\\
<ر/@exit>
[@error]
ʧܣԭ\
<$_param0>\\\
<ر/@exit>
[@checkandrequest1]
#act
movr requeststudent $_param0
delay 0 @checkandrequest
close
[@checkandrequest]
#if
checkex sex = 0
#act
showpage $requeststudent @error "ԷŮˣܽ飮"
close
#if
ismarried
#act
showpage $requeststudent @error "ԷѾ飬ްɣ"
close
#end 
#say
<$requeststudent>飬ȷϣ\\
</@acceptrequest&$requeststudent>\
<ܾ/@refuserequest&$requeststudent>\
[@acceptrequest]
#if
setwife $_param0
#act
showpage $_param0 @requestaccepted $username
#say
<$_param0>ɹ\\\
<ر/@exit>
#elseact
showpage $_param0 @error "ʧܣ"
#elsesay
<$_param0>ʧܣ\\\
<ر/@exit>
[@refuserequest]
#act
showpage $_param0 @error "Էܾ"
#say
Ѿܾ<$_param0>!\\\
<ر/@exit>
[@requestaccepted]
#act
takeequipmentex ָ
takegold 1000
#say
<$_param0>Ѿ\\\
<ر/@exit> 

[@wantcancel]
߱װֵָ5\
ʧܣָᱣ\
ɹָͻᱻߡ\
ÿȡ1000ѣ׼\
<׼/@agree>\
<û/@exit>´\
</@main>

[@agree]
#act
goto @marry1

[@divorce]
ҪĻ֧һ\
ҶԷ.\
ȷҪ\\
<ȷ/@leave>\
</@exit>\
</@main>\

[@leave]
#if
checkbagitem  1
#elsesay
û,ʲô!\
</@main>\
#elseact
return
#if
ismarried
unmarry 
#act
takebagitem  1
#say
ɹ\\
</@main>\
#elsesay
û,ʲô!\
</@main>\

[@ask]
#say
ǰҲСĶһöָ\
ܰһ\\
<ȷ/@exit>

