antyvfl 发表于 2022-10-8 23:24:08

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

说明：
1.脚本全部采用文本记录，无须添加变量。
2.活动限制天数由G88变量来控制，检查下不要重复。
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 只给主体>

#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>

[@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>

[@检测放入盾牌品质]
#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

#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)>

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

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary活动数据积分排名.txt S0 4
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-2s%-25s%s 5|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#SAY
<color=green 累积镇魔积分总排名>
<color=green 排名 角色名 镇魔积分 奖励>
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>
<color=gray 第1页> <第2页/@viewAll2> <返回/@main>

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

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

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

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary活动数据积分排名.txt S0 9
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-2s%-25s%s 5|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#SAY
<color=green 累积镇魔积分总排名>
<color=green 排名 角色名 镇魔积分 奖励>
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>
<第1页/@viewAll> <color=gray 第2页> <返回/@main>


AutoRunRobot.txt文件下任意行添加
#AutoRun NPC RUNONDAY 12:00 @清理临时数据

RobotManage.txt下添加
[@清理临时数据]
#IF
LARGE G88 0
#ACT
DEC G88 1
FileCopy ..QuestDiary活动数据今日积分.txt ..QuestDiary活动数据昨日积分.txt
CLEARNAMELIST ..QuestDiary活动数据今日积分.txt
晚上是休息时间不上游戏，所以我将其清理的数据改为了中午12点。

复制以上，在D:WolServerMir200EnvirMarket_def目录下新建个文本命名：活动-0.txt。
然后在中州任意地方打上GM命令：@mobnpc 镇魔仙子 活动 214 0         刷新@npc就OK

chinagzu 发表于 2022-10-9 00:12:42

真是难得给力的帖子啊。

极度无?W赖や 发表于 2022-10-13 15:03:05

真是难得给力的帖子啊。

847112737 发表于 2022-10-15 12:10:06

真是难得给力的帖子啊。

happy5210 发表于 2022-10-15 14:09:16

我只是路过打酱油的。

aqddwlzx 发表于 2022-10-15 22:26:34

真是难得给力的帖子啊。

ddfjhj 发表于 2022-10-17 00:06:21

淡定，淡定，淡定……

sowhoo 发表于 2022-10-18 05:05:46

太生气了，无法HOLD啦 >_<......

1092427021 发表于 2022-10-22 16:13:56

无回帖，不论坛，这才是人道。

wnz40458 发表于 2022-10-23 07:12:53

淡定，淡定，淡定……
页: [1] 2
查看完整版本: 传奇世界镇魔符积分活动脚本