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 626 fois - Téléchargée 28 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
Messages postés
67
Date d'inscription
mardi 23 mars 2004
Statut
Membre
Dernière intervention
15 janvier 2006

Ce serrais mieux si c'étais aussi dans les channels ou on es pas.. :)
Messages postés
119
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
30 juin 2005
1
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 ...
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
5
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 :)
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
5
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.