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

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

#IF
!SMALL P1 100
#ACT
break
#SAY
你昨日的镇魔积分为：{color=green <$STR(P1)>点。}\
你昨日的达标奖励为：<color=green 15亿经验。>\
<color=orange 注：达标奖励请于次日领取完毕，逾期将视为弃权处理。>\
<color=green 选择：>\\
<分享经验/@ZMFSubmitPut&1> <只给元神/@ZMFSubmitPut&2> <只给主体/@ZMFSubmitPut&3>\
#ELSESAY
对不起，您没有可领取的昨日达标奖励。\\
<离开/@exit>

[@ZMFSubmitPut]
#IF
CHECKVARLIST $USERNAME ..\QuestDiary\活动数据\达标奖励.txt
#ACT
break
#SAY
你已经领取过了奖励，请回吧。\\
<离开/@exit>

#IF
EQUAL $SCRIPTPARAM(1) 1
#ACT
CHANGEEXP + 150000000
ADDVARLIST $USERNAME ..\QuestDiary\活动数据\达标奖励.txt
break
close

#IF
EQUAL $SCRIPTPARAM(1) 2
#ACT
$PNEUMANAME.GetExp + 150000000
ADDVARLIST $USERNAME ..\QuestDiary\活动数据\达标奖励.txt
break
close

#IF
EQUAL $SCRIPTPARAM(1) 3
#ACT
GetExp + 150000000
ADDVARLIST $USERNAME ..\QuestDiary\活动数据\达标奖励.txt
break
close

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

#IF
SMALL P2 1
#ACT
MOV P2 0
FORMATSTR S15 %s|%s|%s <$USERNAME>|<$STR(P1)>|<$STR(P2)>
ADDVARLIST $STR(S15) ..\QuestDiary\活动数据\昨日积分.txt
break
#SAY
你昨日的经验已经返还完毕，请回吧。\\
<离开/@exit>

#IF
LARGE P2 1000
#ACT
MOV P8 0
DEC P2 1000
INC P8 1000
FORMATSTR S15 %s|%s|%s <$USERNAME>|<$STR(P1)>|<$STR(P2)>
ADDVARLIST $STR(S15) ..\QuestDiary\活动数据\昨日积分.txt
#ELSEACT
MOV P8 0
INC P8 $STR(P2)
MOV P2 0
FORMATSTR S15 %s|%s|%s <$USERNAME>|<$STR(P1)>|<$STR(P2)>
ADDVARLIST $STR(S15) ..\QuestDiary\活动数据\昨日积分.txt

#IF
EQUAL $SCRIPTPARAM(1) 1
#ACT
MULT P8 1000000
CHANGEEXP + $STR(P8)
break
#SAY
你获得了<$STR(P8)>经验。\\
　 <继续领取/@getYesterdayPrizeMenu>

#IF
PNEUMARELEASED
EQUAL $SCRIPTPARAM(1) 2
#ACT
MULT P8 1000000
$PNEUMANAME.GetExp $STR(P8)
break
#SAY
你的元神获得了<$STR(P8)>经验。\\
　 <继续领取/@getYesterdayPrizeMenu>
#ELSEACT
MULT P8 1000000
CHANGEEXP + $STR(P8)
#ELSESAY
　 你在领取奖励的时候没有放出元神，所有的经验全部给\
予了本体。\\
　 <马上放出我的分身/@exit>

#IF
EQUAL $SCRIPTPARAM(1) 3
#ACT
MULT P8 1000000
GetExp $STR(P8)
break
#SAY
你获得了<$STR(P8)>经验。\\
　 <继续领取/@getYesterdayPrizeMenu>

[@viewMyself]
#IF
PosInList $USERNAME ..\QuestDiary\活动数据\累计积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 P6
#ELSEACT
MOV P6 0

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 P7
#ELSEACT
MOV P7 0

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\今日积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 S2
GETVALIDSTR $STR(S2) | P8 P0
#ELSEACT
MOV P8 0

#IF
CHECKTXT ..\QuestDiary\活动数据\昨日积分.txt
PosInList $USERNAME ..\QuestDiary\活动数据\昨日积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 S2
GETVALIDSTR $STR(S2) | P9 P0
#ELSEACT
MOV P9 0

#IF
#SAY
您总共累计镇魔积分为：{color=green <$STR(P6)>点}\
您剩余可用镇魔积分为：{color=green <$STR(P7)>点}\
您今日累计镇魔积分为：{color=green <$STR(P8)>点}\
您昨日累计镇魔积分为：{color=green <$STR(P9)>点}\\
<返回/@main> <离开/@exit>

[@rldp]
请选择您要融炼的盾牌：\
<融炼主体盾牌/@rldpzt>\
<融炼元神盾牌/@rldpys>\\
<返回/@main>

[@rldpzt]
<消耗30点镇魔积分/@pgUpgShieldX&0&30>，可将10级主体盾兑换为10级血月虎王盾\
<消耗100点镇魔积分/@pgUpgShieldX&1&100>，可获得“三职业10级血月虎王盾”任选一个\
<消耗50点镇魔积分/@pgUpgShieldX&2&50>，可将10级血月虎王盾升至11级\
<消耗100点镇魔积分/@pgUpgShieldX&3&100>，可将11级血月虎王盾升至12级\
<消耗150点镇魔积分/@pgUpgShieldX&4&150>，可将12级血月虎王盾升至13级\
<消耗200点镇魔积分/@pgUpgShieldX&5&200>，可将13级血月虎王盾升至14级\
<消耗500点镇魔积分/@pgUpgShieldX&6&500>，可将14级血月虎王盾升至15级\\
<返回/@main>