[@main]
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=160>
<Hot~/SCOLOR=58><夫妻光影/SCOLOR=254><Hot~/SCOLOR=58> <在天愿作比翼鸟，在地愿为连理枝！/SCOLOR=31>
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=160>
<1./SCOLOR=242><开启夫妻光影有效，夫妻双方须面对面./SCOLOR=242>
<2./SCOLOR=242><双方距离在5*5步内自动启动光影有效并增加20-20的属性./SCOLOR=253>
<3./SCOLOR=242><启动夫妻光影需要200W元宝+200W积分/SCOLOR=251> <当前离婚率高，请慎重选择对象./SCOLOR=250>
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=160>
<开启光影/@开启光影> <解除光影/@解除光影ggg>
#ACT
CLEARDELAYGOTO
[@解除光影ggg]
#ACT
MESSAGEBOX 为防止不小心点到，解除光影请到月老处离婚即可。
[@解除光影]
#IF
CHECK [77] 0
#ACT
messagebox [错误]：你没有开启夫妻光影.
#ELSESAY
你确定你要与你的对象【<$STR(T0)>】解除光影吗？？
<确定/@解除光影1> <取消/@main>
[@解除光影1]
#IF
CHECK [77] 0
#ACT
messagebox [错误]：你没有开启夫妻光影.
CLOSE
BREAK
#ELSEACT
GOTO @解除面板
T0.GOTO @解除面板
[@解除面板]
#ACT
SET [77] 0
#SAY
你与{[<$STR(T0)>]/SCOLOR=254}已经成功解除光影有效！
[@开启光影]
#IF
#ACT
GetOppositeHumName S0
#IF
CHECK [77] 1
#ACT
messagebox [错误]：你已经开启光影有效.
BREAK
#IF
CheckMarry
#ELSEACT
messagebox [错误]：你都还没结过婚，无法开启光影有效.
BREAK
#IF
EQUAL T0 <$STR(S0)>
#ELSEACT
MESSAGEBOX [错误]：你对面没有人或对面站的人不是你对象！
BREAK
#IF
CHECKGAMEGOLD > 1999999
LARGE U11 1999999
#ELSEACT
MESSAGEBOX [错误]：对不起，开启夫妻光影有效需要200W元宝+200W积分！
break
#IF
CHECKPOSEDIR
#ACT
S0.GOTO @光影咨询
#SAY
已经提交给{[<$STR(S0)>]/SCOLOR=254}请耐心等待答复...
如果对方收不到您的请求,说明对方已经开启过光影有效,不能重复开启.
<[请勿关闭窗口]/SCOLOR=250>
#ELSEACT
messagebox [错误]：未知错误！
GOTO @MAIN
BREAK
[@光影咨询]
#IF
CHECKPOSEDIR
CHECK [77] 0
#ACT
GetOppositeHumName S0
#SAY
玩家{[<$STR(S0)>]/SCOLOR=254}请求和你开启光影有效！
<同意开启光影有效/@同意开启光影有效> <拒绝开启光影有效/@拒绝开启光影有效>
[@同意开启光影有效]
#IF
CHECK [77] 1
#ACT
MESSAGEBOX [错误]：你已经开启过夫妻光影！
BREAK
#IF
S0.CHECK [77] 1
#ACT
MESSAGEBOX [错误]：<$STR(S0)>已经开启过夫妻光影！
BREAK
#IF
CHECKONLINE <$STR(S0)>
#ELSEACT
MESSAGEBOX [错误]：<$STR(S0)>不在线！
break
#IF
S0.CHECKGAMEGOLD > 1999999
S0.large u11 1999999
#ACT
S0.GAMEGOLD - 2000000
S0.DEC U11 1999999
GOTO @同意面板
S0.GOTO @同意面板
#ELSEACT
messagebox [错误]：请检查你对象是否有200万米宝+200万积分！
[@同意面板]
#ACT
SET [77] 1
SendCenterMsg 0 253 恭喜玩家[<$USERNAME>]与[<$STR(T0)>]夫妻情深,并成功开启光影有效，大家祝福他们吧！ 1 10
#SAY
恭喜你与{[<$STR(S0)>]/SCOLOR=254}夫妻情深
并成功开启光影有效，夫妻双方距离5步只内将提升大幅属性
[@拒绝开启光影有效]
#IF
CHECKPOSEDIR
#ACT
S0.GOTO @拒绝面板
CLOSE
[@拒绝面板]
#IF
#ACT
messagebox [<$STR(S0)>]拒绝与你开启光影有效！
CLOSE
BREAK
