国内精品国产三级国产在线专 _国产在线观看精品_一区二区三区|亚洲午夜_亚洲第一色av_国产成人愉拍精品久久_午夜小视频在线播放_蜜桃成人365av_国产视频一区二_亚洲国产一成人久久精品_日韩在线一区二区

傳奇版本服務端

標題: 傳奇爵位捐款排名腳本+思路簡單實用 [打印本頁]

作者: 傳奇文章 時間: 2020-5-15 09:35
標題: 傳奇爵位捐款排名腳本+思路簡單實用
自己寫的一個簡單實用的捐款排名，實時刷新排名，腳本體積很小。個人看了，市面上很多長篇大論的捐款，基本都相同，腳本很臃腫，且還不穩定。于是自己開始著手寫，下面腳本很簡單，擴展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 用分割命令分割一下分別獲取為變量就行了。

腳本跟思路都一起奉上了。

作者: kissfrinde 時間: 2021-8-17 14:28
傳奇假人腳本5萬金幣或微信紅包求購

作者: 傳奇GM 時間: 2021-10-17 07:34
不錯不錯棒棒的

作者: 傳奇腳本 時間: 2022-2-18 11:44
#CALL [\游戲登陸\轉身封號.txt] @封號這個后面沒有了嗎

作者: abss 時間: 2022-5-15 00:52
MonSpAbilList.txt中添加：

歡迎光臨傳奇版本服務端 (http://m.zyxqgb.com/)

<fieldset id="kkgmk"></fieldset>