传奇私服发红包脚本(可发口令红包）
2018-01-02 00:40 | 作者：admin| 来源：新开传奇网站 | 阅读：次 |
[@规则] #Say 口令红包/@Main 全服红包/@全服 行会红包/@行会 个人红包/@个人 红包规则\ 1.个人红包为固定金额，其他为拼手气红包，红包金额随机！\ 2.口令红包每次收取100元宝手续费，其
|
[@规则]
#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
|
找传奇游戏，就上17173sf！
推荐文章
GeeM2传奇引擎人
GeeM2击杀怪物触版权说明
1、《传奇私服发红包脚本(可发口令红包）》一文由本站网友提供，版权归原作者本人所有，转载请注明出处！
2、转载或引用本网内容必须是以新闻性或资料性公共免费信息为使用目的的合理、善意引用，不得对本网内容原意进行曲解、修改，同时必须保留本网注明的"稿件来源"，并自负版权等法律责任。
3、对于不当转载或引用本网内容而引起的民事纷争、行政处理或其他损失，本网不承担责任。
