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

[@检测放入盾牌品质]
#IF
random 1
#ACT
MOV P50 $ITEMINFO[$PARAM(1)].VALUE(11)
MOV P51 $ITEMINFO[$PARAM(1)].ITEMEXT(59)
MOV P52 $ITEMINFO[$PARAM(1)].ITEMEXT(69)
MOV P53 $ITEMINFO[$PARAM(1)].ITEMEXT(70)

#IF
!EQUAL P50 9
#ACT
break
#SAY
抱歉！转化失败。你所放入的<$STR(S50)>还没有达到转换\
所需的条件。\
<color=orange 提示：只有品质达到10级的虎王盾或通灵盾牌才能转化。>\\
<哦，那我再找找吧/@exit>

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S10
#ACT
DELVARLIST $STR(S10) ..\QuestDiary\活动数据\可用积分.txt
GETVALIDSTR $STR(S10) | S10 P20
DEC P20 $STR(P30)
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P20)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt
takem $PARAM(1)

#IF
random 1
#ACT
give $STR(S51) 1
UPGRADEUSERITEM $PARAM(10) 0 = 11
UPGRADEUSERITEM $PARAM(10) 1 = 15
UPGRADEUSERITEM $PARAM(10) 2 = 6
UPGRADEUSERITEM $PARAM(10) 3 = 13
UPGRADEUSERITEM $PARAM(10) 11 = 9
UPGRADEUSERITEM $PARAM(10) 12 = 50
UPGRADEUSERITEM $PARAM(10) $STR(P54) = 5
UPGRADEUSERITEM $PARAM(10) $STR(P55) = 6
UPGRADEUSERITEM $PARAM(10) 59 = $STR(P51)
UPGRADEUSERITEM $PARAM(10) 69 = $STR(P52)
UPGRADEUSERITEM $PARAM(10) 70 = $STR(P53)
SENDMSG 5 你的<$STR(S50)>成功转换成了血月虎王盾
break
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P20)>点。}\
恭喜你将{color=green <$STR(S50)>}成功的转化为了<color=green 血月虎王盾>。\
<color=orange 友情提示：血月虎王盾突破了盾牌10级的限制，可以提升>\
<color=orange 至15级！防御、魔御、攻击、免伤都将得到极大提升。>\\
<知道了/@exit>

[@Shield]
#IF
random 1
#ACT
MOV S50
MOV P50 0
MOV P51 0

#IF
EQUAL $SCRIPTPARAM(1) 1
#ACT
MOV P50 4
MOV P51 5
MOV S50 血月虎王盾1

#IF
EQUAL $SCRIPTPARAM(1) 2
#ACT
MOV P50 6
MOV P51 7
MOV S50 血月虎王盾2

#IF
EQUAL $SCRIPTPARAM(1) 3
#ACT
MOV P50 8
MOV P51 9
MOV S50 血月虎王盾3

#IF
EQUAL $SCRIPTPARAM(1) 4
#ACT
MOV P50 4
MOV P51 5
MOV S50 元灵战盾

#IF
EQUAL $SCRIPTPARAM(1) 5
#ACT
MOV P50 6
MOV P51 7
MOV S50 元灵法盾

#IF
EQUAL $SCRIPTPARAM(1) 6
#ACT
MOV P50 8
MOV P51 9
MOV S50 元灵道盾

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S10
#ACT
DELVARLIST $STR(S10) ..\QuestDiary\活动数据\可用积分.txt
GETVALIDSTR $STR(S10) | S10 P20
DEC P20 $STR(P30)
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P20)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt

#IF
random 1
#ACT
give $STR(S50) 1
UPGRADEUSERITEM $PARAM(10) 0 = 11
UPGRADEUSERITEM $PARAM(10) 1 = 15
UPGRADEUSERITEM $PARAM(10) 2 = 6
UPGRADEUSERITEM $PARAM(10) 3 = 13
UPGRADEUSERITEM $PARAM(10) 11 = 9
UPGRADEUSERITEM $PARAM(10) 12 = 50
UPGRADEUSERITEM $PARAM(10) $STR(P50) = 5
UPGRADEUSERITEM $PARAM(10) $STR(P51) = 6
break
#SAY
你成功领取了{color=green <$STR(S50)>。}\
您剩余可用镇魔积分为：{color=green <$STR(P20)>点。}\
{color=orange 友情提示：<$STR(S50)>突破了盾牌10级的限制，可以提升}\
<color=orange 至15级！防御、魔御、攻击、免伤都将得到极大提升。>\\
<知道了/@exit>

[@升级血月盾]
#IF
random 1
#ACT
MOV S50
MOV P50 0
MOV P51 0
MOV P52 $ITEMINFO[$PARAM(1)].VALUE(11)

#IF
EQUAL $PARAM(0) 血月虎王盾1
#ACT
MOV P50 4
MOV P51 5
MOV S50 血月虎王盾
GOTO @检测血月盾牌
break
#IF
EQUAL $PARAM(0) 血月虎王盾2
#ACT
MOV P50 6
MOV P51 7
MOV S50 血月虎王盾
GOTO @检测血月盾牌
break
#IF
EQUAL $PARAM(0) 血月虎王盾3
#ACT
MOV P50 8
MOV P51 9
MOV S50 血月虎王盾
GOTO @检测血月盾牌
break
#ELSESAY
　　你似乎给错东西了？年轻人，再找找看吧。\\
　　<知道了/@exit>

[@检测血月盾牌]
#IF
LARGE P52 13
#ACT
break
#SAY
你放入的{color=green <$STR(S50)>}为最高品质，无法再次提升。请换件\
盾牌来进行此项功能的升级。\\
　　<知道了/@exit>

#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S10
#ACT
DELVARLIST $STR(S10) ..\QuestDiary\活动数据\可用积分.txt
GETVALIDSTR $STR(S10) | S10 P20
DEC P20 $STR(P30)
FORMATSTR S11 %s|%s <$USERNAME>|<$STR(P20)>
ADDVARLIST $STR(S11) ..\QuestDiary\活动数据\可用积分.txt

#IF
random 1
#ACT
UpgradeUserItem $PARAM(1) 11 + 1 ;品质+1
UpgradeUserItem $PARAM(1) 12 + 3 ;免伤+3