[Raymon]

Merhabalar. Bu tcl'e cevap vermesi gereken kanalları eklemek mümkünmü? Ayrıca tek kişiden gelen konuşmayıda sürekli algılayıp cevap veriyor. Bunun önüne geçebilirmiyiz?. Yardımı olan herkese şimdiden teşekkürler, iyi çalışmalar.





bind pubm - * konus

proc konus { nick uhost host chan arg } {
global botnick

if {[string match -nocase "selam*" "$arg"]} { yaz "selam.txt" $chan $nick }

}

putlog "================================================= ======"
putlog "Geveze"
putlog "================================================= ======"

proc yaz { txt chan nick } {
global botnick
set dosyaoku [open scripts/bot/$txt r]
set dosyalist [split [subst -nocommands [read $dosyaoku]] "\n"]
set rmsg [lindex $dosyalist [rand [llength $dosyalist]]]
utimer 1[list putserv "privmsg $chan $rmsg"]
close $dosyaoku
}