传奇私服发红包脚本(可发口令红包）
2018-01-02 00:40:49作者：admin来源:新开传奇网站
[@规则]
#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