【芝麻GM论坛】传奇私服脚本系列-超级宝箱脚本

GM1991

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

47938

	支持......................................