mbxciegcll 发表于 2023-10-7 21:09:08

传奇超级宝箱脚本

[@MAIN]
#ACT
CloseBigDialogBox
#SAY
幻想大陆休息地，等级只可以泡点到200级.\ \
后期升级需自己杀怪.\ \
<免费修炼/@xiul>: 每秒获得10000经验.\
\ \
<收费修炼/@shou>: 每秒消耗1元宝.获得100000经验.\
\ \
<终极修炼/@zhon>: 每秒消耗10元宝.获得1000000经验.\
\ \
[@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 0 %S进入了免费闭关地图.
[@shou]
#ACT
SetOnTimer 1 1
MAP GJ02
SENDMSG 0 %S进入了收费修炼地图.
[@zhon]
#ACT
SetOnTimer 2 1
MAP GJ03
SENDMSG 0 %S进入了终极修炼地图.

龙牌沉默 发表于 2023-11-20 18:29:07

楼主发贴辛苦了，谢谢楼主分享！

雄霸屠龙 发表于 2023-11-20 21:59:17

在这里可以学到很多传奇一条龙开区时遇到的问题。

多情公益 发表于 2023-11-21 02:45:12

感谢站长分享传奇教程，让我学习到很多知识。

专属沉默 发表于 2023-11-21 08:29:29

感谢站长分享传奇教程，让我学习到很多知识。

麒麟火龙 发表于 2023-11-21 10:24:07

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

进化录混沌 发表于 2023-11-21 14:07:35

感谢楼主提供这么好的论坛！

星王合击 发表于 2023-11-21 14:36:34

这东西我收了！

逍遥微变 发表于 2023-11-21 19:24:27

楼主发贴辛苦了，谢谢楼主分享！

勇敢牛牛 发表于 2023-11-21 19:24:27

谢谢楼主！喜欢这里的东西，方便又好用！
页: [1] 2 3 4
查看完整版本: 传奇超级宝箱脚本