传奇NPC中常见的天下第一申请脚本

[@申请天下一号]
国王有令：为天下醉强的勇士们在盟重土城树立雕像彰显\
他们名号.天下群豪尽可以到我这里来登记在案看看到底\
谁是群雄中的醉强者.如果来登记的勇士中你是醉强的一位\
你从此以后就可以名扬天下了.\
<我是天下一号/@天下一号>\
<天下一号有谁/@查看一号>\
<离开/@exit>\
[@查看一号]
<天下一号男战士/@男战>\
<天下一号女战士/@女战>\
<天下一号男道士/@男道>\
<天下一号女道士/@女道>\
<天下一号男法师/@男法>\
<天下一号女法师/@女法>\
[@天下一号]
#IF
CHECKLEVELEX<49
#act
break
#say
看来你很有信心不过你还没有达到资格你需要50级来证明自己的实力\
现在来申请天下一号恐怕还嫌早.\
<离开/@exit>
#IF
genderman
checkjobwarrior
#act
movA0<$LEVEL>
goto@男战申请
break
#IF
genderman
checkjobwizard
#act
break
movA1<$LEVEL>
goto@男法申请
#IF
genderman
checkjobtaoist
#act
break
movA2<$LEVEL>
goto@男道申请
#IF
checkjobwarrior
#act
break
movA3<$LEVEL>
goto@女战申请
#IF
checkjobwizard
#act
break
movA4<$LEVEL>
goto@女法申请
#IF
checkjobtaoist
#act
break
movA5<$LEVEL>
goto@女道申请
[@男战申请]
#IF
largeG24<$STR(A0)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG24<$STR(A0)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG24<$STR(A0)>
movs1<$USERNAME>\
incS1↘天下一号男战↙
incS1\
movA6<$USERNAME>
movA7<$GUILDNAME>
movA8<$LEVEL>
movA9<$DATETIME>
SETRANKLEVELNAME<$STR(S1)>
CLEARNAMELIST..\QuestDiary\天下一号\男战士名单.txt
addnamelist..\QuestDiary\天下一号\男战士名单.txt
SENDMSG4%s成功申请了天下一号男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男战士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG24<$STR(A0)>
movs1<$USERNAME>\
incS1↘天下一号男战↙\
incS1\
movA6<$USERNAME>
movA7暂无
movA8<$LEVEL>
movA9<$DATETIME>
SETRANKLEVELNAME<$STR(S1)>
CLEARNAMELIST..\QuestDiary\天下一号\男战士名单.txt
addnamelist..\QuestDiary\天下一号\男战士名单.txt
SENDMSG4%s成功申请了天下一号男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男战士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男战士是<$USERNAME>\
明天的天下一号会是谁?\\
[@男法申请]
#IF
largeG25<$STR(A1)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG25<$STR(A1)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG25<$STR(A1)>
movs2<$USERNAME>\
incS2↘天下一号男法↙
incS2\
movA10<$USERNAME>
movA11<$GUILDNAME>
movA12<$LEVEL>
movA13<$DATETIME>
SETRANKLEVELNAME<$STR(S2)>
CLEARNAMELIST..\QuestDiary\天下一号\男法师名单.txt
addnamelist..\QuestDiary\天下一号\男法师名单.txt
SENDMSG4%s成功申请了天下一号男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男法师是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG25<$STR(A1)>
movs2<$USERNAME>\
incS2↘天下一号男法↙
incS2\
movA10<$USERNAME>
movA11暂无
movA12<$LEVEL>
movA13<$DATETIME>
SETRANKLEVELNAME<$STR(S2)>
CLEARNAMELIST..\QuestDiary\天下一号\男法师名单.txt
addnamelist..\QuestDiary\天下一号\男法师名单.txt
SENDMSG4%s成功申请了天下一号男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男法师!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男法师是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
[@男道申请]
#IF
largeG26<$STR(A2)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG26<$STR(A2)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG26<$STR(A2)>
movs3<$USERNAME>\
incS3↘天下一号男道↙
incS3\
movA14<$USERNAME>
movA15<$GUILDNAME>
movA16<$LEVEL>
movA17<$DATETIME>
SETRANKLEVELNAME<$STR(S3)>
CLEARNAMELIST..\QuestDiary\天下一号\男道士名单.txt
addnamelist..\QuestDiary\天下一号\男道士名单.txt
SENDMSG4%s成功申请了天下一号男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男道士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG26<$STR(A2)>
movs3<$USERNAME>\
incS3↘天下一号男道↙
incS3\
movA14<$USERNAME>
movA15暂无
movA16<$LEVEL>
movA17<$DATETIME>
SETRANKLEVELNAME<$STR(S3)>
CLEARNAMELIST..\QuestDiary\天下一号\男道士名单.txt
addnamelist..\QuestDiary\天下一号\男道士名单.txt
SENDMSG4%s成功申请了天下一号男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号男道士!他在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号男道士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
[@女战申请]
#IF
largeG27<$STR(A3)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG27<$STR(A3)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG27<$STR(A3)>
movs4<$USERNAME>\
incS4↘天下一号女战↙
incS4\
movA18<$USERNAME>
movA19<$GUILDNAME>
movA20<$LEVEL>
movA21<$DATETIME>
SETRANKLEVELNAME<$STR(S4)>
CLEARNAMELIST..\QuestDiary\天下一号\女战士名单.txt
addnamelist..\QuestDiary\天下一号\女战士名单.txt
SENDMSG4%s成功申请了天下一号女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女战士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG27<$STR(A3)>
movs4<$USERNAME>\
incS4↘天下一号女战↙
incS4\
movA18<$USERNAME>
movA19暂无
movA20<$LEVEL>
movA21<$DATETIME>
SETRANKLEVELNAME<$STR(S4)>
CLEARNAMELIST..\QuestDiary\天下一号\女战士名单.txt
addnamelist..\QuestDiary\天下一号\女战士名单.txt
SENDMSG4%s成功申请了天下一号女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女战士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女战士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
[@女法申请]
#IF
largeG28<$STR(A4)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG28<$STR(A4)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG28<$STR(A4)>
movs5<$USERNAME>\
incS5↘天下一号女法↙
incS5\
movA22<$USERNAME>
movA23<$GUILDNAME>
movA24<$LEVEL>
movA25<$DATETIME>
SETRANKLEVELNAME<$STR(S5)>
CLEARNAMELIST..\QuestDiary\天下一号\女法师名单.txt
addnamelist..\QuestDiary\天下一号\女法师名单.txt
SENDMSG4%s成功申请了天下一号女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女法师是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG28<$STR(A4)>
movs5<$USERNAME>\
incS5↘天下一号女法↙
incS5\
movA22<$USERNAME>
movA23暂无
movA24<$LEVEL>
movA25<$DATETIME>
SETRANKLEVELNAME<$STR(S5)>
CLEARNAMELIST..\QuestDiary\天下一号\女法师名单.txt
addnamelist..\QuestDiary\天下一号\女法师名单.txt
SENDMSG4%s成功申请了天下一号女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女法师!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女法师是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
[@女道申请]
#IF
largeG29<$STR(A5)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
EQUALG29<$STR(A5)>
#act
break
#say
对不起!!你目前还不是可以等级!\\\
#IF
HAVEGUILD
#act
break
movG29<$STR(A5)>
movs6<$USERNAME>\
incS6↘天下一号女道↙
incS6\
movA26<$USERNAME>
movA27<$GUILDNAME>
movA28<$LEVEL>
movA29<$DATETIME>
SETRANKLEVELNAME<$STR(S6)>
CLEARNAMELIST..\QuestDiary\天下一号\女道士名单.txt
addnamelist..\QuestDiary\天下一号\女道士名单.txt
SENDMSG4%s成功申请了天下一号女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女道士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>
#IF
#act
movG29<$STR(A5)>
movs6↘天下一号女道↙\
incS6<$USERNAME>
incS6\
movA26<$USERNAME>
movA27暂无
movA28<$LEVEL>
movA29<$DATETIME>
SETRANKLEVELNAME<$STR(S6)>
CLEARNAMELIST..\QuestDiary\天下一号\女道士名单.txt
addnamelist..\QuestDiary\天下一号\女道士名单.txt
SENDMSG4%s成功申请了天下一号女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
SENDMSG0%s成功申请了天下一号女道士!她在烽烟四起的<$SERVERNAME>中修炼成为天下一号明天的天下一号会是谁?
#say
申请成功!目前今天的天下一号女道士是<$USERNAME>\
明天的天下一号会是谁?\\
<离开/@exit>

[@男战]
#CALL[\\天下一号\男战士.txt]@天下一号战男
[@男法]
#CALL[\\天下一号\男法师.txt]@天下一号法男
[@男道]
#CALL[\\天下一号\男道士.txt]@天下一号道男
[@女战]
#CALL[\\天下一号\女战士.txt]@天下一号战女
[@女法]
#CALL[\\天下一号\女法师.txt]@天下一号法女
[@女道]
#CALL[\\天下一号\女道士.txt]@天下一号道女





登陆时的封号读取脚本:
路径自己修改.

[@一号封号]
{
#IF
CHECKNAMELIST..\QuestDiary\天下一号\男战士名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号男战士↙\
SETRANKLEVELNAME<$STR(S1)>
Break
#IF
CHECKNAMELIST..\QuestDiary\天下一号\男道士名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号男道士↙\
SETRANKLEVELNAME<$STR(S1)>
Break
#IF
CHECKNAMELIST..\QuestDiary\天下一号\男法师名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号男法师↙\
SETRANKLEVELNAME<$STR(S1)>
Break
#IF
CHECKNAMELIST..\QuestDiary\天下一号\女战士名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号女战士↙\
SETRANKLEVELNAME<$STR(S1)>
Break
#IF
CHECKNAMELIST..\QuestDiary\天下一号\女道士名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号女道士↙\
SETRANKLEVELNAME<$STR(S1)>
Break
#IF
CHECKNAMELIST..\QuestDiary\天下一号\女法师名单.txt
#ACT
MovS1<$USERNAME>\
INCS1↘天下一号女法师↙\
SETRANKLEVELNAME<$STR(S1)>
}