Obtenir la liste ds users

[djkenny]

salut

tclcopier

proc channellist chan {
   if ![validchan $chan] return
   foreach nick [chanlist $chan] {
      if [isop $nick $chan] {
         lappend nicks @$nick
         continue
      }
      if [isvoice $nick $chan] {
         lappend nicks +$nick
         continue
      }
      if [ishop $nick $chan] {
         lappend nicks %$nick
         continue
      }
      lappend nicks $nick
   }
   return $nicks
}

ensuite en pl tu tape

Code :

.tcl channellist #salon