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

#IF
EQUAL P52 13
#ACT
UpgradeUserItem $PARAM(1) 1 + 1 ;防御上线+1
UpgradeUserItem $PARAM(1) 3 + 1 ;魔御上线+1
UpgradeUserItem $PARAM(1) $STR(P51) + 1 ;各职业攻魔道上线+1
UpgradeUserItem $PARAM(1) 12 + 2 ;最后免伤的附加

#IF
EQUAL P52 12
#ACT
UpgradeUserItem $PARAM(1) 0 + 1 ;防御下线+1
UpgradeUserItem $PARAM(1) 2 + 1 ;魔御下线+1
UpgradeUserItem $PARAM(1) $STR(P50) + 1 ;各职业攻魔道下线+1

#IF
EQUAL P52 11
#ACT
UpgradeUserItem $PARAM(1) 1 + 1 ;防御上线+1
UpgradeUserItem $PARAM(1) 3 + 1 ;魔御上线+1
UpgradeUserItem $PARAM(1) $STR(P51) + 1 ;各职业攻魔道上线+1

#IF
EQUAL P52 10
#ACT
UpgradeUserItem $PARAM(1) 0 + 1 ;防御下线+1
UpgradeUserItem $PARAM(1) 2 + 1 ;魔御下线+1
UpgradeUserItem $PARAM(1) $STR(P50) + 1 ;各职业攻魔道下线+1

#IF
EQUAL P52 9
#ACT
UpgradeUserItem $PARAM(1) 1 + 1 ;防御上线+1
UpgradeUserItem $PARAM(1) 3 + 1 ;魔御上线+1
UpgradeUserItem $PARAM(1) $STR(P51) + 1 ;各职业攻魔道上线+1

#IF
#SAY
你的{color=green <$STR(S50)>}品质提升成功。\
您剩余可用镇魔积分为：{color=green <$STR(P20)>点。}\
<color=orange 友情提示：血月虎王盾突破了盾牌10级的限制，可以提升>\
<color=orange 至15级！防御、魔御、攻击、免伤都将得到极大提升。>\\
<知道了/@exit>

[@popUpgradeHAML]
#ACT
ShowSpotDlg 6 请放入物品： @加黑暗魔力
#SAY
消耗<color=green 10点镇魔积分>，即可为指定的武器、衣服装备<color=green 附加>\
<color=green 2000点黑暗魔力>。\
<color=green 黑暗魔力最高上限为60000。>\
<color=green 黑暗魔力可以在中州武器店铸造师处升级装备！>\\
<返回/@main>

[@加黑暗魔力]
#IF
!CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE ..\QuestDiary\游戏读取\装备类型.txt
#ACT
break
#SAY
这不是武器或衣服，无法进行升级锻造！\\
　　<换件物品/@popUpgradeHAML>

#IF
LARGE $ITEMINFO[$PARAM(1)].GLOOMPOINT 60000
#ACT
break
#SAY
该物品的黑暗魔力达到了最高的上限，请换件物品。\\
<换件别的/@popUpgradeHAML>

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S10
#ACT
GETVALIDSTR $STR(S10) | S10 P20

#IF
!SMALL P20 10
#ACT
DELVARLIST $STR(S10) ..\QuestDiary\活动数据\可用积分.txt
DEC P20 10
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P20)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt
UPGRADEUSERITEM $PARAM(1) 22 + 2000
break
#SAY
你消耗了10点镇魔积分为<$PARAM(0)>上附加了2000点的黑暗魔力。\\
<返回/@main>
#ELSESAY
对不起，您剩余可用镇魔积分<color=green 不足10点>，无法增加。\\
<返回/@main>

[@getBigPrizeMenu]
#IF
PosInList $USERNAME ..\QuestDiary\活动数据\累计积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 P10

#IF
SMALL P10 3000
#ACT
break
#SAY
对不起，您累计镇魔积分<color=green 不足3000点>，无法领取活动奖励。\\
<离开/@exit>
#IF
CHECKVARLIST $USERNAME ..\QuestDiary\活动数据\最终奖励.txt
#ACT
break
#SAY
你已经领取过了奖励，请回吧。\\
<离开/@exit>

#IF
CheckNameListPosition ..\QuestDiary\活动数据\积分排名.txt 2
#ACT
give 沙城融合凭证 1
ADDVARLIST $USERNAME ..\QuestDiary\活动数据\最终奖励.txt
SENDMSG 8 恭喜%s领取了镇魔仙子前三名的奖励，获得了一个沙城融合凭证。
break
#SAY
你在此活动中成绩优异，获得了一个<color=green 沙城融合凭证>。\\
<离开/@exit>

[@活动排行]
#IF
PosInList $USERNAME ..\QuestDiary\活动数据\积分排名.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\活动数据\积分排名.txt

#IF
large P0 10
#ACT
break

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\活动数据\积分排名.txt S0 $STR(P0)
mov P1

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

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\累计积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 P10

#IF
LARGE P10 $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$STR(P10)>
INSERTVARLIST $STR(P0) $STR(S0) ..\QuestDiary\活动数据\积分排名.txt
#ELSEACT
inc P0 1
goto @活动排行

[@viewAll]
#IF
random 1
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\活动数据\积分排名.txt S0 0
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-2s%-25s%s 1|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\活动数据\积分排名.txt S0 1
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-2s%-25s%s 2|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\活动数据\积分排名.txt S0 2
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-2s%-25s%s 3|<$STR(S1)>|<$STR(S2)>