64GM论坛 › 传奇技术脚本 › [传奇脚本功能]50%几率金刚石抽奖功能脚本(Gom引擎)

颀秀8235 发表于 2024-11-10 08:32:48

[传奇脚本功能]50%几率金刚石抽奖功能脚本(Gom引擎)

[传奇脚本功能]50%几率金刚石抽奖功能脚本(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

麒麟火龙 发表于 2024-11-10 08:42:48

谢谢.脚本收到.很好用

青妖专属 发表于 2024-11-10 13:53:35

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

红牛迷失 发表于 2024-11-10 17:41:54

下次在来看脚本

星王合击 发表于 2024-11-11 02:06:48

下次在来看脚本

金币传奇 发表于 2024-11-11 15:49:38

这个帖子不回对不起自己！

复古一万年 发表于 2024-11-11 22:30:16

这个帖子不回对不起自己！

须弥沉默 发表于 2024-11-12 08:40:43

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

幻想大陆 发表于 2024-11-12 11:35:47

这个帖子不回对不起自己！

勇敢牛牛 发表于 2024-11-13 09:14:47

很专业的很全面的gm论坛

查看完整版本: [传奇脚本功能]50%几率金刚石抽奖功能脚本(Gom引擎)