微信扫一扫 分享朋友圈

已有 5557 人浏览分享

开启左侧

传奇爵位捐钱排名剧本+思绪简朴适用

[复制链接]
5557 0
自己写的一个简朴适用的捐钱排名,实时刷新排名,剧本体积很小。小我私人看了,市面上许多长篇大论的捐钱,基本都相同,剧本很臃肿,且还不稳固。于是自己最先着手写,下面剧本很简朴,扩展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   用支解下令支解一下划分获取为变量就行了。



剧本跟思绪都一起送上了。

举报 使用道具

回复
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

0

关注

2

粉丝

3048

主题
精彩推荐
热门资讯
网友晒图
图文推荐
  • 微信

  • QQ群

QQ|Archiver|手机版|小黑屋|88M2传奇资源网 ( 鲁ICP备20017785号-2 )|网站地图

GMT+8, 2024-3-29 16:52 , Processed in 0.106514 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.