新手关于清除排行榜求助各位大佬！！

帅气小狗

[@main]
#IF
CHECKTEXTLIST ..\\QuestDiary\\数据文件\\捐献名单排行.txt <$USERNAME>
#ACT
GetStringPos ..\\QuestDiary\\数据文件\\捐献名单排行.txt <$USERNAME>
MOV N$排名 <$STR(N2)>
INC N$排名 1
MOV S$介绍 第[<$STR(N$排名)>]名
#ELSEACT
MOV S$介绍 暂未获得排名
#IF
#ACT
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 0 A481 N40
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 1 A482 N41
MOV S$捐献排名1 <$STR(A481)>
MOV S$捐献排名2 <$STR(A482)>
SetStringBlank S$捐献排名1 14 1
SetStringBlank S$捐献排名2 14 1
MOV G481 <$STR(N40)>
MOV G482 <$STR(N41)>
MOV S$捐献金额A1 <$STR(G481)>
MOV S$捐献金额A2 <$STR(G482)>
SetStringBlank S$捐献金额A1 5 1
SetStringBlank S$捐献金额A2 5 1
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 0 S$今日捐献 N$富豪金额
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt 0 S$今日首区 S$捐献金额0
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日05区.txt 0 S$今日五区 S$捐献金额4
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日06区.txt 0 S$今日六区 S$捐献金额5
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日07区.txt 0 S$今日七区 S$捐献金额6
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日08区.txt 0 S$今日八区 S$捐献金额7
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日09区.txt 0 S$今日九区 S$捐献金额8
MOV N$总金额 0
;MOV N$富豪捐献 <$STR(N$富豪金额)>
;DIV N$富豪捐献 2
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>
INC N$总金额 <$str(S$捐献金额5)>
INC N$总金额 <$str(S$捐献金额6)>
INC N$总金额 <$str(S$捐献金额7)>
INC N$总金额 <$str(S$捐献金额8)>
INC N$总金额 <$STR(N$富豪捐献)>
;==============================
DIV N$总金额 10
MUL N$总金额  7
MOV N$胜利方奖励 <$STR(N$总金额)>
DIV N$胜利方奖励 10
MUL N$胜利方奖励  7
MOV N$失败方奖励 <$STR(N$总金额)>
DIV N$失败方奖励 10
MUL N$失败方奖励  3
;==============================
SetStringBlank S$今日首区 5 1
SetStringBlank S$今日二区 5 1
SetStringBlank S$今日三区 5 1
SetStringBlank S$今日四区 5 1
SetStringBlank S$今日五区 5 1
SetStringBlank S$今日六区 5 1
SetStringBlank S$今日七区 5 1
SetStringBlank S$今日八区 5 1
SetStringBlank S$今日九区 5 1
SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
SetStringBlank S$捐献金额2 5 1
SetStringBlank S$捐献金额3 5 1
SetStringBlank S$捐献金额4 5 1
SetStringBlank S$捐献金额5 5 1
SetStringBlank S$捐献金额6 5 1
SetStringBlank S$捐献金额7 5 1
SetStringBlank S$捐献金额8 5 1
#if
#act
OPENMERCHANTBIGDLG 10 1807 0 0 5 5 1 413 2 1
#SAY
\\
\\                         <羽绒火龙·沙城捐献/SCOLOR=253>\\
\\<捐献说明：/SCOLOR=100><捐献将作为攻沙奖励, /SCOLOR=249><（排名在每日零时清零）/SCOLOR=70>\\
\\<捐献30羽绒币激活：/SCOLOR=250><全属性10-10/FCOLOR=151>,<杀怪爆率增加30%/FCOLOR=151>\\ \\
\\<第一名/SCOLOR=56>  <鼠标移动查看属性加成|^215#攻魔道20-20,杀怪爆率增加100%^#>    <$STR(S$捐献排名1)>   {捐献数量：/SCOLOR=254}<$STR(S$捐献金额A1)>\\
\\<第二名/SCOLOR=151>  <鼠标移动查看属性加成|^215#攻魔道15-15,杀怪爆率增加50%^#>    <$STR(S$捐献排名2)>   {捐献数量：/SCOLOR=254}<$STR(S$捐献金额A2)>\\
\\<第三名/SCOLOR=154>  <鼠标移动查看属性加成|^215#攻魔道10-10,杀怪爆率增加30%^#>   <捐献30羽绒币获得/FCOLOR=250>  <保底奖励☆不限名额/SCOLOR=254>\\ \\
\\<今日新区01区/FCOLOR=243>　　　　　<已累积沙城奖励/FCOLOR=244>　　　　　<￥捐献总额：/SCOLOR=103>[<$str(S$捐献金额0)>] <元/SCOLOR=250>
\\<今日新区02区/FCOLOR=243>　　　　　<已累积沙城奖励/FCOLOR=244>　　　　　<￥捐献总额：/SCOLOR=103>[<$str(S$捐献金额1)>] <元/SCOLOR=250>
\\<今日新区03区/FCOLOR=243>　　　　　<已累积沙城奖励/FCOLOR=244>　　　　　<￥捐献总额：/SCOLOR=103>[<$str(S$捐献金额2)>] <元/SCOLOR=250>
\\<今日新区04区/FCOLOR=243>　　　　　<已累积沙城奖励/FCOLOR=244>　　　　　<￥捐献总额：/SCOLOR=103>[<$str(S$捐献金额3)>] <元/SCOLOR=250>
\\<今日新区05区/FCOLOR=243>　　　　　<已累积沙城奖励/FCOLOR=244>　　　　　<￥捐献总额：/SCOLOR=103>[<$str(S$捐献金额4)>] <元/SCOLOR=250>\\ \\
\\<[当天]沙城池总累计奖金:/SCOLOR=31> {<$STR(N$总金额)>/SCOLOR=254} <元/SCOLOR=31>                    <【点击开始捐献】/@@InPutInteger33(注意：首次捐献必须大于30，之后可任意捐献！当前羽绒币为：<$GAMEGIRD>)>　 \\ \\
\\<胜利方奖励：/SCOLOR=215><$STR(N$胜利方奖励)>                                     <失败方奖励：/SCOLOR=249><$STR(N$失败方奖励)>\\  
\\<您当前持有/FCOLOR=254>: <$GAMEGIRD> <羽绒币/FCOLOR=253>               <你当前已捐献/FCOLOR=254> [<$HUMAN(捐献)>] <羽绒币/FCOLOR=254>\\  \\      
\\<沙城奖励：/Fcolor=251><胜利方得总额的70%，失败方得总额的30%/FCOLOR=100>  <(扣除30%管理费)/SCOLOR=253>\\
\\<发放声明：/Fcolor=251><如果攻沙达不到要求则降低发放标准！！/FCOLOR=100>  <(红包形式发放)/SCOLOR=253>\\
\\<注意：凑人数创建小号的，奖励取消奖池累计到下一次攻沙！>   <第一专属地图/@第一地图>\\
[@第一地图]
#IF
EQUAL A481  <$USERNAME>
#ACT
mapmove 3   543  614
#elseact
messagebox 您不是捐献排行第一名，怎么能进去呢？
break
[@InPutInteger33]
#IF
CHECKVAR HUMAN 捐献 < 30
SMALL N33 30
#ACT
MESSAGEBOX 注意：首次捐献必须大于30羽绒币，第二次可任意捐献！
break
#IF
CHECKGAMEGIRD < <$STR(N33)>
#ACT
messagebox 您的羽绒币不足：<$STR(N33)>点，无法捐献！
break
#IF
EQUAL <$STR(N33)> 0
#ACT
MESSAGEBOX 错误！请重新输入！！
BREAK
#IF
CHECKGAMEGIRD > <$STR(N33)>
NOT CheckContainsText <$SERVERNAME> 通宵
NOT CheckContainsText <$SERVERNAME> 01区
NOT CheckContainsText <$SERVERNAME> 02区
NOT CheckContainsText <$SERVERNAME> 03区
NOT CheckContainsText <$SERVERNAME> 04区
NOT CheckContainsText <$SERVERNAME> 05区
NOT CheckContainsText <$SERVERNAME> 06区
NOT CheckContainsText <$SERVERNAME> 07区
NOT CheckContainsText <$SERVERNAME> 08区
#ACT
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 0 S$今日捐献 N$富豪金额
INC N$富豪金额 <$STR(N33)>
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt
AddTextListEx ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 今日捐献:<$STR(N$富豪金额)> 0
GAMEGIRD - <$STR(N33)>
CALCVAR HUMAN 捐献 + <$STR(N33)>
SAVEVAR HUMAN 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献排名.txt 1
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献名单排行.txt 0
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 0 A481 N40
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 1 A482 N41
MOV S$捐献排名1 <$STR(A481)>
MOV S$捐献排名2 <$STR(A482)>
MOV G481 <$STR(N40)>
MOV G482 <$STR(N41)>
CLEARNAMELIST ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt
AddTextListEx ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt 今日一区:<$STR(G21)> 0
#CALL [\\游戏登陆\\属性设置.txt] @属性刷新
#IF
CHECKGAMEGIRD > <$STR(N33)>
CheckContainsText <$SERVERNAME> 01区
#ACT
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 0 S$今日捐献 N$富豪金额
INC N$富豪金额 <$STR(N33)>
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt
AddTextListEx ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 今日捐献:<$STR(N$富豪金额)> 0
GAMEGIRD - <$STR(N33)>
CALCVAR HUMAN 捐献 + <$STR(N33)>
SAVEVAR HUMAN 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献排名.txt 1
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献名单排行.txt 0
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 0 A481 N40
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 1 A482 N41
MOV S$捐献排名1 <$STR(A481)>
MOV S$捐献排名2 <$STR(A482)>
MOV G481 <$STR(N40)>
MOV G482 <$STR(N41)>
INC G21 <$STR(N33)>
CLEARNAMELIST ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt
AddTextListEx ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt 今日一区:<$STR(G21)> 0
每日零点排行榜清零 个人捐献清零  刷新属性 刷新排行

可爱小狗

#IF
EQUAL G888 0
#ACT
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 0 S$今日捐献 N$富豪金额
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt 0 S$今日首区 S$捐献金额0
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日02区.txt 0 S$今日二区 S$捐献金额1
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日03区.txt 0 S$今日三区 S$捐献金额2
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日04区.txt 0 S$今日四区 S$捐献金额3
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日05区.txt 0 S$今日五区 S$捐献金额4
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日06区.txt 0 S$今日六区 S$捐献金额5
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日07区.txt 0 S$今日七区 S$捐献金额6
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日08区.txt 0 S$今日八区 S$捐献金额7
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日09区.txt 0 S$今日九区 S$捐献金额8
#IF
CHECKGAMEGIRD > <$STR(N33)>
NOT CheckContainsText <$SERVERNAME> 通宵
NOT CheckContainsText <$SERVERNAME> 01区
NOT CheckContainsText <$SERVERNAME> 02区
NOT CheckContainsText <$SERVERNAME> 03区
NOT CheckContainsText <$SERVERNAME> 04区
NOT CheckContainsText <$SERVERNAME> 05区
NOT CheckContainsText <$SERVERNAME> 06区
NOT CheckContainsText <$SERVERNAME> 07区
NOT CheckContainsText <$SERVERNAME> 08区
#ACT
GetListString ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 0 S$今日捐献 N$富豪金额
INC N$富豪金额 <$STR(N33)>
CLEARNAMELIST ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt
AddTextListEx ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt 今日捐献:<$STR(N$富豪金额)> 0
GAMEGIRD - <$STR(N33)>
CALCVAR HUMAN 捐献 + <$STR(N33)>
SAVEVAR HUMAN 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献排名.txt 1
SortHumVarToListEx 捐献 ..\\QuestDiary\\数据文件\\捐献变量.txt 1 ..\\QuestDiary\\数据文件\\捐献名单排行.txt 0
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 0 A481 N40
GetListString ..\\QuestDiary\\数据文件\\捐献排名.txt 1 A482 N41
MOV S$捐献排名1 <$STR(A481)>
MOV S$捐献排名2 <$STR(A482)>
MOV G481 <$STR(N40)>
MOV G482 <$STR(N41)>
CLEARNAMELIST ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt
AddTextListEx ..\\..\\..\\..\\..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\今日01区.txt 今日一区:<$STR(G21)> 0
MOV G888 1
#CALL [\\游戏登陆\\属性设置.txt] @属性刷新
机器人清除捐献文本时MOV G888 0

坚强小鱼

玩家不小退刷新属性 刷新排行

阳光小猪

其实还能更简化，但是懒得自习看
由请下方大佬继续

美丽小鹿

smjs0327 发表于 2020-11-3 16:10 其实还能更简化，但是懒得自习看
由请下方大佬继续

机器人那些我会弄 这个G888是捐献就赋值为1吗

机智小猪

senyan 发表于 2020-11-3 16:56 机器人那些我会弄 这个G888是捐献就赋值为1吗

有玩家捐献就赋值1，玩家打开npc捐献页面时检测一下，为1就不清除捐献数据文本，往下执行脚本，如果为0，就清除捐献数据文本，再往下执行。
系统清除捐献文本数据时，赋值G888全局变量为0就可以了。
捐献名单不为空等等检测条件都可以。

勤奋小狗

smjs0327 发表于 2020-11-3 18:30 有玩家捐献就赋值1，玩家打开npc捐献页面时检测一下，为1就不清除捐献数据文本，往下执行脚本，如果为0， ...

用机器人 NPC前面不加检测行得通吗？
[@清理沙捐排行]
#IF
#act
CLEARNAMELIST ..\\QuestDiary\\数据文件\\捐献变量.txt
CLEARNAMELIST  ..\\..\\..\\..\\通区捐献\\<$STR(A28)>\\富豪捐献.txt
CLEARNAMELIST ..\\QuestDiary\\数据文件\\捐献排名.txt
CLEARNAMELIST  ..\\QuestDiary\\数据文件\\捐献名单排行.txt
MOV G888 0

开心小鹿

senyan 发表于 2020-11-3 19:02 用机器人 NPC前面不加检测行得通吗？
[@清理沙捐排行]
#IF

npc里面你点加检测啊，G888是1还是0啊