自己寫的一個(gè)簡(jiǎn)單實(shí)用的捐款排名,實(shí)時(shí)刷新排名,腳本體積很小。個(gè)人看了,市面上很多長(zhǎng)篇大論的捐款,基本都相同,腳本很臃腫,且還不穩(wěn)定。于是自己開始著手寫,下面腳本很簡(jiǎn)單,擴(kuò)展N個(gè)排名也很容易。
(@@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><您好,歡迎您使用俸祿捐獻(xiàn)系統(tǒng)!/SCOLOR=243>\
<捐獻(xiàn)第一名/SCOLOR=253>:<$STR(A200)><所捐金額/SCOLOR=146>:<$STR(G200)> <全屬性8-8/SCOLOR=250>\
<捐獻(xiàn)第二名/SCOLOR=253>:<$STR(A201)><所捐金額/SCOLOR=146>:<$STR(G201)> <全屬性6-6/SCOLOR=250>\
<捐獻(xiàn)第三名/SCOLOR=253>:<$STR(A202)><所捐金額/SCOLOR=146>:<$STR(G202)> <全屬性4-4/SCOLOR=250>\
捐款100000金幣即可 <獲得全屬性2-2/SCOLOR=146>: \
<【/SCOLOR=251><捐款最少100000金幣,可累積捐獻(xiàn),獲得爵位獎(jiǎng)勵(lì)隱藏屬性和封號(hào)/SCOLOR=250><】/SCOLOR=251>\
\
<我要捐款/@WYJK> <合區(qū)將清理所有捐獻(xiàn)/SCOLOR=253> <關(guān)閉對(duì)話/@exit>\
[@WYJK]
\
<使用說明:在輸入框內(nèi)輸入/SCOLOR=253> <捐款金額/SCOLOR=151>\ \
<只有排在前3名的玩家,才可以顯示在榜上/SCOLOR=254>\ \
<每次捐款最少為/SCOLOR=250> <100000金幣/SCOLOR=151>\ \
<輸入要捐款金額/@@InPutInteger25> <返回上一頁/@main1>\
[@CallInPutInteger25]
#IF
SMALL N25 100000
#ACT
messagebox 對(duì)不起您沒有足夠的金幣!
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 @開始封號(hào)
DelayCall 1000 @main
[@IsInFilterList]
#ACT
MESSAGEBOX 輸入數(shù)據(jù)中包含了非法字符,請(qǐng)重新編輯!
[@開始封號(hào)]
#IF
#ACT
#CALL [\游戲登陸\轉(zhuǎn)身封號(hào).txt] @封號(hào)
因?yàn)辇堊宓呐虐鎲栴},只能給排名名字加空格。
QM里面申明一個(gè)個(gè)人變量就行了在下面
#if
#act
VAR Integer HUMAN JK
LOADVAR HUMAN JK ..\QuestDiary\金幣捐款\金幣捐款.txt
至于要改成元寶版,就把扣除元寶以及檢測(cè)元寶改一下就行了。
最后QuestDiary\金幣捐款\下面分別建立TXT文本
第四排名.txt
金幣捐款.txt
金幣捐款排名.txt
都為空文本,
下面說一下 多個(gè)排名,
下面這個(gè)命令 其實(shí)就是做排行榜的,但是很多人寫腳本都各種名單,替換寫入 一堆腳本密密麻麻。
SortHumVarToListEx JK .\QuestDiary\金幣捐款\金幣捐款.txt 1 .\QuestDiary\金幣捐款\金幣捐款排名.txt 1
這個(gè)是排序的命令,也就是說,會(huì)自動(dòng)把數(shù)據(jù)最多的人的數(shù)值進(jìn)行升序。或者降序。
這里用到了很普通的檢測(cè),
GetRandomText .\QuestDiary\金幣捐款\金幣捐款排名.txt s50 1
檢測(cè)文本第一個(gè)字符。
GetRandomText .\QuestDiary\金幣捐款\金幣捐款排名.txt s51 2
這是第二個(gè),如果要多個(gè)排名,頂部才是關(guān)鍵。直接索引文本的位置,1-9999都可以,
看個(gè)人喜愛。
EXTRACTSTRING : 這個(gè)是分割字符串。也是很實(shí)用的,因?yàn)榕判驎?huì)這樣 人物名稱:200000 用分割命令分割一下分別獲取為變量就行了。
腳本跟思路都一起奉上了。
|
|