神奇魔石传世私服脚本(3)

#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