gm基地提供gom引擎抢红包脚本

(@@InPutString @@InPutInteger )

[@开始抢红包]
{
#IF
CheckLevelEx > 0
#SAY
\ \ \ \ \ \ \ \

　　　　　　　　　　　　　　　　　　<$STR(A19)>\ \ \ \ \ \
　　　　　　　　　　　　　　　　　　　　　 　　　 <$STR(G22)>\ \ \ \ \ \ \
　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {<$STR(A18)>　/FCOLOR=150}\
　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {<$STR(G23)>元宝/FCOLOR=150}\
　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {<$STR(G24)>人/FCOLOR=150}\
　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {<$STR(G25)>元宝/FCOLOR=150}\
<Img:10:1:0:0/@万人领包>\ \ \ \


　　　　　　　　　　【<我要发红包/@@InPutInteger22(请输入你要发放的红包数目：（一次性最少发放100元宝红包）)>】　　　　 　　　 　 　　　　　　　　　　　　<$STR(U13)>\
#ACT
OPENMERCHANTBIGDLG 1 1 1 4  0  0  1  385  6
BREAK



[@万人领包]
#IF
NOT Large G25 0
#ACT
MESSAGEBOX <$STR(A18)>发放的红包没有了，等待下一个发红包的人吧。
BREAK

#IF
CHECKNAMELIST ..\TxData\限制\已领红包.txt
#ACT
MESSAGEBOX 你刚刚领取过<$STR(A18)>发放的红包了。
BREAK

#IF
Random 30
Large G25 20
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
MOVR N$红包金额 1 <$STR(N$红包中转)>
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK

#IF
Random 20
Large G25 20
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
DIV N$红包中转 2
MOVR N$红包金额 1 <$STR(N$红包中转)>
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK

#IF
Random 10
Large G25 20
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
DIV N$红包中转 4
MOVR N$红包金额 1 <$STR(N$红包中转)>
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK

#IF
Random 5
Large G25 20
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
DIV N$红包中转 5
MOVR N$红包金额 1 <$STR(N$红包中转)>
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK

#IF
Large G25 20
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
MOVR N$红包金额 1 20
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK

#IF
Large G25 0
#ACT
INC G24 1
MOV N$红包中转 <$STR(G25)>
INC N$红包中转 1
Addnamelist ..\TxData\限制\已领红包.txt
MOVR N$红包金额 1 <$STR(N$红包中转)>
DEC G25 <$STR(N$红包金额)>
GAMEGOLD + <$STR(N$红包金额)>
MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包！
GOTO @开始抢红包
BREAK



[@InPutInteger22]
#IF
Large G25 0
#ACT
MESSAGEBOX <$STR(A18)>刚刚发放的红包还没被领完，领完你再发吧！\　\5分钟内没被领取完的红包将被系统领取哟^_^
MOV N22 0
GOTO @开始抢红包
BREAK

#IF
Small N22 100
#ACT
MESSAGEBOX 发放红包太少了，一次性最少发放100元宝的红包！
MOV N22 0
GOTO @开始抢红包
BREAK

#IF
CHECKGAMEGOLD < <$STR(N22)>
#ACT
MESSAGEBOX 发放红包太少了，一次性最少发放100以上的元宝红包！
MOV N22 0
GOTO @开始抢红包
BREAK

#IF
CHECKNAMELIST ..\TxData\限制\万人敬仰.txt
#ACT
GAMEGOLD - <$STR(N22)>
INC U13 <$STR(N22)>
#ELSEACT
Addnamelist ..\TxData\限制\万人敬仰.txt
GAMEGOLD - <$STR(N22)>
MOV U13 <$STR(N22)>

#IF
CheckLevelEx > 0
#ACT
MOV A18 <$USERNAME>
MOV G23 <$STR(N22)>
MOV G24 0
MOV G25 <$STR(N22)>

#IF
Large U13 <$STR(G22)>
#ACT
SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}造福大家，成为了万人敬仰！站在万人敬仰者的周围，每分钟可以获得经验值！
#ELSEACT
ClearNameList ..\TxData\限制\已领红包.txt
SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}发放了{<$STR(N22)>|249:0:1}个元宝，大家快去{万人敬仰NPC|249:0:1}处(盟重省:335:344)领取呀^_^
MESSAGEBOX 你发放了大量的红包，造福大家，努力成为万人敬仰者吧！
GOTO @开始抢红包
BREAK

#IF
CHECKONLINE <$STR(A19)>
#ACT
<$STR(A19)>.ChangeHumAbility 1 = 0
<$STR(A19)>.ChangeHumAbility 2 = 0
<$STR(A19)>.ChangeHumAbility 3 = 0
<$STR(A19)>.ChangeHumAbility 4 = 0
<$STR(A19)>.ChangeHumAbility 11 = 0
<$STR(A19)>.ChangeHumAbility 12 = 0
<$STR(A19)>.CloseClientBuff 20
<$STR(A19)>.SETICON 2 -1
<$STR(A19)>.SETICON 3 -1

#IF
NOT EQUAL A19 <$USERNAME>
CHECKONLINE <$STR(A19)>
#ACT
<$STR(A19)>.SENDMSG 5 你的万人敬仰者头衔被别人抢去了...

#IF
CheckLevelEx > 0
#ACT
ChangeHumAbility 1 = 10
ChangeHumAbility 2 = 30
ChangeHumAbility 3 = 10
ChangeHumAbility 4 = 30
ChangeHumAbility 11 = 1000
ChangeHumAbility 12 = 1000
SetClientBuff 12 20 157 -1 778 615
SetIcon 3 12 240 -5 -76 1 0 1 200
SetIcon 2 24 1 -5 -76 15 1 0 200
MOV A19 <$USERNAME>
MOV G22 <$STR(U13)>
SetNpcImage 99 0 0
ClearNameList ..\TxData\限制\已领红包.txt
MESSAGEBOX 你成为【万人敬仰】，世界因你而精彩！
GOTO @开始抢红包
BREAK
}

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

传奇论坛里面相对来说比较好的一个！

谢谢楼主！

感谢站长分享传奇脚本，让我学习到很多知识。

谢谢.脚本收到.很好用

喜欢这里的东西，方便又好用！

感谢站长分享传奇脚本，让我学习到很多知识。

喜欢这里的东西，方便又好用！

谢谢.脚本收到.很好用