Scanner pseudo/partie de pseudo sur tous les salons ou l'on se trouve

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 759 fois - Téléchargée 29 fois

Contenu du snippet

Voila un scanner de pseudo ou de partie de pseudo sur tous les salons ou l'on est
pas tres esthetique mais qui sert
Ex: /scanick 01 => donnera tout les pseudo contenant 01 qui sont sur les salons ou vous etes =)

Source / Exemple :


dialog chn {
  title Recherche de pseudo
  size -1 -1 350 400
  text Rechercher un pseudo ou une partie sur le(s) salon(s) ou vous etes,2,20 20 360 15
  edit ,3,40 45 150 20
  button Rechercher ,4,250 43  65 25
  list 5,20 100 150 240,vsbar
  list 6,172 100 150 240,vsbar
  button  Whois ,7,20 330 60 30
  button  Privé ,8,110 330 60 30
  button Fermer,9, 215 330 60 30,ok
}
On *:dialog:chn:*:*:{
  if $devent == sclick {
    if $did == 5 { did -c chn 6 $did(5).sel }
    if $did == 6 { did -c chn 5 $did(6).sel }
    if $did == 4 { scanick $did(3).text }
    if $did == 7 { whois $did(5,$did(5).sel) }
    if $did == 8 { query $did(5,$did(5).sel) }

  }
  if $devent == dclick { if $did == 5 { query $did(5,$did(5).sel) } }
}
alias scanick {
  /var %i = 0
  /var %nick = 0
  If ( $dialog(chn) != $null ) { /dialog -x chn }
  /dialog -m chn chn
  /did -ra chn 3 $1
  :loop
  If ( $nick($chan(%i),%i2) != $null ) && ( $1 isin $nick($chan(%i),%i2) ) { /did -i chn 5 1 $nick($chan(%i),%i2) | /did -i chn 6 1 $chan(%i) }
  /inc %i2
  If ( $nick($chan(%i),%i2) == $null ) { inc %i | var %i2 = 1 }
  If ( $chan(%i) == $null ) { halt }
  goto loop
}

A voir également

Ajouter un commentaire Commentaires
cs_Solisoft Messages postés 67 Date d'inscription mardi 23 mars 2004 Statut Membre Dernière intervention 15 janvier 2006
23 mai 2004 à 15:45
Ce serrais mieux si c'étais aussi dans les channels ou on es pas.. :)
cs_Raziell Messages postés 119 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 30 juin 2005 1
23 mai 2004 à 12:51
J'aime bien l'idée mais perso j'trouve que les gro dialog sont mieu que les p'ti, apré c'est celon les gouts ...
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 6
23 mai 2004 à 12:40
un truc auquel je pense aussi ... pourquoi imbriquer toujours deux boucles ? surtout si t'es sur des chans a 800 ou 1000 users sur undernet ou autre ...
tu peux simplement faire un /who +cn $chan(%i) * $+ $1 $+ * et récupérer bcp plus d'info par le raw ... enfin c une question je sais pas si le serveur te jettepas qd t'as beaucoup de salons a voir :)
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 6
23 mai 2004 à 12:04
le dialog est très gros pour pas grand chose dommage ... sinon c'est du déja vu mais c pas mal ...
préfère les boucles "while" aux goto les /goto ... c'est mort :)
dans tes conditions , plutot que "$chan(%i) == $null" tu peux mettre "!$chan(%i)" ... qui signifie $chan(%i) est nul ou $false ou 0 ... donc la ce sera nul et je trouve ca plus facile a lire après question d'habitude :)
bonne continuation

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.