| Cevap: TCL scripting öğrenmek istiyorum
[20:42:10] -irc.testsunucusu.com- Namesis (TRyiz@88.888.88.rk17
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
is doing a whois on you
CR'de gelen notice bu sekilde.
bind raw * notice procismi
proc procismi {text} {
if {[string match -nocase "*is doing a whois on you*" $text]} {
set nick [lindex $text 1]
putquick "PRIVMSG #Opers :$nick bana whois cekti."
}
}
Bu code ise CR'de calisacaktir.
|