传奇sf添加魔法阵完整脚本

传奇服务端

[@main]

<听说玛法大陆散落着一些传奇一条龙制作的神奇石头，如果拥有这些石头将可以触发魔法神阵，随之携带巨大财富的激情之王将现身> 。注:魔法神石还有一项不为人知的功能,当全服的魔法神石投入量达到一定数量时,可以升级超级泡点间，具体请到超级泡点间查询！个人魔法积分： <$HUMAN(魔法积分)>分。全服魔法阵累计： <$STR(G26)>层。
[魔法阵已被触发至：<$STR(G25)> 层]\  
#IF
EQUAL G25 20
#SAY
　　魔法阵已被触发，正在召唤携带大量财宝的激情之王……             \   
　　　　<我现在就去寻找/@exit>
#ELSESAY
　　<投入魔法神石/@收取魔法石>  <用积分兑换装备/@兑换装备>  <我现在就去寻找/@exit>\

[@兑换装备]
#IF
#SAY
<$USERNAME>\
　\
你现在拥有魔法积分： <$HUMAN(魔法积分)>分，使用魔法积分可兑换：\
\
\
\
\
<5点积分兑换/@兑换1>  <20点积分兑换/@兑换2>  <50点积分兑换/@兑换3>  <100点积分兑换/@兑换4>

[@兑换1]
#IF
CHECKVAR HUMAN 魔法积分 > 4
#ACT
GOTO @随机给1
#ELSEACT
MESSAGEBOX 对不起，你没有足够的魔法积分。

[@兑换2]
#IF
CHECKVAR HUMAN 魔法积分 > 19
#ACT
GOTO @随机给2
#ELSEACT
MESSAGEBOX 对不起，你没有足够的魔法积分。

[@兑换3]
#IF
CHECKVAR HUMAN 魔法积分 > 49
#ACT
GOTO @随机给3
#ELSEACT
MESSAGEBOX 对不起，你没有足够的魔法积分。

[@兑换4]
#IF
CHECKVAR HUMAN 魔法积分 > 99
#ACT
GOTO @随机给4
#ELSEACT
MESSAGEBOX 对不起，你没有足够的魔法积分。

[@随机给1]
#IF
RANDOM 4
#ACT
CALCVAR HUMAN 魔法积分 - 5
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给狂雷1
BREAK
#ELSEACT
CALCVAR HUMAN 魔法积分 - 5
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GAMEGOLD + 200
MESSAGEBOX 恭喜你使用5点魔法积分，兑换获得了200元宝。
SENDMSG 0 恭喜<$USERNAME>使用5点魔法积分，兑换获得了200元宝。
SENDMSG 0 恭喜<$USERNAME>使用5点魔法积分，兑换获得了200元宝。 251 221 30
GOTO @兑换装备

[@随机给2]
#IF
RANDOM 10
#ACT
CALCVAR HUMAN 魔法积分 - 20
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给天龙
BREAK
#IF
RANDOM 4
#ACT
CALCVAR HUMAN 魔法积分 - 20
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给狂雷2
BREAK
#ELSEACT
CALCVAR HUMAN 魔法积分 - 20
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GAMEGOLD + 500
MESSAGEBOX 恭喜你使用20点魔法积分，兑换获得了500元宝。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了500元宝。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了500元宝。 251 221 30
GOTO @兑换装备

[@随机给3]
#IF
RANDOM 7
#ACT
CALCVAR HUMAN 魔法积分 - 50
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给天龙1
BREAK
#IF
RANDOM 3
#ACT
CALCVAR HUMAN 魔法积分 - 50
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给狂雷3
BREAK
#ELSEACT
CALCVAR HUMAN 魔法积分 - 50
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GAMEGOLD + 1000
MESSAGEBOX 恭喜你使用50点魔法积分，兑换获得了1000元宝。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了1000元宝。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了1000元宝。 251 221 30
GOTO @兑换装备

[@随机给4]
#IF
RANDOM 10
#ACT
CALCVAR HUMAN 魔法积分 - 100
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给王者
BREAK
#IF
RANDOM 4
#ACT
CALCVAR HUMAN 魔法积分 - 100
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @给天龙2
BREAK
#ELSEACT
CALCVAR HUMAN 魔法积分 - 100
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GAMEGOLD + 2000
MESSAGEBOX 恭喜你使用100点魔法积分，兑换获得了2000元宝。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了2000元宝。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了2000元宝。 251 221 30
GOTO @兑换装备


[@给狂雷1]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\狂雷级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用5点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用5点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用5点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给狂雷2]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\狂雷级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用20点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给狂雷3]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\狂雷级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用50点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给天龙]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\天龙级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用20点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用20点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给天龙1]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\天龙级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用50点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用50点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给天龙2]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\天龙级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用100点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备

[@给王者]
#IF
#ACT
ReadRandomStr ..\QuestDiary\资源\抽奖装备\王者级.txt S70
GIVE <$STR(S70)> 1
MESSAGEBOX 恭喜你使用100点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了<$STR(S70)>。
SENDMSG 0 恭喜<$USERNAME>使用100点魔法积分，兑换获得了<$STR(S70)>。 251 221 30
GOTO @兑换装备


[@收取魔法石]
#if
EQUAL G25 20
#act
MESSAGEBOX 魔法阵已经触发，一分钟后携带大量财宝的激情之王将出现!
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！ 245 0 30
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！ 245 0 30
sendmsg 0 神奇的魔法阵已被成功触发，一分钟后携带本服务器最终极装备的激情之王将出现在激情泡点！ 245 0 30
MOV G24 1
#if
EQUAL G26 261
#act
MESSAGEBOX 全服魔法阵触发累计已达<$STR(G26)>层，超级泡点间已经升级为2级!\泡点经验增加为20万，勇士们继续加油吧!  
#if
EQUAL G26 290
#act
MESSAGEBOX 全服魔法阵触发累计已达<$STR(G26)>层，超级泡点间已经升级为3级!\泡点经验增加为25万，勇士们继续加油吧!  
#if
EQUAL G26 310
#act
MESSAGEBOX 全服魔法阵触发累计已达<$STR(G26)>层，超级泡点间已经升级为4级!\泡点经验增加为30万，超级泡点间已经升级为终极状态!  
break

#IF
CheckItem 魔法神石 1
SMALL G25 20
#act
DELAYCALL 1 @随机奖励
close
#elseact
goto @全局
CLOSE


[@随机奖励]
#IF
SMALL G25 20
#act
take 魔法神石 1
INC G25 1
INC G26 1
GAMEGOLD + 100
CALCVAR HUMAN 魔法积分 + 1
SAVEVAR HUMAN 魔法积分 ..\QuestDiary\数据文件\个人变量\魔法积分.txt
GOTO @gjb

[@gjb]
#IF
CHECKLEVELEX < 120
#ACT
CHANGEEXP + 5000000
sendmsg 0 恭喜<$USERNAME>成功使用魔法神石将魔法阵提高到了<$STR(G25)>层，同时获得了100元宝、500W经验及1点魔法积分的奖励！ 245 0
goto @检查等级
BREAK
#ELSEACT
sendmsg 0 恭喜<$USERNAME>成功使用魔法神石将魔法阵提高到了<$STR(G25)>层，同时获得了100元宝及1点魔法积分的奖励！ 245 0
goto @检查等级
BREAK

[@检查等级]
#IF
SMALL G26 3000
#act
sendmsg 0 恭喜<$USERNAME>成功使用魔法神石将魔法阵全区累计数量提高到了<$STR(G26)>层，超级泡点间等级即将被提升，加油吧！ 255 253 30
goto @收取魔法石
BREAK
#ELSEACT
goto @收取魔法石
BREAK

[@全局]
#act
messagebox 请带更多的魔法神石过来，我会送你一份更大的惊喜！

一二一

呵呵。。。不错啊

舞男

呵呵。。。不错啊

成璎珞

帮帮顶顶！！

人帅刀快姑娘爱

我也是坐沙发的

小迪

垃圾内容，路过为证。

笑笑

顶顶更健康~~