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",.@party$[0];
set .@i, 1;
for (set .@c, 0; .@c < getarraysize(.@party$); set .@c, .@c + 1) {
	mes "Partys ^FF0000" +.@i +"^000000 - ^0000FF" +.@party$[.@c] +"^000000 integrantes ^FF0000" +.party[.@c] +"^000000.";
	set .@i, .@i + 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,$@partymembercount;
		copyarray @partymembername$[0],$@partymembername$[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;
	}
}