SCANNER PSEUDO/PARTIE DE PSEUDO SUR TOUS LES SALONS OU L'ON SE TROUVE

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
}