Çevrimdışı

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
}