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
}
}
}
}
|