传奇世界服务器必不可少中州_史官NPC
[@main]
修罗肆虐，群雄纷起，真正的勇士是保护中州大陆的主
力。将他们记录在册，公布天下，不但战事起时方便布置抵
抗力量，还能让勇士名声得以宣扬，让天下百姓看到我们自
己的力量，对抗击妖魔更加充满信心。
#IF
CHECKVAR HUMAN 任A1 = 40
#SAY
<可接任务/@可接任务2>
#IF
CHECKVAR HUMAN 任A1 = 38
#SAY
<可接任务/@可接任务1>
#IF
CHECKVAR HUMAN 任A1 = 36
#SAY
<可接任务/@可接任务>
#IF
#SAY
<证明自己行会的实力/@行会实力> <传世宝典/@传世宝典>
<打听天下第一的事情/@天下第一>
<勇士的功勋/@勇士功勋>
<老友计划（收到相关邮件者，点击此处领取奖励）/@老友计划>
<离开/@exit>
[@老友计划]
欢迎来到传奇世界，你是否收到了<color=green “老友计划”>的邮件
呢？如果您或您的朋友已经很久没来了，那么快去看看你们
的注册邮箱，或许能够收到一封<color=green “老友计划”>的官方邮件。
如果你已经收到了此邮件，可以进行以下操作：
1、前往中州老兵（468，226）处领取贵宾领奖卡和贵宾老友卡
2、凭贵宾领奖卡和贵宾老友卡在此领取丰富奖励。
<我来领奖/@我来领奖> <我来换取老友经验包/@老友经验包>
[@老友经验包]
你没有老友经验包啊，快去找找吧。\
<离开/@exit>
[@我来领奖]
欢迎你来到小狼传世，老朋友好久不见了。你已经从老
兵那拿到了<color=green 史官领奖券（卡）>和<color=green 传世老友券（卡）>了吧，现
在你就可以在我这换取对应奖励。
<使用史官领奖券（卡）/@使用1>
<使用传世老友券（卡）/@使用2>
<使用贵宾领奖卡/@使用3>
<使用贵宾老友卡/@使用4>
<离开/@exit>
[@使用1]
#ACT
checkitembox 史官领奖券（卡）: 1 2
#SAY
请放入你的史官领奖券（卡），我将给你对应的奖励。
[@getboxitem2]
很抱歉，您并没有指定的领奖道具，无法在此领取奖励。\
<离开/@exit>
[@使用2]
你没有传世老友券（卡），无法兑换奖励\
<离开/@exit>
[@使用3]
#ACT
checkitembox 贵宾领奖卡: 1 3
#SAY
请放入你的贵宾领奖卡，我将给你对应的奖励。
[@getboxitem3]
很抱歉，您并没有指定的领奖道具，无法在此领取奖励。\
<离开/@exit>
[@使用4]
你没有贵宾老友卡，无法兑换奖励\
<离开/@exit>
[@勇士功勋]
很多勇士都在为维护传世大陆的美好环境而努力着。他
们无论在除魔、寻宝、拯救被妖魔围困的同胞或是在自身的
修为上都做出了非凡的贡献。中州王城国王为了表彰勇士们
的贡献，决定为勇士们颁发功勋以做鼓励。\
<增加我的功勋/@增加功勋> <功勋有何作用/@功勋作用>
<升级帐号/@升级帐号> <如何获得功勋/@如何获得>
<功勋换取奖励/@功勋换取> <离开/@exit>
[@功勋作用]
功勋象征着勇士所做出的贡献。功勋越高，贡献也就越
大！使用功勋不但可以将你的帐号升级为白金或钻石帐号，
也可以换取众多高额的奖励！除此之外，功勋还有很多神秘
的作用，还请勇士们慢慢摸索吧！\
<我知道了/@勇士功勋>
[@如何获得]
当勇士在除魔、寻宝、拯救被妖魔围困的同胞或是提升
自身的过程中均有可能获得功勋。比如在完成精密宝箱任务、
王城诏令任务、落霞王城官员答题都可能会获得功勋，在开
启神秘、赤金或白银宝箱过程中也可能会获得功勋，当然，
如果能闯入天关或恶魔城与魔军进行战斗也是可以获得功勋
的，一般而言，越困难的事情所获得的功勋也就越多。\
<我知道了/@勇士功勋>
[@增加功勋]
#ACT
checkitembox 放入功勋凭证 1 4
#SAY
你现在的功勋为：<$HUMAN(功勋)>。请将证明你获得功勋的凭证交给我
吧。
[@getboxitem4]
#IF
checkitemx 功勋凭证(一)
#ACT
take 功勋凭证(一) 1
CALCVAR HUMAN 功勋 + 1
SAVEVAR HUMAN 功勋 ..QUESTDIARY数据文件个人变量个人变量.txt
SENDMSG 5 你的功勋获得+1，你现在的功勋为：<$HUMAN(功勋)>
GOTO @增加功勋
break
#IF
checkitemx 功勋凭证(十)
#ACT
take 功勋凭证(十) 1
CALCVAR HUMAN 功勋 + 10
SAVEVAR HUMAN 功勋 ..QUESTDIARY数据文件个人变量个人变量.txt
SENDMSG 5 你的功勋获得+10，你现在的功勋为：<$HUMAN(功勋)>
GOTO @增加功勋
break
#ELSESAY
您放入的物品不能证明你的功勋。
<离开/@exit>
[@升级帐号]
如果你有足够的功勋，并且把能够改变命运的命运是交
给我，那么我就可以将你的帐号进行升级，你的一生也会大
为不同！
<我要升级白金帐号/@升级白金>
<我要升级钻石帐号/@升级钻石>
<离开/@exit>
[@升级白金]
升级白金帐号规则：
1、需拥有300点功勋，至少需要一块未使用过的命运石，升
级失败只会消耗命运石，而不会扣除功勋。
2、如果能提供三块命运石，那么成功的机率会极大的提高！
成功升级帐号后命运石和功勋都会被扣除。
3、无论是否成功，包裹中所有未使用过的命运石都会收走！\
<我要升级为白金帐号/@升级白金1>
<离开/@exit>
[@升级钻石]
升级钻石帐号规则：
1、需拥有2000点功勋，至少需要一块未使用过的命运石，
升级失败只会消耗命运石，而不会扣除功勋。
2、如果能提供五块命运石，那么成功的机率会极大的提
高！成功升级帐号后命运石和功勋都会被扣除。
3、无论是否成功，包裹中所有未使用过的命运石都会收走！\
<我要升级为钻石帐号/@升级钻石2>
<离开/@exit>
[@升级白金1]
抱歉，您的功勋不够，不能进行升级！\
<离开/@exit>
[@升级钻石2]
抱歉，您的功勋不够，不能进行升级！\
<离开/@exit>
[@功勋换取]
你要用多少功勋换取奖励呢？\
<50点功勋/@50点换取> <100点功勋/@100点换取>
<离开/@exit>
[@传世宝典]
传世宝典上记载着整个传世大陆的史记，每逢传世大陆
动荡之日，异事崛起之时，囊中宝典骤然闪耀，隐隐浮现异
事之兆。
使用宝典可以了解传世大陆上每天发生的事情。并且可
以使用赤金钥匙打开智慧之门。\
<领取传世宝典/@领取传世宝典>
[@领取传世宝典]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出空位！
break
#IF
checkitem 传世宝典 1
#SAY
你已经领过传世宝典了，不用再领取了。\
<我知道了/@exit>
#ELSEACT
GIVE 传世宝典 1
SENDMSG 5 你成功领取了传世宝典，双击即可使用
break
close
[@行会实力]
只有等级达到46级的勇士才能成为行会猛将，这种数量
是衡量一个行会强弱主要因素。只要是行会猛将，我就帮你
记录下来，向大家证明你们行会的实力。
另外，元神深不可测的力量也成为行会实力的支柱。拥
有元神数量越多，行会自然越强，如果你拥有元神，我同样
可以帮你行会证明这份实力。
<我是行会猛将/@是行会猛将>
<我拥有元神/@元神46>
<离开/@exit>
[@是行会猛将]
#IF
CHECKLEVELEX < 46
#SAY
以你目前的等级，可评不上行会猛将。年轻人，还是多
出去磨练磨练吧。
<离开/@exit>
#ACT
break
#ELSEACT
MOV S0 $HUMAN(行01)
#IF
HAVEGUILD
#ELSESAY
你都没有加入行会！\
<离开/@exit>
#ELSEACT
break
#IF
SMALL S0 $GUILDNAME
#ACT
CALCVAR HUMAN 行01 + $GUILDNAME
SAVEVAR HUMAN 行01 ..QUESTDIARY数据文件个人变量个人变量.txt
GuildFervent $GUILDNAME + 1
SendMsg 0 <$USERNAME>:在中州史官处证明了他是[<$GUILDNAME>]行会中的行会猛将
SendMsg 10 恭喜<$USERNAME>在中州史官处证明了他是[<$GUILDNAME>]行会中的行会猛将
#SAY
恭喜你成功证明你是你当前行会的行会猛将。\
当前你所在行会一共拥有行会猛将数：<$GUILD.Fervent>位\
<离开/@exit>
#ELSESAY
你之前已经向我证明过了，你的人物已经记录在册。不
过，如果你以后加入别的行会，你还需要再来我这里，为你
的新行会来证明实力。
<离开/@exit>
#ELSEACT
break
[@元神46]
#IF
HAVEGUILD
#ELSESAY
你都没有加入行会！\
<离开/@exit>
#ELSEACT
break
#IF
checkys
#ACT
MOV S0 $HUMAN(行02)
#ELSESAY
你都还没有元神呢！\
<离开/@exit>
#ELSEACT
break
#IF
SMALL $YSLEVEL 46
#SAY
需要元神等级达到46级才可以证明行会实力！\
<离开/@exit>
#ACT
break
#IF
SMALL S0 $GUILDNAME
#ACT
CALCVAR HUMAN 行02 + $GUILDNAME
SAVEVAR HUMAN 行02 ..QUESTDIARY数据文件个人变量个人变量.txt
Guildyuanshen $GUILDNAME + 1
SendMsg 0 <$USERNAME>:在中州史官处证明了他的元神是[<$GUILDNAME>]行会中的行会猛将
SendMsg 10 恭喜<$USERNAME>在中州史官处证明了他的元神是[<$GUILDNAME>]行会中的行会猛将
#SAY
恭喜你成功证明你的元神是你行会的行会猛将。\
当前你所在行会一共拥有元神数：<$GUILD.yuanshen>位\
<离开/@exit>
#ELSESAY
你之前已经向我证明过了，你的元神已经记录在册。不
过，如果你以后加入别的行会，你还需要再来我这里，为你
的新行会来证明实力。
<离开/@exit>
#ELSEACT
break
[@天下第一]
国王有令:为天下最强的勇士们在中州大道树立雕像,彰显
他们名号.天下群豪尽可以到我这里来登记在案,看看到底
谁是群雄中的最强者.如果来登记的勇士中你是最强的一位，
你从此以后就可以名扬天下了。
<我是天下第一/@我是天下>
<天下第一有谁/@天下有谁>
<离开/@exit>
[@我是天下]
#IF
LARGE G5 $STR(G9)
#ACT
ClearVar S0 99
goto @允许申请第一
#ELSEACT
MOV P2 $STR(G9)
DEC P2 $STR(G5)
break
#ELSESAY
距离<color=red 申请天下第一>开放时间还有：<$STR(P2)><color=rend 分钟>
[@允许申请第一]
#IF
CHECKLEVELEX < 46
#ACT
Break
#SAY
看来你很有信心，不过你连进入名人堂的资格还没有达到，
你需要46级来证明自己的实力，
现在来申请天下第一恐怕还嫌早。
<离开/@exit>
#IF
EQUAL $GUILDNAME 无
#ACT
MOV S10 无
#IF
!EQUAL $GUILDNAME 无
#ACT
MOV S10 $GUILDNAME
#IF
gender man
#ACT
FORMATSTR S11 男%s <$JOB>
MOV P60 0
#IF
gender woman
#ACT
FORMATSTR S11 女%s <$JOB>
MOV P60 0
#IF
EQUAL S11 男战士
#ACT
MOV P60 0
#IF
EQUAL S11 女战士
#ACT
MOV P60 1
#IF
EQUAL S11 男道士
#ACT
MOV P60 2
#IF
EQUAL S11 女道士
#ACT
MOV P60 3
#IF
EQUAL S11 男法师
#ACT
MOV P60 4
#IF
EQUAL S11 女法师
#ACT
MOV P60 5
#IF
SMALL P60 6
#ACT
READRANDOMSTR ..QuestDiary数据文件天下第一.txt S0 $STR(P60)
#IF
!EQUAL S0 无
#ACT
split $STR(S0) | S1
MOV P0 $STR(S4)
MOV P1 $STR(S3)
MOV S80 $STR(S5)
#IF
SMALL $LEVEL $STR(P0)
#act
break
#say
须知人外有人，天外有天。现在的天下至强者还不是你
能超越的。不过假以时日，江山代有强豪出，指点天下
的强者也自会有努力者一席之地的。
<返回/@MAIN>
#IF
SMALL $TRFL 3
#ACT
GOTO @不是第一
BREAK
#IF
LARGE $TRFL 2
#ACT
GOTO @天人第一
break
[@天人第一]
#IF
LARGE $TRFL 2
SMALL $TRFL 5
#ACT
ZZF S7 $TRJJ
MOV S8 天人
INC S8 $STR(S7)
INC S8 重
MOV S20 $STR(S8)
MOV P6 $TRJJ
#IF
LARGE $TRFL 4
SMALL $TRFL 7
#ACT
ZZF S7 $TRJJ
MOV S8 天仙
INC S8 $STR(S7)
INC S8 重
MOV P6 99
INC P6 $TRJJ
MOV S20 $STR(S8)
#IF
LARGE $TRFL 6
#ACT
ZZF S7 $TRJJ
MOV S8 上仙
INC S8 $STR(S7)
INC S8 重
MOV P6 198
INC P6 $TRJJ
MOV S20 $STR(S8)
#IF
LARGE P6 $STR(P1)
#ACT
GOTO @记录天下第一
break
#ELSESAY
须知人外有人，天外有天。现在的天下至强者还不是你
能超越的。不过假以时日，江山代有强豪出，指点天下
的强者也自会有努力者一席之地的。
<返回/@MAIN>
[@不是第一]
#IF
SMALL P0 $LEVEL
#ACT
MOV S20 $LEVEL
MOV P6 0
GOTO @记录天下第一
BREAK
#ELSESAY
须知人外有人，天外有天。现在的天下至强者还不是你
能超越的。不过假以时日，江山代有强豪出，指点天下
的强者也自会有努力者一席之地的。
<返回/@MAIN>
[@记录天下第一]
#IF
gender man
checkjob warrior
#ACT
CALCVAR GLOBAL 男战士 = $USERNAME
SAVEVAR GLOBAL 男战士 ..QuestDiary数据文件全局变量全局变量.txt
#IF
gender woman
checkjob warrior
#ACT
CALCVAR GLOBAL 女战士 = $USERNAME
SAVEVAR GLOBAL 女战士 ..QuestDiary数据文件全局变量全局变量.txt
#IF
gender man
checkjob taoist
#ACT
CALCVAR GLOBAL 男道士 = $USERNAME
SAVEVAR GLOBAL 男道士 ..QuestDiary数据文件全局变量全局变量.txt
#IF
gender woman
checkjob taoist
#ACT
CALCVAR GLOBAL 女道士 = $USERNAME
SAVEVAR GLOBAL 女道士 ..QuestDiary数据文件全局变量全局变量.txt
#IF
gender man
checkjob wizard
#ACT
CALCVAR GLOBAL 男法师 = $USERNAME
SAVEVAR GLOBAL 男法师 ..QuestDiary数据文件全局变量全局变量.txt
#IF
gender woman
checkjob wizard
#ACT
CALCVAR GLOBAL 女法师 = $USERNAME
SAVEVAR GLOBAL 女法师 ..QuestDiary数据文件全局变量全局变量.txt
#IF
random 1
#ACT
FORMATSTR S12 天下第一%s%s <$STR(S11)>|<$USERNAME>
FORMATSTR S15 %s|%s|%s|%s|%s|%s <$STR(S11)>|<$USERNAME>|<$STR(P6)>|<$LEVEL>|<$STR(S5)>|<$STR(S6)>
SETNPCNAME $STR(S80) $STR(S12)
DELVARLIST $STR(S0) ..QuestDiary数据文件天下第一.txt
;ADDVARLIST $STR(S15) ..QuestDiary数据文件天下第一.txt
INSERTVARLIST $STR(P60) $STR(S15) .QuestDiary数据文件天下第一.txt
FORMATSTR S13 天下第一{color=green#32%s}：{color=green#32%s}所属行会：{color=green#32%s}\纷扰乱世群雄逐鹿，{color=green#32%s}在烽烟四起的小狼传世中修炼成为天下第一，从{color=green#32%s}年{color=green#32%s}月{color=green#32%s}日至今还没有人可以超越。{color=green#32%s}的等级为{color=green#32%s}。今天的天下第一是{color=green#32%s}，明天的天下第一会是谁？<COLOR=GREEN#32#32#32#32#32天下第一享受1.2倍攻击，卫士下跪特权>申请天下第一名号，请到中州475，150处找史官 <离开/@exit> <$STR(S11)>|<$USERNAME>|<$STR(S10)>|<$USERNAME>|<$YEAR>|<$MONTH>|<$DAY>|<$USERNAME>|<$STR(S20)>|<$USERNAME>
SENDMSG 2 %s已经以<$STR(S20)>的等级在我这里证实了他才是天下第一<$STR(S11)>，想要申请天下第一速来中州475，150处找我。
SENDMSG 10 %s已经以<$STR(S20)>的等级在我这里证实了他才是天下第一<$STR(S11)>，想要申请天下第一速来中州475，150处找我。
ReadRandomStr ..QuestDiary数据文件天下排名.txt S21 $STR(S6)
DELVARLIST $STR(S21) ..QuestDiary数据文件天下排名.txt
INSERTVARLIST $STR(p60) $STR(S13) .QuestDiary数据文件天下排名.txt
break
#SAY
恭喜恭喜！看来你的确是实至名归，你的大名已经和石
像一起树立于中州大道，接受众人的景仰。
<确认/@exit>
[@天下有谁]
<天下第一男战士/@SearchRank&男战士>
<天下第一女战士/@SearchRank&女战士>
<天下第一男道士/@SearchRank&男道士>
<天下第一女道士/@SearchRank&女道士>
<天下第一男法师/@SearchRank&男法师>
<天下第一女法师/@SearchRank&女法师>
[@SearchRank]
#IF
PosEx $PARAM(50) .QuestDiary数据文件天下第一.txt S0
#ACT
split $STR(S0) | S1
#IF
LARGE S4 0
#ACT
ReadRandomStr ..QuestDiary数据文件天下排名.txt S10 $STR(S6)
break
#SAY
<$STR(S10)>
#ELSESAY
天下第一<$PARAM(50)>\申请天下第一名号，请到中州475，150处找史官 <离开/@exit>
[@可接任务]
可以完成的任务：
<新手任务--史官的愤怒/@任务1>\
<离开/@exit>
[@可接任务]
可以完成的任务：
<新手任务--史官的愤怒/@任务1>\
<离开/@exit>
[@任务1]
这世道承平日久，人们已经忘记了当初，他们的前辈是如何
洒铁血、燃丹心来换取天下太平的。这年头的年轻人，都是
提笼架鸟满街溜达的纨绔子弟，没有几个有勇气的人。听说
武馆来了个年轻人，深入将军坟东，独立杀死大群尸卫，真
是难得啊。你是谁，找我干吗？
<我就是那个年轻人，前来求见史官/@求见史官> <离开/@exit>
[@求见史官]
#IF
CHECKVAR HUMAN 任A1 = 36
#ACT
ENDtask 新手任务15
ADDtask 新手任务15
UpdateTask 新手任务15 2
CHANGEEXP + 50000
DECtask + 1
CALCVAR HUMAN 任A1 = 37
SAVEVAR HUMAN 任A1 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
快去将军坟南杀死尸卫，夺回传世史记吧；王国源远流
长的文化，绝不容许妖孽的玷污。
<离开/@exit>
#ELSESAY
你还没有完成任务！
<离开/@exit>
[@可接任务1]
可以完成的任务：
<新手任务--史官的愤怒/@任务2>\
<离开/@exit>
[@任务2]
我很惊讶你这么快就夺回了传世史记，这证明你的勇敢
和智慧并非浪得虚名，大家都在谈论你的英雄事迹。伟大的
英雄，在你未来驰聘大陆、笑傲风云的岁月中，你将学会许
多神奇的武技，也将掌握许多鲜为人知的秘密，这些秘密将
给你莫大的帮助。现在，就有一个秘密等待你去发掘；这个
秘密对你的未来很有帮助，你可愿意试试？
<我很好奇，想知道这个秘密是啥？/@是啥？> <没有兴趣/@exit>
[@是啥？]
#IF
CHECKVAR HUMAN 任A1 = 38
#ACT
ENDtask 新手任务15
ADDtask 新手任务16
take 传世史记 1
CHANGEEXP + 80000
DECtask + 1
CALCVAR HUMAN 任A1 = 39
SAVEVAR HUMAN 任A1 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
快去将军坟南杀死尸卫勇士，你就能得到地魂灵石了。
这种灵石对于修炼元神分身的人，将有神奇的帮助。
<离开/@exit>
#ELSESAY
你还没有完成任务！
<离开/@exit>
[@可接任务2]
可以完成的任务：
<新手任务--夺回地魂灵石/@任务3>\
<离开/@exit>
[@任务3]
恩，你的实力以远远超过了我的预期，也许你就是那个
有缘人，是时候了。传世大陆上还有一个世界被称为“炼狱”，
那里几乎拥有这个世界中所有的地形和怪物，同时也拥有无
穷的财宝。至于这个世界是怎么形成的，也许只有创世神才
知道，你愿意前往这个传说中的世界吗？
<我愿意去/@我愿意去1> <没有兴趣/@exit>
[@我愿意去1]
#IF
CHECKVAR HUMAN 任A1 = 40
#ACT
ENDtask 新手任务16
ADDtask 新手任务17
CHANGEEXP + 100000
DECtask + 1
CALCVAR HUMAN 任A1 = 41
SAVEVAR HUMAN 任A1 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
哈哈，很好！去找中州老兵吧，他会告诉你怎样才可以
进入<COLOR=GREEN 炼狱>的。
<离开/@exit>
#ELSESAY
快去将军坟南杀死尸卫勇士，你就能得到地魂灵石了。
这种灵石对于修炼元神分身的人，将有神奇的帮助。
<离开/@exit>
- 上一篇文章：老脚本新编写传世中州_书店老板脚本
- 下一篇文章：传世道士专用中州_炼药师功能NPC
热门文章
热门标签