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

传奇论坛 发表于 2023-12-15 16:31:47

传奇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)>

　　}

唐利 发表于 2023-12-15 16:31:55

站长，有没有超变之类的版本，我想开个超变传奇和朋友一块玩！

传奇一条龙 发表于 2023-12-15 16:31:55

请问这个版本需要用到什么配置的电脑？家里的机器可以开起来吗？试过的朋友麻烦告诉我一下？

你妹哦 发表于 2023-12-15 16:31:56

Leg引擎引擎的版本多更新点吧，我会好好的给GM起点宣传宣传。

快乐英雄 发表于 2023-12-15 16:35:20

有没有信誉的传奇支付平台？有的话，回复我一下，在线等！

小佛 发表于 2023-12-15 16:38:54

有喜欢1.85炎龙传奇的吗？找个合伙人一块弄个这样的私服！

大大大 发表于 2023-12-15 16:38:55

有没有开这种类型传奇sf的人啊？我要玩玩！

黑夜比白天 发表于 2023-12-15 16:38:55

站长，有没有这个传奇服务端相关的架设教程啊？

飘荡的青春 发表于 2023-12-15 16:38:56

我开了个迷失传奇，请问有没有好点的迷失传奇私服发布网推荐一下？

爱，不单行 发表于 2023-12-15 16:38:56

虽然这个版本不错，但我个人比较喜欢1.76元素大极品的。

查看完整版本: 传奇NPC中常见的天下第一申请脚本