GOM引擎传奇服务端随机抽奖脚本的制作教程

[@main]
#IF
#Act
#say
<><Img:174:13:0:0>[<金刚石抽奖/SCOLOR=254>]<人命天定,点高点背,全靠上天注定,真的是很看脸啊~/SCOLOR=250><Img:174:13:0:0>\
<>-------------------------------------------------------------\


<>　 <抽奖物品说明：/SCOLOR=87>　　 本游戏抽奖几率较低,请玩家认真对待！\
<><PlayImg:13:170:2:200:0:0:0> <抽中经验几率80%：/SCOLOR=150>　<各种经验[100000经验-30000000经验]！/SCOLOR=251>\
<><PlayImg:13:170:2:200:0:0:0> <抽中装备几率50%：/SCOLOR=150>　<所有装备，包括上古装备,钻石会员在内！/SCOLOR=250>\
<><PlayImg:13:170:2:200:0:0:0> <抽中特殊几率30%：/SCOLOR=150>　<稀有宝贝/SCOLOR=253>[<夺命§兽魂/SCOLOR=253>]<超强属性等你来拿！/SCOLOR=253>\
<>-------------------------------------------------------------\
<><PlayImg:13:170:2:200:0:0:0> [<使用金刚石抽奖/@使用金刚石抽奖>] <PlayImg:13:170:2:200:0:0:0>　<250元宝抽取一次/SCOLOR=251>  →  <[每日不限制次数]/SCOLOR=249>\
<><PlayImg:13:170:2:200:0:0:0> [< 魔力§玫瑰 /@金刚石兑换元宝>] <PlayImg:13:170:2:200:0:0:0>　需要<夺命§兽魂/SCOLOR=253>1个+<神界水晶/SCOLOR=254>10块即可合成！\


[@金刚石兑换元宝]
#IF
checkitem 夺命§兽魂 1
CHECKITEM 神界水晶 10
#ACT
take 夺命§兽魂 1
TAKE 神界水晶 10
give 魔力§玫瑰 1
GuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
GuildNoticeMsg 244 151 玩家{[%s]|250:0:1}成功合成了{[魔力§玫瑰]|254:0:1}...
#elseact
MESSAGEBOX 合成失败：\\缺少必须材料,请确认你的材料...
break


[@使用金刚石抽奖]
#IF
CHECKGAMEGOLD < 250
#ACT
MESSAGEBOX \\抽奖失败！您的元宝不足250颗，
break


#IF
CHECKLEVELEX < 80
#ACT
GOTO @79抽奖
break


#IF
CHECKLEVELEX > 79
#ACT
GOTO @80抽奖
break


[@80抽奖]
#IF
random 20
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖材料
break


#IF
random 5
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖中级装备
break


#IF
random 1
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖随机奖励A
break


[@79抽奖]
#IF
random 40
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖高级经验
break


#IF
random 20
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖材料
break


#IF
random 5
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖中级装备
break


#IF
random 3
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖中级经验
break


#IF
random 1
CHECKGAMEGOLD > 249
#ACT
GOTO @抽奖随机奖励
break


[@抽奖随机奖励A]
#IF
random 2
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
break


#IF
random 1
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
break


[@抽奖随机奖励]
#IF
random 3
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级材料.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
break


#IF
random 2
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 7 系统：恭喜玩家[{%s|250:0:1}]抽奖获得了物品[{<$STR(S10)>|251:0:1}]...
break


#IF
random 1
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖低级经验.txt S10
CHANGEEXP + <$STR(S10)>
SendMsg 7 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break


[@抽奖中级经验]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级经验.txt S10
CHANGEEXP + <$STR(S10)>
SendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break


[@抽奖高级经验]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级经验.txt S10
CHANGEEXP + <$STR(S10)>
SendMsg 0 151 249 系统：恭喜玩家[%s]使用金刚石抽奖获得了经验[<$STR(S10)>]
break


[@抽奖中级装备]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\中级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|251:0:1}...
break


[@抽奖高级装备]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\高级装备.txt S10
GIVE <$STR(S10)> 1
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|254:0:1}...
break


[@抽奖材料]
#IF
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MOV S10 0
GetRandomText ..\QuestDiary\数据文件\金刚石抽奖\抽奖材料.txt S10
GIVE <$STR(S10)> 1
SendMsg 0 玩家[{%s|250:0:1}]抽中了物品{[<$STR(S10)>]|154:0:1}...
break

版权声明

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

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

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

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

谢谢楼主！

这东西我收了！

比较全的传奇脚本分享网站，站长辛苦了。

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

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

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

下次在来看脚本

很专业的很全面的gm论坛