自己寫的一個簡單實用的捐款排名，實時刷新排名，腳本體積很小。個人看了，市面上很多長篇大論的捐款，基本都相同，腳本很臃腫，且還不穩定。于是自己開始著手寫，下面腳本很簡單，擴展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 用分割命令分割一下分別獲取為變量就行了。
腳本跟思路都一起奉上了。
|
|
收藏
