杀怪福利中变传奇脚本打怪排行榜

22pk论坛 · 发表于 2016-12-4 21:22:25

[@开始杀怪排行吧]
{
#if
EQUAL G5 0
#act
MOV G5 1
MOV A27 <$STR(A0)>
MOV A28 <$STR(A13)>
MOV A29 <$STR(A14)>
MOV G4 <$STR(G1)>
MOV G25 <$STR(G3)>
MOV G28 <$STR(G8)>
MOV A0 无
MOV A13 无
MOV A14 无
MOV G1 0
MOV G3 0
MOV G8 0
CLEARNAMELIST ..\QuestDiary\数据文件\杀怪数量SAVE.txt
CLEARNAMELIST ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
SENDMSG 0 系统杀怪文件已经清空
BREAK
#if
checknamelist ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
#act
MOV A38 <你已经领取过了/SCOLOR=249>
SETSTRINGblank A38 44 1
GOTO @领取前检测完毕
#ELSEACT
MOV A38 <昨日杀怪前3名点击领取代金卷奖励/@昨日杀怪前3名点击领取代金卷奖励>
SETSTRINGblank A38 44 1
GOTO @领取前检测完毕
[@领取前检测完毕1]
#IF
#ACT
LOADVAR HUMAN 杀怪数量 ..\QuestDiary\数据文件\杀怪数量SAVE.txt
GOTO @刷新杀怪排行
GOTO @刷新排版界面
BREAK

[@领取前检测完毕]
#IF
#ACT
LOADVAR HUMAN 杀怪数量 ..\QuestDiary\数据文件\杀怪数量SAVE.txt
GOTO @刷新杀怪排行
GOTO @刷新排版界面
GOTO @刷新杀怪排行界面
BREAK
[@刷新杀怪排行界面]
#if
#act
OpenBigDialogBox
#say
　　　　　　　　　　　　　　<【散人福利代金卷系统】 /AUTOCOLOR=31,251,252,253,254,255>\ \
<今日杀怪第一名玩家为：/SCOLOR=31><$STR(A35)><目前砍杀怪物个数：/SCOLOR=249>【<$STR(G1)>】<只怪物/SCOLOR=249><[奖励30代金卷]/SCOLOR=158>\ \
<今日杀怪第二名玩家为：/SCOLOR=31><$STR(A36)><目前砍杀怪物个数：/SCOLOR=249>【<$STR(G3)>】<只怪物/SCOLOR=249><[奖励2亿元宝]/SCOLOR=158>\ \
<今日杀怪第三名玩家为：/SCOLOR=31><$STR(A37)><目前砍杀怪物个数：/SCOLOR=249>【<$STR(G8)>】<只怪物/SCOLOR=249><[奖励1亿元宝]/SCOLOR=158>\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=253>\
<本服独创杀怪系统，于每天00:00进行统计杀怪数量，凡是单天杀怪前3名即可获得“代金卷”！/SCOLOR=250>\ \
<“代金卷”双击使用，和正常充值一样，正常充值给什么，“代金卷”就给什么，也会增加充值金额！/SCOLOR=250>\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=253>\
<查看昨天杀怪前3名获得者/@查看昨天杀怪前3名获得者> <$STR(A38)><[24点可以领取]/SCOLOR=158>\
　　　　　　　　　　<你今日已经砍杀：/SCOLOR=249>【<$HUMAN(杀怪数量)>】<个怪物/SCOLOR=249>\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=253>\
<特别提示：“代金卷”所获得的所有东西都是安装“网银比例”发放的，大家年例杀怪吧！/SCOLOR=254>\ \
<特别提示：防止作弊，新手地图不增加杀怪数量。中级地图以上的地图才会增加！望周知！老区只有终极神殿和三个副本地图增加！/SCOLOR=251>\ \
<特别提示：24点后请尽快领取代金卷，为游戏公平合区后会清空杀怪数据！重新计算！/SCOLOR=116>\
[@昨日杀怪前3名点击领取代金卷奖励]
#if
checknamelist ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
#act
sendmsg 5 对不起，你已经领取了奖励....
break
#if
EQUAL A27 <$USERNAME>
#ACT
GIVE 30代金卷 1
SENDMSG 0 %S昨天成为杀怪第一名，奖励30代金卷一个
addnamelist ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
GOTO @开始杀怪排行吧
BREAK
#if
EQUAL A28 <$USERNAME>
#ACT
GAMEGOLD + 200000000
SENDMSG 0 %S昨天成为杀怪第二名，奖励【2亿】
addnamelist ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
GOTO @开始杀怪排行吧
BREAK
#if
EQUAL A29 <$USERNAME>
#ACT
GAMEGOLD + 100000000
SENDMSG 0 %S昨天成为杀怪第三名，奖励【1亿】
addnamelist ..\QuestDiary\数据文件\杀怪领取奖励名单.txt
GOTO @开始杀怪排行吧
BREAK
#ELSEACT
MESSAGEBOX 对不起，目前你不在排名之内

[@查看昨天杀怪前3名获得者]
#if
equal G4 0
#ACT
MOV A27 无
MOV A28 无
MOV A29 无
MOV G4 0
MOV G25 0
MOV G28 0
#if
#act
closeBigDialogBox
#say
<昨日杀怪第一名玩家为：/SCOLOR=31>【<$STR(A27)>】<目前砍杀怪物个数：/SCOLOR=249>【<$STR(G4)>】<只怪物/SCOLOR=249>\ \
<昨日杀怪第二名玩家为：/SCOLOR=31>【<$STR(A28)>】<目前砍杀怪物个数：/SCOLOR=249>【<$STR(G25)>】<只怪物/SCOLOR=249>\ \
<昨日杀怪第三名玩家为：/SCOLOR=31>【<$STR(A29)>】<目前砍杀怪物个数：/SCOLOR=249>【<$STR(G28)>】<只怪物/SCOLOR=249>\
[@刷新排版界面]
#if
#act
MOV A35 <$STR(A0)>
MOV A36 <$STR(A13)>
MOV A37 <$STR(A14)>
SETSTRINGBLANK A35 16 0
SETSTRINGBLANK A36 16 0
SETSTRINGBLANK A37 16 0
BREAK

[@刷新杀怪排行]
#IF
EQUAL A0 <$USERNAME>
#ACT
MOV G1 <$HUMAN(杀怪数量)>
BREAK
#IF
CHECKVAR HUMAN 杀怪数量 > <$STR(G1)>
#ACT
goto @杀怪第一排序
break
#IF
EQUAL A13 <$USERNAME>
#ACT
MOV G3 <$HUMAN(杀怪数量)>
BREAK
#IF
CHECKVAR HUMAN 杀怪数量 > <$STR(G3)>
#ACT
goto @杀怪第二排序
break

#IF
CHECKVAR HUMAN 杀怪数量 > <$STR(G8)>
#ACT
goto @杀怪第三排序
break

[@杀怪第一排序]
#IF
EQUAL A13 <$USERNAME>
#ACT
MOV A13 <$STR(A0)>
MOV G3 <$STR(G1)>
MOV A0 <$USERNAME>
MOV G1 <$HUMAN(杀怪数量)>
BREAK
#elseact
MOV A14 <$STR(A13)>
MOV G8 <$STR(G3)>
MOV A13 <$STR(A0)>
MOV G3 <$STR(G1)>
MOV A0 <$USERNAME>
MOV G1 <$HUMAN(杀怪数量)>
break

[@杀怪第二排序]
#IF
EQUAL A14 <$USERNAME>
#ACT
MOV A14 <$STR(A13)>
MOV G8 <$STR(G3)>
MOV A13 <$USERNAME>
MOV G3 <$HUMAN(杀怪数量)>
BREAK
#elseact
MOV A14 <$STR(A13)>
MOV G8 <$STR(G3)>
MOV A13 <$USERNAME>
MOV G3 <$HUMAN(杀怪数量)>
break

[@杀怪第三排序]
#IF
#ACT
MOV A14 <$USERNAME>
MOV G8 <$HUMAN(杀怪数量)>
BREAK

}