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>
}
评论