antyvfl 发表于 2022-10-9 00:39:17

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

[@main]

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


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

[@密室有礼]
  虽然中州大陆已是阳光和煦,但是黑暗殿堂最近却妖气\
纵横愈发阴寒,多年来禁锢密室的封印正在渐渐失去法力,\
恐怕恐怕抵挡不住多久。\
  十分感谢勇士你能前来帮助我消灭妖魔,我将送给你一\
份礼物略表心意,你若今天还能再来,奖励将会更丰厚。\\
  <那我不客气了/@GIVE>
  <离开/@exit>
[@GIVE]
#IF
Check 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 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 1
#ACT
break
#SAY
  你已经获得相应的奖励了,请速速离开吧!\\
  <离开/@exit>
#IF
CHECKSKILL 强化攻杀剑法 > 0
#ACT
SET 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物,获得了强化技能灵丹,只要探索黑暗殿堂,就有机会获得灵丹升级强化技能
break
#SAY
  你已经学习过强化技能了,这个强化技能灵丹就是奖励你\
升级技能吧。\\
  <谢谢/@exit>
#IF
CHECKSKILL 强化火球术 > 0
#ACT
SET 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物,获得了强化技能灵丹,只要探索黑暗殿堂,就有机会获得灵丹升级强化技能
break
#SAY
  你已经学习过强化技能了,这个强化技能灵丹就是奖励你\
升级技能吧。\\
  <谢谢/@exit>
#IF
CHECKSKILL 强化施毒术 > 0
#ACT
SET 1
GIVE 强化技能灵丹1 1
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂中发现了宝物,获得了强化技能灵丹,只要探索黑暗殿堂,就有机会获得灵丹升级强化技能
break
#SAY
  你已经学习过强化技能了,这个强化技能灵丹就是奖励你\
升级技能吧。\\
  <谢谢/@exit>
#ELSESAY
\
#ELSEACT
SET 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 1
#SAY
你已经兑换过一次了,请下次再来吧。\\
<离开/@exit>
#ACT
break
#IF
checkitem 千万经验礼券 1
#ACT
take 千万经验礼券 1
MOVR P1 3
INC P1
MULT P1 10000000
GIVE 经验 $STR(P1)
SET 1
SENDMSG 5 恭喜你成功兑换到了<$STR(P1)>经验
SENDMSG 10 恭喜<$USERNAME>在黑暗殿堂密室守护者处成功使用千万经验礼券兑换到了<$STR(P1)>经验
#SAY
恭喜你本次成功兑换了<$STR(P1)>经验。\\
<谢谢/@exit>
#ELSESAY
你没有带来千万经验礼券,不能兑换。\\
<离开/@exit>

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


xuwenqing 发表于 2022-10-9 04:30:52

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

kevin4488 发表于 2022-10-11 12:20:34

强烈支持楼主ing……

nhljersey3 发表于 2022-10-14 11:20:06

我只是路过打酱油的。

myselfjo 发表于 2022-10-15 07:56:03

淡定,淡定,淡定……

az11109 发表于 2022-10-15 11:17:45

激动人心,无法言表!

jixiaoyao2010 发表于 2022-10-15 23:37:47

激动人心,无法言表!

13541998866 发表于 2022-10-18 08:38:56

我只是路过打酱油的。

blueeagle4 发表于 2022-10-19 07:43:18

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

ljdx123 发表于 2022-10-19 13:04:45

看到这帖子真是高兴!
页: [1] 2
查看完整版本: 传世密室守护者全功能脚本