{******************************************************************
*******************************************************************}
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.