神奇魔石传世私服脚本

[@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

#IF
CHECKVAR HUMAN 魔石 > $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$HUMAN(魔石)>
INSERTVARLIST $STR(P0) $STR(S0) .QuestDiary无限排名神奇魔石.txt
#ELSEACT
INC P0 1
GOTO @神奇魔石排行

[@检测第一次数]
#IF
random 1
#ACT
mov P0 $STR(S2)

#IF
large P0 99
SMALL P0 200
#ACT
mov S3 <Color=orange[]
INC S3 10亿经验
INC S3 >

#IF
large P0 199
#ACT
mov S3 <Color=orange[]
INC S3 30亿经验+勋章灵佩凭证
INC S3 >

[@检测次数]
#IF
random 1
#ACT
mov P1 $STR(S2)

#IF
large P1 99
#ACT
mov S4 <Color=orange[]
INC S4 10亿经验
INC S4 >

[@dailyret]
#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 0
#IF
!equal S0 无
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14
#ELSESAY
　　目前暂无信息，请稍后查看。\
　　<离开/@exit>
#ELSEACT
break

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 0
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测第一次数
FORMATSTR S10 %-10s%-18s%-12s%s 第1名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 1
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S4
goto @检测次数
FORMATSTR S11 %-10s%-18s%-12s%s 第2名|<$STR(S1)>|<$STR(S2)>|<$STR(S4)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 2
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%-12s%s 第3名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 3
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%-12s%s 第4名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 4
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%-12s%s 第5名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#SAY
<color=orange 你今天为神奇魔石注入灵力：>{Color=Green <$HUMAN(魔石)>}次！
<Color=Green 名次　　  角色名　　　　  注入次数　　  当前奖励>
#IF
!EQUAL S10 无
#SAY
<$STR(S10)>
#IF
!EQUAL S11 无
#SAY
<$STR(S11)>
#IF
!EQUAL S12 无
#SAY
<$STR(S12)>
#IF
!EQUAL S13 无
#SAY
<$STR(S13)>
#IF
!EQUAL S14 无
#SAY
<$STR(S14)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 5
#IF
!equal S0 无
#SAY
　　<第 1页/@dailyret>　　<第 2页/@dailyret2>
#ELSESAY
　　<第 1页/@dailyret>

#IF
random 1
#SAY
<返回/@main>　　<关闭/@exit>

[@dailyret2]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 5
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-10s%-18s%s 第6名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 6
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s 第7名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 7
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s 第8名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 8
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s 第9名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排名神奇魔石.txt S0 9
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s 第10名|<$STR(S1)>|<$STR(S2)>

#IF
#SAY
　　　　　　　　<Color=Green 今日注入灵力排行榜>
<Color=Green 名次　　  角色名　　　　  注入次数　　  当前奖励>
#IF
!EQUAL S10 无
#SAY
<$STR(S10)>
#IF
!EQUAL S11 无
#SAY
<$STR(S11)>
#IF
!EQUAL S12 无
#SAY
<$STR(S12)>
#IF
!EQUAL S13 无
#SAY
<$STR(S13)>
#IF
!EQUAL S14 无
#SAY
<$STR(S14)>

#IF
random 1
#SAY
　　<第 1页/@dailyret>　　<第 2页/@dailyret2>

#IF
random 1
#SAY
<返回/@main>　　<关闭/@exit>

[@dailyretyes]
<$GLOBAL(魔石排行一页)>

[@nextPage1]
<$GLOBAL(魔石排行二页)>

[@getyesprize]
#IF
checknamelist ..QuestDiary数据文件神奇魔石第一名.txt
#ACT
GIVE 勋章灵佩凭证 1
CHANGEEXP + 3000000000
delnamelist ..QuestDiary数据文件神奇魔石第一名.txt
break
#IF
checknamelist ..QuestDiary数据文件神奇魔石特别奖.txt
#ACT
GIVE 勋章灵佩凭证 1
CHANGEEXP + 1500000000
delnamelist ..QuestDiary数据文件神奇魔石特别奖.txt
break
#IF
checknamelist ..QuestDiary数据文件神奇魔石第二名.txt
#ACT
CHANGEEXP + 1000000000
delnamelist ..QuestDiary数据文件神奇魔石第二名.txt
break
#ELSESAY
　　您不是昨日为魔石注入灵力最多的前2名，没有奖励！\
　　<离开/@exit>\

[@getprizefive]
#IF
PosEx $USERNAME .QuestDiary数据文件神奇魔石神奇魔石25次.txt
#SAY
　　你已经领取过奖励了，无法领取！
　　<离开/@exit>
#ACT
break
#IF
CHECKVAR HUMAN 魔石 > 24
#ACT
CHANGEEXP + 500000000
ADDNAMELIST ..QuestDiary数据文件神奇魔石神奇魔石25次.txt
break
#ELSESAY
　　您今天为神奇魔石注入灵力不到25次，不能领取奖励！\
　　<离开/@exit>

[@getprize60n]
#IF
PosEx $USERNAME .QuestDiary数据文件神奇魔石神奇魔石60次.txt
#SAY
　　你已经领取过奖励了，无法领取！
　　<离开/@exit>
#ACT
break
#IF
CHECKVAR HUMAN 魔石 > 59
#ACT
give 勋章灵佩凭证 1
ReadRandomStr ..QuestDiary数据文件文本数据王者首饰.txt S0
GETVALIDSTR $STR(S0) | S0 P1
GIVE $STR(S0) $STR(P1)
ADDNAMELIST ..QuestDiary数据文件神奇魔石神奇魔石60次.txt
break
#ELSESAY
　　您今天为神奇魔石注入灵力不到60次，不能领取奖励！\
　　<离开/@exit>

[@getprize300n]
#IF
PosEx $USERNAME .QuestDiary数据文件神奇魔石神奇魔石300次.txt
#SAY
　　你已经领取过奖励了，无法领取！
　　<离开/@exit>
#ACT
break
#IF
CHECKVAR HUMAN 魔石 > 299
#ACT
give 命运石 1
GAMEGOLD + 1000
ADDNAMELIST ..QuestDiary数据文件神奇魔石神奇魔石300次.txt
SENDMSG 0 恭喜%s在开区冲级活动中领取了300次奖品命运石一个，获得了1000元宝
SENDMSG 15 恭喜%s在开区冲级活动中领取了300次奖品命运石一个，获得了1000元宝
break
#ELSESAY
　　您今天为神奇魔石注入灵力不到300次，不能领取奖励！\
　　<离开/@exit>

[@duihuanbs]
　　<color=orange 使用“勋章灵佩凭证”>可兑换<各种丰厚奖励/@jrsm1>！
　　如果你包裹中有勋章灵佩凭证的话请尽快给我吧！
　　<color=green 注：兑换勋章灵佩凭证结束时间请注意游戏内公告！>
　　<使用1个勋章灵佩凭证兑换紫晶玉灵佩/@兑换勋章灵佩&1>
　　<使用2个勋章灵佩凭证兑换战神级勋章或紫魂玉灵佩/@兑换勋章灵佩&2>
　　<使用3个勋章灵佩凭证任选一个战神级勋章/@兑换勋章灵佩&3>
　　<使用4个勋章灵佩凭证任选一个血煞级勋章/@兑换勋章灵佩&4>
　　<使用7个勋章灵佩凭证兑换蟠龙级勋章或09灵佩/@兑换勋章灵佩&7>
　　<离开/@exit>

[@兑换勋章灵佩]
#IF
checkitem 勋章灵佩凭证 $PARAM(50)
#ACT
GOTO @兑换
break
#ELSESAY
　　你包裹里没有<$PARAM(50)>个勋章灵佩凭证！\
　　<离开/@exit>

[@兑换]
#IF
EQUAL $PARAM(50) 1
#ACT
TAKE 勋章灵佩凭证 $PARAM(50)
GIVE 紫晶玉灵佩 1
break
#IF
EQUAL $PARAM(50) 2
#ACT
TAKE 勋章灵佩凭证 $PARAM(50)
ReadRandomStr ..QuestDiary数据文件文本数据勋章灵佩.txt S12
give $STR(S12) 1
break
#IF
EQUAL $PARAM(50) 3
#SAY
　　请选择奖励：\
　　<战神勋章/@兑换系统&3&战神勋章>
　　<魔神勋章/@兑换系统&3&魔神勋章>
　　<道神勋章/@兑换系统&3&道神勋章>
　　<返回/@main>
#ACT
break
#IF
EQUAL $PARAM(50) 4
#SAY
　　请选择奖励：\
　　<血煞勋章/@兑换系统&4&血煞勋章>
　　<魔雷勋章/@兑换系统&4&魔雷勋章>
　　<幽泉勋章/@兑换系统&4&幽泉勋章>
　　<返回/@main>
#ACT
break
#IF
EQUAL $PARAM(50) 7
#SAY
　　请选择奖励：\
　　<蟠龙傲天勋章/@兑换系统&7&蟠龙傲天勋章>　　<09灵佩（战）/@兑换系统&7&09灵佩1>
　　<蟠龙幻天勋章/@兑换系统&7&蟠龙幻天勋章>　　<09灵佩（法）/@兑换系统&7&09灵佩2>
　　<蟠龙玄天勋章/@兑换系统&7&蟠龙玄天勋章>　　<09灵佩（道）/@兑换系统&7&09灵佩3>
　　<返回/@main>
#ACT
break

[@兑换系统]
#IF
checkitem 勋章灵佩凭证 $PARAM(50)
#ACT
TAKE 勋章灵佩凭证 $PARAM(50)
GIVE $PARAM(51) 1
break
close
#ELSESAY
　　你包裹里没有<$PARAM(50)>个勋章灵佩凭证！\
　　<离开/@exit>

[@jrsm]
　　<color=green 截止活动当天24点，单服为神奇魔石注入灵力排名第一>
<color=green 且次数达到200次>，则<color=red 可一人独享30亿经验巨奖！同时还可>
额外再获得一个勋章灵佩凭证！
　　<color=green 若单服排名第一者开启次数＜200次，但达到100次>，则
将<color=orange 获得15亿经验奖励+勋章灵佩凭证的奖励。>同时此时排名
<color=orange 第二的勇士也可领取10亿经验奖励。>（领奖条件：当天注入
灵力次数≥100次）
　　活动结束后，凭勋章灵佩凭证即可兑换丰厚奖励：
　　<下一页/@jrsm1>　　　　  <返回/@main>

[@jrsm1]
　　<color=green 使用一个勋章灵佩凭证>即可兑换<color=orange 紫晶玉灵佩一个，有机>
会兑换得到紫魂玉灵佩、<战神级勋章/@ZSJXZ>！
　　<color=green 使用两个勋章灵佩凭证>即可<color=RED 兑换“战神级勋章随机一个>
<color=RED 或紫魂玉灵佩”任选其一。>
　　<color=green 使用三个勋章灵佩凭证>即可<color=RED 兑换战神级勋章任选一个！>
　　<color=green 使用四个勋章灵佩凭证>即可兑换<血煞级勋章/@XSJXZ>任选一个！
　　<color=green 七个勋章灵佩凭证>即可兑换“<蟠龙级勋章或09灵佩/@PLJXZ>”任
选其一个的大奖！
　　<离开/@exit>

[@PLJXZ]
　　全新蟠龙系列勋章限量送！至强属性助你荣登王者一臂
之力！
　　<color=green 蟠龙傲天勋章：><color=orange 防御2-6、魔防2-6、攻击2-9。>
　　<color=green 蟠龙幻天勋章：><color=orange 防御2-6、魔防2-6、魔法2-9。>
　　<color=green 蟠龙玄天勋章：><color=orange 防御2-6、魔防2-6、道术2-9。>
　　<color=orange 09灵佩：>防御2-0、魔防1-0、<color=RED 攻击0-9>（适合战士元神）
　　<color=orange 09灵佩：>防御2-0、魔防1-0、<color=RED 魔法0-9>（适合法师元神）
　　<color=orange 09灵佩：>防御2-0、魔防1-0、<color=RED 道术0-9>（适合道士元神）
　　<返回/@main>　　　　 <离开/@exit>

[@XSJXZ]
　　全新造型、超强属性的血煞系列勋章闪亮登场！\
　　<color=orange 血煞勋章：防御1-5、魔防1-5、攻击2-7。>
　　<color=orange 魔雷勋章：防御1-5、魔防1-5、魔法2-7。>
　　<color=orange 幽泉勋章：防御1-5、魔防1-5、道术2-7。>\
　　<返回/@main>　　　　 <离开/@exit>

[@ZSJXZ]
　　全新造型、超强属性的战神系列勋章闪亮登场！\
　　<color=orange 战神勋章：防御1-4、魔防1-4、攻击1-6。>
　　<color=orange 魔神勋章：防御1-4、魔防1-4、魔法1-6。>
　　<color=orange 道神勋章：防御1-4、魔防1-4、道术1-6。>\
　　<返回/@main>　　　　 <离开/@exit>

[@prizejieshao]
　　每次为神奇魔石注入灵力时，将可获得<color=green 3000万-5000万>
经验奖励！同时更有机会获得<color=green 蟠龙首饰、顶级宝石、火影项>
<color=green 链、永久回城石>等各种极品好礼！\
　　<离开/@exit>

[@ewprize]
　　<color=green 当你每天第10次、第30次、第50次>为神奇魔石注入灵力
时，将引发天地异变，神奇宝物尽归囊中，你将必得一件顶
级装备。然而当你每天<color=green 为神奇魔石注入50次灵力后，你当天>
<color=green 的运气将大大提升，诸多好事接踵而来！>
　　同时<color=green 所有当天为神奇魔石注入灵力满25次者>，可直接领
取<color=red 5亿经验>的奖励！
　　当天<color=green 所有当天为神奇魔石注入灵力满60次者>，必可直接
领取<color=red “王者首饰随机一个、15亿经验”任选其一的奖励，同>
　　<下一页/@ewprize1>　　　　 <离开/@exit>

[@ewprize1]
<color=red 时还必得一个勋章灵佩凭证>。
　　当天<color=green 所有当天为神奇魔石注入灵力满300次者>，可直接领
取<color=red 海洋之心>的奖励！
　　<color=orange 注：所有奖励请于当日24点前领取，逾期视为放弃。>\
　　<离开/@exit>