传奇天下第一道士法师战士申请代码

[@申请天下第一]

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

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

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

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

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

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

离开/@exit \

[@查看第一]

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

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

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

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

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

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

[@天下第一]

#IF

CHECKLEVELEX 49

#act

break

#say

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

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

离开/@exit

#IF

gender man

checkjob warrior

#act

mov A0 $LEVEL

goto @男战申请

break

#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 $USERNAME\

inc S1 ↘天下第一男战↙

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 $USERNAME\

inc S1 ↘天下第一男战↙\

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 $USERNAME\

inc S2 ↘天下第一男法↙

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 $USERNAME\

inc S2 ↘天下第一男法↙

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 $USERNAME\

inc S3 ↘天下第一男道↙

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 $USERNAME\

inc S3 ↘天下第一男道↙

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 $USERNAME\

inc S4 ↘天下第一女战↙

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 $USERNAME\

inc S4 ↘天下第一女战↙

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 $USERNAME\

inc S5 ↘天下第一女法↙

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 $USERNAME\

inc S5 ↘天下第一女法↙

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 $USERNAME\

inc S6 ↘天下第一女道↙

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] @天下第一道女 

 

 

登陆时的封号读取脚本:

路径自己修改. 

[@第一封号]

{

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一男战士↙\

SETRANKLEVELNAME $STR(S1)

Break

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一男道士↙\

SETRANKLEVELNAME $STR(S1)

Break

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一男法师↙\

SETRANKLEVELNAME $STR(S1)

Break

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一女战士↙\

SETRANKLEVELNAME $STR(S1)

Break

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一女道士↙\

SETRANKLEVELNAME $STR(S1)

Break

#IF

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

#ACT

Mov S1 $USERNAME\

INC S1 ↘天下第一女法师↙\

SETRANKLEVELNAME $STR(S1)

}