如何编写一个实用的捐款脚本

传奇服务端

本脚本内容中，主要使用InPutInteger来实现捐款功能，用SortHumVarToListEx来排序捐款排名，并用
GetListString 来读取排序好的内容，SortHumVarToListEx与GetListString可以说是绝佳的配合。

以下是示例代码

;=================================================
[@main]
#IF
CHECKLEVELEX > 0
#ACT
;读取自定义变量JK的值
LOADVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt

;给位于元宝捐款.txt里的JK变量以降序排序  保存为捐款排行文件 不保存变量
SortHumVarToListEx JK ..\QuestDiary\元宝捐款\元宝捐款.txt 1 .\QuestDiary\元宝捐款\捐款排行.txt 1

GetListString .\QuestDiary\元宝捐款\捐款排行.txt 0 S1 N1
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 1 S2 N2
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 2 S3 N3
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 3 S4 N4
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 4 S5 N5
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 5 S6 N6
SetStringBlank S1 14 0
SetStringBlank S2 14 0
SetStringBlank S3 14 0
SetStringBlank S4 14 0
SetStringBlank S5 14 0
SetStringBlank S6 14 0
MOV S7 <$USERNAME>
INC S7 :<$HUMAN(JK)>
GetStringPos .\QuestDiary\元宝捐款\捐款排行.txt <$STR(S7)>
INC N0 1
MOV N18 <$STR(N0)>
MOV S8
#IF
EQUAL N0 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:15>
goto @main1
BREAK
#IF
EQUAL N0 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:31>
goto @main1
BREAK
#IF
EQUAL N0 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:47>
goto @main1
BREAK
#IF
EQUAL N0 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:63>
goto @main1
BREAK
#IF
EQUAL N0 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:79>
goto @main1
BREAK
#IF
EQUAL N0 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S8 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK
[@MAIN1]
#SAY
　      顺序     昵称         所捐金额<$STR(S8)>\
<皇帝/SCOLOR=151><Img:8:0:0:0> 第一名  <$STR(S1)>  <$STR(N1)>\
<公爵/SCOLOR=151><Img:8:0:0:0> 第二名  <$STR(S2)>  <$STR(N2)>\
<候爵/SCOLOR=151><Img:8:0:0:0> 第三名  <$STR(S3)>  <$STR(N3)>\
<伯爵/SCOLOR=151><Img:8:0:0:0> 第四名  <$STR(S4)>  <$STR(N4)>\
<子爵/SCOLOR=151><Img:8:0:0:0> 第五名  <$STR(S5)>  <$STR(N5)>\
<男爵/SCOLOR=151><Img:8:0:0:0> 第六名  <$STR(S6)>  <$STR(N6)>\
\ \
<你当前处于排行榜第/SCOLOR=151>{<$STR(N18)>/SCOLOR=249}<名！/SCOLOR=151> <我要捐款/@WYJK> <捐款奖励及捐款说明/@SHUOM>
\ \
#ELSESAY
　      顺序     昵称         所捐金额<$STR(S8)>\
<皇帝/SCOLOR=151><Img:8:0:0:0> 第一名  <$STR(S1)>  <$STR(N1)>\
<公爵/SCOLOR=151><Img:8:0:0:0> 第二名  <$STR(S2)>  <$STR(N2)>\
<候爵/SCOLOR=151><Img:8:0:0:0> 第三名  <$STR(S3)>  <$STR(N3)>\
<伯爵/SCOLOR=151><Img:8:0:0:0> 第四名  <$STR(S4)>  <$STR(N4)>\
<子爵/SCOLOR=151><Img:8:0:0:0> 第五名  <$STR(S5)>  <$STR(N5)>\
<男爵/SCOLOR=151><Img:8:0:0:0> 第六名  <$STR(S6)>  <$STR(N6)>\
\ \
<你当前处于排行榜第/SCOLOR=151>{<$STR(N18)>/SCOLOR=249}<名！/SCOLOR=151> <我要捐款/@WYJK> <捐款奖励及捐款说明/@SHUOM>
\ \
[@hequ]
\
拿完沙之后的合区清理排名！！ \  \
捐献后必须小腿才可生效！！！ \  \
<返回/@main>
[@捐款用]
<第一名/SCOLOR=253>:<皇帝>:<$STR(A200)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G200)>\
<第二名/SCOLOR=253>:<公爵>:<$STR(A201)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G201)>\
<第三名/SCOLOR=253>:<候爵>:<$STR(A202)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G202)>\
<第四名/SCOLOR=253>:<伯爵>:<$STR(A203)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G203)>\
<第五名/SCOLOR=253>:<子爵>:<$STR(A204)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G204)>\
<第六名/SCOLOR=253>:<男爵>:         <查看是否在排名内,只要捐款500即可排名/@查看>\ \
<我要捐款/@main>             <捐款奖励及捐款说明/@SHUOM>    \ \ \ \ \
[@查看]
#IF
CHECKNAMELIST ..\QuestDiary\元宝捐款\第六排名.txt
#ACT
messagebox 您在第六排名里!
#ELSEACT
messagebox 您不在第六排名里!
GOTO @WYJK
BREAK
[@SHUOM]
每次捐款不得少于500元宝!\
第一名:上线攻魔道+16\
第二名:上线攻魔道+10\
第三名:上线攻魔道+6\
第四名:上线攻魔道+4\
第五名:上线攻魔道+2\
第六名:上线攻魔道+1\  
第六名无限名额.只要超500元宝的都可以排到第6名！！\
\
<返回/@捐款用>
[@WYJK]
#ACT
#SAY
使用说明:在输入框内输入<捐款金额>\
每次捐款最少为<500元宝>!\
第一次捐款最多为<500元宝>否则不列入排名\
<输入要捐款金额/@@InPutInteger15>\
[@@InPutInteger15]
#If
CheckLevelEx > 1
#Act
delaygoto 50  @InPutInteger15
break
[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox 请输入捐款金额!
GOTO @WYJK
BREAK
#IF
SMALL N15 500
#ACT
messagebox 您所要的捐款的金额小于500元宝!
BREAK
#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt
Addnamelist ..\QuestDiary\元宝捐款\第六排名.txt
MESSAGEBOX 感谢您对本服的支持!捐献后必须小腿才可生效！
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N1)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S1)>』皇帝称号，上线攻魔道+16.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N2)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S2)>』公爵称号，上线攻魔道+10.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N3)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S3)>』侯爵称号，上线攻魔道+6.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N4)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S4)>』伯爵称号，上线攻魔道+4.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N5)>
#ACT
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S5)>』子爵称号，上线攻魔道+2.
GOTO @排名刷新
BREAK
[@排名刷新]
#ACT
SortHumVarToListEx JK .\QuestDiary\元宝捐款\元宝捐款.txt 1 .\QuestDiary\元宝捐款\捐款排行.txt 1
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 0 S1 N1
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 1 S2 N2
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 2 S3 N3
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 3 S4 N4
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 4 S5 N5
GetListString .\QuestDiary\元宝捐款\捐款排行.txt 5 S6 N6
ClearNameList ..\QuestDiary\元宝捐款\第一排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第二排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第三排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第四排名.txt
ClearNameList ..\QuestDiary\元宝捐款\第五排名.txt
AddTextList .\QuestDiary\元宝捐款\第一排名.txt <$STR(S1)>
AddTextList .\QuestDiary\元宝捐款\第二排名.txt <$STR(S2)>
AddTextList .\QuestDiary\元宝捐款\第三排名.txt <$STR(S3)>
AddTextList .\QuestDiary\元宝捐款\第四排名.txt <$STR(S4)>
AddTextList .\QuestDiary\元宝捐款\第五排名.txt <$STR(S5)>
MOV S7 <$USERNAME>
INC S7 :<$HUMAN(JK)>
GetStringPos .\QuestDiary\元宝捐款\捐款排行.txt <$STR(S7)>
INC N0 1
MOV N18 <$STR(N0)>

y79a33

大人，此事必有蹊跷！

！！！！！！

嘘，低调。

cerpu1b5u

前排支持下

cervh7w1n

学习下

7078416917

珍爱生命，果断回帖。

enens82km

沙发位出租，有意请私密我