GOM引擎传奇服务端随机抽奖脚本的制作教程-64GM论坛

仪芳1523 发表于 2023-12-17 16:03:05

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>　<各种经验！/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

风云合击 发表于 2023-12-17 16:20:16

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

玩命道盾英雄 发表于 2023-12-17 19:21:43

谢谢楼主！

帝尊大陆 发表于 2023-12-18 06:36:22

这东西我收了！

硬汉归来 发表于 2023-12-18 15:02:14

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

专属合击 发表于 2023-12-18 16:17:54

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

帝王火龙 发表于 2023-12-18 23:22:18

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

天猫迷失单职业 发表于 2023-12-19 02:09:35

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

古惑仔之汉龙 发表于 2023-12-19 05:50:13

下次在来看脚本

专属单职业 发表于 2023-12-19 19:34:39

很专业的很全面的gm论坛

页: [1] 2 3 4

传奇版本_GM基地_传奇一条龙_单机服务端下载-64GM论坛's Archiver

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