[@规则]
#Say
<口令红包/@Main> <全服红包/@全服> <行会红包/@行会> <个人红包/@个人> <红包规则>\
1.个人红包为固定金额
，
其他为拼手气红包
，
红包金额随机！\
2.口令红包每次收取100元宝手续费
，
其他类型红包免费！\
3.每种类型的红包全服只允许同时发送1个！\
4.红包发送后
，
玩家头顶出现红包图片
，
点击图片可抢红包！\
5.除个人红包之外
，
发其他红包
，
发送者自己可以抢！\
6.抢红包时间为10秒
，
10秒后未抢完的红包自动返还到账！\
7.发红包后不要下线
，
否则未抢完的红包不能返还！\
8.发红包的玩家下线后
，
所有未领取的红包将无法领取！\
[@InPutInteger10]
#IF
Large N10 1000
#ACT
MessageBox [提示]：红包最大个数为1000个
，
请重新输入。
Break
#IF
Equal N10 0
#ACT
Break
#IF
Large N11 0
Large N10 <$STR(N11)>
#ACT
MessageBox [提示]：红包个数大于红包金额
，
请重新输入。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令红包界面10
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服红包界面10
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会红包界面10
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人红包界面10
Break
[@口令红包界面10]
#IF
Large N11 0
#ACT
Goto @口令红包3
Break
#ELSEACT
Goto @口令红包1
Break
[@全服红包界面10]
#IF
Large N11 0
#ACT
Goto @全服红包3
Break
#ELSEACT
Goto @全服红包1
Break
[@行会红包界面10]
#IF
Large N11 0
#ACT
Goto @行会红包3
Break
#ELSEACT
Goto @行会红包1
Break
[@个人红包界面10]
#IF
Large N11 0
#ACT
Goto @个人红包3
Break
#ELSEACT
Goto @个人红包1
Break
[@InPutInteger11]
#IF
Small N11 1000000000
#ELSEACT
MessageBox [提示]：红包最大数额为10亿
，
请重新输入。
Break
#IF
Equal N11 0
#ACT
Break
#IF
Large N10 0
Small N11 <$STR(N10)>
#ACT
MessageBox [提示]：红包金额少于红包个数
，
请重新输入。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令红包界面11
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服红包界面11
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会红包界面11
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人红包界面11
Break
[@口令红包界面11]
#IF
Large N10 0
#ACT
Goto @口令红包3
Break
#ELSEACT
Goto @口令红包2
Break
[@全服红包界面11]
#IF
Large N10 0
#ACT
Goto @全服红包3
Break
#ELSEACT
Goto @全服红包2
Break
[@行会红包界面11]
#IF
Large N10 0
#ACT
Goto @行会红包3
Break
#ELSEACT
Goto @行会红包2
Break
[@个人红包界面11]
#IF
CheckStringlength <$STR(S11)> < 1
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人红包3
Break
[@清除个数]
#ACT
Mov N10 0
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令个数清除
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服个数清除
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会个数清除
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人个数清除
Break
[@口令个数清除]
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
Equal NS10
#ELSEACT
Goto @口令红包4
Break
#IF
#ACT
Goto @Main
Break
[@全服个数清除]
#IF
Large N11 0
#ACT
Goto @全服红包2
Break
#ELSEACT
Goto @全服
Break
[@行会个数清除]
#IF
Large N11 0
#ACT
Goto @行会红包2
Break
#ELSEACT
Goto @行会
Break
[@个人个数清除]
#IF
Large N11 0
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人
Break
[@清除金额]
#ACT
Mov N11 0
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令金额清除
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服金额清除
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会金额清除
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人金额清除
Break
[@口令金额清除]
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Equal S10
#ELSEACT
Goto @口令红包4
Break
#IF
#ACT
Goto @Main
Break
[@全服金额清除]
#IF
Large N10 0
#ACT
Goto @全服红包1
Break
#ELSEACT
Goto @全服
Break
[@行会金额清除]
#IF
Large N10 0
#ACT
Goto @行会红包1
Break
#ELSEACT
Goto @行会
Break
[@个人金额清除]
#IF
CheckStringlength <$STR(S11)> < 1
#ACT
Goto @个人
Break
#ELSEACT
Goto @个人红包1
Break
[@InPutString10]
#IF
CheckStringlength <$STR(S10)> > 32
#ACT
MessageBox [提示]：口令最多包含32个字符或者16个汉字。
Break
#IF
Equal S10
#ELSEACT
Mov S$当前口令 {<$STR(S10)>/SCOLOR=31}
#IF
Large N10 0
Large N11 0
#ACT
Goto @口令红包3
Break
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
#ACT
Goto @口令红包4
Break
[@InPutString11]
#IF
Equal S11
#ACT
Break
#IF
Large N11 0
#ACT
Goto @个人红包3
Break
#ELSEACT
Goto @个人红包1
Break
[@清除口令]
#IF
#ACT
Mov S10
Mov S$当前口令
#IF
Large N10 0
Large N11 0
#ACT
Goto @口令红包3
Break
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
#ACT
Goto @Main
Break
[@清除名字]
#IF
#ACT
Mov S11
#IF
Large N11 0
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人
Break
[@发送红包]
#IF
Not Equal S$红包类型 个人红包
Equal N10 0
#ACT
MessageBox [提示]：请输入红包个数。
Break
#IF
Equal N11 0
#ACT
MessageBox [提示]：请输入红包金额。
Break
#IF
CHECKGAMEGOLD < <$STR(N10)>
#ACT
MessageBox [提示]：您的元宝数量不足
，
请重新输入。
Break
#IF
Equal S$红包类型 口令红包
Large G100 0
#ACT
MessageBox [提示]：有人正在发口令红包
，
每次只能由一位玩家发口令红包
，
\ \ 请等待当前口令红包结束。
Break
#IF
Equal S$红包类型 全服红包
Large G102 0
#ACT
MessageBox [提示]：有人正在发全服红包
，
每次只能由一位玩家发全服红包
，
\ \ 请等待当前全服红包结束。
Break
#IF
Equal S$红包类型 行会红包
Large G104 0
#ACT
MessageBox [提示]：有人正在发行会红包
，
每次只能由一位玩家发行会红包
，
\ \ 请等待当前行会红包结束。
Break
#IF
Equal S$红包类型 个人红包
CheckStringlength A105 > 1
#ACT
MessageBox [提示]：有人正在发个人红包
，
每次只能由一位玩家发个人红包
，
\ \ 请等待当前个人红包结束。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Mov G100 <$STR(N10)>
Mov G101 <$STR(N11)>
Mov G108 0
Goto @发送口令红包
Break
#IF
Equal S$红包类型 全服红包
#ACT
Mov G102 <$STR(N10)>
Mov G103 <$STR(N11)>
Mov G109 0
Goto @发送全服红包
Break
#IF
Equal S$红包类型 行会红包
HAVEGUILD
#ACT
Mov G104 <$STR(N10)>
Mov G105 <$STR(N11)>
Mov G110 0
Goto @发送行会红包
Break
#IF
Equal S$红包类型 个人红包
#ACT
Mov G106 <$STR(N10)>
Mov G107 <$STR(N11)>
Goto @发送个人红包
Break
#IF
HAVEGUILD
#ELSEACT
MessageBox [提示]：你没有加入行会。
Break
[@发送口令红包]
#IF
#ACT
Mov P10 <$STR(N11)>
Inc P10 100
#IF
CHECKGAMEGOLD < <$STR(P10)>
#ACT
Mov G100 0
Mov G101 0
MessageBox [提示]：发口令红包需要100元宝的额外费用
，
\ \ 您的元宝数量不足
，
请重新输入。
Break
#IF
Large G101 9999
#ACT
Sendmsg 5 {[%s]|232:0:1}给全服玩家发放了一个大口令红包
，
红包金额：{<$STR(G101)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(P10)>
Mov A100 <$STR(S10)>
Mov A101 <$USERNAME>
Gmexecute 开始提问 @口令红包发送
DelayCall 12000 @关闭口令红包
Break
[@发送全服红包]
#IF
Large G103 9999
#ACT
Sendmsg 5 {[%s]|232:0:1}给全服玩家发放了一个大红包！红包金额：{<$STR(G103)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(N11)>
Mov A102 <$USERNAME>
Gmexecute 开始提问 @全服红包发送
DelayCall 12000 @关闭全服红包
Break
[@发送行会红包]
#IF
Large G105 9999
#ACT
Sendmsg 5 {[<$GUILDNAME>]|245:0:1}帮会的{[%s]|232:0:1}发放了一个行会大红包！红包金额：{<$STR(G105)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(N11)>
Mov A103 <$USERNAME>
Mov A104 <$GUILDNAME>
Gmexecute 开始提问 @行会红包发送
DelayCall 12000 @关闭行会红包
Break
[@发送个人红包]
#IF
<$STR(S11)>.checkonline
#ELSEACT
MessageBox [提示]：<$STR(S11)>没有在线。
Break
#IF
#ACT
GameGold - <$STR(N11)>
Mov A105 <$USERNAME>
Mov G111 <$STR(N11)>
DelayCall 12000 @关闭个人红包
HCALL <$STR(S11)> @个人红包发送
Break
[@关闭口令红包]
#IF
Large G101 0
#ACT
<$STR(A101)>.GameGold + <$STR(G101)>
#IF
#ACT
Mov G100 0
Mov G101 0
Mov G108 0
Mov A100
Mov A101
Break
[@关闭全服红包]
#IF
Large G103 0
#ACT
<$STR(A102)>.GameGold + <$STR(G103)>
#IF
#ACT
Mov G102 0
Mov G103 0
Mov G109 0
Mov A102
Break
[@关闭行会红包]
#IF
Large G105 0
#ACT
<$STR(A103)>.GameGold + <$STR(G105)>
#IF
#ACT
Mov G104 0
Mov G105 0
Mov G110
Mov A103
Mov A104
Break
[@关闭个人红包]
#IF
Large G111 0
#ACT
<$STR(A105)>.GameGold + <$STR(N11)>
#IF
#ACT
Mov G111 0
Mov A105
Break