[@ResposeMarryFail]
#If
CheckMarry
#Act
Messagebox 你都结过婚了.还来注册结婚.想犯重婚罪呀.!
Goto @Main
Break

#If
#Act
Marry Responsemarry Fail

[@EndMarry]
#Act
Messagebox 你们二个已经成为了一对全法夫妻了.
Close

[@EndMarryFail]
#Act
Messagebox 结婚失败.
Close

[@MarryDirErr]
#Act
Messagebox 对方没站好位置.
Close

[@MarryCheckDir]
#Act
Messagebox 请站好位置.
Close

[@HumanTypeErr]
#Act
Messagebox 你变态呀.既然选择一个非人类作为结婚对象.
Close

[@MarrySexErr]
#Act
Messagebox 你变态呀.既然同性恋.
Close

;===================================离婚开始
[@unmarry]
#If
Checkmarry
#Act
Unmarry
#ElseAct
Messagebox 你都没结婚离什么婚.?
Close

;===========双方离婚时没面对面站好显示的信息
[@UnMarryCheckDir]
要离婚是吧.?离婚是二个人的事.必须二个人对面对站好位置.
如果人来不了你只能选择强行离婚姻了.!
<我要强行离婚/@FUnMarry>
<返回/@main>

;===========================对面位置不是人物时显示的信息
[@UnMarryTypeErr]
你对面站了个什么东西.怎么不太象人来的.!
<返回/@main>

;=========================开始离婚程序后，双方显示的信息
[@StartUnMarry]
#If
Gender Man
#Act
Break
#Say
是否确定真的要与你共事多年的妻子离婚吗.?
<确定/@RequestUnMarry>

#If
Gender WoMan
#say
你的老公现在向我请求离婚.是不是愿意协议离婚.?
<确定/@RequestUnMarry>
#Act
Break

;===========================================发出离婚请求
[@RequestUnMarry]
#If
CheckMarry
#Act
UnMarry RequestUnmarry
;===========================================回应离婚请求
[@ResposeUnMarry]
#If
Checkmarry
#Act
Unmarry Responseunmarry

;===============================================
;请求离婚后显示的信息
[@WateUnMarry]
你已向对方发出离婚请求.请耐心等待对方的答复.!

;===============================================
;请求离婚后对方显示的信息
[@RevUnMarry]
对方向你离婚请求,你是否答应离婚.?
<我愿意/@RequestUnMarry>
<返回/@main>

;===============================================
;没结过婚的人点离婚后出的提示信息
[@ExeMarryFail]
你都没结过婚.跑来做什么.?
[返回/@main]

;==============================================
;强行离婚
[@fUnMarry]
#If
Checkitem 金砖 1
Checkmarry
#Act
Take 金砖 1
Unmarry Requestunmarry Force
#ElseAct
Messagebox 要收一块金砖作为手续费.你没有金砖.我不能让你离婚.!
Close
;==============================================
;离婚完成后的提示信息
[@UnMarryEnd]
#If
#Act
Messagebox 呵呵.你已经脱离苦海了..
[@Asktime]
你调查结婚时间的请求已发出.请稍后
<确定/@Exit>