传奇开启超级宝箱脚本

[@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进入了终极修炼地图.