论坛 › 传奇脚本专区 › 回收排名脚本

22pk论坛 发表于 2015-9-7 08:49:26

回收排名脚本

[@main]
#if
checklevelex > 0
#act
MOV S70
MOV N70 0
MOV S71
MOV N71 0
MOV S72
MOV N72 0
MOV S73
MOV S74
MOV S75
MOV S76
MOV S77
MOV S78
MOV S80
MOV S81
MOV S82
MOV S83
MOV S84
MOV S85
MOV N80 0
MOV N81 0
MOV N82 0
SortHumVarToListEx 回收数量 .\QuestDiary\自定义变量\回收排序Save.txt 1 .\QuestDiary\自定义变量\回收排序.txt 1
SortHumVarToListEx 回收数量 .\QuestDiary\自定义变量\回收排序Save.txt 1 .\QuestDiary\自定义变量\回收排序_1.txt 0
GetRandomText .\QuestDiary\自定义变量\回收排序.txt S70 1
GetRandomText .\QuestDiary\自定义变量\回收排序.txt S71 2
GetRandomText .\QuestDiary\自定义变量\回收排序.txt S72 3

GetRandomText .\QuestDiary\自定义变量\回收前三.txt S80 1
GetRandomText .\QuestDiary\自定义变量\回收前三.txt S81 2
GetRandomText .\QuestDiary\自定义变量\回收前三.txt S82 3

#if
CHECKNAMELISTPOSITION .\QuestDiary\自定义变量\回收排序_1.txt > 0 P0
#act

#if
EQUAL S70
#act
MOV S70 暂无
#elseact
GetListString .\QuestDiary\自定义变量\回收排序.txt 0 S70 N70

#if
EQUAL S71
#act
MOV S71 暂无
#elseact
GetListString .\QuestDiary\自定义变量\回收排序.txt 1 S71 N71

#if
EQUAL S72
#act
MOV S72 暂无
#elseact
GetListString .\QuestDiary\自定义变量\回收排序.txt 2 S72 N72


#if
EQUAL S80
#act
MOV S80 暂无
MOV S83 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 0 S80 N80

#if
EQUAL S81
#act
MOV S81 暂无
MOV S84 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 1 S81 N81

#if
EQUAL S82
#act
MOV S82 暂无
MOV S85 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 2 S82 N82

#if
ISADMIN
#act
goto @管理员界面
#elseact
goto @回收奖励界面A

[@管理员界面]
#IF
#act
closeBigDialogBox
#say
\ \
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=83>\
　　　　　<清理回收排名/@清空回收排名A>　←清理回收排名\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=83>\
　　　　　<清理回收排名/@清空回收排名A>　←清理回收排名\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=83>\
　　　　　<清理回收排名/@清空回收排名A>　←清理回收排名\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=83>\
　　　　　<回收奖励界面/@回收奖励界面A>　←回收奖励界面\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=83>\

[@回收奖励界面A]
#IF
checklevelex > 0
#ACT
MOV S73 <$STR(S70)>
MOV S74 <$STR(S71)>
MOV S75 <$STR(S72)>
MOV S76 <$STR(N70)>
MOV S77 <$STR(N71)>
MOV S78 <$STR(N72)>

MOV S83 <$STR(N80)>
MOV S84 <$STR(N81)>
MOV S85 <$STR(N82)>

SetStringBlank S73 20 0
SetStringBlank S74 20 0
SetStringBlank S75 20 0
SetStringBlank S76 10 0
SetStringBlank S77 10 0
SetStringBlank S78 10 0

SetStringBlank S80 20 0
SetStringBlank S81 20 0
SetStringBlank S82 20 0
SetStringBlank S83 10 0
SetStringBlank S84 10 0
SetStringBlank S85 10 0
#ACT
closeBigDialogBox
#say
<当日打装备回收元宝进入前三名的玩家可以在次日领取返还元宝/SCOLOR=151>\
<第1名返20%。第2名返10%。第3名返5%/SCOLOR=242> <提示:每日零晨清理排名。/SCOLOR=250>\
<Img:45:0><今日回收第一名：/AUTOCOLOR=253><$STR(S73)>    <回收获得元宝/SCOLOR=253>：<$STR(S76)>\
<Img:45:0><今日回收第二名：/AUTOCOLOR=253><$STR(S74)>    <回收获得元宝/SCOLOR=253>：<$STR(S77)>\
<Img:45:0><今日回收第三名：/AUTOCOLOR=253><$STR(S75)>    <回收获得元宝/SCOLOR=253>：<$STR(S78)>\
<Img:45:0><昨日回收第一名：/AUTOCOLOR=116><$STR(S80)>    <回收获得元宝/SCOLOR=116>：<$STR(S83)>\
<Img:45:0><昨日回收第二名：/AUTOCOLOR=116><$STR(S81)>    <回收获得元宝/SCOLOR=116>：<$STR(S84)>\
<Img:45:0><昨日回收第三名：/AUTOCOLOR=116><$STR(S82)>    <回收获得元宝/SCOLOR=116>：<$STR(S85)>\

<领取昨日第一名奖励/@领取第一奖励><领取昨日第二名奖励/@领取第二奖励><领取昨日第三名奖励/@领取第三奖励>\　\

<你今日当前回收装备总共获得元宝数量为：/SCOLOR=250>{[<$HUMAN(回收数量)>]/AUTOCOLOR=253}\

[@领取第一奖励]
#if
checknamelist ..\QuestDiary\自定义变量\回收领取一.txt
#act
messagebox 你已经领取过奖励了哦，请明天在来吧！
break
#elseact
MOV S80
MOV N80 0
MOV M50 0
GetRandomText .\QuestDiary\自定义变量\回收前三.txt S80 1

#if
EQUAL S80
#act
MOV S80 暂无
MOV S83 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 0 S80 N80

#if
EQUAL S80 <$USERNAME>
#act
AddNameList ..\QuestDiary\自定义变量\回收领取一.txt
MOV M50 <$STR(N80)>
DIV M50 100
MUL M50 <$STR(M50)> 20
GAMEGOLD + <$STR(M50)>
set 1
GuildNoticeMsg 252 161玩家《%s》领取昨日回收第一名的奖励：<$STR(M50)>元宝成为[打工皇帝]!!!
messagebox 恭喜你领取昨日第一名奖励<$STR(M50)>元宝成为[打工皇帝]
#elseact
messagebox 你不是昨日排名第一的玩家,无法领取奖励!!


[@领取第二奖励]
#if
checknamelist ..\QuestDiary\自定义变量\回收领取二.txt
#act
messagebox 你已经领取过奖励了哦，请明天在来吧！
break
#elseact
MOV S81
MOV N81 0
MOV M50 0
GetRandomText .\QuestDiary\自定义变量\回收前三.txt S81 2

#if
EQUAL S81
#act
MOV S81 暂无
MOV S84 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 1 S81 N81

#if
EQUAL S81 <$USERNAME>
#act
AddNameList ..\QuestDiary\自定义变量\回收领取二.txt
MOV M50 <$STR(N81)>
DIV M50 100
MUL M50 <$STR(M50)> 10
gamegold + <$STR(M50)>
GuildNoticeMsg 252 161玩家《%s》领取昨日回收第二名的奖励：<$STR(M50)>元宝
messagebox 恭喜你领取昨日第二名奖励<$STR(M50)>元宝!
#elseact
messagebox 你不是昨日排名第二的玩家,无法领取奖励!!


[@领取第三奖励]
#if
checknamelist ..\QuestDiary\自定义变量\回收领取三.txt
#act
messagebox 你已经领取过奖励了哦，请明天在来吧！
break
#elseact
MOV S82
MOV N82 0
MOV M50 0
GetRandomText .\QuestDiary\自定义变量\回收前三.txt S82 3

#if
EQUAL S82
#act
MOV S82 暂无
MOV S85 0
#elseact
GetListString .\QuestDiary\自定义变量\回收前三.txt 2 S82 N82

#if
EQUAL S82 <$USERNAME>
#act
AddNameList ..\QuestDiary\自定义变量\回收领取三.txt
MOV M50 <$STR(N82)>
DIV M50 100
MUL M50 <$STR(M50)> 5
gamegold + <$STR(M50)>
GuildNoticeMsg 252 161玩家《%s》领取昨日回收第三名的奖励：<$STR(M50)>元宝
messagebox 恭喜你领取昨日第三名奖励<$STR(M50)>元宝!
#elseact
messagebox 你不是昨日排名第三的玩家,无法领取奖励!!

[@清空回收排名A]
#if
isadmin
#act
CLEARNAMELIST ..\QuestDiary\自定义变量\回收前三.txt
SortHumVarToListEx 回收数量 .\QuestDiary\自定义变量\回收排序Save.txt 1 .\QuestDiary\自定义变量\回收前三.txt 1
CLEARNAMELIST ..\QuestDiary\自定义变量\回收排序Save.txt
CLEARNAMELIST ..\QuestDiary\自定义变量\回收排序.txt
CLEARNAMELIST ..\QuestDiary\自定义变量\回收排序_1.txt
GmexeCute 开始提问 @清理排名变量

召唤万岁 发表于 2015-9-7 08:49:27

不对，就是碗是铁的，里边没饭你吃啥去？

最后人类 发表于 2015-9-7 10:11:43

不错 支持一个了

百年的新娘 发表于 2015-9-10 04:03:15

先看看怎么样！觉得还可以，有点深度哦

野鸭子2 发表于 2015-9-13 11:33:23

哎 怎么说那~~

魔都 发表于 2015-9-14 09:39:44

照你这么说真的有道理哦 呵呵 不进沙子馁~~~

捣蛋猪 发表于 2015-9-17 10:06:56

佩服他们~!

一仆二主 发表于 2015-9-17 16:24:41

楼主强呀，正如老子所云：大音希声，大象无形。

海贼王 发表于 2015-9-20 00:55:54

~~~找灭呢吧你.........

不懂女人 发表于 2015-9-22 01:53:44

我了个去，顶了

查看完整版本: 回收排名脚本