蒲公英 飓风 一条龙 版本库 好私服
查看: 438|回复: 50

[综合游戏代码] gm基地提供gom引擎抢红包脚本

[复制链接]

1025

主题

1073

帖子

748

积分

管理员

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

声望
746
金币
8
元宝
0
在线时间
64 小时
最后登录
2019-4-16
发表于 2019-4-10 20:18:52 | 显示全部楼层 |阅读模式
(@@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
}






上一篇:gom传奇版本种常见的法宝锻造脚本
下一篇:hge引擎药王神医脚本以及解毒主号英雄脚本

相关帖子

爱上论坛,GM基地,传奇基地,传奇SF,传奇素材网,传奇脚本网,传奇一条龙,服务器租用,版本定制!

0

主题

0

帖子

20

积分

等待验证会员

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2017-5-26
发表于 2019-4-10 21:13:45 | 显示全部楼层
爱尚论坛,GM基地,传奇基地,传奇SF,传奇素材网,传奇脚本网,传奇一条龙,服务器租用,版本定制!
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-7
发表于 2019-4-10 21:39:48 | 显示全部楼层
我想要一个复古传奇版本呢
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

1

帖子

80

积分

等待验证会员

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2017-5-12
发表于 2019-4-10 23:16:17 | 显示全部楼层
有中变传奇版本下载吗?
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-7
发表于 2019-4-11 00:19:54 | 显示全部楼层
有微变传奇版本下载吗?
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

20

积分

等待验证会员

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2017-6-8
发表于 2019-4-11 01:11:12 | 显示全部楼层
虽然这个版本很不错,但我还是想要个1.76金币传奇。回复也只是为了拿点积分。
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-13
发表于 2019-4-11 01:53:20 | 显示全部楼层
有复古传奇版本下载吗?
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-21
发表于 2019-4-11 01:57:33 | 显示全部楼层
爱上GM论坛致力于传奇游戏界数十载,资源包含广泛,例如传奇版本,传奇素材,传奇脚本,等等之类!
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

0

帖子

1000

积分

金牌会员

Rank: 5Rank: 5

声望
0
金币
0
元宝
0
在线时间
0 小时
最后登录
2016-11-7
发表于 2019-4-11 02:22:50 | 显示全部楼层
爱上论坛-速记=爱上你GM,版本下载,素材下载,脚本下载,服务器租用,传奇一条龙,等各种业务都有!
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;

0

主题

3

帖子

8

积分

等待验证会员

声望
70
金币
0
元宝
0
在线时间
4 小时
最后登录
2019-4-11
发表于 2019-4-11 02:43:28 | 显示全部楼层
gom引擎的版本多更新点吧,很喜欢这种炫酷的版本!
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标记上【已解决】;
如果你想回报坛友,最好的方法是为其加【人气】积分,为他人加人气积分不会扣除自己的积分,去做一个懂得回报的人吧;
如果你觉得对方帖子非常优秀,还可以给作者打赏【金币】,打赏会扣除自己等量【金币】;
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|网站地图|Archiver|手机版|小黑屋|传奇GM论坛 ( 湘ICP备16009886号-2 )

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时联系站长(QQ:630910131)

今天是: | 本站已经安全运行: //这个地方可以改颜色