DETECTEUR DE NICK

menu menubar,channel {
  Recherche de nicks:/rechdenick
}

dialog nicksdeschans {
  title "Recherche Nicks"
  size -1 -1 200 210
  option dbu

  button "Fermer", 01, 10 190 180 12, cancel

  box "", 98, 30 30 140 20
  text %j, 95, 50 38 20 12
  text "Personnes sont présentes sur le chan", 57, 60 38 130 12

  box "Nick présent sur le chan", 72, 10 55 90 110
  list 02, 15 65 80 100, vsbar sort

  box "Reponses de votre recherche", 73, 100 55 90 110
  list 03, 105 65 80 100, vsbar sort

  text "Veuillez patienter pour que l'affichage des pseudos se fasse !", 94, 10 175 180 8, center

  edit "Inscrivez ici la partie du pseudo à rechercher", 04, 10 10 120 12, autohs
  button "Rechercher", 05, 140 10 50 12
}

alias nicksdeschans {
  write -c pseudochan.txt 
  set %j $nick(%chan,0)
  var %i = 1
  :loop
  if (%i <= %j) {
    write -a pseudochan.txt $nick(%chan,%i)
    inc %i
    goto loop
  }
  else { return }
}

alias rechdenick { set %chan $chan | nicksdeschans | timer 1 2 dialog -rm nicksdeschans nicksdeschans }

on *:dialog:nicksdeschans:init:00:{
  timer 1 4 loadbuf -ro nicksdeschans 02 pseudochan.txt
}

on *:dialog:nicksdeschans:dclick:*:{
  if ( $did == 02 ) {
    /query $did(02).seltext
  }
  if ( $did == 03 ) {
    /query $did(03).seltext

  }
}

on *:dialog:nicksdeschans:sclick:*:{
  if ( $did == 05 ) {
    did -r nicksdeschans 03
    set %nickachercher $did(04)
    var %k = 1
    :loop
    if (%k <= %j) {
      if ( $read(pseudochan.txt,w, * $+ %nickachercher $+ *) == $null ) {
        nicksdeschans 
      }
      else {
        set %nicktrouver. [ $+ [ %k ] ] $read(pseudochan.txt,w, * $+ %nickachercher $+ *)
        did -a nicksdeschans 03 %nicktrouver. [ $+ [ %k ] ]
        write -ds $+ %nicktrouver. [ $+ [ %k ] ] pseudochan.txt
        inc %k
        goto loop
      } 
    }
  }
  else {
    nicksdeschans 
  }
}