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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (neko01)