神奇魔石传世私服脚本

神奇魔石传世私服脚本

出处：本站整理作者：佚名发布时间：2012-06-01阅读次数：

[@main]
#IF
SMALL G50 1
#SAY
当前该功能没有开放，敬请关注！\\
<关闭/@exit>
#ACT
break
#ELSESAY
　　<color=orange 这是一块承载无穷宝藏的神奇魔石！每注入一颗><color=green 灵皓石>\
<color=orange 的灵力，则可启动神奇魔石，>获得<海量经验、奇珍异宝/@prizejieshao>！\
　　活动限时开放期间，单服每天开启神奇魔石达到指定次数者\
还可获得<color=green 数十亿经验、灵力印记、王者首饰等><额外好礼/@ewprize>！\
<color=orange 每天冠军更可获得><color=green 高达30亿巨额经验>和<1个勋章灵佩凭证/@jrsm>兑换全\
新<Color=red 蟠龙勋章等大奖！>\
<为魔石注入灵力/@duihuan>　　<查看今日开启次数/@dailyret>　　<查看昨日开启次数/@dailyretyes>\
<领取昨日奖励/@getyesprize>　　  <领取25次额外好礼/@getprizefive>　　<领取60次额外好礼/@getprize60n>\
<领取300次1000元宝/@getprize300n> <勋章灵佩凭证兑换奖励/@duihuanbs> <200元宝购买10个灵皓石/@购买10个灵皓石>\

[@购买10个灵皓石]
#IF
!CHECKBAGSIZE 11
#SAY
　　请将包裹保留11个空位\
\
　　<离开/@exit>
#ACT
break

#IF
CHECKGAMEGOLD > 200
#ACT
GAMEGOLD - 200
GIVE 灵皓石 10
CollectPoint + 200
CALCVAR HUMAN 消费 + 200
SAVEVAR HUMAN 消费 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
CALCVAR HUMAN 祝福 + 200
SAVEVAR HUMAN 祝福 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
SENDMSG 0 恭喜玩家{<$USERNAME>}在神奇魔石处成功购买了10个<灵皓石>
SENDMSG 15 恭喜玩家{<$USERNAME>}在神奇魔石处成功购买了10个<灵皓石>
break
#ELSEACT
MessageBox 对不起，您老人家元宝不够！！
close

[@duihuan]
　　你今天已为魔石注入灵力：{Color=green <$HUMAN(魔石)>}次！\
　　如果你有<color=green 灵皓石>的话，就可以为神奇魔石注入灵力，即\
可获得海量经验，战歌网，还有机会获得顶级装备等各种宝物。\
　　<color=green 当你第10次为魔石注入灵力时，将必能获得一件顶级装>\
<color=green 备，奇妙的事情将开始在你周围发生。>\
　　<开始注入灵力/@开始注入灵力>\
    <一次投10个灵皓石/@一次投10个灵皓石>\

[@一次投10个灵皓石]
#IF
!CHECKBAGSIZE 2
#ACT
break
#SAY
　　请将包裹保留2个空位\
\
　　<离开/@exit>

#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品！
break
#IF
POS $CHECKBOXITEM.NAME 灵皓石
#ACT
TAKEID $CHECKBOXITEM.ItemExD
#IF
checkitem 灵皓石 10
#ACT
take 灵皓石 10
Calcvar HUMAN 魔石 + 10
SAVEVAR HUMAN 魔石 ..\QUESTDIARY\数据文件\个人变量\灵力次数.txt
MOV P0 0
GOTO @神奇魔石排行
MOVR P1 2
INC P1 3
MUL P1 68888888
CHANGEEXP + $STR(P1)
SENDMSG 8 恭喜{$USERNAME}为神奇魔石注入灵力时,获得<$STR(P1)>经验奖励
SENDMSG 15 恭喜{$USERNAME}为神奇魔石注入灵力时,获得<$STR(P1)>经验奖励
GOTO @提交次数
GOTO @奖励东西
break
#ELSESAY
　　包中没有灵皓石，无法为魔石注入灵力！\\
　　<啊，给错了？我再找找/@exit>

[@开始注入灵力]
#IF
!CHECKBAGSIZE 2
#ACT
break
#SAY
　　请将包裹保留2个空位\
\
　　<离开/@exit>

#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品！
break
#IF
POS $CHECKBOXITEM.NAME 灵皓石
#ACT
TAKEID $CHECKBOXITEM.ItemExD
#IF
checkitem 灵皓石 1
#ACT
take 灵皓石 1
Calcvar HUMAN 魔石 + 1
SAVEVAR HUMAN 魔石 ..\QUESTDIARY\数据文件\个人变量\灵力次数.txt
MOV P0 0
GOTO @神奇魔石排行
MOVR P1 2
INC P1 3
MUL P1 6888888
CHANGEEXP + $STR(P1)
SENDMSG 8 恭喜{$USERNAME}为神奇魔石注入灵力时,获得<$STR(P1)>经验奖励
SENDMSG 15 恭喜{$USERNAME}为神奇魔石注入灵力时,获得<$STR(P1)>经验奖励
GOTO @提交次数
GOTO @奖励东西
break
#ELSESAY
　　包中没有灵皓石，无法为魔石注入灵力！\\
　　<啊，给错了？我再找找/@exit>

[@奖励东西]
#IF
CHECKVAR HUMAN 魔石 = 10
#ACT
goto @结点奖励魔石10
break
#IF
CHECKVAR HUMAN 魔石 = 30
#ACT
goto @结点奖励魔石30
break
#IF
CHECKVAR HUMAN 魔石 = 50
#ACT
goto @结点奖励魔石50
break

[@结点奖励魔石10]
#ACT
ReadRandomStr ..\QuestDiary\数据文件\打工奖励\随便奖励.txt S1
give $STR(S1) 1
SENDMSG 8 恭喜{<$USERNAME>}为神奇魔石注入灵力第10次时,引发天地异变,神气宝物尽归囊中,获得了:{<$STR(S1)>}。
break

[@结点奖励魔石30]
#ACT
ReadRandomStr ..\QuestDiary\数据文件\打工奖励\随便奖励.txt S1
give $STR(S1) 1
SENDMSG 8 恭喜{<$USERNAME>}为神奇魔石注入灵力第30次时,引发天地异变,神气宝物尽归囊中,获得了:{<$STR(S1)>}。
break

[@结点奖励魔石50]
#ACT
ReadRandomStr ..\QuestDiary\数据文件\打工奖励\随便奖励.txt S1
give $STR(S1) 1
SENDMSG 8 恭喜{<$USERNAME>}为神奇魔石注入灵力第50次时,引发天地异变,神气宝物尽归囊中,获得了:{<$STR(S1)>}。
break

[@提交次数]
#IF
CHECKVAR HUMAN 魔石 > 9
#ACT

[@神奇魔石排行]
#IF
PosEx $USERNAME .\QuestDiary\无限排名\神奇魔石.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\无限排名\神奇魔石.txt

#IF
large P0 999
#ACT
break

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 $STR(P0)
MOV P1 0

#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 P1