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