传奇玩家申请天下第一脚本

[@申请天下第一]

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

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

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

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

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

<离开/@exit> \

[@天下第一]

#IF

CHECKLEVELEX < 45

#act

messagebox 需要45级以上才能证明自己的实力.现在来申请天下第一恐怕还嫌早

break

#IF

gender man

checkjob warrior

#act

mov N10 <$LEVEL>

goto @男战申请

break

#IF

gender man

checkjob wizard

#act

mov N11 <$LEVEL>

goto @男法申请

break

#IF

gender man

checkjob taoist

#act

mov N12 <$LEVEL>

goto @男道申请

break

#IF

gender woman

checkjob warrior

#act

mov N13 <$LEVEL>

goto @女战申请

break

#IF

gender woman

checkjob wizard

#act

mov N14 <$LEVEL>

goto @女法申请

break

#IF

gender woman

checkjob taoist

#act

mov N15 <$LEVEL>

goto @女道申请

break

[@男战申请]

#IF

large G24 N10

#act

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

break

CLOSE

#IF

EQUAL G24 N10

#act

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

break

CLOSE

#IF

#act

mov G24 N10

mov A6 <$USERNAME>

mov A7 <$GUILDNAME>

mov G18 <$LEVEL>

mov A9 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一男战士！明天的天下第一会是谁？

break

CLOSE

[@男法申请]

#IF

large G25 N11

#act

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

break

CLOSE

#IF

EQUAL G25 N11

#act

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

break

CLOSE

#IF

#act

mov G25 N11

mov A10 <$USERNAME>

mov A11 <$GUILDNAME>

mov G12 <$LEVEL>

mov A13 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一男法师！明天的天下第一会是谁？

break

CLOSE

[@男道申请]

#IF

large G26 N12

#act

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

break

CLOSE

#IF

EQUAL G26 N12

#act

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

break

CLOSE

#IF

#act

mov G26 N12

mov A14 <$USERNAME>

mov A15 <$GUILDNAME>

mov G16 <$LEVEL>

mov A17 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一男道士！明天的天下第一会是谁？

break

CLOSE

[@女战申请]

#IF

large G27 N13

#act

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

break

CLOSE

#IF

EQUAL G27 N13

#act

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

break

CLOSE

#IF

#act

mov G27 N13

mov A18 <$USERNAME>

mov A19 <$GUILDNAME>

mov G20 <$LEVEL>

mov A21 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一女战士！明天的天下第一会是谁？

break

CLOSE

[@女法申请]

#IF

large G28 N14

#act

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

break

CLOSE

#IF

EQUAL G28 N14

#act

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

break

CLOSE

#IF

#act

mov G28 N14

mov A22 <$USERNAME>

mov A23 <$GUILDNAME>

mov G19 <$LEVEL>

mov A25 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一女法师！明天的天下第一会是谁？

break

CLOSE

[@女道申请]

#IF

large G29 N15

#act

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

break

CLOSE

#IF

EQUAL G29 N15

#act

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

break

CLOSE

#IF

#act

mov G29 N15

mov A26 <$USERNAME>

mov A27 <$GUILDNAME>

mov G22 <$LEVEL>

mov A29 <$DATETIME>

#CALL [\封号系统\封号系统.txt] @封号分类

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

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

SENDMSG 0 %s成功申请了天下第一女道士！明天的天下第一会是谁？

break

CLOSE