开启辅助访问
 找回密码
 立即注册
查看: 773|回复: 29
收起左侧

GOM-GEE-hero传奇玩家后台在线人数IP统计系统-全服地图统计-全服等级统计-九五论坛

[复制链接]
admin 发表于 2017-9-23 11:51:35 | 显示全部楼层 |阅读模式

GOM-GEE-hero传奇玩家后台在线人数IP统计系统-全服地图统计-全服等级统计-九五论坛
免费下载地址回复可以见《》
游客,如果您要查看本帖隐藏内容请回复




IMG00032.jpg



1.jpg 2.jpg 3.jpg 4.jpg 5.jpg


[@main]
#IF
#ACT
CALCVAR HUMAN  httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
CALCVAR HUMAN httj-模式显示1 = <【查看等级统计】/@main>
CALCVAR HUMAN httj-模式显示2 = <【查看地图统计】/@查看地图统计>
GOTO @显示等级


[@显示界面]
#ACT
CreateFile ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\统计重复IP.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\统计重复IP.txt
CALCVAR GLOBAL httj-全服人数 = 0
CALCVAR GLOBAL httj-全服IP  = 0
GMEXECUTE 开始提问 @sf1995.com统计全服
#SAY
<【全服在线人数】:/SCOLOR=6><$GLOBAL(httj-全服人数)>人   <【全服在线IP】:/SCOLOR=6><$GLOBAL(httj-全服IP)>个  \
<$HUMAN(httj-统计编号1)>.<$HUMAN(httj-统计显示1)>\
<$HUMAN(httj-统计编号2)>.<$HUMAN(httj-统计显示2)>\
<$HUMAN(httj-统计编号3)>.<$HUMAN(httj-统计显示3)>\
<$HUMAN(httj-统计编号4)>.<$HUMAN(httj-统计显示4)>\
<$HUMAN(httj-统计编号5)>.<$HUMAN(httj-统计显示5)>\
 \
<$HUMAN(httj-模式显示1)> <$HUMAN(httj-模式显示2)>\
<当前:><第><$HUMAN(httj-当前页数)><页>   <[上一页]/@上一页>   <[下一页]/@下一页>       <《返回第一页》/@返回第一页>




[@上一页]
#if
CHECKVAR HUMAN httj-当前页数 > 1
#act
CALCVAR HUMAN httj-当前页数 - 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @<$HUMAN(httj-触发代码)>
[@下一页]
#act
CALCVAR HUMAN httj-当前页数 + 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @<$HUMAN(httj-触发代码)>
[@返回第一页]
#act
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @<$HUMAN(httj-触发代码)>



[@显示等级]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-触发代码 = 显示等级
CALCVAR HUMAN httj-页数计算 = 5
CALCVAR HUMAN httj-页数计算 * <$HUMAN(httj-当前页数)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号5 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号4 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号3 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号2 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号1 = <$HUMAN(httj-页数计算)>
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt 0 S90 N90
CALCVAR HUMAN httj-等级总数量 = <$STR(N90)>

#if
CHECKVAR HUMAN httj-等级总数量 > <$HUMAN(httj-统计编号1)>
#act
CALCVAR HUMAN httj-统计编号1 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt <$HUMAN(httj-统计编号1)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C1 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 1
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A1 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B1 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C1)>
SetStringBlank S85 5 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)>级 
MOV S85 <$HUMAN(httj-临时记录A1)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物1> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B1)>个
INC S91 <(详细查看)/@查看IP1>
CALCVAR HUMAN httj-统计显示1 = <$STR(S91)>
#elseact
CALCVAR HUMAN httj-统计编号1 + 1

#if
CHECKVAR HUMAN httj-等级总数量 > <$HUMAN(httj-统计编号2)>
#act
CALCVAR HUMAN httj-统计编号2 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt <$HUMAN(httj-统计编号2)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C2 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 2
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A2 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B2 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C2)>
SetStringBlank S85 5 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)>级 
MOV S85 <$HUMAN(httj-临时记录A2)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物2> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B2)>个
INC S91 <(详细查看)/@查看IP2>
CALCVAR HUMAN httj-统计显示2 = <$STR(S91)>
#elseact
CALCVAR HUMAN httj-统计编号2 + 1


#if
CHECKVAR HUMAN httj-等级总数量 > <$HUMAN(httj-统计编号3)>
#act
CALCVAR HUMAN httj-统计编号3 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt <$HUMAN(httj-统计编号3)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C3 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 3
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A3 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C3)>
SetStringBlank S85 5 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)>级 
MOV S85 <$HUMAN(httj-临时记录A3)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物3> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B3)>个
INC S91 <(详细查看)/@查看IP3>
CALCVAR HUMAN httj-统计显示3 = <$STR(S91)>
#elseact
CALCVAR HUMAN httj-统计编号3 + 1


#if
CHECKVAR HUMAN httj-等级总数量 > <$HUMAN(httj-统计编号4)>
#act
CALCVAR HUMAN httj-统计编号4 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt <$HUMAN(httj-统计编号4)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C4 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 4
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A4 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B4 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C4)>
SetStringBlank S85 5 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)>级 
MOV S85 <$HUMAN(httj-临时记录A4)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物4> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B4)>个
INC S91 <(详细查看)/@查看IP4>
CALCVAR HUMAN httj-统计显示4 = <$STR(S91)>
#elseact
CALCVAR HUMAN httj-统计编号4 + 1


#if
CHECKVAR HUMAN httj-等级总数量 > <$HUMAN(httj-统计编号5)>
#act
CALCVAR HUMAN httj-统计编号5 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com等级.txt <$HUMAN(httj-统计编号5)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C5 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 5
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时等级数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A5 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B5 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C5)>
SetStringBlank S85 5 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)>级 
MOV S85 <$HUMAN(httj-临时记录A5)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物5> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B5)>个
INC S91 <(详细查看)/@查看IP5>
CALCVAR HUMAN httj-统计显示5 = <$STR(S91)>
#elseact
CALCVAR HUMAN httj-统计编号5 + 1

#if
CHECKLEVELEX > 0
#act
GOTO @显示界面



[@查看人物1]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C1)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-等级
[@查看人物2]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C2)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-等级
[@查看人物3]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C3)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-等级
[@查看人物4]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C4)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-等级
[@查看人物5]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C5)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-等级

[@详细信息查看-等级]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-触发代码 = 详细信息查看-等级
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$HUMAN(httj-详细信息记录)>
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt **不要删除次行** 0
CALCVAR GLOBAL httj-临时记录 = <$USERNAME>
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt **不要删除次行**
CALCVAR HUMAN httj-详细信息总数量 = <$STR(N0)>
CALCVAR HUMAN httj-页数计算 = 5
CALCVAR HUMAN httj-页数计算 * <$HUMAN(httj-当前页数)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号5 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号4 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号3 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号2 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号1 = <$HUMAN(httj-页数计算)>

#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号1)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号1)> S90
CALCVAR HUMAN httj-统计显示1 = {<$STR(S90)>/SCOLOR=243}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号2)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号2)> S90
CALCVAR HUMAN httj-统计显示2 = {<$STR(S90)>/SCOLOR=242}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号3)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号3)> S90
CALCVAR HUMAN httj-统计显示3 = {<$STR(S90)>/SCOLOR=245}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号4)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号4)> S90
CALCVAR HUMAN httj-统计显示4 = {<$STR(S90)>/SCOLOR=250}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号5)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号5)> S90
CALCVAR HUMAN httj-统计显示5 = {<$STR(S90)>/SCOLOR=254}

#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-统计编号1 + 1
CALCVAR HUMAN httj-统计编号2 + 1
CALCVAR HUMAN httj-统计编号3 + 1
CALCVAR HUMAN httj-统计编号4 + 1
CALCVAR HUMAN httj-统计编号5 + 1
GOTO @显示界面




[@查看IP1]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C1)>
CALCVAR HUMAN httj-临时N变量 = 1
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP
[@查看IP2]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C2)>
CALCVAR HUMAN httj-临时N变量 = 2
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP
[@查看IP3]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C3)>
CALCVAR HUMAN httj-临时N变量 = 3
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP
[@查看IP4]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C4)>
CALCVAR HUMAN httj-临时N变量 = 4
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP
[@查看IP5]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-详细信息记录 = <$HUMAN(httj-临时记录C5)>
CALCVAR HUMAN httj-临时N变量 = 5
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP

[@详细信息查看-IP]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-触发代码 = 详细信息查看-IP
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$HUMAN(httj-详细信息记录)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-检测IP = <$USERNAME>
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$IPADDR>.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$IPADDR>.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt **不要删除次行**
CALCVAR HUMAN httj-详细信息总数量 = <$STR(N0)>
CALCVAR HUMAN httj-页数计算 = 5
CALCVAR HUMAN httj-页数计算 * <$HUMAN(httj-当前页数)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号5 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号4 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号3 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号2 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号1 = <$HUMAN(httj-页数计算)>
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号1)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt <$HUMAN(httj-统计编号1)> S90
GetStringPos  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$STR(S90)>.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录D1 = <$STR(S90)>
MOV S85 <$STR(S90)>
SetStringBlank S85 17 1
MOV S91  <$STR(S85)>
INC S91 <所包含的在线人物:/SCOLOR=254>
MOV S85 <$STR(N0)>人
SetStringBlank S85 5 1
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看IP人物1> 
CALCVAR HUMAN httj-统计显示1 = <$STR(S91)>


#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号2)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt <$HUMAN(httj-统计编号2)> S90
GetStringPos  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$STR(S90)>.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录D2 = <$STR(S90)>
MOV S85 <$STR(S90)>
SetStringBlank S85 17 1
MOV S91  <$STR(S85)>
INC S91 <所包含的在线人物:/SCOLOR=254>
MOV S85 <$STR(N0)>人
SetStringBlank S85 5 1
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看IP人物2> 
CALCVAR HUMAN httj-统计显示2 = <$STR(S91)>


#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号3)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt <$HUMAN(httj-统计编号3)> S90
GetStringPos  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$STR(S90)>.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录D3 = <$STR(S90)>
MOV S85 <$STR(S90)>
SetStringBlank S85 17 1
MOV S91  <$STR(S85)>
INC S91 <所包含的在线人物:/SCOLOR=254>
MOV S85 <$STR(N0)>人
SetStringBlank S85 5 1
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看IP人物3> 
CALCVAR HUMAN httj-统计显示3 = <$STR(S91)>


#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号4)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt <$HUMAN(httj-统计编号4)> S90
GetStringPos  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$STR(S90)>.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录D4 = <$STR(S90)>
MOV S85 <$STR(S90)>
SetStringBlank S85 17 1
MOV S91  <$STR(S85)>
INC S91 <所包含的在线人物:/SCOLOR=254>
MOV S85 <$STR(N0)>人
SetStringBlank S85 5 1
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看IP人物4> 
CALCVAR HUMAN httj-统计显示4 = <$STR(S91)>


#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号5)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量<$HUMAN(httj-临时N变量)>.txt <$HUMAN(httj-统计编号5)> S90
GetStringPos  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$STR(S90)>.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录D5 = <$STR(S90)>
MOV S85 <$STR(S90)>
SetStringBlank S85 17 1
MOV S91  <$STR(S85)>
INC S91 <所包含的在线人物:/SCOLOR=254>
MOV S85 <$STR(N0)>人
SetStringBlank S85 5 1
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看IP人物5> 
CALCVAR HUMAN httj-统计显示5 = <$STR(S91)>


#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-统计编号1 + 1
CALCVAR HUMAN httj-统计编号2 + 1
CALCVAR HUMAN httj-统计编号3 + 1
CALCVAR HUMAN httj-统计编号4 + 1
CALCVAR HUMAN httj-统计编号5 + 1
GOTO @显示界面






[@查看IP人物1]
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL httj-检测IP = <$HUMAN(httj-临时记录D1)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP人物
[@查看IP人物2]
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL httj-检测IP = <$HUMAN(httj-临时记录D2)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP人物
[@查看IP人物3]
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL httj-检测IP = <$HUMAN(httj-临时记录D3)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP人物
[@查看IP人物4]
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL httj-检测IP = <$HUMAN(httj-临时记录D4)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP人物
[@查看IP人物5]
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL httj-检测IP = <$HUMAN(httj-临时记录D5)>
CALCVAR HUMAN httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
GOTO @详细信息查看-IP人物

[@详细信息查看-IP人物]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-触发代码 = 详细信息查看-IP人物
CALCVAR GLOBAL httj-临时记录 = <$USERNAME>
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计IP人物数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt **不要删除次行**
CALCVAR HUMAN httj-详细信息总数量 = <$STR(N0)>
CALCVAR HUMAN httj-页数计算 = 5
CALCVAR HUMAN httj-页数计算 * <$HUMAN(httj-当前页数)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号5 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号4 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号3 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号2 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号1 = <$HUMAN(httj-页数计算)>
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号1)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号1)> S90
CALCVAR HUMAN httj-统计显示1 = {<$STR(S90)>/SCOLOR=243}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号2)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号2)> S90
CALCVAR HUMAN httj-统计显示2 = {<$STR(S90)>/SCOLOR=242}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号3)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号3)> S90
CALCVAR HUMAN httj-统计显示3 = {<$STR(S90)>/SCOLOR=245}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号4)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号4)> S90
CALCVAR HUMAN httj-统计显示4 = {<$STR(S90)>/SCOLOR=250}
#if
CHECKVAR HUMAN httj-详细信息总数量 > <$HUMAN(httj-统计编号5)>
#act
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时信息.txt <$HUMAN(httj-统计编号5)> S90
CALCVAR HUMAN httj-统计显示5 = {<$STR(S90)>/SCOLOR=254}


#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-统计编号1 + 1
CALCVAR HUMAN httj-统计编号2 + 1
CALCVAR HUMAN httj-统计编号3 + 1
CALCVAR HUMAN httj-统计编号4 + 1
CALCVAR HUMAN httj-统计编号5 + 1
GOTO @显示界面


[@查看地图统计]
#IF
#ACT
CALCVAR HUMAN  httj-当前页数 = 1
CALCVAR HUMAN httj-统计显示1 =  
CALCVAR HUMAN httj-统计显示2 =  
CALCVAR HUMAN httj-统计显示3 =  
CALCVAR HUMAN httj-统计显示4 =  
CALCVAR HUMAN httj-统计显示5 =  
CALCVAR HUMAN httj-模式显示1 = <【查看等级统计】/@main>
CALCVAR HUMAN httj-模式显示2 = <【查看地图统计】/@查看地图统计>
GOTO @开始查看地图统计

[@开始查看地图统计]
#if
CHECKLEVELEX > 0
#act
CALCVAR HUMAN httj-触发代码 = 开始查看地图统计
CALCVAR HUMAN httj-页数计算 = 5
CALCVAR HUMAN httj-页数计算 * <$HUMAN(httj-当前页数)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号5 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号4 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号3 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号2 = <$HUMAN(httj-页数计算)>
CALCVAR HUMAN httj-页数计算 - 1
CALCVAR HUMAN httj-统计编号1 = <$HUMAN(httj-页数计算)>
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt 0 S90 N90
CALCVAR HUMAN httj-地图总数量 = <$STR(N90)>

#if
CHECKVAR HUMAN httj-地图总数量 > <$HUMAN(httj-统计编号1)>
#act
CALCVAR HUMAN httj-统计编号1 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt <$HUMAN(httj-统计编号1)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C1 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 1
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A1 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量1.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B1 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C1)>
SetStringBlank S85 10 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)> 
MOV S85 <$HUMAN(httj-临时记录A1)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物1> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B1)>个
INC S91 <(详细查看)/@查看IP1>
CALCVAR HUMAN httj-统计显示1 = <$STR(S91)>
#ELSEACT
CALCVAR HUMAN httj-统计编号1 + 1

#if
CHECKVAR HUMAN httj-地图总数量 > <$HUMAN(httj-统计编号2)>
#act
CALCVAR HUMAN httj-统计编号2 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt <$HUMAN(httj-统计编号2)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C2 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 2
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A2 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量2.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B2 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C2)>
SetStringBlank S85 10 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)> 
MOV S85 <$HUMAN(httj-临时记录A2)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物2> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B2)>个
INC S91 <(详细查看)/@查看IP2>
CALCVAR HUMAN httj-统计显示2 = <$STR(S91)>
#ELSEACT
CALCVAR HUMAN httj-统计编号2 + 1

#if
CHECKVAR HUMAN httj-地图总数量 > <$HUMAN(httj-统计编号3)>
#act
CALCVAR HUMAN httj-统计编号3 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt <$HUMAN(httj-统计编号3)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C3 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 3
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A3 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量3.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B3 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C3)>
SetStringBlank S85 10 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)> 
MOV S85 <$HUMAN(httj-临时记录A3)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物3> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B3)>个
INC S91 <(详细查看)/@查看IP3>
CALCVAR HUMAN httj-统计显示3 = <$STR(S91)>
#ELSEACT
CALCVAR HUMAN httj-统计编号3 + 1

#if
CHECKVAR HUMAN httj-地图总数量 > <$HUMAN(httj-统计编号4)>
#act
CALCVAR HUMAN httj-统计编号4 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt <$HUMAN(httj-统计编号4)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C4 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 4
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A4 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量4.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B4 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C4)>
SetStringBlank S85 10 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)> 
MOV S85 <$HUMAN(httj-临时记录A4)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物4> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B4)>个
INC S91 <(详细查看)/@查看IP4>
CALCVAR HUMAN httj-统计显示4 = <$STR(S91)>
#ELSEACT
CALCVAR HUMAN httj-统计编号4 + 1

#if
CHECKVAR HUMAN httj-地图总数量 > <$HUMAN(httj-统计编号5)>
#act
CALCVAR HUMAN httj-统计编号5 + 1
GetListString ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com地图.txt <$HUMAN(httj-统计编号5)> S90
CALCVAR GLOBAL httj-<$USERNAME>-检测条件 = <$STR(S90)>
CALCVAR HUMAN  httj-临时记录C5 = <$STR(S90)>
CALCVAR GLOBAL httj-临时名字 = <$USERNAME>
CALCVAR GLOBAL httj-临时记录 = ****
CALCVAR GLOBAL httj-临时数值 = 5
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行** 0
CreateFile     ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt
ClearNameList ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt
AddTextListex  ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt **不要删除次行** 0
GMEXECUTE 开始提问 @sf1995.com统计详细数据
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时地图数量.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录A5 = <$STR(N0)>
GetStringPos   ..\QuestDiary\sf1995.com九五版本库\sf1995-com后台统计系统\sf1995.com数据文件(开区清空)\<$USERNAME>-临时IP数量5.txt **不要删除次行**
CALCVAR HUMAN httj-临时记录B5 = <$STR(N0)>
MOV S85 <$HUMAN(httj-临时记录C5)>
SetStringBlank S85 10 0
MOV S91  <全服/SCOLOR=250>
INC S91 <$STR(S85)> 
MOV S85 <$HUMAN(httj-临时记录A5)>人
SetStringBlank S85 6 1
INC S91 <在线人物:/SCOLOR=254>
INC S91 <$STR(S85)>
INC S91 <(详细查看)/@查看人物5> 
INC S91 <IP数:/SCOLOR=253>
INC S91 <$HUMAN(httj-临时记录B5)>个
INC S91 <(详细查看)/@查看IP5>
CALCVAR HUMAN httj-统计显示5 = <$STR(S91)>
#ELSEACT
CALCVAR HUMAN httj-统计编号5 + 1

#if
CHECKLEVELEX > 0
#act
GOTO @显示界面







成追忆 发表于 2017-9-23 11:54:59 来自手机 | 显示全部楼层
GEE的版本数量快超过GOM的了
回复 支持 反对

使用道具 举报

elfweio 发表于 2017-9-23 18:38:41 | 显示全部楼层
现在传奇一条龙开服还好开吗?
回复 支持 反对

使用道具 举报

7755798 发表于 2017-9-23 19:31:02 | 显示全部楼层
传奇私服论坛九五论坛
回复 支持 反对

使用道具 举报

sotper 发表于 2017-9-23 21:26:57 | 显示全部楼层
九五论坛回归老域名sf1995
回复 支持 反对

使用道具 举报

wasd1986 发表于 2017-9-24 12:35:51 来自手机 | 显示全部楼层
想学习传奇方面的技术,不知道现在哪个引擎好学呢,
回复 支持 反对

使用道具 举报

天总会晴 发表于 2017-9-24 15:35:20 | 显示全部楼层
55555555555555555555555555555555555
回复 支持 反对

使用道具 举报

ZG3 发表于 2017-9-25 17:31:34 | 显示全部楼层
现在传奇一条龙开服还好开吗?
回复 支持 反对

使用道具 举报

传奇爱好者 发表于 2017-9-25 22:43:40 来自手机 | 显示全部楼层
想学习传奇方面的技术,不知道现在哪个引擎好学呢,
回复 支持 反对

使用道具 举报

swatyet 发表于 2017-9-26 00:02:54 | 显示全部楼层
下载备用,谢谢楼主
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|传奇爱好者|传奇版本|手机版|传奇一条龙|九五论坛

GMT+8, 2018-4-20 07:10 , Processed in 0.210088 second(s), 27 queries , Gzip On.

快速回复 返回顶部 返回列表