[lsn]

hai sa incercam ceva mai simplu .......

set schan "#bla"
bind join - * admin:check
proc admin:check {nick uhost hand chan} {
   global schan
   if {![string equal -nocase $chan $schan]} {return}
   if { [matchattr $hand vl|vl $chan]} {return}
   set admins ""
   foreach u [userlist vl-b|vl $chan] {
                if {[handonchan $u $chan]} {lappend admins "[hand2nick $u $chan],"}
   }
   if {![llength $admins]} {puthelp "NOTICE $nick :Nu este nici un admin online ....."} {puthelp "NOTICE $nick :Adminii online sunt: [string trimright $admins ","] ....."}
}