传奇私服开启夫妻光影特效脚本并增加20-20的属性

[@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