[Gm版本库]传奇脚本系列-阳阳宝箱

()
%100
[@main]
　　　　 <☆☆☆欢迎光临☆高几率☆宝箱中心☆☆☆/SCOLOR=242>\ \
　　　　每开启一次宝箱都将获得<随机百万以上经验/SCOLOR=253>\
　 　 <【本站承诺终极套装可以抽奖获得，几率适中】/SCOLOR=250>\ \
　   ☆☆☆玩家注意:<游戏只是娱乐，请勿沉迷！/SCOLOR=249>☆☆☆\
有别于所有其他的宝箱的功能，可以<随意调换即将抽取的所有物品/SCOLOR=250>\ \
　　　　 　　　【<打开宝箱/@打开宝箱>】<需要元宝5000/SCOLOR=249>\
\ \ \ \ \ \ \ \ \ \ \ \ \ \  \
　　　　　　　　　　　　　　  
[@打开宝箱]
#IF
CHECKGAMEGOLD > 4999
#ACT
GAMEGOLD - 5000
GetRandomText .\QuestDiary\数据文件\物品列表.txt S1
GetRandomText .\QuestDiary\数据文件\物品列表.txt S2
GetRandomText .\QuestDiary\数据文件\物品列表.txt S3
GetRandomText .\QuestDiary\数据文件\物品列表.txt S4
GetRandomText .\QuestDiary\数据文件\物品列表.txt S5
GetRandomText .\QuestDiary\数据文件\物品列表.txt S6
GOTO @开始高级宝箱
#ELSEACT
MESSAGEBOX 打开普通宝箱需要5000元宝,你的元宝数量不足..
[@开始高级宝箱]
您的宝箱可获得物品的列表如下： <免费/SCOLOR=253>『<更新物品列表/@更新物品列表>』一次机会\
①：(<$STR(S1)>)\
②：(<$STR(S2)>)\
③：(<$STR(S3)>)\
④：(<$STR(S4)>)\
⑤：(<$STR(S5)>)\
⑥：(<$STR(S6)>)\
<摇到几点就可以获得几号装备。/SCOLOR=250> 【<开始摇骰子/@开始摇骰子高级>】
[@更新物品列表]
#IF
#ACT
GetRandomText .\QuestDiary\数据文件\物品列表.txt S1
GetRandomText .\QuestDiary\数据文件\物品列表.txt S2
GetRandomText .\QuestDiary\数据文件\物品列表.txt S3
GetRandomText .\QuestDiary\数据文件\物品列表.txt S4
GetRandomText .\QuestDiary\数据文件\物品列表.txt S5
GetRandomText .\QuestDiary\数据文件\物品列表.txt S6
GOTO @开始高级宝箱A
#ELSEACT
MESSAGEBOX 更换宝箱物品需要5000元宝,你的元宝数量不足..
[@开始高级宝箱A]
您<更换过后/SCOLOR=253>的宝箱可获得物品的列表如下：\
①：(<$STR(S1)>)\
②：(<$STR(S2)>)\
③：(<$STR(S3)>)\
④：(<$STR(S4)>)\
⑤：(<$STR(S5)>)\
⑥：(<$STR(S6)>)\
<摇到几点就可以获得几号装备。/SCOLOR=250> 【<开始摇骰子/@开始摇骰子高级>】
[@开始摇骰子高级]
#ACT
movr N58 1 7
MOV d0 <$STR(N58)>
playdice 1 @高级运气
#say
　\
【<正在考验您的运气.../SCOLOR=254>】
[@高级运气]
#IF
CHECKGAMEGOLD > 4999
equal d0 1
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S1)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S1)>)以及(<$STR(N48)>)点经验
goto @main
BREAK
#IF
CHECKGAMEGOLD > 4999
equal d0 2
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S2)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S2)>)以及(<$STR(N48)>)点经验
goto @main
BREAK
#IF
CHECKGAMEGOLD > 4999
equal d0 3
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S3)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S3)>)以及(<$STR(N48)>)点经验
goto @main
BREAK
#IF
CHECKGAMEGOLD > 4999
equal d0 4
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S4)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S4)>)以及(<$STR(N48)>)点经验
goto @main
BREAK
#IF
CHECKGAMEGOLD > 4999
equal d0 5
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S5)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S5)>)以及（<$STR(N48)>）点经验
goto @main
BREAK
#IF
CHECKGAMEGOLD > 4999
equal d0 6
#ACT
GAMEGOLD - 5000
movr N48 10000 5000000
CHANGEEXP + <$STR(N48)>
give <$STR(S6)> 1
GuildNoticeMsg 251 241 宝箱：(%s)开启富贵宝箱-获得了：(<$STR(S6)>)以及(<$STR(N48)>)点经验
goto @main
BREAK
#ELSEACT
MESSAGEBOX 摇动宝箱需要收取5000元宝，打开宝箱只需要5000元宝，价格很合理！