Ayuda con informador de Partys

[leondedios]

Hola,

Necesito ayuda con un npc que creo sera util para cualquier server

 

Buscador e informador de partys

 

-Partys creadas. (Listado de partys cradas)
-Lider de la la party a examinar.
-Numero de integrantes de la party que se esta viendo.
-Nivel aproximado de la party.
-Mapa de lugar donde se encuentra la party.

 

encontre 2 que hacen a medias lo que necesito, 

new_3-2,23,174,4	script	RPC LADDER	416,{
mes "Party creadas: ";
query_sql "SELECT name FROM `party` ORDER BY party_id DESC LIMIT 20",[email protected]$[0];
set [email protected], 1;
for (set [email protected], 0; [email protected] < getarraysize([email protected]$); set [email protected], [email protected] + 1) {
	mes "Partys ^FF0000" [email protected] +"^000000 - ^0000FF" [email protected]$[[email protected]] +"^000000 integrantes ^FF0000" +.party[[email protected]] +"^000000.";
	set [email protected], [email protected] + 1;
}
close;
}


///NPC 2

new_3-2,23,176,4	script	RPC LADDERr	416,{
if(getcharid(1))
	goto Configuracion;
	if(!getcharid(1))
	goto Negativo;
	configuracion:
		getpartymember(getcharid(1));
		set @partymembercount,[email protected]nt;
		copyarray @partymembername$[0],[email protected]$[0],@partymembercount;
		set @count,0;
		if(@count == @partymembercount) goto L_Free;
		mes "[Informacion Party]";
		mes "Hola tu te encuentras en la Party "+getpartyname(getcharid(1))+"";
		mes "El lider de la party es "+getpartyleader(getcharid(1))+"";
		menu "Ver Miembros",visual,"Nada",closing;
		visual:
		if(@count == 100) goto L_nomore;
		mes (@count + 1) + ". ^0000FF" + @partymembername$[@count] + "^000000";
		set @count,@count+1;
		goto visual;
		Negativo:
	mes "[Informacion Party]";
	mes "No estas en una party.No hay informacion disponible";
	close;
	L_Free:
		close;
	L_nomore:
		mes "[Informacion Party]";
		mes "Gracias por usar este servicio";
		close;
	closing:
	mes "[Informacion Party]";
	mes "Nos vemos";
	close;
	}
}