Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw - NOTICE acobaglan
proc acobaglan {from keyword text} {
set text [split $text]
set what [join [lrange $text 4 5]]
if {$what == "Client connecting:"} {
set nick [lindex $text 6]
putserv "SAJOIN $nick #kanaladi
}
}
bu sekilde herhangi bir tcl dosyasinin icine atin
Bot Oper ve baglanti mesajlarini gormesi icin +c modunda ise baglanan kullanicilari kanaladi kanalina atacaktir
NOT denemedim ama calisacaktir.