传世密室守护者全功能脚本
[@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>
- 上一篇文章：添加传世双倍经验炼狱入口的流程
- 下一篇文章：全新副本神威狱守卫文件分享
热门文章
热门标签