0209M5天下第一脚本

[@main]
国王有令：为天下最强的勇士们在中州大道树立雕像，彰显 \
他们名号。天下群豪尽可以到我这里来登记在案，看看到底 \
谁是群雄中的最强者。如果来登记的勇士中你是最强的一位 \
你从此以后就可以名扬天下了。 \
<我是天下第一/@xdbz> \
<天下第一有谁/@zsxdbz> \
<离开/@exit> \
;使用脚本请勿改这行，编写：QQ363537，研究群：566389
[@zsxdbz]
<天下第一男战士/@男战> \
<天下第一女战士/@女战> \
<天下第一男道士/@男道> \
<天下第一女道士/@女道> \
<天下第一男法师/@男法> \
<天下第一女法师/@女法> \
;使用脚本请勿改这行，编写：QQ363537，研究群：566389
[@xdbz]
#IF
CHECKLEVELEX < 45
#act
break
#say
看来你很有信心，不过你连进入名人堂的资格还没有达到，你需要 \
46级来证明自己的实力，现在来申请天下第一恐怕还嫌早。 \
<离开/@exit>

#IF
gender man
checkjob warrior
#act
break
mov M11 $LEVEL
goto @男战记

#IF
gender man
checkjob wizard
#act
break
mov M12 $LEVEL
goto @男法记

#IF
gender man
checkjob taoist
#act
break
mov M13 $LEVEL
goto @男道记

#IF
checkjob warrior
#act
break
mov M14 $LEVEL
goto @女战记
;使用脚本请勿改这行，编写：QQ363537，研究群：566389
#IF
checkjob wizard
#act
break
mov M15 $LEVEL
goto @女法记

#IF
checkjob taoist
#act
break
mov M16 $LEVEL
goto @女道记

[@男战记]
#IF
large g4 $STR(M11)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g4 $STR(M11)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G4 $STR(M11)
mov A51 天下第一男战\
inc A51 $USERNAME
inc A51 \
mov A75 $USERNAME
mov A52 $GUILDNAME
mov A53 $LEVEL
mov A54 $DATETIME
dec A54 14 16
SETNPCNAME 2 $STR(A51)
SENDMSG 9 %s成功申请了天下第一男战士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男战士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

#IF
#act
mov G4 $STR(M11)
mov A51 天下第一男战\
inc A51 $USERNAME
inc A51 \
mov A75 $USERNAME
mov A52 暂无
mov A53 $LEVEL
mov A54 $DATETIME
dec A54 14 16
SETNPCNAME 2 $STR(A51)
SENDMSG 9 %s成功申请了天下第一男战士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男战士是<$USERNAME>，\
明天的天下第一会是谁？ \ \

[@男法记]
#IF
large g5 $STR(M12)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g5 $STR(M12)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G5 $STR(M12)
mov A55 天下第一男法\
inc A55 $USERNAME
inc A55 \
mov A76 $USERNAME
mov A56 $GUILDNAME
mov A57 $LEVEL
mov A58 $DATETIME
dec A58 14 16
SETNPCNAME 3 $STR(A55)
SENDMSG 9 %s成功申请了天下第一男法师！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男法师是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>


#IF
#act
mov G5 $STR(M12)
mov A55 天下第一男法\
inc A55 $USERNAME
inc A55 \
mov A76 $USERNAME
mov A56 暂无
mov A57 $LEVEL
mov A58 $DATETIME
dec A58 14 16
SETNPCNAME 3 $STR(A55)
SENDMSG 9 %s成功申请了天下第一男法师！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男法师是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

[@男道记]
#IF
large g6 $STR(M13)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g6 $STR(M13)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G6 $STR(M13)
mov A59 天下第一男道\
inc A59 $USERNAME
inc A59 \
mov A77 $USERNAME
mov A60 $GUILDNAME
mov A61 $LEVEL
mov A62 $DATETIME
dec A62 14 16
SETNPCNAME 4 $STR(A59)
SENDMSG 9 %s成功申请了天下第一男道士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男道士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>
#IF
#act
mov G6 $STR(M13)
mov A59 天下第一男道\
inc A59 $USERNAME
inc A59 \
mov A77 $USERNAME
mov A60 暂无
mov A61 $LEVEL
mov A62 $DATETIME
dec A62 14 16
SETNPCNAME 4 $STR(A59)
SENDMSG 9 %s成功申请了天下第一男道士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一男道士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

[@女战记]
#IF
large g7 $STR(M14)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g7 $STR(M14)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G7 $STR(M14)
mov A63 天下第一女战\
inc A63 $USERNAME
inc A63 \
mov A78 $USERNAME
mov A64 $GUILDNAME
mov A65 $LEVEL
mov A66 $DATETIME
dec A66 14 16
SETNPCNAME 5 $STR(A63)
SENDMSG 9 %s成功申请了天下第一女战士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女战士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>
#IF
#act
mov G7 $STR(M14)
mov A63 天下第一女战\
inc A63 $USERNAME
inc A63 \
mov A78 $USERNAME
mov A64 暂无
mov A65 $LEVEL
mov A66 $DATETIME
dec A66 14 16
SETNPCNAME 5 $STR(A63)
SENDMSG 9 %s成功申请了天下第一女战士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女战士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

[@女法记]
#IF
large g8 $STR(M15)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g8 $STR(M15)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G8 $STR(M15)
mov A67 天下第一女法\
inc A67 $USERNAME
inc A67 \
mov A79 $USERNAME
mov A68 $GUILDNAME
mov A69 $LEVEL
mov A70 $DATETIME
dec A70 14 16
SETNPCNAME 6 $STR(A67)
SENDMSG 9 %s成功申请了天下第一女法师！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女法师是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>
#IF
#act
mov G8 $STR(M15)
mov A67 天下第一女法\
inc A67 $USERNAME
inc A67 \
mov A79 $USERNAME
mov A68 暂无
mov A69 $LEVEL
mov A70 $DATETIME
dec A70 14 16
SETNPCNAME 6 $STR(A67)
SENDMSG 9 %s成功申请了天下第一女法师！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女法师是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

[@女道记]
#IF
large g9 $STR(M16)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
EQUAL g9 $STR(M16)
#act
break
#say
对不起！！你目前还不是最高等级！\\\

#IF
HAVEGUILD
#act
break
mov G9 $STR(M16)
mov A71 天下第一女道\
inc A71 $USERNAME
inc A71 \
mov A80 $USERNAME
mov A72 $GUILDNAME
mov A73 $LEVEL
mov A74 $DATETIME
dec A74 14 16
SETNPCNAME 7 $STR(A71)
SENDMSG 9 %s成功申请了天下第一女道士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女道士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

#IF
#act
mov G9 $STR(M16)
mov A71 天下第一女道\
inc A71 $USERNAME
inc A71 \
mov A80 $USERNAME
mov A72 暂无
mov A73 $LEVEL
mov A74 $DATETIME
dec A74 14 16
SETNPCNAME 7 $STR(A71)
SENDMSG 9 %s成功申请了天下第一女道士！他在烽烟四起的世界中修炼成为天下第一，明天的天下第一会是谁？
#say
申请成功！目前今天的天下第一女道士是<$USERNAME>，\
明天的天下第一会是谁？ \ \
    <离开/@exit>

[@男战]
天下第一男战士：<$STR(A75)>\
所属行会：<$STR(A52)> \ \
纷扰乱世群雄逐鹿，<$STR(A75)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A54)>至今还没有人可以超越。\
<$STR(A75)>的等级为<$STR(A53)>级。\
今天的天下第一是<$STR(A75)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

[@男法]
天下第一男法师：<$STR(A76)>\
所属行会：<$STR(A56)> \\
纷扰乱世群雄逐鹿，<$STR(A76)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A58)>至今还没有人可以超越。\
<$STR(A76)>的等级为<$STR(A57)>级。\
今天的天下第一是<$STR(A76)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

[@男道]
天下第一男道士：<$STR(A77)>\
所属行会：<$STR(A60)> \\
纷扰乱世群雄逐鹿，<$STR(A77)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A62)>至今还没有人可以超越。\
<$STR(A77)>的等级为<$STR(A61)>级。\
今天的天下第一是<$STR(A77)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

[@女战]
天下第一女战士：<$STR(A78)>\
所属行会：<$STR(A64)> \\
纷扰乱世群雄逐鹿，<$STR(A78)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A66)>至今还没有人可以超越。\
<$STR(A78)>的等级为<$STR(A65)>级。\
今天的天下第一是<$STR(A78)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

[@女法]
天下第一女法师：<$STR(A79)>\
所属行会：<$STR(A68)> \\
纷扰乱世群雄逐鹿，<$STR(A79)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A70)>至今还没有人可以超越。\
<$STR(A79)>的等级为<$STR(A69)>级。\
今天的天下第一是<$STR(A79)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

[@女道]
天下第一女道士：<$STR(A80)>\
所属行会：<$STR(A72)> \\
纷扰乱世群雄逐鹿，<$STR(A80)>在烽烟四起的世界中修炼成为， \
天下第一从<$STR(A74)>至今还没有人可以超越。\
<$STR(A80)>的等级为<$STR(A73)>级。\
今天的天下第一是<$STR(A80)>，明天的天下第一会是谁？\
申请天下第一名号，请到中州475，150处找史官   <离开/@exit>

雕象/男战神 0 462 225 天下第一男战\男战\ 0 100 3
雕象/女战神 0 468 231 天下第一女战\女战\ 0 101 6
雕象/男道尊 0 459 228 天下第一男道\男道\ 0 102 5
雕象/女道尊 0 465 234 天下第一女道\女道\ 0 103 8
雕象/男法神 0 455 232 天下第一男法\男法\ 0 104 4
雕象/女法神 0 461 236 天下第一女法\女法\ 0 105 7