传奇商业脚本 传奇BLUE编写的天下第一脚本 传奇私服脚本

BLUE编写的天下第一脚本（传奇） 

     ()

%100

[@main]

国王有令：为天下最强的勇士们在盟重土城树立雕像，彰显 \

他们名号。天下群豪尽可以到我这里来登记在案，看看到底 \

谁是群雄中的最强者。如果来登记的勇士中你是最强的一位 \

你从此以后就可以名扬天下了。 \

<我是天下第一/@天下第一> \

<天下第一有谁/@查看第一> \

<离开/@exit> \

[@查看第一]

<天下第一男战士/@男战> \

<天下第一女战士/@女战> \

<天下第一男道士/@男道> \

<天下第一女道士/@女道> \

<天下第一男法师/@男法> \

<天下第一女法师/@女法> \

[@天下第一]

#IF

CHECKLEVELEX < 49

#act

break

#say

看来你很有信心，不过你还没有达到资格，你需要50级来证明自己的实力\

现在来申请天下第一恐怕还嫌早.\

<离开/@exit>

#IF

gender man

checkjob warrior

#act

break

mov A0 <$LEVEL>

goto @男战申请

#IF

gender man

checkjob wizard

#act

break

mov A1 <$LEVEL>

goto @男法申请

#IF

gender man

checkjob taoist

#act

break

mov A2 <$LEVEL>

goto @男道申请

#IF

checkjob warrior

#act

break

mov A3 <$LEVEL>

goto @女战申请

#IF

checkjob wizard

#act

break

mov A4 <$LEVEL>

goto @女法申请

#IF

checkjob taoist

#act

break

mov A5 <$LEVEL>

goto @女道申请

[@男战申请]

#IF

large G24 <$STR(A0)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G24 <$STR(A0)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G24 <$STR(A0)>

mov s1 ↘天下第一男战↙\

inc S1 <$USERNAME>

inc S1 \

mov A6 <$USERNAME>

mov A7 <$GUILDNAME>

mov A8 <$LEVEL>

mov A9 <$DATETIME>

SETRANKLEVELNAME <$STR(S1)>

CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt

addnamelist ..\QuestDiary\天下第一\男战士名单.txt

SENDMSG 4 %s成功申请了天下第一男战士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男战士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男战士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G24 <$STR(A0)>

mov s1 ↘天下第一男战↙\

inc S1 <$USERNAME>

inc S1 \

mov A6 <$USERNAME>

mov A7 暂无

mov A8 <$LEVEL>

mov A9 <$DATETIME>

SETRANKLEVELNAME <$STR(S1)>

CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt

addnamelist ..\QuestDiary\天下第一\男战士名单.txt

SENDMSG 4 %s成功申请了天下第一男战士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男战士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男战士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

[@男法申请]

#IF

large G25 <$STR(A1)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G25 <$STR(A1)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G25 <$STR(A1)>

mov s2 ↘天下第一男法↙\

inc S2 <$USERNAME>

inc S2 \

mov A10 <$USERNAME>

mov A11 <$GUILDNAME>

mov A12 <$LEVEL>

mov A13 <$DATETIME>

SETRANKLEVELNAME <$STR(S2)>

CLEARNAMELIST ..\QuestDiary\天下第一\男法师名单.txt

addnamelist ..\QuestDiary\天下第一\男法师名单.txt

SENDMSG 4 %s成功申请了天下第一男法师！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男法师！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男法师是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G25 <$STR(A1)>

mov s2 ↘天下第一男法↙\

inc S2 <$USERNAME>

inc S2 \

mov A10 <$USERNAME>

mov A11 暂无

mov A12 <$LEVEL>

mov A13 <$DATETIME>

SETRANKLEVELNAME <$STR(S2)>

CLEARNAMELIST ..\QuestDiary\天下第一\男法师名单.txt

addnamelist ..\QuestDiary\天下第一\男法师名单.txt

SENDMSG 4 %s成功申请了天下第一男法师！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男法师！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男法师是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

[@男道申请]

#IF

large G26 <$STR(A2)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G26 <$STR(A2)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G26 <$STR(A2)>

mov s3 ↘天下第一男道↙\

inc S3 <$USERNAME>

inc S3 \

mov A14 <$USERNAME>

mov A15 <$GUILDNAME>

mov A16 <$LEVEL>

mov A17 <$DATETIME>

SETRANKLEVELNAME <$STR(S3)>

CLEARNAMELIST ..\QuestDiary\天下第一\男道士名单.txt

addnamelist ..\QuestDiary\天下第一\男道士名单.txt

SENDMSG 4 %s成功申请了天下第一男道士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男道士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男道士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G26 <$STR(A2)>

mov s3 ↘天下第一男道↙\

inc S3 <$USERNAME>

inc S3 \

mov A14 <$USERNAME>

mov A15 暂无

mov A16 <$LEVEL>

mov A17 <$DATETIME>

SETRANKLEVELNAME <$STR(S3)>

CLEARNAMELIST ..\QuestDiary\天下第一\男道士名单.txt

addnamelist ..\QuestDiary\天下第一\男道士名单.txt

SENDMSG 4 %s成功申请了天下第一男道士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一男道士！他在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一男道士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

[@女战申请]

#IF

large G27 <$STR(A3)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G27 <$STR(A3)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G27 <$STR(A3)>

mov s4 ↘天下第一女战↙\

inc S4 <$USERNAME>

inc S4 \

mov A18 <$USERNAME>

mov A19 <$GUILDNAME>

mov A20 <$LEVEL>

mov A21 <$DATETIME>

SETRANKLEVELNAME <$STR(S4)>

CLEARNAMELIST ..\QuestDiary\天下第一\女战士名单.txt

addnamelist ..\QuestDiary\天下第一\女战士名单.txt

SENDMSG 4 %s成功申请了天下第一女战士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女战士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女战士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G27 <$STR(A3)>

mov s4 ↘天下第一女战↙\

inc S4 <$USERNAME>

inc S4 \

mov A18 <$USERNAME>

mov A19 暂无

mov A20 <$LEVEL>

mov A21 <$DATETIME>

SETRANKLEVELNAME <$STR(S4)>

CLEARNAMELIST ..\QuestDiary\天下第一\女战士名单.txt

addnamelist ..\QuestDiary\天下第一\女战士名单.txt

SENDMSG 4 %s成功申请了天下第一女战士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女战士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女战士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

[@女法申请]

#IF

large G28 <$STR(A4)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G28 <$STR(A4)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G28 <$STR(A4)>

mov s5 ↘天下第一女法↙\

inc S5 <$USERNAME>

inc S5 \

mov A22 <$USERNAME>

mov A23 <$GUILDNAME>

mov A24 <$LEVEL>

mov A25 <$DATETIME>

SETRANKLEVELNAME <$STR(S5)>

CLEARNAMELIST ..\QuestDiary\天下第一\女法师名单.txt

addnamelist ..\QuestDiary\天下第一\女法师名单.txt

SENDMSG 4 %s成功申请了天下第一女法师！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女法师！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女法师是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G28 <$STR(A4)>

mov s5 ↘天下第一女法↙\

inc S5 <$USERNAME>

inc S5 \

mov A22 <$USERNAME>

mov A23 暂无

mov A24 <$LEVEL>

mov A25 <$DATETIME>

SETRANKLEVELNAME <$STR(S5)>

CLEARNAMELIST ..\QuestDiary\天下第一\女法师名单.txt

addnamelist ..\QuestDiary\天下第一\女法师名单.txt

SENDMSG 4 %s成功申请了天下第一女法师！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女法师！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女法师是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

[@女道申请]

#IF

large G29 <$STR(A5)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

EQUAL G29 <$STR(A5)>

#act

break

#say

对不起！！你目前还不是最高等级！\\\

#IF

HAVEGUILD

#act

break

mov G29 <$STR(A5)>

mov s6 ↘天下第一女道↙\

inc S6 <$USERNAME>

inc S6 \

mov A26 <$USERNAME>

mov A27 <$GUILDNAME>

mov A28 <$LEVEL>

mov A29 <$DATETIME>

SETRANKLEVELNAME <$STR(S6)>

CLEARNAMELIST ..\QuestDiary\天下第一\女道士名单.txt

addnamelist ..\QuestDiary\天下第一\女道士名单.txt

SENDMSG 4 %s成功申请了天下第一女道士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女道士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女道士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

#IF

#act

mov G29 <$STR(A5)>

mov s6 ↘天下第一女道↙\

inc S6 <$USERNAME>

inc S6 \

mov A26 <$USERNAME>

mov A27 暂无

mov A28 <$LEVEL>

mov A29 <$DATETIME>

SETRANKLEVELNAME <$STR(S6)>

CLEARNAMELIST ..\QuestDiary\天下第一\女道士名单.txt

addnamelist ..\QuestDiary\天下第一\女道士名单.txt

SENDMSG 4 %s成功申请了天下第一女道士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

SENDMSG 0 %s成功申请了天下第一女道士！她在烽烟四起的<$SERVERNAME>中修炼成为天下第一，明天的天下第一会是谁？

#say

申请成功！目前今天的天下第一女道士是<$USERNAME>，\

明天的天下第一会是谁？ \ \

<离开/@exit>

[@男战]

#CALL [\\天下第一\男战士.txt] @天下第一战男

[@男法]

#CALL [\\天下第一\男法师.txt] @天下第一法男

[@男道]

#CALL [\\天下第一\男道士.txt] @天下第一道男

[@女战]

#CALL [\\天下第一\女战士.txt] @天下第一战女

[@女法]

#CALL [\\天下第一\女法师.txt] @天下第一法女

[@女道]

#CALL [\\天下第一\女道士.txt] @天下第一道女

以上为加入检测天下第一人的脚本！以下是变量显示：

[@天下第一道男]

{

天下第一男道士：<$STR(A14)>\

所属行会：<$STR(A15)> \\

纷扰乱世群雄逐鹿，<$STR(A14)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、他从<$STR(A17)>至今还没有人可以超越。\

<$STR(A14)>的目前等级为<$STR(A16)>级。\

今天的天下第一是<$STR(A14)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}

[@天下第一法男]

{

天下第一男法师：<$STR(A10)>\

所属行会：<$STR(A11)> \\

纷扰乱世群雄逐鹿，<$STR(A10)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、他从<$STR(A13)>至今还没有人可以超越。\

<$STR(A10)>的等级目前为<$STR(A12)>级。\

今天的天下第一是<$STR(A10)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}

[@天下第一战男]

{

天下第一男战士：<$STR(A6)>\

所属行会：<$STR(A7)> \ \

纷扰乱世群雄逐鹿，<$STR(A6)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、他从<$STR(A9)>至今还没有人可以超越。\

<$STR(A6)>的等级目前为<$STR(A8)>级。\

今天的天下第一是<$STR(A6)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}

[@天下第一道女]

{

天下第一女道士：<$STR(A26)>\

所属行会：<$STR(A27)> \\

纷扰乱世群雄逐鹿，<$STR(A26)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、她从<$STR(A29)>至今还没有人可以超越。\

<$STR(A26)>的等级目前为<$STR(A28)>级。\

今天的天下第一是<$STR(A26)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}

[@天下第一法女]

{

天下第一女法师：<$STR(A22)>\

所属行会：<$STR(A23)> \\

纷扰乱世群雄逐鹿，<$STR(A22)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、她从<$STR(A25)>至今还没有人可以超越。\

<$STR(A22)>的等级目前为<$STR(A24)>级。\

今天的天下第一是<$STR(A22)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}

[@天下第一战女]

{

天下第一女战士：<$STR(A18)>\

所属行会：<$STR(A19)> \\

纷扰乱世群雄逐鹿，<$STR(A18)>在烽烟四起的<$SERVERNAME>中修炼成为\

天下第一、她从<$STR(A21)>至今还没有人可以超越。\

<$STR(A18)>的等级目前为<$STR(A20)>级。\

今天的天下第一是<$STR(A18)>，明天的天下第一会是谁？\

申请天下第一名号，请到比齐皇宫找天下第一 <离开/@exit>

}