CONNAITRE TOUT LES PSEUDOS DE VOS CHANS

alias cnp {
  window -c @Pseudos
  var %me 0
  var %L 0
  var %Q 0
  var %S 0
  window -k0nze @Pseudos
  set %chans_nbs $chan(0)
  var %a 1
  var %b 1
  while ( %a <= %chans_nbs ) {
    aline @Pseudos 2.::::::::::::::.
    aline @Pseudos 5 $+ $chan(%a)5 (4 $nick($chan(%a),0) personne(s)5 )
    aline @Pseudos 2·::::::::::::::·
    while ( %b <= $nick($chan(%a),0) ) {
      set %nicks $nick($chan(%a),%b)
      if ( $nick($chan(%a),%b) == $me ) { inc %me }
      if ( $nick($chan(%a),%b) == L ) { inc %L }
      if ( $nick($chan(%a),%b) == Q ) { inc %Q }
      if ( $nick($chan(%a),%b) == S ) { inc %S }
      aline @Pseudos %nicks
      inc %b
    }
    var %nb_pers = $calc(%nb_pers + $nick($chan(%a),0))
    set %b 1
    inc %a
  }
  aline @Pseudos 2.::::::::::::::.
  aline @Pseudos 2::::::::::::::::
  aline @Pseudos 5Vous etes actuelement sur4 $chan(0) 5channel(s)
  aline @Pseudos 5Il y a4 %nb_pers 5personne(s)
  aline @Pseudos 5Dont:
  aline @Pseudos 4 %me 5fois $me 
  aline @Pseudos 4 %l 5fois L
  aline @Pseudos 4 %q 5fois Q
  aline @Pseudos 4 %s 5fois S
  aline @Pseudos 2::::::::::::::::
  aline @Pseudos 2·::::::::::::::·

}

menu @Pseudos {

  dclick: /cnp
  Mettre a jour la fenetre: /cnp
  Activer la mise a jour automatique
  .Oui: /enable #Auto_pseudos
  .Non: /disable #Auto_pseudos

}

on *:CONNECT: {
  window -k0nze @Pseudos
}

#Auto_pseudos off

on *:JOIN:*: {
  /timerAUTOpseudos 1 5 /cnp
}

on *:PART:*: {
  /timerAUTOpseudos2 1 5 /cnp
}

#Auto_pseudos end