Dün bu dediğini kendimde yaptim caListi suan kuLLanıyorum kodLarını vereyim uyguLa istersen...
Conf için :
putserv "umode +tc-x";
Tcl için :
#--------------- 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 2 "kanalaal $kisi #kanal2"
utimer 2 "kanalaal $kisi #kanal3"
utimer 2 "kanalaal $kisi #kanal4"
}
}
-IRC.*****.Com- *** Notice --- Selin!Tikky@IRC.****cOm forces
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. to join #Sohbet