传奇开启超级宝箱脚本

[@main]
#ACT
CloseBigDialogBox
#SAY
　\
<免费修炼[url=]/@xiul[/url]>: 每秒获得20000经验.\
\ \
<收费修炼[url=]/@shou[/url]>: 每秒消耗1元宝.获得35000经验.\
\ \
<终极修炼[url=]/@zhon[/url]>: 每秒消耗15元宝.获得2000000经验.\
\ \
[@open]
#IF
CHECKITEM 超级宝箱钥匙 1
#ELSEACT
close
#ACT
TAKE 超级宝箱钥匙 1
GOTO @open0
BREAK
#IF
CHECKGAMEGOLD > 99
#ELSEACT
MESSAGEBOX 提示:没有超级宝箱钥匙.或元宝无法开启超级宝箱.
close
#ACT
GAMEGOLD - 100
GOTO @open0
[@open0]
#IF
RANDOM 15
#ACT
CHANGEEXP + 100000
SendMsg 4 %S打开超级宝箱.获得100000经验.
SendMsg 5 打开超级宝箱.获得100000经验.
close
BREAK
#IF
RANDOM 14
#ACT
CHANGEEXP + 100000
SendMsg 4 %S打开超级宝箱.获得100000经验.
SendMsg 5 打开超级宝箱.获得100000经验.
close
BREAK
#IF
RANDOM 13
#ACT
CHANGEEXP + 100000
SendMsg 4 %S打开超级宝箱.获得100000经验.
SendMsg 5 打开超级宝箱.获得100000经验.
close
BREAK
#IF
RANDOM 12
#ACT
GIVE 金刚石块 1
SendMsg 5 打开超级宝箱.获得宝藏-金刚石块.
SendMsg 4 %S打开超级宝箱.获得宝藏-金刚石块.
close
BREAK
#IF
RANDOM 11
#ACT
GIVE 金刚石块 1
SendMsg 5 打开超级宝箱.获得宝藏-金刚石块.
SendMsg 4 %S打开超级宝箱.获得宝藏-金刚石块.
close
BREAK
#IF
RANDOM 10
#ACT
GIVE 金刚石块 1
SendMsg 5 打开超级宝箱.获得宝藏-金刚石块.
SendMsg 4 %S打开超级宝箱.获得宝藏-金刚石块.
close
BREAK
#IF
RANDOM 9
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\星王.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 8
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\星王.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 7
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\星王.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 6
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\狂雷.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 5
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\狂雷.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 4
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\狂雷.txt S1
GIVE <$STR(S1)> 1
SendMsg 5 打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 3
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\王者.txt S1
GIVE <$STR(S1)> 1
SendMsg 0 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 2
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\王者.txt S1
GIVE <$STR(S1)> 1
SendMsg 0 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
#IF
RANDOM 1
#ACT
GetRandomText .\QuestDiary\数据文件\超级宝箱\刑天.txt S1
GIVE <$STR(S1)> 1
SendMsg 0 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
SendMsg 4 %S打开超级宝箱.获得宝藏-<$STR(S1)>.
close
BREAK
[@xiul]
#ACT
SetOnTimer 0 1
MAP GJ01
SENDMSG 4 %S进入了免费闭关地图.
[@shou]
#ACT
SetOnTimer 1 1
MAP GJ02
SENDMSG 4 %S进入了收费修炼地图.
[@zhon]
#ACT
SetOnTimer 2 1
MAP GJ03
SENDMSG 4 %S进入了终极修炼地图.

版权声明

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

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

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