公告 好私服,www.haosf.com,haosf.co,6年老站,致力于为广大游戏玩家给于最好的传奇开机信息服务 关闭
您的位置:技术文章
盗版传奇SF之王者大使中的祝福系统,可以进行参考
来源:好搜服官方(haosf.co) [2020/3/4 18:06:05] 作者:好搜服
鉴于现在玩盗版传奇私服的人是越来越多,也从而促进了该行业的生态发展,各种版本,各种脚本已形成一条流水线,层次不穷,下面介绍一款经典的技术型脚本代码。该代码可促进盗版中的传奇人气,使得活力拥有。
[@清空本周排行]
{
#IF
EQUAL G99 1
CheckOnline <$STR(A99)>
#ACT
DELAYGOTO 1000 @清空本周排行
BREAK
#ELSEACT
MOV G99 2
GOTO @清空上周
BREAK

[@清空上周]
#ACT
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第30名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第29名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第28名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第27名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第26名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第25名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第24名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第23名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第22名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第21名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第20名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第19名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第18名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第17名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第16名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第15名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第14名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第13名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第12名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第11名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第10名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第9名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第8名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第7名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第6名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第5名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第4名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第3名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第2名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周排行名单\第1名.txt

CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1~10名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第11~20名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第21~30名.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1名次数.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1~10名次数.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第11~20名次数.txt
CLEARNAMELIST ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第21~30名次数.txt
;SENDMSG 0 本周变上周1
GOTO @本周变上周1
BREAK

[@本周变上周1]
#IF
CHECKVAR GLOBAL 周祝福点次数1 > 0
#ACT
MOV A97 <1/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第1名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第1名.txt
ADDTEXTLIST <$GLOBAL(周祝福点名字1)> ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1名.txt
ADDTEXTLIST <$GLOBAL(周祝福点次数1)> ..\QuestDiary\王者大使祝福点系统\上周获奖名单\第1名次数.txt
MOV G97 1
;SENDMSG 0 本周变上周2
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周2
BREAK
#ELSEACT
MOV G97 0
GOTO @周抽奖
BREAK

[@本周变上周2]
#IF
CHECKVAR GLOBAL 周祝福点次数2 > 0
#ACT
MOV A97 <2/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第2名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第2名.txt
MOV G97 2
;SENDMSG 0 本周变上周3
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周3
BREAK
#ELSEACT
MOV G97 1
GOTO @周抽奖
BREAK

[@本周变上周3]
#IF
CHECKVAR GLOBAL 周祝福点次数3 > 0
#ACT
MOV A97 <3/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第3名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第3名.txt
MOV G97 3
;SENDMSG 0 本周变上周4
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周4
BREAK
#ELSEACT
MOV G97 2
GOTO @周抽奖
BREAK

[@本周变上周4]
#IF
CHECKVAR GLOBAL 周祝福点次数4 > 0
#ACT
MOV A97 <4/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第4名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第4名.txt
MOV G97 4
;SENDMSG 0 本周变上周5
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周5
BREAK
#ELSEACT
MOV G97 3
GOTO @周抽奖
BREAK

[@本周变上周5]
#IF
CHECKVAR GLOBAL 周祝福点次数5 > 0
#ACT
MOV A97 <5/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第5名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第5名.txt
MOV G97 5
;SENDMSG 0 本周变上周6
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周6
BREAK
#ELSEACT
MOV G97 4
GOTO @周抽奖
BREAK

[@本周变上周6]
#IF
CHECKVAR GLOBAL 周祝福点次数6 > 0
#ACT
MOV A97 <6/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第6名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第6名.txt
MOV G97 6
;SENDMSG 0 本周变上周7
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周7
BREAK
#ELSEACT
MOV G97 5
GOTO @周抽奖
BREAK

[@本周变上周7]
#IF
CHECKVAR GLOBAL 周祝福点次数7 > 0
#ACT
MOV A97 <7/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第7名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第7名.txt
MOV G97 7
;SENDMSG 0 本周变上周8
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周8
BREAK
#ELSEACT
MOV G97 6
GOTO @周抽奖
BREAK

[@本周变上周8]
#IF
CHECKVAR GLOBAL 周祝福点次数8 > 0
#ACT
MOV A97 <8/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第8名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第8名.txt
MOV G97 8
;SENDMSG 0 本周变上周9
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周9
BREAK
#ELSEACT
MOV G97 7
GOTO @周抽奖
BREAK

[@本周变上周9]
#IF
CHECKVAR GLOBAL 周祝福点次数9 > 0
#ACT
MOV A97 <9/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第9名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第9名.txt
MOV G97 9
;SENDMSG 0 本周变上周10
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周10
BREAK
#ELSEACT
MOV G97 8
GOTO @周抽奖
BREAK

[@本周变上周10]
#IF
CHECKVAR GLOBAL 周祝福点次数10 > 0
#ACT
MOV A97 <10/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第10名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第10名.txt
MOV G97 10
;SENDMSG 0 本周变上周11
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周11
BREAK
#ELSEACT
MOV G97 9
GOTO @周抽奖
BREAK

[@本周变上周11]
#IF
CHECKVAR GLOBAL 周祝福点次数11 > 0
#ACT
MOV A97 <11/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第11名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第11名.txt
MOV G97 11
;SENDMSG 0 本周变上周12
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周12
BREAK
#ELSEACT
MOV G97 10
GOTO @周抽奖
BREAK

[@本周变上周12]
#IF
CHECKVAR GLOBAL 周祝福点次数12 > 0
#ACT
MOV A97 <12/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第12名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第12名.txt
MOV G97 12
;SENDMSG 0 本周变上周13
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周13
BREAK
#ELSEACT
MOV G97 11
GOTO @周抽奖
BREAK

[@本周变上周13]
#IF
CHECKVAR GLOBAL 周祝福点次数13 > 0
#ACT
MOV A97 <13/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第13名.txt A98
INC A97 <$STR(A98)>
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第13名.txt
MOV G97 13
;SENDMSG 0 本周变上周14
;SENDMSG 0 <$STR(A97)>
GOTO @本周变上周14
BREAK
#ELSEACT
MOV G97 12
GOTO @周抽奖
BREAK

[@本周变上周14]
#IF
CHECKVAR GLOBAL 周祝福点次数14 > 0
#ACT
MOV A97 <14/@>、
GetRandomName ..\QuestDiary\王者大使祝福点系统\本周排行名单\第14名.txt A98
INC A97 <$STR(A98)>
INC A97 \
ADDTEXTLIST <$STR(A97)> ..\QuestDiary\王者大使祝福点系统\上周排行名单\第14名.txt
MOV G97 14

阅读:

文章来源网络:由:传奇私服www.haosf.co 好搜服整理发布!