传奇NPC中常见的天下第一申请脚本
| [@申请天下一号] 国王有令：为天下醉强的勇士们在盟重土城树立雕像,彰显 \ 他们名号.天下群豪尽可以到我这里来登记在案,看看到底 \ 谁是群雄中的醉强者.如果来登记的勇士中你是醉强的一位 \ 你从此以后就可以名扬天下了. \ <我是天下一号/@天下一号> \ <天下一号有谁/@查看一号> \ <离开/@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)> } |