Code:

# FILENAME: CHANCOUNT.TCL# VERSION:  0.8 (BETA)# DATE:     8/18/2002# AUTHOR:   Mapherick^ApL <mapherick at apl-productions.org># PURPOSE:  To puts the current number of people in a predefined (list of) channel(s)# $cc_outptfile: filename to write to# $cc_outptpath: path to outputfile from your eggdrop dirset cc_outptpath ""set cc_outptfile "numusers.dat"# $cc_chanlist# List of channels to monitor (ommit #)set cc_chanlist {my_chan_1 my_chan_2 my_chan_3}bind join - * cc_joinbind part - * cc_partbind sign - * cc_signproc cc_countusers {chan} {  global cc_outptfile cc_outptpath  set cc_numusers 0  set cc_nicks [chanlist "\#$chan"]  foreach n $cc_nicks {incr cc_numusers}  set c [catch {set fd [open "$cc_outptpath$chan.$cc_outptfile" w]} reason]  if $c {    set msg "CHANCOUNT.TCL: ERROR: Error opening outpt file"    putlog $msg    catch {if [info exists fd] {close $fd}}    return 0  } else {    puts $fd $cc_numusers    catch {close $fd}  }  return 0}proc cc_join {nick uhost handle chan} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}proc cc_part {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}  return 0}proc cc_sign {nick uhost handle chan msg} {  regsub -all "\#" $chan "" chan  global cc_chanlist  if {[lsearch $cc_chanlist $chan] != -1} {cc_countusers $chan}   return 0}