###############################################################
## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ##
## daha fazla user olan kanala otomatik olarak girer ve ##
## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ##
###############################################################
set usersayisi 5
bind raw - "322" kanal_listele
set listzaman 30
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 botnick
set listekanaladi [lindex $arg 1]
set guncelsayi [lindex $arg 2]
if {[lsearch -exact [string tolower $listekanaladi]] != -1} {return 0}
if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {
channel add $listekanaladi { +nodesynch flood-chan 10:2 }
}
if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
channel remove $listekanaladi
} else {
return 0
}
}