传世密室守护者全功能脚本

[@main]

#IF
Check [24] 0
#ACT
GOTO @密室有礼1
#ELSESAY
　　能来到这里足以证明英雄你的不凡，我这里珍藏着历代\
皇家收集的各种宝物，如果你能帮消灭一些来偷盗宝物的恶\
魔，我就让你在其中随机挑选一件。\\
　　<兑换千万经验礼券/@兑换卷轴>\
　　<离开这里/@返回>


[@密室有礼1]
#IF
Check [86] 0
#SAY
　　能来到这里足以证明英雄你的不凡，我这里珍藏着历代\
皇家收集的各种宝物，如果你能帮消灭一些来偷盗宝物的恶\
魔，我就让你在其中随机挑选一件。\\
　　<我要消灭妖魔/@任务>
　　<学习本体强化技能/@强化技能>\
　　<兑换千万经验礼券/@兑换卷轴>\
　　<黑暗殿堂好礼回馈/@密室有礼>\
　　<离开这里/@返回>
#ELSESAY
　　能来到这里足以证明英雄你的不凡，我这里珍藏着历代\
皇家收集的各种宝物，如果你能帮消灭一些来偷盗宝物的恶\
魔，我就让你在其中随机挑选一件。\\
　　<我要消灭妖魔/@任务>\
　　<兑换千万经验礼券/@兑换卷轴>\
　　<黑暗殿堂好礼回馈/@密室有礼>\
　　<离开这里/@返回>

[@密室有礼]
　　虽然中州大陆已是阳光和煦，但是黑暗殿堂最近却妖气\
纵横愈发阴寒，多年来禁锢密室的封印正在渐渐失去法力，\
恐怕恐怕抵挡不住多久。\
　　十分感谢勇士你能前来帮助我消灭妖魔，我将送给你一\
份礼物略表心意，你若今天还能再来，奖励将会更丰厚。\\
　　<那我不客气了/@GIVE>
　　<离开/@exit>
[@GIVE]
#IF
Check [85] 1
#ACT
break
#SAY
　　本次领过奖励了，下次再来领吧！\\
　　<离开/@exit>
#IF
random 1
#ACT
MOV S0 $USERNAME
INC S0 |
MOV P0
MOV S1
MOV S2
MOV S3
MOV S4
MOV S10
MOV S11
MOV S51
SET [85] 1
#IF
PosInList $STR(S0) ..\QuestDiary\游戏读取\密室有礼\今日密室.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\游戏读取\密室有礼\今日密室.txt
GETVALIDSTR $STR(S0) | S1 D1
INC D1 1
FORMATSTR S10 %s|%s <$USERNAME>|<$STR(D1)>
ADDVARLIST $STR(S10) ..\QuestDiary\游戏读取\密室有礼\今日密室.txt
#ELSESAY
　　恭喜你获得<color=green 10000000经验>奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 1500万经验、魔饰！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ELSEACT
FORMATSTR S1 %s|1 <$USERNAME>
ADDVARLIST $STR(S1) ..\QuestDiary\游戏读取\密室有礼\今日密室.txt
give 经验 10000000
MOV P91 0
MOV S10
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得1000000经验奖励！
break

#IF
EQUAL D1 2
#SAY
　　恭喜你获得{color=green <$STR(S4)>}奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 2000万经验、魔饰、蟠龙首饰！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ACT
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得<$STR(S4)>奖励！
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\2.txt S2
GETVALIDSTR $STR(S2) | S2 S3
#IF
EQUAL S2 经验
#ACT
GETVALIDSTR $STR(S3) | S3 S4
GIVE 经验 $STR(S3)
BREAK
#IF
EQUAL S2 装备
#ACT
MOV S4 $STR(S3)
GIVE $STR(S3) 1
BREAK

#IF
EQUAL D1 3
#SAY
　　恭喜你获得{color=green <$STR(S4)>}奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 20000万经验、蟠龙金甲(金袍)、蟠龙首饰！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ACT
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得<$STR(S4)>奖励！
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\3.txt S2
GETVALIDSTR $STR(S2) | S2 S3
#IF
EQUAL S2 经验
#ACT
GETVALIDSTR $STR(S3) | S3 S4
GIVE 经验 $STR(S3)
BREAK
#IF
EQUAL S2 装备
#ACT
MOV S4 $STR(S3)
GIVE $STR(S3) 1
BREAK

#IF
EQUAL D1 4
#SAY
　　恭喜你获得{color=green <$STR(S4)>}奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 2500万经验、蟠龙金甲(金袍)、蟠龙首饰！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ACT
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得<$STR(S4)>奖励！
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\4.txt S2
GETVALIDSTR $STR(S2) | S2 S3
#IF
EQUAL S2 经验
#ACT
GETVALIDSTR $STR(S3) | S3 S4
GIVE 经验 $STR(S3)
BREAK
#IF
EQUAL S2 装备
#ACT
MOV S4 $STR(S3)
GIVE $STR(S3) 1
BREAK

#IF
EQUAL D1 5
#SAY
　　恭喜你获得{color=green <$STR(S4)>}奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 2500万经验、蟠龙首饰、圣王首饰！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ACT
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得<$STR(S4)>奖励！
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\5.txt S2
GETVALIDSTR $STR(S2) | S2 S3
#IF
EQUAL S2 经验
#ACT
GETVALIDSTR $STR(S3) | S3 S4
GIVE 经验 $STR(S3)
BREAK
#IF
EQUAL S2 装备
#ACT
MOV S4 $STR(S3)
GIVE $STR(S3) 1
BREAK

#IF
LARGE D1 5
#SAY
　　恭喜你获得{color=green <$STR(S4)>}奖励！\
　　如果你再进入一次，你将有机会获得如下奖励中的随机\
一个：\
　　<color=green 250万经验、蟠龙首饰、圣王首饰、金牌勇士(永久)封号！>\
　　<color=red 注：如果本次获得新封号，请前往皇宫史官处报名！>\
　　<知道了/@exit>
#ACT
GOTO @密室排名
SENDMSG 10 恭喜<$USERNAME>今天第<$STR(D1)>次进入黑暗殿堂，获得<$STR(S4)>奖励！
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\5.txt S2
GETVALIDSTR $STR(S2) | S2 S3
#IF
EQUAL S2 经验
#ACT
GETVALIDSTR $STR(S3) | S3 S4
GIVE 经验 $STR(S3)
BREAK
#IF
EQUAL S2 装备
#ACT
MOV S4 $STR(S3)
GIVE $STR(S3) 1
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\游戏数据\金牌勇士(永久).txt
EQUAL S2 封号
#ACT
MOV S4 2500万经验
GIVE 经验 25000000
BREAK
#IF
!CHECKNAMELIST ..\QuestDiary\游戏数据\金牌勇士(永久).txt
EQUAL S2 封号
#ACT
MOV S4 $STR(S3)
MOV S4 $STR(S3)
temprank 金牌勇士(永久)
ADDNAMELIST ..\QuestDiary\游戏数据\金牌勇士(永久).txt
BREAK

[@密室排名]
#IF
equal P0 0
#ACT
mov S0 $USERNAME
inc S0 |

#IF
PosInList $STR(S0) ..\QuestDiary\游戏数据\各种排行\密室排名.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\游戏数据\各种排行\密室排名.txt
#IF
LARGE P0 9
#ACT
Break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\游戏数据\各种排行\密室排名.txt S0 $STR(P0)
MOV P1
#IF
!EQUAL S0
#ACT
GETVALIDSTR $STR(S0) | S1 P1
#IF
LARGE D1 $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$STR(D1)>
INSERTVARLIST $STR(P0) $STR(S0) ..\QuestDiary\游戏数据\各种排行\密室排名.txt
#ELSEACT
INC P0 1
GOTO @密室排名


[@强化技能]
#IF
Check [86] 1
#ACT
break
#SAY
　　你已经获得相应的奖励了，请速速离开吧！\\
　　<离开/@exit>
#IF
CHECKSKILL 强化攻杀剑法 > 0
#ACT
SET [86] 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物，获得了强化技能灵丹，只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break
#SAY
　　你已经学习过强化技能了，这个强化技能灵丹就是奖励你\
升级技能吧。\\
　　<谢谢/@exit>
#IF
CHECKSKILL 强化火球术 > 0
#ACT
SET [86] 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物，获得了强化技能灵丹，只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break
#SAY
　　你已经学习过强化技能了，这个强化技能灵丹就是奖励你\
升级技能吧。\\
　　<谢谢/@exit>
#IF
CHECKSKILL 强化施毒术 > 0
#ACT
SET [86] 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物，获得了强化技能灵丹，只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break
#SAY
　　你已经学习过强化技能了，这个强化技能灵丹就是奖励你\
升级技能吧。\\
　　<谢谢/@exit>
#ELSESAY
\
#ELSEACT
SET [86] 1
GOTO @学习强化技能
break

[@学习强化技能]
#IF
checkjob warrior
#ACT
ADDSKILL 强化攻杀剑法 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中强化技能,只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break
#IF
checkjob wizard
#ACT
ADDSKILL 强化火球术 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中强化技能,只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break
#IF
checkjob taoist
#ACT
ADDSKILL 强化施毒术 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中强化技能,只要探索黑暗殿堂，就有机会获得灵丹升级强化技能
break


[@返回]
　　你确定要离开这里返回到中州吗？\\
　　<是的，我想离开/@返回中州了>\
　　<返回/@main>

[@返回中州了]
#ACT
MAPMOVE 0 472 226
break

[@兑换卷轴]
你有千万经验礼券吗？有的话，可以在我这里兑换。\\
<我有，我要兑换千万经验礼券/@开始兑换了>\\
<没有/@exit>

[@开始兑换了]
#IF
Check [89] 1
#SAY
你已经兑换过一次了，请下次再来吧。\\
<离开/@exit>
#ACT
break
#IF
checkitem 千万经验礼券 1
#ACT
take 千万经验礼券 1
MOVR P1 3
INC P1
MULT P1 10000000
GIVE 经验 $STR(P1)
SET [89] 1
SENDMSG 5 恭喜你成功兑换到了<$STR(P1)>经验
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂密室守护者处成功使用千万经验礼券兑换到了<$STR(P1)>经验
#SAY
恭喜你本次成功兑换了<$STR(P1)>经验。\\
<谢谢/@exit>
#ELSESAY
你没有带来千万经验礼券，不能兑换。\\
<离开/@exit>

[@任务]
#IF
Check [88] 0
#SAY
　　勇士，请将出现在你面前的魔王消灭，一切拜托了！\\
　　<好的/@exit>\\
#ACT
SET [88] 1
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\殿堂怪物.txt S76
Param1 $M
Param2 27
Param3 39
MonGen $STR(S76) 1 5 $STR(S76)
break
#ELSESAY
　　勇士，请将出现在你面前的魔王消灭，一切拜托了！\\
　　<我来领取奖励/@领奖>\
　　<离开/@exit>

[@领奖]
#IF
checkmonmap $M 1
#SAY
　　你尚未消灭这里的所有的怪物！\\
　　<离开/@exit>
#ACT
break

#IF
Check [87] 0
#ACT
ReadRandomStr ..\QuestDiary\游戏读取\密室有礼\黑暗殿堂奖品.txt S7
SET [87] 1
GIVE $STR(S7) 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物，获得了<$STR(S7)>，完成恶魔城拯救公主任务，就能探索黑暗殿堂，丰富宝藏等你来拿
#SAY
这件宝贝就给你了，是好是坏都是你的运气决定：\\
你获得奖品：<$STR(S7)>\\
<谢谢/@exit>
#ELSESAY
你已经领取过一次礼物了，不要重复领取。\\
<离开/@exit>

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

强烈支持楼主ing……

我只是路过打酱油的。

淡定，淡定，淡定……

激动人心，无法言表！

激动人心，无法言表！

我只是路过打酱油的。

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

看到这帖子真是高兴！