antyvfl 发表于 2022-10-9 00:35:52

传奇世界服务器必不可少中州_史官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>

guojunhai 发表于 2022-10-9 04:10:18

无回帖,不论坛,这才是人道。

yaosine 发表于 2022-10-10 12:35:54

无回帖,不论坛,这才是人道。

today_gg 发表于 2022-10-11 15:20:22

我只是路过打酱油的。

liyunde 发表于 2022-10-12 11:11:16

无回帖,不论坛,这才是人道。

jonny_77 发表于 2022-10-13 20:10:23

我只是路过打酱油的。

rtyk 发表于 2022-10-15 06:53:28

真是被感动的痛哭流涕……

rabbimeng 发表于 2022-10-16 07:26:32

真是难得给力的帖子啊。

1092427021 发表于 2022-10-16 19:55:14

强烈支持楼主ing……

--M_g-- 发表于 2022-10-16 20:26:06

我只是路过打酱油的。
页: [1] 2
查看完整版本: 传奇世界服务器必不可少中州_史官NPC