热门标签：传奇引擎版本网络开区最新服务脚本服务端 1.76

您当前的位置：首页 > 传世技术

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

本文出处：网游动力作者：本站发布时间：2014-10-16阅读次数：

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

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>

上一篇文章：添加传世双倍经验炼狱入口的流程
下一篇文章：全新副本神威狱守卫文件分享

热门文章