{******************************************************************
*******************************************************************}
program Mir2;
var
i,num,x:integer;
procedure Execute;
begin
This_Npc.NPCSay('挂机请自觉改成和平模式,恶意不改,杀挂机者一律封号处理!');
ServerSay('牛蛙:挂机请自觉改成和平模式,恶意不改,杀挂机者一律封号处理',3);
ServerSay('当前在线人数:<'+inttostr(num)+'>',253);
end;
procedure _Playerlist(Pstr:string);
var
Uname,str,guild:string;
Plist : array[1..500] of string;
begin
num:=0;
This_DB.ExecuteQuery('select ChrName from mir3.user_index where level >= 0 order by level desc;');
while not(This_DB.PsEof()) do
begin
Uname:=This_DB.PsFieldByName('ChrName');
if This_Player.FindPlayer(Uname) then
begin
num:=num+1;
guild:=This_Player.FindPlayerByName(Uname).GuildName;
if length(guild) <= 0 then guild:='无';
Plist[num]:='|<'+Uname+'/fcolor=254> ^<'+inttostr(This_Player.FindPlayerByName(Uname).level)+'/fcolor=253> ^<'+guild+'/fcolor=249> ';
end
This_DB.PsNext();
end;
x := StrToIntDef(Pstr,0);
for i := 1+(x-1)*10 to x*10 do
begin
str := str + Plist[i];
end;
//ServerSay('当前在线人数:<'+inttostr(num)+'>',253);
This_Npc.NpcDialog(This_Player,
'当前在线人数:<'+inttostr(num)+'/fcolor=253>'
+'|<---------------------------------------------------------/fcolor=247>'
+'|<姓名/fcolor=242>^^<等级/fcolor=242> ^^<行会/fcolor=242> ^'
+'|'
// +'|<---------------------------------------------------------/fcolor=247>'
+str+
+'|<---------------------------------------------------------/fcolor=247>'
+'|{cmd}<下一页/@Playerlist~'+inttostr(x+1)+'> ^<手动查找/@serch> ^<返回主页/@main>'
);
end;
begin
_playerlist(inttostr(1));
end.