不分职业性别的天下第一申请脚本

meinvwudi · 4 月 '22

NPC脚本

[@main]
#IF
CHECKVAR GLOBAL 男战名字 =
#ACT
CALCVAR GLOBAL 男战名字 = 暂无风云人物
SAVEVAR GLOBAL 男战名字 ..\QuestDiary\青春QS清理\天下第一变量.txt

#IF
CHECKVAR GLOBAL 男法名字 =
#ACT
CALCVAR GLOBAL 男法名字 = 暂无风云人物
SAVEVAR GLOBAL 男法名字 ..\QuestDiary\青春QS清理\天下第一变量.txt

#IF
CHECKVAR GLOBAL 男道名字 =
#ACT
CALCVAR GLOBAL 男道名字 = 暂无风云人物
SAVEVAR GLOBAL 男道名字 ..\QuestDiary\青春QS清理\天下第一变量.txt


#if
#act 
mov S$男战名字 <$GLOBAL(男战名字)>
mov S$男法名字 <$GLOBAL(男法名字)>
mov S$男道名字 <$GLOBAL(男道名字)>
setstringblank S$男战名字 14 1
setstringblank S$男法名字 14 1
setstringblank S$男道名字 14 1



#if
#say

<天下第一人物上线可获得20-20攻魔道加成，特殊封号/SCOLOR=119>\
 \ \
<天下第一战士名字：/SCOLOR=254><$STR(S$男战名字)> <当前等级为：/SCOLOR=69><$GLOBAL(男战等级)>  <攻击为：/SCOLOR=69><$GLOBAL(男战属性)> \ \

<天下第一法师名字：/SCOLOR=254><$STR(S$男法名字)> <当前等级为：/SCOLOR=69><$GLOBAL(男法等级)>  <魔法为：/SCOLOR=69><$GLOBAL(男法属性)> \ \

<天下第一道士名字：/SCOLOR=254><$STR(S$男道名字)> <当前等级为：/SCOLOR=69><$GLOBAL(男道等级)>  <道术为：/SCOLOR=69><$GLOBAL(男道属性)> \ \

<Img:685:6:-6:4><Img:685:6:-241:4>\
<榜上有名从此扬名立万/SCOLOR=253>    <申请天下第一|249#等级相同,比攻魔道属性^250#天下第一人物上线可获得20-20攻魔道加成，特殊封号/@申请天下第一>    <每4小时清空一次/SCOLOR=253>


[@申请天下第一]
#if
checklevelex < 45
#act 
MESSAGEBOX [操作失败]：等级达到45级才能申请
BREAK

#OR
CHECKVAR GLOBAL 男战名字 = <$USERNAME>
CHECKVAR GLOBAL 男法名字 = <$USERNAME>
CHECKVAR GLOBAL 男道名字 = <$USERNAME>
CHECKVAR GLOBAL 女战名字 = <$USERNAME>
CHECKVAR GLOBAL 女法名字 = <$USERNAME>
CHECKVAR GLOBAL 女道名字 = <$USERNAME>
#ACT
MESSAGEBOX [操作失败]：\　\1.您已经是当前的天下第一了
BREAK

#if
checkjob warrior
#act 
goto @男战1
break

#if 
checkjob wizard 
#act 
goto @男法1
break

#if 
checkjob taoist
#act 
goto @男道1
break




[@男战1]
#If
CHECKVAR GLOBAL 男战名字 = 暂无风云人物
checklevelex > <$GLOBAL(男战等级)>
#ACT
CALCVAR GLOBAL 男战名字 = <$USERNAME>
SAVEVAR GLOBAL 男战名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战等级 = <$LEVEL>
SAVEVAR GLOBAL 男战等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战时间 = <$DATETIME>
SAVEVAR GLOBAL 男战时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男战工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战属性 = <$MAXDC>
SAVEVAR GLOBAL 男战属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一战士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一战士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一战士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK

#If
checklevelex > <$GLOBAL(男战等级)>
#ACT
CALCVAR GLOBAL 男战名字 = <$USERNAME>
SAVEVAR GLOBAL 男战名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战等级 = <$LEVEL>
SAVEVAR GLOBAL 男战等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战时间 = <$DATETIME>
SAVEVAR GLOBAL 男战时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男战工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战属性 = <$MAXDC>
SAVEVAR GLOBAL 男战属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一战士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一男战士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一战士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#If
large <$MAXDC> <$GLOBAL(男战属性)>
checklevelex = <$GLOBAL(男战等级)>
#ACT
CALCVAR GLOBAL 男战名字 = <$USERNAME>
SAVEVAR GLOBAL 男战名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战等级 = <$LEVEL>
SAVEVAR GLOBAL 男战等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战时间 = <$DATETIME>
SAVEVAR GLOBAL 男战时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男战工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男战属性 = <$MAXDC>
SAVEVAR GLOBAL 男战属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一战士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一战士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一战士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#ELSESAY
<[操作失败]：>\ \
<天下第一申请规则：/FCOLOR=250>\ 
<首先比等级，等级相同比(攻、魔、道)属性/FCOLOR=250>\ \
您的申请失败，请仔细核对您的各种条件是否满足要求！\ \
　                                             <离    开/@exit>



[@男法1]
#If
CHECKVAR GLOBAL 男法名字 = 暂无风云人物
checklevelex > <$GLOBAL(男法等级)>
#ACT
CALCVAR GLOBAL 男法名字 = <$USERNAME>
SAVEVAR GLOBAL 男法名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法等级 = <$LEVEL>
SAVEVAR GLOBAL 男法等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法时间 = <$DATETIME>
SAVEVAR GLOBAL 男法时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男法工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法属性 = <$MAXMC>
SAVEVAR GLOBAL 男法属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一法士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#If
checklevelex > <$GLOBAL(男法等级)>
#ACT
CALCVAR GLOBAL 男法名字 = <$USERNAME>
SAVEVAR GLOBAL 男法名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法等级 = <$LEVEL>
SAVEVAR GLOBAL 男法等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法时间 = <$DATETIME>
SAVEVAR GLOBAL 男法时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男法工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法属性 = <$MAXMC>
SAVEVAR GLOBAL 男法属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一法士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#If
large <$MAXMC> <$GLOBAL(男法属性)>
checklevelex = <$GLOBAL(男法等级)>
#ACT
CALCVAR GLOBAL 男法名字 = <$USERNAME>
SAVEVAR GLOBAL 男法名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法等级 = <$LEVEL>
SAVEVAR GLOBAL 男法等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法时间 = <$DATETIME>
SAVEVAR GLOBAL 男法时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男法工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男法属性 = <$MAXMC>
SAVEVAR GLOBAL 男法属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一法士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一法士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#ELSESAY
<[操作失败]：>\ \
<天下第一申请规则：/FCOLOR=250>\ 
<首先比等级，等级相同比(攻、魔、道)属性/FCOLOR=250>\ \
您的申请失败，请仔细核对您的各种条件是否满足要求！\ \
　                                             <离    开/@exit>




[@男道1]
#If
CHECKVAR GLOBAL 男道名字 = 暂无风云人物
checklevelex > <$GLOBAL(男道等级)>
#ACT
CALCVAR GLOBAL 男道名字 = <$USERNAME>
SAVEVAR GLOBAL 男道名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道等级 = <$LEVEL>
SAVEVAR GLOBAL 男道等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道时间 = <$DATETIME>
SAVEVAR GLOBAL 男道时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男道工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道属性 = <$MAXSC>
SAVEVAR GLOBAL 男道属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一道士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK



#If
checklevelex > <$GLOBAL(男道等级)>
#ACT
CALCVAR GLOBAL 男道名字 = <$USERNAME>
SAVEVAR GLOBAL 男道名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道等级 = <$LEVEL>
SAVEVAR GLOBAL 男道等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道时间 = <$DATETIME>
SAVEVAR GLOBAL 男道时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男道工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道属性 = <$MAXSC>
SAVEVAR GLOBAL 男道属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一道士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK


#If
large <$MAXSC> <$GLOBAL(男道属性)>
checklevelex = <$GLOBAL(男道等级)>
#ACT
CALCVAR GLOBAL 男道名字 = <$USERNAME>
SAVEVAR GLOBAL 男道名字 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道等级 = <$LEVEL>
SAVEVAR GLOBAL 男道等级 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道时间 = <$DATETIME>
SAVEVAR GLOBAL 男道时间 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道工会 = <$GUILDNAME>
SAVEVAR GLOBAL 男道工会 ..\QuestDiary\青春QS清理\天下第一变量.txt
CALCVAR GLOBAL 男道属性 = <$MAXSC>
SAVEVAR GLOBAL 男道属性 ..\QuestDiary\青春QS清理\天下第一变量.txt
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDMSG 0 [江湖消息]：『<$USERNAME>』成为天下第一道士，谁能与之抗衡？
SENDTOPCHATBOARDMSG 0 149 235 30 我已经成为天下第一道士，不服者格杀勿论
SENDMSG 1 系统：天下第一已经刷新！
CONFERTITLE 天下第一
#CALL [\青春QS功能\登陆触发\登陆封号.txt] @封号触发
GOTO @MAIN
BREAK




#ELSESAY
<[操作失败]：>\ \
<天下第一申请规则：/FCOLOR=250>\ 
<首先比等级，等级相同比(攻、魔、道)属性/FCOLOR=250>\ \
您的申请失败，请仔细核对您的各种条件是否满足要求！\ \
　                                             <离    开/@exit>

meinvwudi · 4 月 '22

人物上线给封号

[@封号触发]
{
#IF
NOT CHECKVAR GLOBAL 男道名字 = <$USERNAME>
NOT CHECKVAR GLOBAL 男战名字 = <$USERNAME>
NOT CHECKVAR GLOBAL 男法名字 = <$USERNAME>
NOT CHECKVAR GLOBAL 女战名字 = <$USERNAME>
NOT CHECKVAR GLOBAL 女法名字 = <$USERNAME>
NOT CHECKVAR GLOBAL 女道名字 = <$USERNAME>
#ACT
DEPRIVETITLE 天下第一



#IF
CHECKVAR GLOBAL 男战名字 = <$USERNAME>
#ACT
SendCenterMsg 255 249 ぐ本大陆最伟大的、倍受尊敬的、人见人爱的天下第一战士『<$USERNAME>』闪亮登场。。。 1 6
MOV S33 ╔—╗
MOV S34 │天│
MOV S35 │下│
MOV S36 │第│
MOV S37 │一│
MOV S38 ╚—╝

#IF
CHECKVAR GLOBAL 男道名字 = <$USERNAME>
#ACT
SendCenterMsg 255 249 ぐ本大陆最伟大的、倍受尊敬的、人见人爱的天下第一道士『<$USERNAME>』闪亮登场。。。 1 6
MOV S33 ╔—╗
MOV S34 │天│
MOV S35 │下│
MOV S36 │第│
MOV S37 │一│
MOV S38 ╚—╝

#IF
CHECKVAR GLOBAL 男法名字 = <$USERNAME>
#ACT
SendCenterMsg 255 249 ぐ本大陆最伟大的、倍受尊敬的、人见人爱的天下第一法师『<$USERNAME>』闪亮登场。。。 1 6
MOV S33 ╔—╗
MOV S34 │天│
MOV S35 │下│
MOV S36 │第│
MOV S37 │一│
MOV S38 ╚—╝

#if
CHECKLEVELEX > 0
#act
inc S39 \<$STR(S33)>
inc S39 \<$STR(S34)>
inc S39 \<$STR(S35)>
inc S39 \<$STR(S36)>
inc S39 \<$STR(S37)>
inc S39 \<$STR(S38)>\
SETRANKLEVELNAME %s\<$STR(S40)>\≮爺在江湖砍翻【<$STR(U10)>】人≯\<$STR(S39)>\
break
}

meinvwudi · 4 月 '22

数据库中的称号DB

309;天下第一;200;0;1;1;0;1;10000;20000;0;0;0;0;20;20;20;20;20;20;0;0;3000;5;255;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;;;;;;;;;;;;;;

NPC配置

土城功能\天下第一	3	320	321	申请天下第一	0	10000	0	0	0

不分职业性别的天下第一申请脚本

Mmeinvwudi

Mmeinvwudi

Mmeinvwudi