| Yanıt: Fjoİn Tcl'sİ
#--------------- USERİ KANALA ALMA ----------------
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 2 "kanalaal $kisi #kanal1"
utimer 4 "kanalaal $kisi #kanal2"
}
}
#çoklu kanal girişlerinde joinflood ile serverden atılmamak için
#ben 2 sn. aralıklarla yaptım. siz kendinize göre ayarlayın
|