自己写的一个简朴适用的捐钱排名，实时刷新排名，剧本体积很小。小我私人看了，市面上许多长篇大论的捐钱，基本都相同，剧本很臃肿，且还不稳固。于是自己最先着手写，下面剧本很简朴，扩展N个排名也很容易。
（@@InPutString @@InPutInteger ）
[@main]
#IF
#ACT
GetRandomText .\QuestDiary\金币捐钱\金币捐钱排名.txt s50 1
GetRandomText .\QuestDiary\金币捐钱\金币捐钱排名.txt s60 2
GetRandomText .\QuestDiary\金币捐钱\金币捐钱排名.txt s70 3
EXTRACTSTRING : <$STR（S50）> s51 s52
EXTRACTSTRING : <$STR（S60）> s61 s62
EXTRACTSTRING : <$STR（S70）> s71 s72
mov A200 <$STR（S51）>
MOV A201 <$STR（S61）>
MOV A202 <$STR（S71）>
SetStringBlank A202 16 0
SetStringBlank A200 16 0
SetStringBlank A201 16 0
MOV G200 <$STR（S52）>
MOV G201 <$STR（S62）>
MOV G202 <$STR（S72）>
#say
<【/SCOLOR=242><$USERNAME><】/SCOLOR=242><您好,迎接您使用俸禄募捐系统!/SCOLOR=243>\
<募捐第一名/SCOLOR=253>:<$STR（A200）><所捐金额/SCOLOR=146>:<$STR（G200）> <全属性8-8/SCOLOR=250>\
<募捐第二名/SCOLOR=253>:<$STR（A201）><所捐金额/SCOLOR=146>:<$STR（G201）> <全属性6-6/SCOLOR=250>\
<募捐第三名/SCOLOR=253>:<$STR（A202）><所捐金额/SCOLOR=146>:<$STR（G202）> <全属性4-4/SCOLOR=250>\
捐钱100000金币即可 <获得全属性2-2/SCOLOR=146>: \
<【/SCOLOR=251><捐钱最少100000金币,可累积募捐,获得爵位奖励隐藏属性和封号/SCOLOR=250><】/SCOLOR=251>\
\
<我要捐钱/@WYJK> <合区将整理所有募捐/SCOLOR=253> <关闭对话/@exit>\
[@WYJK]
\
<使用说明:在输入框内输入/SCOLOR=253> <捐钱金额/SCOLOR=151>\ \
<只有排在前3名的玩家,才可以显示在榜上/SCOLOR=254>\ \
<每次捐钱最少为/SCOLOR=250> <100000金币/SCOLOR=151>\ \
<输入要捐钱金额/@@InPutInteger25> <返回上一页/@main1>\
[@CallInPutInteger25]
#IF
SMALL N25 100000
#ACT
messagebox 对不起您没有足够的金币!
GOTO @WYJK
BREAK
#IF
checkgold <$STR（N25）>
#ACT
GOTO @JKKS
BREAK
#ELSEACT
messagebox 您没有那么多的金币!
BREAK
[@JKKS]
#IF
checkgold <$STR（N25）>
#ACT
take 金币 <$STR（N25）>
CALCVAR HUMAN JK + <$STR（N25）>
SAVEVAR HUMAN JK ..\QuestDiary\金币捐钱\金币捐钱.txt
AddTextListEx ..\QuestDiary\金币捐钱\第四排名.txt <$USERNAME>
SENDMSG 5 本次共捐钱：<$STR（N25）>金币，共捐钱：【<$HUMAN（JK）>】金币
GOTO @JKPAIM
BREAK
[@JKPAIM]
#if
#act
SortHumVarToListEx JK .\QuestDiary\金币捐钱\金币捐钱.txt 1 .\QuestDiary\金币捐钱\金币捐钱排名.txt 1
GOTO @最先封号
DelayCall 1000 @main
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包罗了非法字符,请重新编辑!
[@最先封号]
#IF
#ACT
#CALL [\游戏上岸\转身封号.txt] @封号
由于龙族的排版问题，只能给排名名字加空格。
QM内里声名一个小我私人变量就行了在下面
#if
#act
VAR Integer HUMAN JK
LOADVAR HUMAN JK ..\QuestDiary\金币捐钱\金币捐钱.txt
至于要改成元宝版，就把扣除元宝以及检测元宝改一下就行了。
最后QuestDiary\金币捐钱\下面划分确立TXT文本
第四排名.txt
金币捐钱.txt
金币捐钱排名.txt
都为空文本，
下面说一下 多个排名，
下面这个下令 着实就是做排行榜的，然则许多人写剧本都种种名单，替换写入 一堆剧本密密麻麻。
SortHumVarToListEx JK .\QuestDiary\金币捐钱\金币捐钱.txt 1 .\QuestDiary\金币捐钱\金币捐钱排名.txt 1
这个是排序的下令，也就是说，会自动把数据最多的人的数值举行升序。或者降序。
这里用到了很通俗的检测，
GetRandomText .\QuestDiary\金币捐钱\金币捐钱排名.txt s50 1
检测文本第一个字符。
GetRandomText .\QuestDiary\金币捐钱\金币捐钱排名.txt s51 2
这是第二个，若是要多个排名，顶部才是要害。直接索引文本的位置，1-9999都可以，
看小我私人喜欢。
EXTRACTSTRING : 这个是支解字符串。也是很适用的，由于排序会这样 人物名称：200000 用支解下令支解一下划分获取为变量就行了。
剧本跟思绪都一起送上了。 |
