Cevap: TCL scripting öğrenmek istiyorum
Evet aynen oyle. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu arada ismim Ilker degil, Dincer. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir ornek daha verelim. [01:12] -NOTICE- *** Notice -- Namesis used SAJOIN to make SenALi join #tryiz_sohbet bind raw * notice procismi
proc procismi {text} {
if {[string match -nocase "*used SAJOIN to*" $text]} { set cekennick [lindex $text 4]
set cekilennick [lindex $text 9]
set cekilenkanal [lindex $text 11]
putquick "PRIVMSG #Opers :$cekennick nickli oper, $cekilennick nickli kullaniciyi $cekilenkanal kanalina cekmistir. Bilginize."
}
}
Konu ¿ tarafından (24 Ekim 2009 Saat 23:30 ) değiştirilmiştir.
|