给大家分享个好玩的 传奇发红包脚本

畅游

[@规则]
#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

游客，如果您要查看本帖隐藏内容请回复

likai1999

谢谢分享……。

5253311

真是 收益 匪浅

freewill2001

写的真的很不错

taibai

有竞争才有进步嘛