当前位置：传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章 → 文章资讯 → 传世架设教程 → 传世架设技术

本站原创【十王排名】脚本！保证无错无漏洞

减小字体

增大字体作者：佚名来源：本站整理发布时间：2014-10-03 00:53:21

;用到的变量：D77

;以下脚本放在QManage.txt里的[@Login]下一行
;作用是玩家登陆后统计在线时间，因为引擎的变量不好用，只能这样统计了

#IF
#ACT
settimer $USERNAME 60 @GODLJM

;以下脚本放在QManage.txt里的最后面

[@GODLJM]
#IF
#ACT
INC D77 1
DELAY 60 @GODLJM

=========================================================

;以下放在变量处理的脚本里

VAR String GLOBAL DYZXMZ
VAR String GLOBAL DYZXHH
VAR String GLOBAL DYZX
VAR String GLOBAL DYZX
VAR String GLOBAL DYZXS
VAR String GLOBAL DYYBMZ
VAR String GLOBAL DYYBHH
VAR String GLOBAL DYYB
VAR String GLOBAL DYYB
VAR String GLOBAL DYSWMZ
VAR String GLOBAL DYSWHH
VAR String GLOBAL DYSW
VAR String GLOBAL DYSW
VAR String GLOBAL DYRYMZ
VAR String GLOBAL DYRYHH
VAR String GLOBAL DYRY
VAR String GLOBAL DYRY
VAR String GLOBAL DYPKMZ
VAR String GLOBAL DYPKHH
VAR String GLOBAL DYPK
VAR String GLOBAL DYPK
VAR String GLOBAL DYDCMZ

VAR String GLOBAL DYDCHH
VAR String GLOBAL DYDC
VAR String GLOBAL DYDC
VAR String GLOBAL DYMCMZ
VAR String GLOBAL DYMCHH
VAR String GLOBAL DYMC
VAR String GLOBAL DYMC
VAR String GLOBAL DYSCMZ
VAR String GLOBAL DYSCHH
VAR String GLOBAL DYSC
VAR String GLOBAL DYSC
VAR String GLOBAL DYDJMZ
VAR String GLOBAL DYDJHH
VAR String GLOBAL DYDJ
VAR String GLOBAL DYDJ
VAR String GLOBAL DYJQMZ
VAR String GLOBAL DYJQHH
VAR String GLOBAL DYJQ
VAR String GLOBAL DYJQ
LOADVAR GLOBAL DYYBMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYYBHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYYB ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYYB ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYJQMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYJQHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYJQ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYJQ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSWMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSWHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSW ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSW ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYRYMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYRYHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYRY ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYRY ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYPKMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYPKHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYPK ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYPK ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDCMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDCHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYMCMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYMCHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYMC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYMC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSCMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSCHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYSC ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDJMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDJHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDJ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYDJ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYZXMZ ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYZXHH ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYZX ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYZX ..\QuestDiary\数据文件\十王排名.txt
LOADVAR GLOBAL DYZXS ..\QuestDiary\数据文件\十王排名.txt

=========================================================

;新建一个NPC，把以下脚本完全放进入比如：十王排名-0.txt

(@callboard)
%100
[@mainleft]
#say
<COLOR=blue --------------------------------- >\
　　<COLOR=green  本十王排行榜 >\
　　　　　 <天下第一在线王/@在线王>\
　　　　　 <天下第一元宝王/@元宝王>\
　　　　　 <天下第一声望王/@声望王>\
　　　　　<天下第一金钱王/@金钱王>\
　　　　　 <天下第一荣誉王/@荣誉王>\
　　　　　<天下第一杀人王/@杀人王>\
　　　　　<天下第一攻击王/@攻击王>\
　　　　　<天下第一魔法王/@魔法王>\
　　　　　<天下第一道术王/@道术王>\
　　　　　<天下第一等级王/@等级王>\
<COLOR=blue --------------------------------- >\
　忘了忧,忘了愁,逍遥天下任遨游\
　<十王超级传送/@十王超级传送> <十王免费进炼狱/@十王免费进炼狱>

[@十王超级传送]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
MAPMOVE AS004 242 50
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
MAPMOVE zezxl 242 50
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
MAPMOVE f008 90 78
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
MAPMOVE l006
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
MAPMOVE S026 72 76
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
MAPMOVE NL006 41 41
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
MAPMOVE J010 27 27
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
MAPMOVE MC008 208 181
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
MAPMOVE TT009 159 228
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
MAPMOVE zezxl 143 29
break
#if
#act
goto @不是十王

[@十王免费进炼狱]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
goto @俺是十王
BREAK

#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
goto @俺是十王
BREAK
#if
#act
goto @不是十王

[@俺是十王]
#if
#act
MAPMOVE NL006 41 41
SENDMSG 0 十王之一[%s]免费进入了炼狱。全新炼狱,2倍经验，冲击你升级的神经。
SENDMSG 7 您已经进入了炼狱。不限制时间，如中途下线，您也将退出该地图。

[@不是十王]
#if
#ACT
messagebox 你不是本十王之一！无法使用此特权！
[@main]
#say

　　　　　　　　　　　　　　　　<COLOR=yellow ┇ >传\
　　　　　　　　　　　　　　　传<COLOR=yellow ┇ >世\
　　　踏<COLOR=yellow ┇ >　　流<COLOR=yellow ┇ >　　风<COLOR=yellow ┇ >世<COLOR=yellow ┇ >路\
　今<COLOR=yellow ┇ >上<COLOR=yellow ┇ >喝<COLOR=yellow ┇ >不<COLOR=yellow ┇ >刀<COLOR=yellow ┇ >餐<COLOR=yellow ┇ >浪<COLOR=yellow ┇ >，\
　生<COLOR=yellow ┇ >传<COLOR=yellow ┇ >不<COLOR=yellow ┇ >尽<COLOR=yellow ┇ >光<COLOR=yellow ┇ >露<COLOR=yellow ┇ >子<COLOR=yellow ┇ >无\
　今<COLOR=yellow ┇ >世<COLOR=yellow ┇ >完<COLOR=yellow ┇ >的<COLOR=yellow ┇ >剑<COLOR=yellow ┇ >宿<COLOR=yellow ┇ >不<COLOR=yellow ┇ >尽\
　世<COLOR=yellow ┇ >不<COLOR=yellow ┇ >的<COLOR=yellow ┇ >英<COLOR=yellow ┇ >影<COLOR=yellow ┇ >寻<COLOR=yellow ┇ >言<COLOR=yellow ┇ >头\
　不<COLOR=yellow ┇ >归<COLOR=yellow ┇ >寂<COLOR=yellow ┇ >雄<COLOR=yellow ┇ >泯<COLOR=yellow ┇ >常<COLOR=yellow ┇ >愁<COLOR=yellow ┇ >，\
　回<COLOR=yellow ┇ >路<COLOR=yellow ┇ >寞<COLOR=yellow ┇ >泪<COLOR=yellow ┇ >恩<COLOR=yellow ┇ >事<COLOR=yellow ┇ >，　　\
　头<COLOR=yellow ┇ >，<COLOR=yellow ┇ >酒<COLOR=yellow ┇ >，<COLOR=yellow ┇ >愁<COLOR=yellow ┇ >，　　　　\
　。　　<COLOR=yellow ┇ >。　　<COLOR=yellow ┇ >。　　　　　　\\
　　<COLOR=blue --------------------------------- >\\
　　　　　　<网游之家提供支持/@@urlwww.gmsbbs.com>

[@在线王]
#say
天下第一在线王：<$GLOBAL(DYZXMZ)>\
　　　所属行会：<$GLOBAL(DYZXHH)>\
　　　　联系QQ：<$GLOBAL(DYZX)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYZXMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以在线时间：><$GLOBAL(DYZXS)>\
<COLOR=green 成为本区在线时间最长的玩家。>\
获得天下第一在线王的荣誉称号。\
他是现在的天下第一在线王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的荣誉！\

相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看在线王特殊待遇/@在线王待遇>　　<申请天下第一在线王/@申请在线王>\\
　　　　　　

[@申请在线王]
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME

#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 你已经是天下第一在线王了！无须重复申请！
break
#if
LARGE D77 $GLOBAL(DYZX)
#act
CALCVAR GLOBAL DYZXMZ = $USERNAME
SAVEVAR GLOBAL DYZXMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYZXHH = $GUILDNAME
SAVEVAR GLOBAL DYZXHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYZX = $STR(D77)
SAVEVAR GLOBAL DYZX ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYZXS = $LOGINLONG
SAVEVAR GLOBAL DYZXS ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 10
#ELSEACT
messagebox 申请失败！你不是在线时间最长的玩家！不能成为天下第一在线王！\\你当前在线时间为<$LOGINLONG>！继续努力吧！

[@getstring10]
#if
#act
Getstring S0
CALCVAR GLOBAL DYZX = $STR(S0)
SAVEVAR GLOBAL DYZX ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一在线王!
SENDMSG 0 『中州十王排名榜』：%s已经以在线时间（<$LOGINLONG>）的成绩！！在我这里证实了他才是天下第一在线王！
GOTO @在线王

[@在线王待遇]
#Say
天下第一在线王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到天空<color=green 阿修罗神>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@在线王>

[@元宝王]
#say
天下第一元宝王：<$GLOBAL(DYYBMZ)>\
　　　所属行会：<$GLOBAL(DYYBHH)>\
　　　　联系QQ：<$GLOBAL(DYYB)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYYBMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以元宝数量：><$GLOBAL(DYYB)>\
<COLOR=green 成为本区元宝数量最多的玩家。>\
获得天下第一元宝王的荣誉称号。\
他是现在的天下第一元宝王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的荣誉！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看元宝王特殊待遇/@元宝王待遇>　　<申请天下第一元宝王/@申请元宝王>\\
　　　　　　<网游之家提供支持/@@urlwww.gmsbbs.com>

[@申请元宝王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 你已经是天下第一元宝王了！无须重复申请！
break
#if
CHECKGAMEGOLD > $GLOBAL(DYYB)
#act
CALCVAR GLOBAL DYYBMZ = $USERNAME
SAVEVAR GLOBAL DYYBMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYYBHH = $GUILDNAME
SAVEVAR GLOBAL DYYBHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYYB = $GAMEGOLD
SAVEVAR GLOBAL DYYB ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 11
#ELSEACT
messagebox 申请失败！你不是元宝数量最多的玩家！不能成为天下第一元宝王！\\你当前元宝数量为<$GAMEGOLD>！继续努力吧！

[@getstring11]
#if
#act
Getstring S1
CALCVAR GLOBAL DYYB = $STR(S1)
SAVEVAR GLOBAL DYYB ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一元宝王!
SENDMSG 0 『中州十王排名榜』：%s已经以元宝数量（<$GAMEGOLD>个）的成绩！在我这里证实了他才是天下第一元宝王！
GOTO @元宝王

[@元宝王待遇]
#Say
天下第一元宝王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到镜像天空<color=green 镜像阿修罗>的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@元宝王>

[@声望王]
#say
天下第一声望王：<$GLOBAL(DYSWMZ)>\
　　　所属行会：<$GLOBAL(DYSWHH)>\
　　　　联系QQ：<$GLOBAL(DYSW)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYSWMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以声望数量：><$GLOBAL(DYSW)>\
<COLOR=green 成为本区声望数量最多的玩家。>\
获得天下第一声望王的荣誉称号。\
他是现在的天下第一声望王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的荣誉！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看声望王特殊待遇/@声望王待遇>　　<申请天下第一声望王/@申请声望王>\\
　　　　　　

[@申请声望王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 你已经是天下第一声望王了！无须重复申请！
break
#if
CHECKCREDITPOINT > $GLOBAL(DYSW)
#act
CALCVAR GLOBAL DYSWMZ = $USERNAME
SAVEVAR GLOBAL DYSWMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYSWHH = $GUILDNAME
SAVEVAR GLOBAL DYSWHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYSW = $CREDITPOINT
SAVEVAR GLOBAL DYSW ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 17
#ELSEACT
messagebox 申请失败！你不是声望数量最多的玩家！不能成为天下第一声望王！\\你当前声望数量为<$CREDITPOINT>！继续努力吧！

[@getstring17]
#if
#act
Getstring S7
CALCVAR GLOBAL DYSW = $STR(S7)
SAVEVAR GLOBAL DYSW ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一声望王!
SENDMSG 0 『中州十王排名榜』：%s已经以声望数量（<$CREDITPOINT>个）的成绩！在我这里证实了他才是天下第一声望王！
GOTO @声望王

[@声望王待遇]
#Say
天下第一声望王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到<color=green 焰火屠魔场>的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@声望王>

[@荣誉王]
#say
天下第一荣誉王：<$GLOBAL(DYRYMZ)>\
　　　所属行会：<$GLOBAL(DYRYHH)>\
　　　　联系QQ：<$GLOBAL(DYRY)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYRYMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以荣誉数量：><$GLOBAL(DYRY)>\
<COLOR=green 成为本区荣誉数量最多的玩家。>\
获得天下第一荣誉王的荣誉称号。\
他是现在的天下第一荣誉王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的荣誉！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看荣誉王特殊待遇/@荣誉王待遇>　　<申请天下第一荣誉王/@申请荣誉王>\\
　　　　　　

[@申请荣誉王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 你已经是天下第一荣誉王了！无须重复申请！
break
#if
CHECKVAR HUMAN zezfr > $GLOBAL(DYRY)
#act
CALCVAR GLOBAL DYRYMZ = $USERNAME
SAVEVAR GLOBAL DYRYMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYRYHH = $GUILDNAME
SAVEVAR GLOBAL DYRYHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYRY = $HUMAN(zezfr)
SAVEVAR GLOBAL DYRY ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 12
#ELSEACT
messagebox 申请失败！你不是荣誉数量最多的玩家！不能成为天下第一荣誉王！\\你当前荣誉数量为<$HUMAN(zezfr)>！继续努力吧！

[@getstring12]
#if
#act
Getstring S2
CALCVAR GLOBAL DYRY = $STR(S2)
SAVEVAR GLOBAL DYRY ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一荣誉王!
SENDMSG 0 『中州十王排名榜』：%s已经以荣誉点数（<$HUMAN(zezfr)>个）的成绩！在我这里证实了他才是天下第一荣誉王！
GOTO @荣誉王

[@荣誉王待遇]
#Say
天下第一荣誉王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到逆魔古刹<color=green 逆魔之王>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@荣誉王>

[@杀人王]
#say
天下第一杀人王：<$GLOBAL(DYPKMZ)>\
　　　所属行会：<$GLOBAL(DYPKHH)>\
　　　　联系QQ：<$GLOBAL(DYPK)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYPKMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以PK值数量：><$GLOBAL(DYPK)>\

<COLOR=green 成为本区PK值数量最多的玩家。>\
获得天下第一杀人王的杀人称号。\
他是现在的天下第一杀人王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的杀人！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看杀人王特殊待遇/@杀人王待遇>　　<申请天下第一杀人王/@申请杀人王>\\
　　　　　　#act
CALCVAR HUMAN GRPK = $PKPOINT

[@申请杀人王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 你已经是天下第一杀人王了！无须重复申请！
break
#if
CHECKVAR HUMAN GRPK > $GLOBAL(DYPK)
#act
CALCVAR GLOBAL DYPKMZ = $USERNAME
SAVEVAR GLOBAL DYPKMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYPKHH = $GUILDNAME
SAVEVAR GLOBAL DYPKHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYPK = $PKPOINT
SAVEVAR GLOBAL DYPK ..\QuestDiary\数据文件\十王排名.txt

queryvalue 请输入你的【号码】限制9个数字内 2 9 13
#ELSEACT
messagebox 申请失败！你不是PK值数量最多的玩家！不能成为天下第一杀人王！\\你当前PK值数量为<$PKPOINT>！继续努力吧！

[@getstring13]
#if
#act
Getstring S3
CALCVAR GLOBAL DYPK = $STR(S3)
SAVEVAR GLOBAL DYPK ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一杀人王!
SENDMSG 0 『中州十王排名榜』：%s已经以PK点数（<$PKPOINT>点）的成绩！在我这里证实了他才是天下第一杀人王！
GOTO @杀人王

[@杀人王待遇]
#Say
天下第一杀人王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到炼狱魔境<color=green 炼狱魔君>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@杀人王>

[@攻击王]
#say
天下第一攻击王：<$GLOBAL(DYDCMZ)>\
　　　所属行会：<$GLOBAL(DYDCHH)>\
　　　　联系QQ：<$GLOBAL(DYDC)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYDCMZ)><COLOR=green 在烽烟四起>\

<COLOR=green 的大陆修炼中以攻击力点数：><$GLOBAL(DYDC)>\
<COLOR=green 成为本区攻击力最大的玩家。>\
获得天下第一攻击王的攻击称号。\
他是现在的天下第一攻击王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的攻击！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看攻击王特殊待遇/@攻击王待遇>　　<申请天下第一攻击王/@申请攻击王>\\
　　　　　　#act
CALCVAR HUMAN GRDC = $MAXDC

[@申请攻击王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!

break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 你已经是天下第一攻击王了！无须重复申请！
break
#if
CHECKVAR HUMAN GRDC > $GLOBAL(DYDC)
#act
CALCVAR GLOBAL DYDCMZ = $USERNAME
SAVEVAR GLOBAL DYDCMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYDCHH = $GUILDNAME
SAVEVAR GLOBAL DYDCHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYDC = $MAXDC
SAVEVAR GLOBAL DYDC ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 14
#ELSEACT
messagebox 申请失败！你不是攻击力最高的玩家！不能成为天下第一攻击王！\\你当前攻击力点数为<$MAXDC>！继续努力吧！

[@getstring14]
#if
#act
Getstring S4
CALCVAR GLOBAL DYDC = $STR(S4)
SAVEVAR GLOBAL DYDC ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一攻击王!
SENDMSG 0 『中州十王排名榜』：%s已经以攻击力点数（<$MAXDC>点）的成绩！在我这里证实了他才是天下第一攻击王！
GOTO @攻击王

[@攻击王待遇]
#Say
天下第一攻击王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到禁地魔穴<color=green 禁地魔王>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@攻击王>

[@魔法王]
#say
天下第一魔法王：<$GLOBAL(DYMCMZ)>\
　　　所属行会：<$GLOBAL(DYMCHH)>\
　　　　联系QQ：<$GLOBAL(DYMC)>\

<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYMCMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以魔法力点数：><$GLOBAL(DYMC)>\
<COLOR=green 成为本区魔法力最大的玩家。>\
获得天下第一魔法王的魔法称号。\
他是现在的天下第一魔法王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的魔法！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看魔法王特殊待遇/@魔法王待遇>　　<申请天下第一魔法王/@申请魔法王>\\
　　　　　#act
CALCVAR HUMAN GRMC = $MAXMC

[@申请魔法王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 你已经是天下第一魔法王了！无须重复申请！
break
#if
CHECKVAR HUMAN GRMC > $GLOBAL(DYMC)
#act
CALCVAR GLOBAL DYMCMZ = $USERNAME
SAVEVAR GLOBAL DYMCMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYMCHH = $GUILDNAME
SAVEVAR GLOBAL DYMCHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYMC = $MAXMC
SAVEVAR GLOBAL DYMC ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 15
#ELSEACT
messagebox 申请失败！你不是魔法力最高的玩家！不能成为天下第一魔法王！\\你当前魔法力点数为<$MAXMC>！继续努力吧！

[@getstring15]
#if
#act
Getstring S5
CALCVAR GLOBAL DYMC = $STR(S5)
SAVEVAR GLOBAL DYMC ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一魔法王!
SENDMSG 0 『中州十王排名榜』：%s已经以魔法力点数（<$MAXMC>点）的成绩！在我这里证实了他才是天下第一魔法王！
GOTO @魔法王

[@魔法王待遇]
#Say
天下第一魔法王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到铁血魔城<color=green 铁血魔王>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@魔法王>

[@道术王]
#say
天下第一道术王：<$GLOBAL(DYSCMZ)>\
　　　所属行会：<$GLOBAL(DYSCHH)>\
　　　　联系QQ：<$GLOBAL(DYSC)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYSCMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以道术力点数：><$GLOBAL(DYSC)>\
<COLOR=green 成为本区道术力最大的玩家。>\
获得天下第一道术王的道术称号。\
他是现在的天下第一道术王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的道术！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看道术王特殊待遇/@道术王待遇>　　<申请天下第一道术王/@申请道术王>\\

#act
CALCVAR HUMAN GRSC = $MAXSC

[@申请道术王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 你已经是天下第一道术王了！无须重复申请！
break
#if
CHECKVAR HUMAN GRSC > $GLOBAL(DYSC)
#act
CALCVAR GLOBAL DYSCMZ = $USERNAME
SAVEVAR GLOBAL DYSCMZ ..\QuestDiary\数据文件\十王排名.txt

CALCVAR GLOBAL DYSCHH = $GUILDNAME
SAVEVAR GLOBAL DYSCHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYSC = $MAXSC
SAVEVAR GLOBAL DYSC ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 16
#ELSEACT
messagebox 申请失败！你不是道术力最高的玩家！不能成为天下第一道术王！\\你当前道术力点数为<$MAXSC>！继续努力吧！

[@getstring16]
#if
#act
Getstring S6
CALCVAR GLOBAL DYSC = $STR(S6)
SAVEVAR GLOBAL DYSC ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一道术王!
SENDMSG 0 『中州十王排名榜』：%s已经以道术力点数（<$MAXSC>点）的成绩！在我这里证实了他才是天下第一道术王！
GOTO @道术王

[@道术王待遇]
#Say
天下第一道术王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到通天塔<color=green 通天教主>身边的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@道术王>

[@等级王]
#say
天下第一等级王：<$GLOBAL(DYDJMZ)>\
　　　所属行会：<$GLOBAL(DYDJHH)>\
　　　　联系QQ：<$GLOBAL(DYDJ)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYDJMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以等级：><$GLOBAL(DYDJ)>\
<COLOR=green 成为本区等级最高的玩家。>\
获得天下第一等级王的等级称号。\
他是现在的天下第一等级王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的等级！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看等级王特殊待遇/@等级王待遇>　　<申请天下第一等级王/@申请等级王>\\

[@申请等级王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 你已经是天下第一等级王了！无须重复申请！
break
#if
CHECKLEVELEX > $GLOBAL(DYDJ)
#act
CALCVAR GLOBAL DYDJMZ = $USERNAME
SAVEVAR GLOBAL DYDJMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYDJHH = $GUILDNAME
SAVEVAR GLOBAL DYDJHH ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYDJ = $LEVEL
SAVEVAR GLOBAL DYDJ ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 18
#ELSEACT
messagebox 申请失败！你不是等级最高的玩家！不能成为天下第一等级王！\\你当前等级为<$LEVEL>！继续努力吧！

[@getstring18]
#if
#act
Getstring S8
CALCVAR GLOBAL DYDJ = $STR(S8)
SAVEVAR GLOBAL DYDJ ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一等级王!
SENDMSG 0 『中州十王排名榜』：%s已经以等级（<$LEVEL>级）的成绩！在我这里证实了他才是天下第一等级王！
GOTO @等级王

[@等级王待遇]
#Say
天下第一等级王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到<color=green 镜像天空>的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@等级王>

[@金钱王]
#say
天下第一金钱王：<$GLOBAL(DYJQMZ)>\

　　　所属行会：<$GLOBAL(DYJQHH)>\
　　　　联系QQ：<$GLOBAL(DYJQ)>\
<COLOR=green 经过长期的坚持和努力，><$GLOBAL(DYJQMZ)><COLOR=green 在烽烟四起>\
<COLOR=green 的大陆修炼中以金币数量：><$GLOBAL(DYJQ)>\
<COLOR=green 成为本区金币数量最多的玩家。>\
获得天下第一金钱王的金钱称号。\
他是现在的天下第一金钱王，\
那以后的天下第一会是谁呢？\
努力把！为了这唯一的金钱！\
相信自己，把握未来，明天的天下第一就是你！\
<COLOR=blue -------------------------------------- >\
<查看金钱王特殊待遇/@金钱王待遇>　　<申请天下第一金钱王/@申请金钱王>\\

[@申请金钱王]
#if
CHECKVAR GLOBAL DYZXMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYYBMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSWMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYRYMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYPKMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYMCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYSCMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYDJMZ = $USERNAME
#act
messagebox 每人只可以申请一个十王封号!这个机会让给别人吧!
break
#if
CHECKVAR GLOBAL DYJQMZ = $USERNAME
#act
messagebox 你已经是天下第一金钱王了！无须重复申请！
break
#if
CHECKGOLD $GLOBAL(DYJQ)
#act
mov S42 $GOLDCOUNT
DEC S42 2 10
CALCVAR GLOBAL DYJQ = $STR(S42)
SAVEVAR GLOBAL DYJQ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYJQMZ = $USERNAME
SAVEVAR GLOBAL DYJQMZ ..\QuestDiary\数据文件\十王排名.txt
CALCVAR GLOBAL DYJQHH = $GUILDNAME
SAVEVAR GLOBAL DYJQHH ..\QuestDiary\数据文件\十王排名.txt
queryvalue 请输入你的【号码】限制9个数字内 2 9 19
#ELSEACT
messagebox 申请失败！你不是金币数量最多高的玩家！不能成为天下第一金钱王！\\你当前金币数量为<$GOLDPOINT>！继续努力吧！

[@getstring19]
#if
#act
Getstring S9
CALCVAR GLOBAL DYJQ = $STR(S9)
SAVEVAR GLOBAL DYJQ ..\QuestDiary\数据文件\十王排名.txt
messagebox 申请成功!你成为天下第一金钱王!
SENDMSG 0 『中州十王排名榜』：%s已经以金币数量（<$GLOBAL(DYJQ)>个）的成绩！在我这里证实了他才是天下第一金钱王！
GOTO @金钱王

[@金钱王待遇]
#Say
天下第一金钱王拥有以下特殊待遇：\\
1、超级传送待遇：\
　　　　直接传送到<color=green 月兔居>的权力\
　　　　不同的十王超级传送的地点不同\\
2、可以无限次免费进入炼狱的特权\\
<返回/@金钱王>

本站原创【十王排名】脚本！保证无错无漏洞

Tags：

文章评论评论内容只代表网友观点，与本站立场无关！

栏目导航

本类热门阅览

相关文章