您现在的位置: 传奇sf网站正文

功能最全的热血传奇sf发布网传奇四大排行完整脚本

地址:http://www.23b.net/chuanqisfwangzhan/11408.html 作者:

传奇3新服冲级送好礼[@Main]
#If
CheckLevelEx 0
#Act
MOV S30 未上榜
MOV S9 神秘随机物品
OpenBigDialogBox 0
SortHumVarToListEx 连杰_评价_总 .\QuestDiary\数据文件\装备评价\装备总评价.txt 1 .\QuestDiary\数据文件\装备评价\装备排行.txt 1
#If
EQUAL A10
#Act
MOV A10 $暂无数据
MOV S10 $STR(N10)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 0 A10 N10
MOV S31 $STR(A10)
SetStringBlank S31 24 1
MOV S10 $STR(N10)
#If
EQUAL A11
#Act
MOV A11 $暂无数据
MOV S11 $STR(N11)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 1 A11 N11
MOV S32 $STR(A11)
SetStringBlank S32 24 1
MOV S11 $STR(N11)
#If
EQUAL A12
#Act
MOV A12 $暂无数据
MOV S12 $STR(N12)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 2 A12 N12
MOV S33 $STR(A12)
SetStringBlank S33 24 1
MOV S12 $STR(N12)
#If
EQUAL A13
#Act
MOV A13 $暂无数据
MOV S13 $STR(N13)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 3 A13 N13
MOV S34 $STR(A13)
SetStringBlank S34 18 1
MOV S13 $STR(N13)
#If
EQUAL A14
#Act
MOV A14 $暂无数据
MOV S14 $STR(N14)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 4 A14 N14
MOV S35 $STR(A14)
SetStringBlank S35 18 1
MOV S14 $STR(N14)
#If
EQUAL A15
#Act
MOV A15 $暂无数据
MOV S15 $STR(N15)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 5 A15 N15
MOV S36 $STR(A15)
SetStringBlank S36 18 1
MOV S15 $STR(N15)
#If
EQUAL A16
#Act
MOV A16 $暂无数据
MOV S16 $STR(N16)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 6 A16 N16
MOV S37 $STR(A16)
SetStringBlank S37 18 1
MOV S16 $STR(N16)
#If
EQUAL A17
#Act
MOV A17 $暂无数据
MOV S17 $STR(N17)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 7 A17 N17
MOV S38 $STR(A17)
SetStringBlank S38 18 1
MOV S17 $STR(N17)
#If
EQUAL A18
#Act
MOV A18 $暂无数据
MOV S18 $STR(N18)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 8 A18 N18
MOV S39 $STR(A18)
SetStringBlank S39 18 1
MOV S18 $STR(N18)
#If
EQUAL A19
#Act
MOV A19 $暂无数据
MOV S19 $STR(N19)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 9 A19 N19
MOV S40 $STR(A19)
SetStringBlank S40 17 1
MOV S19 $STR(N19)
#If
EQUAL A20
#Act
MOV A20 $暂无数据
MOV S20 $STR(N20)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 10 A20 N20
MOV S41 $STR(A20)
SetStringBlank S41 4 1
MOV S20 $STR(N20)
#If
EQUAL A21
#Act
MOV A21 $暂无数据
MOV S21 $STR(N21)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 11 A21 N21
MOV S42 $STR(A21)
SetStringBlank S42 4 0
MOV S21 $STR(N21)
#If
EQUAL A22
#Act
MOV A22 $暂无数据
MOV S22 $STR(N22)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 12 A22 N22
MOV S43 $STR(A22)
SetStringBlank S43 4 0
MOV S22 $STR(N22)
#If
EQUAL A23
#Act
MOV A23 $暂无数据
MOV S23 $STR(N23)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 13 A23 N23
MOV S44 $STR(A23)
SetStringBlank S44 4 0
MOV S23 $STR(N23)
#If
EQUAL A24
#Act
MOV A24 $暂无数据
MOV S24 $STR(N24)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 14 A24 N24
MOV S45 $STR(A24)
SetStringBlank S45 4 0
MOV S24 $STR(N24)
#If
EQUAL A25
#Act
MOV A25 $暂无数据
MOV S25 $STR(N25)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 15 A25 N25
MOV S46 $STR(A25)
SetStringBlank S46 4 0
MOV S25 $STR(N25)
#If
EQUAL A26
#Act
MOV A26 $暂无数据
MOV S26 $STR(N26)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 16 A26 N26
MOV S47 $STR(A26)
SetStringBlank S47 4 0
MOV S26 $STR(N26)
#If
EQUAL A27
#Act
MOV A27 $暂无数据
MOV S27 $STR(N27)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 17 A27 N27
MOV S48 $STR(A27)
SetStringBlank S48 4 0
MOV S27 $STR(N27)
#If
EQUAL A28
#Act
MOV A28 $暂无数据
MOV S28 $STR(N28)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 18 A28 N28
MOV S49 $STR(A28)
SetStringBlank S49 4 0
MOV S28 $STR(N28)
#If
EQUAL A29
#Act
MOV A29 $暂无数据
MOV S29 $STR(N29)
#ELSEACT
GetListString .\QuestDiary\数据文件\装备评价\装备排行.txt 19 A29 N29
MOV S50 $STR(A29)
SetStringBlank S50 4 0
MOV S29 $STR(N29)
#If
EQUAL A10 $USERNAME
#Act
MOV S30 第01名
#If
EQUAL A11 $USERNAME
#Act
MOV S30 第02名
#If
EQUAL A12 $USERNAME
#Act
MOV S30 第03名
#If
EQUAL A13 $USERNAME
#Act
MOV S30 第04名
#If
EQUAL A14 $USERNAME
#Act
MOV S30 第05名
#If
EQUAL A15 $USERNAME
#Act
MOV S30 第06名
#If
EQUAL A16 $USERNAME
#Act
MOV S30 第07名
#If
EQUAL A17 $USERNAME
#Act
MOV S30 第08名
#If
EQUAL A18 $USERNAME
#Act
MOV S30 第09名
#If
EQUAL A19 $USERNAME
#Act
MOV S30 第10名
#If
EQUAL A20 $USERNAME
#Act
MOV S30 第11名
#If
EQUAL A21 $USERNAME
#Act
MOV S30 第12名
#If
EQUAL A22 $USERNAME
#Act
MOV S30 第13名
#If
EQUAL A23 $USERNAME
#Act
MOV S30 第14名
#If
EQUAL A24 $USERNAME
#Act
MOV S30 第15名
#If
EQUAL A25 $USERNAME
#Act
MOV S30 第16名
#If
EQUAL A26 $USERNAME
#Act
MOV S30 第17名
#If
EQUAL A27 $USERNAME
#Act
MOV S30 第18名
#If
EQUAL A28 $USERNAME
#Act
MOV S30 第19名
#If
EQUAL A29 $USERNAME
#Act
MOV S30 第20名
#If
CheckLevelEx 0
#Act
SetStringBlank S10 11 1
SetStringBlank S11 11 1
SetStringBlank S12 11 1
SetStringBlank S13 11 1
SetStringBlank S14 11 1
SetStringBlank S15 11 1
SetStringBlank S16 11 1
SetStringBlank S17 11 1
SetStringBlank S18 11 1
SetStringBlank S19 11 1
SetStringBlank S20 10 1
SetStringBlank S21 10 1
SetStringBlank S22 10 1
SetStringBlank S23 10 1
SetStringBlank S24 10 1
SetStringBlank S25 10 1
SetStringBlank S26 10 1
SetStringBlank S27 10 1
SetStringBlank S28 10 1
SetStringBlank S29 10 1
DelayCall 500 @声音
#Say
Img:310:0:55:-2/@MAINImg:313:0:56:-2/@杀戮排行Img:315:0:58:-2/@荣誉排行Img:317:0:60:-2/@血狱排行\ \ \ \
{$STR(S31)$STR(S10)/SCOLOR=253}      {11    $STR(S41) $STR(S20)/SCOLOR=100}\
{$STR(S32)$STR(S11)/SCOLOR=250}      {12    $STR(S42) $STR(S21)/SCOLOR=100}\
{$STR(S33)$STR(S12)/SCOLOR=254}      {13    $STR(S43) $STR(S22)/SCOLOR=100}\
   {4$STR(S34)$STR(S13)      14    $STR(S44) $STR(S23)/SCOLOR=100}\
   {5$STR(S35)$STR(S14)      15    $STR(S45) $STR(S24)/SCOLOR=100}\
   {6$STR(S36)$STR(S15)      16    $STR(S46) $STR(S25)/SCOLOR=100}\
   {7$STR(S37)$STR(S16)      17    $STR(S47) $STR(S26)/SCOLOR=100}\
   {8$STR(S38)$STR(S17)      18    $STR(S48) $STR(S27)/SCOLOR=100}\
   {9$STR(S39)$STR(S18)      19    $STR(S49) $STR(S28)/SCOLOR=100}\
   {10$STR(S40)$STR(S19)      20    $STR(S50) $STR(S29)/SCOLOR=100}\ \
       {$STR(S30)/SCOLOR=58}   装备总分: {$HUMAN(连杰_评价_总)/SCOLOR=151}\
       如果您能挤上前20名,您将获得如下奖励/SCOLOR=151【{$STR(S9)/SCOLOR=168}】\
 友情提示:总评至少200分才能领取奖励!如未上榜请尝试重新穿戴装备!/SCOLOR=58 By:$SERVERNAME\
Img:95:0:395:-43/@装备评价_领奖AImg:346:0:100:-247Img:346:0:318:-247\
[@装备评价_领奖A]
#If
CHECKVAR HUMAN 连杰_评价_总 199
#ELSEACT
CLOSE
SENDMSG 5 【失败】:您的装备总评小于200分,请尝试重新穿戴装备后再来领奖!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖说明】您的装备总评小于200分!\\【领奖提示】请尝试重新穿戴装备,重新计算总评分!\\【版权所有】$SERVERNAME
Break
#If
EQUAL A10 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_前三奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A11 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_前三奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A12 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_前三奖.txt S9
GOTO @装备评价_领奖1 95无英雄B
Break
#If
EQUAL A13 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A14 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A15 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A16 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A17 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A18 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A19 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A20 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A21 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A22 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A23 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A24 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A25 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A26 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A27 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A28 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#If
EQUAL A29 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\装备评价\装备评价_普通奖.txt S9
GOTO @装备评价_领奖B
Break
#ELSEACT
MOV S9 $暂无数据
SENDMSG 5 【领奖】:您没有挤上装备评价榜前20名,未够资格领取奖励!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您没有挤上装备评价榜前20名,未够资格领取奖励!\\【版权所有】$SERVERNAME
GOTO @MAIN
Break
[@装备评价_领奖B]
#IF
dayofweek sun
check [21] 0
#ACT
set [21] 1
set [22] 0
set [23] 0
set [24] 0
set [25] 0
set [26] 0
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek mon
check [22] 0
#ACT
set [21] 0
set [22] 1
set [23] 0
set [24] 0
set [25] 0
set [26] 0
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek tue
check [23] 0
#ACT
set [21] 0
set [22] 0
set [23] 1
set [24] 0
set [25] 0
set [26] 0
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek wed
check [24] 0
#ACT
set [21] 0
set [22] 0
set [23] 0
set [24] 1
set [25] 0
set [26] 0
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek thu
check [25] 0
#ACT
set [21] 0
set [22] 0
set [23] 0
set [24] 0
set [25] 1
set [26] 0
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek fri
check [26] 0
#ACT
set [21] 0
set [22] 0
set [23] 0
set [24] 0
set [25] 0
set [26] 1
set [27] 0
goto @装备评价_领奖C
Break
#IF
dayofweek sat
check [27] 0
#ACT
set [21] 0
set [22] 0
set [23] 0
set [24] 0
set [25] 0
set [26] 0
set [27] 1
goto @装备评价_领奖C
Break
#IF
#ACT
SENDMSG 5 【领奖】:您今天的装备评价榜奖励已经领取过了!每天限制领取一次!
Close
MESSAGEBOX 【领取奖励】失败!\\【领取说明】您今天已经领取过了!\\【友情提示】装备评价榜的奖励,每天限制领取一次!\\【版权所有】$SERVERNAME
Break
[@装备评价_领奖C]
#IF
#ACT
GIVE $STR(S9) 1
SendCenterMsg 146 252 ◤公告◥:恭喜【$USERNAME】成功领取了装备评价排行榜$STR(S30)奖励,获得物品【$STR(S9)】! 1 15
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取成功!\\【领取奖励】装备评价排行榜$STR(S30)奖励,获得物品【$STR(S9)】!\\【版权所有】$SERVERNAME
GOTO @MAIN
Break
[@杀戮排行]
#If
CheckLevelEx 0
#Act
MOV S30 未上榜
MOV S9 神秘随机物品
OpenBigDialogBox 0
SortHumVarToListEx 杀敌次数 .\QuestDiary\数据文件\杀人数据\杀敌次数.txt 1 .\QuestDiary\数据文件\杀人数据\杀人排行.txt 1
#If
EQUAL A30
#Act
MOV A30 $暂无数据
MOV S10 $STR(N10)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 0 A30 N10
MOV S31 $STR(A30)
SetStringBlank S31 24 1
MOV S10 $STR(N10)
#If
EQUAL A31
#Act
MOV A31 $暂无数据
MOV S11 $STR(N11)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 1 A31 N11
MOV S32 $STR(A31)
SetStringBlank S32 24 1
MOV S11 $STR(N11)
#If
EQUAL A32
#Act
MOV A32 $暂无数据
MOV S12 $STR(N12)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 2 A32 N12
MOV S33 $STR(A32)
SetStringBlank S33 24 1
MOV S12 $STR(N12)
#If
EQUAL A33
#Act
MOV A33 $暂无数据
MOV S13 $STR(N13)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 3 A33 N13
MOV S34 $STR(A33)
SetStringBlank S34 18 1
MOV S13 $STR(N13)
#If
EQUAL A34
#Act
MOV A34 $暂无数据
MOV S14 $STR(N14)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 4 A34 N14
MOV S35 $STR(A34)
SetStringBlank S35 18 1
MOV S14 $STR(N14)
#If
EQUAL A35
#Act
MOV A35 $暂无数据
MOV S15 $STR(N15)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 5 A35 N15
MOV S36 $STR(A35)
SetStringBlank S36 18 1
MOV S15 $STR(N15)
#If
EQUAL A36
#Act
MOV A36 $暂无数据
MOV S16 $STR(N16)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 6 A36 N16
MOV S37 $STR(A36)
SetStringBlank S37 18 1
MOV S16 $STR(N16)
#If
EQUAL A37
#Act
MOV A37 $暂无数据
MOV S17 $STR(N17)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 7 A37 N17
MOV S38 $STR(A37)
SetStringBlank S38 18 1
MOV S17 $STR(N17)
#If
EQUAL A38
#Act
MOV A38 $暂无数据
MOV S18 $STR(N18)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 8 A38 N18
MOV S39 $STR(A38)
SetStringBlank S39 18 1
MOV S18 $STR(N18)
#If
EQUAL A39
#Act
MOV A39 $暂无数据
MOV S19 $STR(N19)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 9 A39 N19
MOV S40 $STR(A39)
SetStringBlank S40 17 1
MOV S19 $STR(N19)
#If
EQUAL A40
#Act
MOV A40 $暂无数据
MOV S20 $STR(N20)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 10 A40 N20
MOV S41 $STR(A40)
SetStringBlank S41 4 1
MOV S20 $STR(N20)
#If
EQUAL A41
#Act
MOV A41 $暂无数据
MOV S21 $STR(N21)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 11 A41 N21
MOV S42 $STR(A41)
SetStringBlank S42 4 0
MOV S21 $STR(N21)
#If
EQUAL A42
#Act
MOV A42 $暂无数据
MOV S22 $STR(N22)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 12 A42 N22
MOV S43 $STR(A42)
SetStringBlank S43 4 0
MOV S22 $STR(N22)
#If
EQUAL A43
#Act
MOV A43 $暂无数据
MOV S23 $STR(N23)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 13 A43 N23
MOV S44 $STR(A43)
SetStringBlank S44 4 0
MOV S23 $STR(N23)
#If
EQUAL A44
#Act
MOV A44 $暂无数据
MOV S24 $STR(N24)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 14 A44 N24
MOV S45 $STR(A44)
SetStringBlank S45 4 0
MOV S24 $STR(N24)
#If
EQUAL A45
#Act
MOV A45 $暂无数据
MOV S25 $STR(N25)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 15 A45 N25
MOV S46 $STR(A45)
SetStringBlank S46 4 0
MOV S25 $STR(N25)
#If
EQUAL A46
#Act
MOV A46 $暂无数据
MOV S26 $STR(N26)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 16 A46 N26
MOV S47 $STR(A46)
SetStringBlank S47 4 0
MOV S26 $STR(N26)
#If
EQUAL A47
#Act
MOV A47 $暂无数据
MOV S27 $STR(N27)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 17 A47 N27
MOV S48 $STR(A47)
SetStringBlank S48 4 0
MOV S27 $STR(N27)
#If
EQUAL A48
#Act
MOV A48 $暂无数据
MOV S28 $STR(N28)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 18 A48 N28
MOV S49 $STR(A48)
SetStringBlank S49 4 0
MOV S28 $STR(N28)
#If
EQUAL A49
#Act
MOV A49 $暂无数据
MOV S29 $STR(N29)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\杀人排行.txt 19 A49 N29
MOV S50 $STR(A49)
SetStringBlank S50 4 0
MOV S29 $STR(N29)
#If
EQUAL A30 $USERNAME
#Act
MOV S30 第01名
#If
EQUAL A31 $USERNAME
#Act
MOV S30 第02名
#If
EQUAL A32 $USERNAME
#Act
MOV S30 第03名
#If
EQUAL A33 $USERNAME
#Act
MOV S30 第04名
#If
EQUAL A34 $USERNAME
#Act
MOV S30 第05名
#If
EQUAL A35 $USERNAME
#Act
MOV S30 第06名
#If
EQUAL A36 $USERNAME
#Act
MOV S30 第07名
#If
EQUAL A37 $USERNAME
#Act
MOV S30 第08名
#If
EQUAL A38 $USERNAME
#Act
MOV S30 第09名
#If
EQUAL A39 $USERNAME
#Act
MOV S30 第10名
#If
EQUAL A40 $USERNAME
#Act
MOV S30 第11名
#If
EQUAL A41 $USERNAME
#Act
MOV S30 第12名
#If
EQUAL A42 $USERNAME
#Act
MOV S30 第13名
#If
EQUAL A43 $USERNAME
#Act
MOV S30 第14名
#If
EQUAL A44 $USERNAME
#Act
MOV S30 第15名
#If
EQUAL A45 $USERNAME
#Act
MOV S30 第16名
#If
EQUAL A46 $USERNAME
#Act
MOV S30 第17名
#If
EQUAL A47 $USERNAME
#Act
MOV S30 第18名
#If
EQUAL A48 $USERNAME
#Act
MOV S30 第19名
#If
EQUAL A49 $USERNAME
#Act
MOV S30 第20名
#If
CheckLevelEx 0
#Act
SetStringBlank S10 11 1
SetStringBlank S11 11 1
SetStringBlank S12 11 1
SetStringBlank S13 11 1
SetStringBlank S14 11 1
SetStringBlank S15 11 1
SetStringBlank S16 11 1
SetStringBlank S17 11 1
SetStringBlank S18 11 1
SetStringBlank S19 11 1
SetStringBlank S20 10 1
SetStringBlank S21 10 1
SetStringBlank S22 10 1
SetStringBlank S23 10 1
SetStringBlank S24 10 1
SetStringBlank S25 10 1
SetStringBlank S26 10 1
SetStringBlank S27 10 1
SetStringBlank S28 10 1
SetStringBlank S29 10 1
#Say
Img:311:0:55:-2/@MAINImg:312:0:56:-2/@杀戮排行Img:315:0:58:-2/@荣誉排行Img:317:0:60:-2/@血狱排行\ \ \ \
{$STR(S31)$STR(S10)/SCOLOR=253}      {11    $STR(S41) $STR(S20)/SCOLOR=100}\
{$STR(S32)$STR(S11)/SCOLOR=250}      {12    $STR(S42) $STR(S21)/SCOLOR=100}\
{$STR(S33)$STR(S12)/SCOLOR=254}      {13    $STR(S43) $STR(S22)/SCOLOR=100}\
   {4$STR(S34)$STR(S13)      14    $STR(S44) $STR(S23)/SCOLOR=100}\
   {5$STR(S35)$STR(S14)      15    $STR(S45) $STR(S24)/SCOLOR=100}\
   {6$STR(S36)$STR(S15)      16    $STR(S46) $STR(S25)/SCOLOR=100}\
   {7$STR(S37)$STR(S16)      17    $STR(S47) $STR(S26)/SCOLOR=100}\
   {8$STR(S38)$STR(S17)      18    $STR(S48) $STR(S27)/SCOLOR=100}\
   {9$STR(S39)$STR(S18)      19    $STR(S49) $STR(S28)/SCOLOR=100}\
   {10$STR(S40)$STR(S19)      20    $STR(S50) $STR(S29)/SCOLOR=100}\ \
       {$STR(S30)/SCOLOR=58}   杀人总数: {$HUMAN(杀敌次数)/SCOLOR=151}\
       如果您能挤上前20名,您将获得如下奖励/SCOLOR=151【{$STR(S9)/SCOLOR=168}】\
 友情提示:您至少需要10个人头才够资格领取奖励!前三名奖励丰厚!/SCOLOR=58 By:$SERVERNAME\
Img:95:0:395:-43/@杀戮排行_领奖AImg:347:0:100:-247Img:347:0:318:-247\
[@杀戮排行_领奖A]
#If
CHECKVAR HUMAN 杀敌次数 9
#ELSEACT
CLOSE
SENDMSG 5 【失败】:才杀了这么点人就来领奖?至少需要10个人头!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失传奇sf败!\\【领奖说明】请杀10个人头再来领取奖励!\\【版权所有】$SERVERNAME
Break
#If
EQUAL A30 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_前三奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A31 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_前三奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A32 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_前三奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A33 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A34 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A35 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A36 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A37 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A38 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A39 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A40 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A41 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A42 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A43 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A44 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A45 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A46 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A47 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A48 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#If
EQUAL A49 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\杀人排行_普通奖.txt S9
GOTO @杀戮排行_领奖B
Break
#ELSEACT
MOV S9 $暂无数据
SENDMSG 5 【领奖】:您没有挤上杀戮排行榜前20名,未够资格领取奖励!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您没有挤上杀戮排行榜前20名,未够资格领取奖励!\\【版权所有】$SERVERNAME
GOTO @杀戮排行
Break
[@杀戮排行_领奖B]
#IF
dayofweek sun
check [28] 0
#ACT
set [28] 1
set [29] 0
set [30] 0
set [31] 0
set [32] 0
set [33] 0
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek mon
check [29] 0
#ACT
set [28] 0
set [29] 1
set [30] 0
set [31] 0
set [32] 0
set [33] 0
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek tue
check [30] 0
#ACT
set [28] 0
set [29] 0
set [30] 1
set [31] 0
set [32] 0
set [33] 0
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek wed
check [31] 0
#ACT
set [28] 0
set [29] 0
set [30] 0
set [31] 1
set [32] 0
set [33] 0
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek thu
check [32] 0
#ACT
set [28] 0
set [29] 0
set [30] 0
set [31] 0
set [32] 1
set [33] 0
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek fri
check [33] 0
#ACT
set [28] 0
set [29] 0
set [30] 0
set [31] 0
set [32] 0
set [33] 1
set [34] 0
goto @杀戮排行_领奖C
Break
#IF
dayofweek sat
check [34] 0
#ACT
set [28] 0
set [29] 0
set [30] 0
set [31] 0
set [32] 0
set [33] 0
set [34] 1
goto @杀戮排行_领奖C
Break
#IF
#ACT
SENDMSG 5 【领奖】:您今天的杀戮排行榜奖励已经领取过了!每天限制领取一次!
Close
MESSAGEBOX 【领取奖励】失败!\\【领取说明】您今天已经领取过了!\\【友情提示】杀戮排行榜的奖励,每天限制领取一次!\\【版权所有】$SERVERNAME
Break
[@杀戮排行_领奖C]
#IF
#ACT
GIVE $STR(S9) 1
SendCenterMsg 161 58 ◤公告◥:恭喜【$USERNAME】成功领取了杀戮排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】! 1 15
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取成功!\\【领取奖励】杀戮排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】!\\【版权所有】$SERVERNAME
GOTO @杀戮排行
Break
[@荣誉排行]
#If
CheckLevelEx 0
#Act
MOV S30 未上榜
MOV S9 神秘随机物品
OpenBigDialogBox 0
SortHumVarToListEx 连杰_荣誉值 .\QuestDiary\数据文件\杀人数据\荣誉数据.txt 1 .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 1
#If
EQUAL A50
#Act
MOV A50 $暂无数据
MOV S10 $STR(N10)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 0 A50 N10
MOV S31 $STR(A50)
SetStringBlank S31 24 1
MOV S10 $STR(N10)
#If
EQUAL A51
#Act
MOV A51 $暂无数据
MOV S11 $STR(N11)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 1 A51 N11
MOV S32 $STR(A51)
SetStringBlank S32 24 1
MOV S11 $STR(N11)
#If
EQUAL A52
#Act
MOV A52 $暂无数据
MOV S12 $STR(N12)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 2 A52 N12
MOV S33 $STR(A52)
SetStringBlank S33 24 1
MOV S12 $STR(N12)
#If
EQUAL A53
#Act
MOV A53 $暂无数据
MOV S13 $STR(N13)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 3 A53 N13
MOV S34 $STR(A53)
SetStringBlank S34 18 1
MOV S13 $STR(N13)
#If
EQUAL A54
#Act
MOV A54 $暂无数据
MOV S14 $STR(N14)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 4 A54 N14
MOV S35 $STR(A54)
SetStringBlank S35 18 1
MOV S14 $STR(N14)
#If
EQUAL A55
#Act
MOV A55 $暂无数据
MOV S15 $STR(N15)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 5 A55 N15
MOV S36 $STR(A55)
SetStringBlank S36 18 1
MOV S15 $STR(N15)
#If
EQUAL A56
#Act
MOV A56 $暂无数据
MOV S16 $STR(N16)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 6 A56 N16
MOV S37 $STR(A56)
SetStringBlank S37 18 1
MOV S16 $STR(N16)
#If
EQUAL A57
#Act
MOV A57 $暂无数据
MOV S17 $STR(N17)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 7 A57 N17
MOV S38 $STR(A57)
SetStringBlank S38 18 1
MOV S17 $STR(N17)
#If
EQUAL A58
#Act
MOV A58 $暂无数据
MOV S18 $STR(N18)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 8 A58 N18
MOV S39 $STR(A58)
SetStringBlank S39 18 1
MOV S18 $STR(N18)
#If
EQUAL A59
#Act
MOV A59 $暂无数据
MOV S19 $STR(N19)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 9 A59 N19
MOV S40 $STR(A59)
SetStringBlank S40 17 1
MOV S19 $STR(N19)
#If
EQUAL A60
#Act
MOV A60 $暂无数据
MOV S20 $STR(N20)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 10 A60 N20
MOV S41 $STR(A60)
SetStringBlank S41 4 1
MOV S20 $STR(N20)
#If
EQUAL A61
#Act
MOV A61 $暂无数据
MOV S21 $STR(N21)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 11 A61 N21
MOV S42 $STR(A61)
SetStringBlank S42 4 0
MOV S21 $STR(N21)
#If
EQUAL A62
#Act
MOV A62 $暂无数据
MOV S22 $STR(N22)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 12 A62 N22
MOV S43 $STR(A62)
SetStringBlank S43 4 0
MOV S22 $STR(N22)
#If
EQUAL A63
#Act
MOV A63 $暂无数据
MOV S23 $STR(N23)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 13 A63 N23
MOV S44 $STR(A63)
SetStringBlank S44 4 0
MOV S23 $STR(N23)
#If
EQUAL A64
#Act
MOV A64 $暂无数据
MOV S24 $STR(N24)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 14 A64 N24
MOV S45 $STR(A64)
SetStringBlank S45 4 0
MOV S24 $STR(N24)
#If
EQUAL A65
#Act
MOV A65 $暂无数据
MOV S25 $STR(N25)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 15 A65 N25
MOV S46 $STR(A65)
SetStringBlank S46 4 0
MOV S25 $STR(N25)
#If
EQUAL A66
#Act
MOV A66 $暂无数据
MOV S26 $STR(N26)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 16 A66 N26
MOV S47 $STR(A66)
SetStringBlank S47 4 0
MOV S26 $STR(N26)
#If
EQUAL A67
#Act
MOV A67 $暂无数据
MOV S27 $STR(N27)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 17 A67 N27
MOV S48 $STR(A67)
SetStringBlank S48 4 0
MOV S27 $STR(N27)
#If
EQUAL A68
#Act
MOV A68 $暂无数据
MOV S28 $STR(N28)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 18 A68 N28
MOV S49 $STR(A68)
SetStringBlank S49 4 0
MOV S28 $STR(N28)
#If
EQUAL A69
#Act
MOV A69 $暂无数据
MOV S29 $STR(N29)
#ELSEACT
GetListString .\QuestDiary\数据文件\杀人数据\荣誉排行.txt 19 A69 N29
MOV S50 $STR(A69)
SetStringBlank S50 4 0
MOV S29 $STR(N29)
#If
EQUAL A50 $USERNAME
#Act
MOV S30 第01名
#If
EQUAL A51 $USERNAME
#Act
MOV S30 第02名
#If
EQUAL A52 $USERNAME
#Act
MOV S30 第03名
#If
EQUAL A53 $USERNAME
#Act
MOV S30 第04名
#If
EQUAL A54 $USERNAME
#Act
MOV S30 第05名
#If
EQUAL A55 $USERNAME
#Act
MOV S30 第06名
#If
EQUAL A56 $USERNAME
#Act
MOV S30 第07名
#If
EQUAL A57 $USERNAME
#Act
MOV S30 第08名
#If
EQUAL A58 $USERNAME
#Act
MOV S30 第09名
#If
EQUAL A59 $USERNAME
#Act
MOV S30 第10名
#If
EQUAL A60 $USERNAME
#Act
MOV S30 第11名
#If
EQUAL A61 $USERNAME
#Act
MOV S30 第12名
#If
EQUAL A62 $USERNAME
#Act
MOV S30 第13名
#If
EQUAL A63 $USERNAME
#Act
MOV S30 第14名
#If
EQUAL A64 $USERNAME
#Act
MOV S30 第15名
#If
EQUAL A65 $USERNAME
#Act
MOV S30 第16名
#If
EQUAL A66 $USERNAME
#Act
MOV S30 第17名
#If
EQUAL A67 $USERNAME
#Act
MOV S30 第18名
#If
EQUAL A68 $USERNAME
#Act
MOV S30 第19名
#If
EQUAL A69 $USERNAME
#Act
MOV S30 第20名
#If
CheckLevelEx 0
#Act
SetStringBlank S10 11 1
SetStringBlank S11 11 1
SetStringBlank S12 11 1
SetStringBlank S13 11 1
SetStringBlank S14 11 1
SetStringBlank S15 11 1
SetStringBlank S16 11 1
SetStringBlank S17 11 1
SetStringBlank S18 11 1
SetStringBlank S19 11 1
SetStringBlank S20 10 1
SetStringBlank S21 10 1
SetStringBlank S22 10 1
SetStringBlank S23 10 1
SetStringBlank S24 10 1
SetStringBlank S25 10 1
SetStringBlank S26 10 1
SetStringBlank S27 10 1
SetStringBlank S28 10 1
SetStringBlank S29 10 1
#Say
Img:311:0:55:-2/@MAINImg:313:0:56:-2/@杀戮排行Img:314:0:58:-2/@荣誉排行Img:317:0:60:-2/@血狱排行\ \ \ \
{$STR(S31)$STR(S10)/SCOLOR=253}      {11    $STR(S41) $STR(S20)/SCOLOR=100}\
{$STR(S32)$STR(S11)/SCOLOR=250}      {12    $STR(S42) $STR(S21)/SCOLOR=100}\
{$STR(S33)$STR(S12)/SCOLOR=254}      {13    $STR(S43) $STR(S22)/SCOLOR=100}\
   {4$STR(S34)$STR(S13)      14    $STR(S44) $STR(S23)/SCOLOR=100}\
   {5$STR(S35)$STR(S14)      15    $STR(S45) $STR(S24)/SCOLOR=100}\
   {6$STR(S36)$STR(S15)      16    $STR(S46) $STR(S25)/SCOLOR=100}\
   {7$STR(S37)$STR(S16)      17    $STR(S47) $STR(S26)/SCOLOR=100}\
   {8$STR(S38)$STR(S17)      18    $STR(S48) $STR(S27)/SCOLOR=100}\
   {9$STR(S39)$STR(S18)      19    $STR(S49) $STR(S28)/SCOLOR=100}\
   {10$STR(S40)$STR(S19)      20    $STR(S50) $STR(S29)/SCOLOR=100}\ \
       {$STR(S30)/SCOLOR=58}   荣誉点数: {$HUMAN(连杰_荣誉值)/SCOLOR=151}\
       如果您能挤上前20名,您将获得如下奖励/SCOLOR=151【{$STR(S9)/SCOLOR=168}】\
 友情提示:需要在行会混战(活动)中获得20点荣誉值才够资格领取奖励!/SCOLOR=58 By:$SERVERNAME\
Img:95:0:395:-43/@荣誉排行_领奖AImg:348:0:100:-247Img:348:0:318:-247\
[@荣誉排行_领奖A]
#If
CHECKVAR HUMAN 连杰_荣誉值 19
#ELSEACT
CLOSE
SENDMSG 5 【失败】:行会混战(活动)开始后,在战场中每杀1人获得10点荣誉值!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您至少需要20点荣誉才够资格!\\【版权所有】$SERVERNAME
Break
#If
EQUAL A50 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_前三奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A51 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_前三奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A52 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_前三奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A53 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A54 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A55 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A56 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A57 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A58 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A59 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A60 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A61 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A62 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A63 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A64 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A65 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A66 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A67 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A68 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#If
EQUAL A69 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\杀人数据\荣誉排行_普通奖.txt S9
GOTO @荣誉排行_领奖B
Break
#ELSEACT
MOV S9 $暂无数据
SENDMSG 5 【领奖】:您没有挤上杀戮排行榜前20名,未够资格领取奖励!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您没有挤上杀戮排行榜前20名,未够资格领取奖励!\\【版权所有】$SERVERNAME
GOTO @杀戮排行
Break
[@荣誉排行_领奖B]
#IF
dayofweek sun
check [35] 0
#ACT
set [35] 1
set [36] 0
set [37] 0
set [38] 0
set [39] 0
set [40] 0
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek mon
check [36] 0
#ACT
set [35] 0
set [36] 1
set [37] 0
set [38] 0
set [39] 0
set [40] 0
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek tue
check [37] 0
#ACT
set [35] 0
set [36] 0
set [37] 1
set [38] 0
set [39] 0
set [40] 0
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek wed
check [38] 0
#ACT
set [35] 0
set [36] 0
set [37] 0
set [38] 1
set [39] 0
set [40] 0
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek thu
check [39] 0
#ACT
set [35] 0
set [36] 0
set [37] 0
set [38] 0
set [39] 1
set [40] 0
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek fri
check [40] 0
#ACT
set [35] 0
set [36] 0
set [37] 0
set [38] 0
set [39] 0
set [40] 1
set [41] 0
goto @荣誉排行_领奖C
Break
#IF
dayofweek sat
check [41] 0
#ACT
set [35] 0
set [36] 0
set [37] 0
set [38] 0
set [39] 0
set [40] 0
set [41] 1
goto @荣誉排行_领奖C
Break
#IF
#ACT
SENDMSG 5 【领奖】:您今天的杀戮排行榜奖励已经领取过了!每天限制领取一次!
Close
MESSAGEBOX 【领取奖励】失败!\\【领取说明】您今天已经领取过了!\\【友情提示】杀戮排行榜的奖励,每天限制领取一次!\\【版权所有】$SERVERNAME
Break
[@荣誉排行_领奖C]
#IF
#ACT
GIVE $STR(S9) 1
SendCenterMsg 161 58 ◤公告◥:恭喜【$USERNAME】成功领取了杀戮排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】! 1 15
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取成功!\\【领取奖励】杀戮排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】!\\【版权所有】$SERVERNAME
GOTO @杀戮排行
Break
[@血狱排行]
#If
CheckLevelEx 0
#Act
MOV S30 未上榜
MOV S9 神秘随机物品
OpenBigDialogBox 0
SortHumVarToListEx 血狱深渊层数 .\QuestDiary\数据文件\血狱深渊\血狱层数.txt 1 .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 1
#If
EQUAL A70
#Act
MOV A70 $暂无数据
MOV S10 $STR(N10)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 0 A70 N10
MOV S31 $STR(A70)
SetStringBlank S31 24 1
MOV S10 $STR(N10)
#If
EQUAL A71
#Act
MOV A71 $暂无数据
MOV S11 $STR(N11)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 1 A71 N11
MOV S32 $STR(A71)
SetStringBlank S32 24 1
MOV S11 $STR(N11)
#If
EQUAL A72
#Act
MOV A72 $暂无数据
MOV S12 $STR(N12)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 2 A72 N12
MOV S33 $STR(A72)
SetStringBlank S33 24 1
MOV S12 $STR(N12)
#If
EQUAL A73
#Act
MOV A73 $暂无数据
MOV S13 $STR(N13)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 3 A73 N13
MOV S34 $STR(A73)
SetStringBlank S34 18 1
MOV S13 $STR(N13)
#If
EQUAL A74
#Act
MOV A74 $暂无数据
MOV S14 $STR(N14)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 4 A74 N14
MOV S35 $STR(A74)
SetStringBlank S35 18 1
MOV S14 $STR(N14)
#If
EQUAL A75
#Act
MOV A75 $暂无数据
MOV S15 $STR(N15)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 5 A75 N15
MOV S36 $STR(A75)
SetStringBlank S36 18 1
MOV S15 $STR(N15)
#If
EQUAL A76
#Act
MOV A76 $暂无数据
MOV S16 $STR(N16)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 6 A76 N16
MOV S37 $STR(A76)
SetStringBlank S37 18 1
MOV S16 $STR(N16)
#If
EQUAL A77
#Act
MOV A77 $暂无数据
MOV S17 $STR(N17)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 7 A77 N17
MOV S38 $STR(A77)
SetStringBlank S38 18 1
MOV S17 $STR(N17)
#If
EQUAL A78
#Act
MOV A78 $暂无数据
MOV S18 $STR(N18)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 8 A78 N18
MOV S39 $STR(A78)
SetStringBlank S39 18 1
MOV S18 $STR(N18)
#If
EQUAL A79
#Act
MOV A79 $暂无数据
MOV S19 $STR(N19)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 9 A79 N19
MOV S40 $STR(A79)
SetStringBlank S40 17 1
MOV S19 $STR(N19)
#If
EQUAL A80
#Act
MOV A80 $暂无数据
MOV S20 $STR(N20)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 10 A80 N20
MOV S41 $STR(A80)
SetStringBlank S41 4 1
MOV S20 $STR(N20)
#If
EQUAL A81
#Act
MOV A81 $暂无数据
MOV S21 $STR(N21)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 11 A81 N21
MOV S42 $STR(A81)
SetStringBlank S42 4 0
MOV S21 $STR(N21)
#If
EQUAL A82
#Act
MOV A82 $暂无数据
MOV S22 $STR(N22)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 12 A82 N22
MOV S43 $STR(A82)
SetStringBlank S43 4 0
MOV S22 $STR(N22)
#If
EQUAL A83
#Act
MOV A83 $暂无数据
MOV S23 $STR(N23)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 13 A83 N23
MOV S44 $STR(A83)
SetStringBlank S44 4 0
MOV S23 $STR(N23)
#If
EQUAL A84
#Act
MOV A84 $暂无数据
MOV S24 $STR(N24)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 14 A84 N24
MOV S45 $STR(A84)
SetStringBlank S45 4 0
MOV S24 $STR(N24)
#If
EQUAL A85
#Act
MOV A85 $暂无数据
MOV S25 $STR(N25)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 15 A85 N25
MOV S46 $STR(A85)
SetStringBlank S46 4 0
MOV S25 $STR(N25)
#If
EQUAL A86
#Act
MOV A86 $暂无数据
MOV S26 $STR(N26)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 16 A86 N26
MOV S47 $STR(A86)
SetStringBlank S47 4 0
MOV S26 $STR(N26)
#If
EQUAL A87
#Act
MOV A87 $暂无数据
MOV S27 $STR(N27)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 17 A87 N27
MOV S48 $STR(A87)
SetStringBlank S48 4 0
MOV S27 $STR(N27)
#If
EQUAL A88
#Act
MOV A88 $暂无数据
MOV S28 $STR(N28)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 18 A88 N28
MOV S49 $STR(A88)
SetStringBlank S49 4 0
MOV S28 $STR(N28)
#If
EQUAL A89
#Act
MOV A89 $暂无数据
MOV S29 $STR(N29)
#ELSEACT
GetListString .\QuestDiary\数据文件\血狱深渊\血狱排行.txt 19 A89 N29
MOV S50 $STR(A89)
SetStringBlank S50 4 0
MOV S29 $STR(N29)
#If
EQUAL A70 $USERNAME
#Act
MOV S30 第01名
#If
EQUAL A71 $USERNAME
#Act
MOV S30 第02名
#If
EQUAL A72 $USERNAME
#Act
MOV S30 第03名
#If
EQUAL A73 $USERNAME
#Act
MOV S30 第04名
#If
EQUAL A74 $USERNAME
#Act
MOV S30 第05名
#If
EQUAL A75 $USERNAME
#Act
MOV S30 第06名
#If
EQUAL A76 $USERNAME
#Act
MOV S30 第07名
#If
EQUAL A77 $USERNAME
#Act
MOV S30 第08名
#If
EQUAL A78 $USERNAME
#Act
MOV S30 第09名
#If
EQUAL A79 $USERNAME
#Act
MOV S30 第10名
#If
EQUAL A80 $USERNAME
#Act
MOV S30 第11名
#If
EQUAL A81 $USERNAME
#Act
MOV S30 第12名
#If
EQUAL A82 $USERNAME
#Act
MOV S30 第13名
#If
EQUAL A83 $USERNAME
#Act
MOV S30 第14名
#If
EQUAL A84 $USERNAME
#Act
MOV S30 第15名
#If
EQUAL A85 $USERNAME
#Act
MOV S30 第16名
#If
EQUAL A86 $USERNAME
#Act
MOV S30 第17名
#If
EQUAL A87 $USERNAME
#Act
MOV S30 第18名
#If
EQUAL A88 $USERNAME
#Act
MOV S30 第19名
#If
EQUAL A89 $USERNAME
#Act
MOV S30 第20名
#If
CheckLevelEx 0
#Act
SetStringBlank S10 11 1
SetStringBlank S11 11 1
SetStringBlank S12 11 1
SetStringBlank S13 11 1
SetStringBlank S14 11 1
SetStringBlank S15 11 1
SetStringBlank S16 11 1
SetStringBlank S17 11 1
SetStringBlank S18 11 1
SetStringBlank S19 11 1
SetStringBlank S20 10 1
SetStringBlank S21 10 1
SetStringBlank S22 10 1
SetStringBlank S23 10 1
SetStringBlank S24 10 1
SetStringBlank S25 10 1
SetStringBlank S26 10 1
SetStringBlank S27 10 1
SetStringBlank S28 10 1
SetStringBlank S29 10 1
#Say
Img:311:0:55:-2/@MAINImg:313:0:56:-2/@杀戮排行Img:315:0:58:-2/@荣誉排行Img:316:0:60:-2/@血狱排行\ \ \ \
{$STR(S31)$STR(S10)/SCOLOR=253}      {11    $STR(S41) $STR(S20)/SCOLOR=100}\
{$STR(S32)$STR(S11)/SCOLOR=250}      {12    $STR(S42) $STR(S21)/SCOLOR=100}\
{$STR(S33)$STR(S12)/SCOLOR=254}      {13    $STR(S43) $STR(S22)/SCOLOR=100}\
   {4$STR(S34)$STR(S13)      14    $STR(S44) $STR(S23)/SCOLOR=100}\
   {5$STR(S35)$STR(S14)      15    $STR(S45) $STR(S24)/SCOLOR=100}\
   {6$STR(S36)$STR(S15)      16    $STR(S46) $STR(S25)/SCOLOR=100}\
   {7$STR(S37)$STR(S16)      17    $STR(S47) $STR(S26)/SCOLOR=100}\
   {8$STR(S38)$STR(S17)      18    $STR(S48) $STR(S27)/SCOLOR=100}\
   {9$STR(S39)$STR(S18)      19    $STR(S49) $STR(S28)/SCOLOR=100}\
   {10$STR(S40)$STR(S1开传奇私服9)      20    $STR(S50) $STR(S29)/SCOLOR=100}\ \
       {$STR(S30)/SCOLOR=58}   血狱层数: {$HUMAN(血狱深渊层数)/SCOLOR=151}\
       如果您能挤上前20名,您将获得如下奖励/SCOLOR=151【{$STR(S9)/SCOLOR=168}】\
 友情提示:需要在血狱深渊(副本)中至少突破20层!否者无法获得奖励!/SCOLOR=58 By:$SERVERNAME\
Img:95:0:395:-43/@血狱排行_领奖AImg:349:0:100:-247Img:349:0:318:-247\
[@血狱排行_领奖A]
#If
CHECKVAR HUMAN 血狱深渊层数 19
#ELSEACT
CLOSE
SENDMSG 5 【失败】:您在血狱深渊中未能突破(20)层,无法获得奖励!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您在血狱深渊中需要至少突破20层!\\【版权所有】$SERVERNAME
Break
#If
EQUAL A70 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_前三奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A71 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_前三奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A72 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_前三奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A73 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A74 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A75 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A76 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A77 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A78 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A79 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A80 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A81 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A82 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A83 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A84 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A85 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A86 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A87 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A88 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#If
EQUAL A89 $USERNAME
#Act
GetRandomText .\QuestDiary\数据文件\血狱深渊\血狱排行_普通奖.txt S9
GOTO @血狱排行_领奖B
Break
#ELSEACT
MOV S9 $暂无数据
SENDMSG 5 【领奖】:您没有挤上血狱排行榜前20名,未够资格领取奖励!
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取失败!\\【领奖说明】您没有挤上血狱排行榜前20名,未够资格领取奖励!\\【版权所有】$SERVERNAME
GOTO @血狱排行
Break
[@血狱排行_领奖B]
#IF
dayofweek sun
check [42] 0
#ACT
set [42] 1
set [43] 0
set [44] 0
set [45] 0
set [46] 0
set [47] 0
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek mon
check [43] 0
#ACT
set [42] 0
set [43] 1
set [44] 0
set [45] 0
set [46] 0
set [47] 0
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek tue
check [44] 0
#ACT
set [42] 0
set [43] 0
set [44] 1
set [45] 0
set [46] 0
set [47] 0
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek wed
check [45] 0
#ACT
set [42] 0
set [43] 0
set [44] 0
set [45] 1
set [46] 0
set [47] 0
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek thu
check [46] 0
#ACT
set [42] 0
set [43] 0
set [44] 0
set [45] 0
set [46] 1
set [47] 0
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek fri
check [47] 0
#ACT
set [42] 0
set [43] 0
set [44] 0
set [45] 0
set [46] 0
set [47] 1
set [48] 0
goto @血狱排行_领奖C
Break
#IF
dayofweek sat
check [48] 0
#ACT
set [42] 0
set [43] 0
set [44] 0
set [45] 0
set [46] 0
set [47] 0
set [48] 1
goto @血狱排行_领奖C
Break
#IF
#ACT
SENDMSG 5 【领奖】:您今天的血狱排行榜奖励已经领取过了!每天限制领取一次!
Close
MESSAGEBOX 【领取奖励】失败!\\【领取说明】您今天已经领取过了!\\【友情提示】血狱排行榜的奖励,每天限制领取一次!\\【版权所有】$SERVERNAME
Break
[@血狱排行_领奖C]
#IF
#ACT
GIVE $STR(S9) 1
SendCenterMsg 161 58 ◤公告◥:恭喜【$USERNAME】成功领取了血狱排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】! 1 15
MESSAGEBOX 【勇士名称】$USERNAME\\【领奖提示】领取成功!\\【领取奖励】血狱排行排行榜$STR(S30)奖励,获得物品【$STR(S9)】!\\【版权所有】$SERVERNAME
GOTO @血狱排行
Break
[@声音]
#IF
random 2
#ACT
PlayMusic man_5_3.mp3
Break
#IF
#ACT
PlayMusic man_5_2.mp3
Break


以上就是功能最全的热血传奇sf发布网传奇四大排行完整脚本内容,大家还想知道更多传奇私服内容,多多关注二莎帮传奇网

Tags:zhaosf的其他域名 傲视千雄 网页游戏私服大全 传奇私服多开 2014新开仿盛大传奇 热血传奇 一元夺宝