传奇世界镇魔符积分活动脚本

传奇世界镇魔符积分活动脚本

出处：本站整理作者：佚名发布时间：2011-09-15阅读次数：

说明：
1.脚本全部采用文本记录，无须添加变量。
2.活动限制天数由G88变量来控制，战歌网dj，检查下不要重复。
3.无须重起放进服务端刷出NPC就能使用。脚本提供了10级-15级盾牌数据属性和盛大一至
还得添砖加几个文本记录

[@main]
#IF
LARGE G88 0
#ACT
break
#SAY
{color=green 即日起至9月7日24点，勇士可上交镇魔符提升武器衣服}\
<color=green 黑暗魔力。每上交1个镇魔符，均可获得1-1.5千万经验，并计>\
<color=green 1点镇魔积分。消耗一定镇魔积分可提升武器装备黑暗魔力。>\
<color=green 每天累计一定数量镇魔积分，次日可获得15亿经验、经验>\
<color=green 返还等><达标奖励/@viewPrize><color=green 。活动结束后，成绩优异者，可获得><惊艳奖励/@viewPrize>\
<color=red 注：所得经验不计入修炼值。>\\
<上交镇魔符/@pgDoSubmit> <领取昨日奖励/@getYesterdayPrizeMenu> <查看我的成绩/@viewMyself>\
<查看总排行榜/@viewAll> <融炼盾牌/@rldp> <提升黑暗魔力/@popUpgradeHAML>
#ELSESAY
<color=green 即日起至9月7日24点，勇士可上交镇魔符提升武器衣服>\
<color=green 黑暗魔力。每上交1个镇魔符，均可获得1-1.5千万经验，并计>\
<color=green 1点镇魔积分。消耗一定镇魔积分可提升武器装备黑暗魔力。>\
<color=green 每天累计一定数量镇魔积分，次日可获得15亿经验、经验>\
<color=green 返还等><达标奖励/@viewPrize><color=green 。活动结束后，成绩优异者，可获得><惊艳奖励/@viewPrize>\
<color=red 注：所得经验不计入修炼值。>\\
<领取活动奖励/@getBigPrizeMenu> <领取昨日奖励/@getYesterdayPrizeMenu> <查看我的成绩/@viewMyself>\
<查看总排行榜/@viewAll> <融炼盾牌/@rldp> <提升黑暗魔力/@popUpgradeHAML>

[@viewPrize]
<color=orange 昨日达标奖励：>\
<color=green 100≤每日镇魔积分<300，次日可获得15亿经验返还。>\
<color=green 300≤每日镇魔积分，次日可获得本活动经验全额返还。>\\
<color=orange 活动结束奖励：>\
<color=green 镇魔积分达到3000且排名前三的勇士均可获得沙城融合凭>\
<color=green 证一个的超值奖励！>\\
<返回/@main>

[@pgDoSubmit]
#IF
CHECKITEM 镇魔符 1
#ACT
take 镇魔符 1
goto @记录相关数据
break
#IF
CHECKITEM 镇魔符(捆) 1
#ACT
UpgradeUserItem $ITEMMAKEINDEX[镇魔符(捆)] 20 - 1
goto @记录相关数据
break
#ELSESAY
对不起，你的包裹中没有<color=green 镇魔符>！\\
<离开/@exit>

[@记录相关数据]
#IF
PosInList $USERNAME ..\QuestDiary\活动数据\今日积分.txt S1
#ACT
DELVARLIST $STR(S1) ..\QuestDiary\活动数据\今日积分.txt
GETVALIDSTR $STR(S1) | S1 S2
GETVALIDSTR $STR(S2) | P1 P2
INC P1 1
MOVR P3 6
INC P3 10
INC P2 $STR(P3)
MOV D1 $STR(P3)
FORMATSTR S10 %s|%s|%s <$USERNAME>|<$STR(P1)>|<$STR(P2)>
ADDVARLIST $STR(S10) ..\QuestDiary\活动数据\今日积分.txt
MULT D1 1000000
CHANGEEXP + $STR(D1)
#SAY
你获得了<color=green 1点镇魔积分。>\
此次上交获得了{color=green <$STR(D1)>}的经验。\\
<继续上交/@pgDoSubmit> <返回/@main>
#ELSEACT
INC P1 1
MOVR P2 6
INC P2 10
MOV D1 $STR(P2)
FORMATSTR S10 %s|%s|%s <$USERNAME>|<$STR(P1)>|<$STR(P2)>
ADDVARLIST $STR(S10) ..\QuestDiary\活动数据\今日积分.txt
MULT D1 1000000
CHANGEEXP + $STR(D1)
#ELSESAY
你获得了<color=green 1点镇魔积分。>\
此次上交获得了{color=green <$STR(D1)>}的经验。\\
<继续上交/@pgDoSubmit> <返回/@main>

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S1
#ACT
DELVARLIST $STR(S1) ..\QuestDiary\活动数据\可用积分.txt
GETVALIDSTR $STR(S1) | S1 P1
INC P1 1
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P1)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt
#ELSEACT
INC P1 1
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P1)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\累计积分.txt S1
#ACT
DELVARLIST $STR(S1) ..\QuestDiary\活动数据\累计积分.txt
GETVALIDSTR $STR(S1) | S1 P10
INC P10 1
FORMATSTR S12 %s|%s <$USERNAME>|<$STR(P10)>
ADDVARLIST $STR(S12) ..\QuestDiary\活动数据\累计积分.txt
MOV P0 0
goto @活动排行
#ELSEACT
INC P10 1
FORMATSTR S12 %s|%s <$USERNAME>|<$STR(P10)>
ADDVARLIST $STR(S12) ..\QuestDiary\活动数据\累计积分.txt
MOV P0 0
goto @活动排行

[@getYesterdayPrizeMenu]
#IF
!CHECKTXT ..\QuestDiary\活动数据\昨日积分.txt
#ACT
break
#SAY
昨日暂无数据，请稍后查看。\\
<离开/@exit>

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\昨日积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 S2
GETVALIDSTR $STR(S2) | P1 P2

#IF
SMALL P2 1
!SMALL P1 300
#ACT
break
#SAY
你昨日的镇魔积分为：{color=green <$STR(P1)>点。}\
你昨日的累计经验为：<color=gray 昨日累积的经验已经全部领取完毕。>\
<color=orange 注：达标奖励请于次日领取完毕，逾期将视为弃权处理。>\
<color=green 友情提示：本次活动经验返还的上限为：><color=red 50亿。>\
<color=green 选择：(每次点击将可获得10亿经验)>\\
<color=gray 分享经验> <color=gray 只给元神> <color=gray 只给主体>\