传奇世界服务器必不可少中州_史官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>
无回帖，不论坛，这才是人道。 无回帖，不论坛，这才是人道。 我只是路过打酱油的。 无回帖，不论坛，这才是人道。 我只是路过打酱油的。 真是被感动的痛哭流涕…… 真是难得给力的帖子啊。 强烈支持楼主ing…… 我只是路过打酱油的。
页:
[1]
2