传世AFT版本配套全服杀人排行榜脚本

;杀人触发字段，比如A杀死了B在中州，则A执行QF[@杀人触发]  B执行QF[杀人触发]
[@杀人触发]
#IF
RANDOM 1
#ACT
MOV S0 $KILLHUMMAN  ;把B的名字给S0
INC S0 |     ;s0 字符后面加一个|
INC S0 $MAPNAME   ;地图名字给加到S0后面
INC S0 |
INC S0 $DATETIME    ;时间加到S0后面 
;这是的S0 就是：A|中州|2011年4月22日9:08:39 的 格式
ADDVARLIST $STR(S0) ..\QuestDiary\数据文件\各种排行\杀人数据\<$USERNAME>.txt   //加入制定文本，一个玩家一个
SENDMSG 0 人在江湖飘，哪能不挨刀！玩家{%S}在{<$MAPNAME>}瞬息间将对手{<$KILLHUMMAN>}置于死地
#IF
PosEx $USERNAME .\QuestDiary\数据文件\各种排行\杀人排行.txt S0    检测玩家是否有以前的杀人数据
#ACT
mov p10 0   
GETVALIDSTR $STR(S0) | S0 P10    数据存在，把杀人的次数给P10
INC P10 1    P10 +1
MOV P0 0    P0 为0  循环排行开始
GOTO @杀人排行
#ELSEACT
MOV P10 1    不存在杀人数值，首次杀人，P10 赋值1
MOV P0 0
GOTO @杀人排行 dedecms.com

[@被杀触发]
#IF
CHECKLEVELEX > 0
#ACT
MOV S0 $PARAM(2)
INC S0 |
INC S0 $MAPNAME
INC S0 |
INC S0 $DATETIME
ADDVARLIST $STR(S0) ..\QuestDiary\数据文件\各种排行\被杀数据\<$USERNAME>.txt
SENDMSG 6 你被<$PARAM(2)>杀害了！
#IF
PosEx $USERNAME .\QuestDiary\数据文件\各种排行\被杀排行.txt S0
#ACT
mov p10 0
GETVALIDSTR $STR(S0) | S0 P10
INC P10 1
MOV P0 0
GOTO @被杀排行
#ELSEACT
MOV P10 1
MOV P0 0
GOTO @被杀排行

[@杀人排行]
#IF
PosEx $USERNAME .\QuestDiary\数据文件\各种排行\杀人排行.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\数据文件\各种排行\杀人排行.txt
#IF
large P0 19
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\各种排行\杀人排行.txt S0 $STR(P0)
MOV P1 0
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 P1
#IF
LARGE P10 $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$STR(P10)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\数据文件\各种排行\杀人排行.txt
#ELSEACT
INC P0 1
GOTO @杀人排行

[@被杀排行]
#IF
PosEx $USERNAME .\QuestDiary\数据文件\各种排行\被杀排行.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\数据文件\各种排行\被杀排行.txt
#IF
large P0 19
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\各种排行\被杀排行.txt S0 $STR(P0)
MOV P1 0
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 P1
#IF
LARGE P10 $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$STR(P10)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\数据文件\各种排行\被杀排行.txt
#ELSEACT
INC P0 1
GOTO @被杀排行