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

[@rldpys]
<消耗120点镇魔积分/@pgUpgShieldX&7&120>，可获得“三职业10级元神盾”任选一个\
<消耗75点镇魔积分/@pgUpgShieldX&8&75>，可将10级元神盾升至11级\
<消耗150点镇魔积分/@pgUpgShieldX&9&150>，可将11级元神盾升至12级\
<消耗200点镇魔积分/@pgUpgShieldX&10&200>，可将12级元神盾升至13级\
<消耗300点镇魔积分/@pgUpgShieldX&11&300>，可将13级元神盾升至14级\
<消耗600点镇魔积分/@pgUpgShieldX&12&600>，可将14级元神盾升至15级\\
<返回/@main>

[@pgUpgShieldX]
#IF
PosInList $USERNAME ..\QuestDiary\活动数据\可用积分.txt S1
#ACT
GETVALIDSTR $STR(S1) | S1 P1

#IF
SMALL P1 $SCRIPTPARAM(2)
#ACT
break
#SAY
对不起，您剩余可用镇魔积分不足<$SCRIPTPARAM(2)>点。\\
<离开/@exit>

#IF
EQUAL $SCRIPTPARAM(1) 0
#ACT
ShowSpotDlg 6 请放入通灵盾牌： @升级通灵盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 1
#ACT
break
#SAY
请选择盾牌的类型：\\
<血月虎王盾(战士)/@Shield&1&100> <血月虎王盾(法师)/@Shield&2&100> <血月虎王盾(道士)/@Shield&3&100>\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 2
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入盾牌： @升级血月盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 3
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入盾牌： @升级血月盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 4
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入盾牌： @升级血月盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 5
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入盾牌： @升级血月盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 6
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入盾牌： @升级血月盾
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 7
#ACT
break
#SAY
请选择元神盾牌的类型：\\
<元灵战盾/@Shield&4&120> <元灵法盾/@Shield&5&120> <元灵道盾/@Shield&6&120>\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 8
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入元神盾牌： @升级元神盾牌
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 9
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入元神盾牌： @升级元神盾牌
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 10
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入元神盾牌： @升级元神盾牌
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 11
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入元神盾牌： @升级元神盾牌
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

#IF
EQUAL $SCRIPTPARAM(1) 12
#ACT
MOV P30 $SCRIPTPARAM(2)
ShowSpotDlg 6 请放入元神盾牌： @升级元神盾牌
#SAY
您剩余可用镇魔积分为：{color=green <$STR(P1)>点。}\\
<重新选择/@rldp>

[@升级通灵盾]
#IF
random 1
#ACT
MOV S50
MOV S51
MOV P50 0
MOV P51 0
MOV P52 0
MOV P53 0
MOV P54 0
MOV P55 0
MOV P30 30

#IF
EQUAL $PARAM(0) 虎王盾1
#ACT
MOV P54 4
MOV P55 5
MOV S50 虎王盾
MOV S51 血月虎王盾1
goto @检测放入盾牌品质
break
#IF
EQUAL $PARAM(0) 虎王盾2
#ACT
MOV P54 6
MOV P55 7
MOV S50 虎王盾
MOV S51 血月虎王盾2
goto @检测放入盾牌品质
break
#IF
EQUAL $PARAM(0) 虎王盾3
#ACT
MOV P54 8
MOV P55 9
MOV S50 虎王盾
MOV S51 血月虎王盾3
goto @检测放入盾牌品质
break
#IF
EQUAL $PARAM(0) 通灵战盾
#ACT
MOV P54 4
MOV P55 5
MOV S50 通灵战盾
MOV S51 血月虎王盾1
goto @检测放入盾牌品质
break
#IF
EQUAL $PARAM(0) 通灵法盾
#ACT
MOV P54 6
MOV P55 7
MOV S50 通灵法盾
MOV S51 血月虎王盾2
goto @检测放入盾牌品质
break
#IF
EQUAL $PARAM(0) 通灵道盾
#ACT
MOV P54 8
MOV P55 9
MOV S50 通灵道盾
MOV S51 血月虎王盾3
goto @检测放入盾牌品质
break
#ELSESAY
　　你似乎给错东西了？年轻人，再找找看吧。\\
　　<知道了/@exit>