Çevrimdışı

Daha önce elimde bulunan bir tcl editi bu, yazarı sanırım GemLik idi emin değilim. Ama işini görür. svspart kısmına çıkarıcağın kanalları, svsjoin kısmına ise gireceği kanalları yaz. "os raw svsjoin" yerine "sajoin" de kullanabilirsin.

Alıntı:

set opnick { "NickYaz" } bind join - * baglanti2 proc baglanti2 {nick uhost hand chan } { global opnick botnick if {(![matchattr $hand b]) && ($nick != $botnick)} { foreach opchange [string tolower $opnick] { if {[string match *$opchange* [string tolower $nick]]} { putserv "os raw svspart $opnick #Kanal1,#Kanal2,#Kanal3 putserv "os raw svsjoin $opnick #Kanal1,#Kanal2,#Kanal3 return 0 } } } }