# Odadaki user sayısı
set usersayisi "1"
# Genel odalar
set globalkanallar {
"#Sohbet"
"#Oyun"
}
 
bind raw - "322" kanal_listele
set listzaman 10
if {![string match "*kanal_listesi*" [utimers]]} {
 utimer $listzaman kanal_listesi
}
proc kanal_listesi {} {
 global listzaman
 putserv "LIST"
 utimer $listzaman kanal_listesi
 return 1
}
proc kanal_listele {from keyword arg} {
 global usersayisi globalkanallar botnick
 set listekanaladi [lindex $arg 1]
 set guncelsayi [lindex $arg 2]
 if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0}
 if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {
  channel add $listekanaladi { +nodesynch flood-chan 10:2 }
puthelp "os mode $listekanaladi +o $botnick"
puthelp "privmsg $listekanaladi Keyifli sohbetler"
 }
 if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
  channel remove $listekanaladi
 } else {
  return 0
 }
}