Ç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
}

 

Çevrimdışı

-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

Çevrimdışı

Saywhat sağolasın oldu. Yalnız ufak bir sıkıntı var. mesela şu şekilde dediğiniz gibi yaptım.



setudef flag konus

bind pubm - "*" konus

proc konus {nick uhost hand chan text} {
if {![channel get $chan konus]} { return;}
if {[string match -nocase "selam*" $text] || [string match -nocase "slm" $text] || [string match -nocase "merhaba" $text] || [string match -nocase "mrb" $text] || [string match -nocase "meraba" $text]} { yaz "selam.txt" $chan $nick }
if {[string match -nocase "off*" $text] || [string match -nocase "ufff*" text]} { yaz "off.txt" $chan $nick }
if {[string match -nocase "by" $text] || [string match -nocase "*bye*" $text] || [string match -nocase "hoşçakalın" $text]} { yaz "bye.txt" $chan $nick }
if {[string match -nocase "hoşçakalın*" $text] || [string match -nocase "hoscakalin*" $text]} { yaz "gonderim.txt" $chan $nick }
if {[string match -nocase "haha*" $text] || [string match -nocase "hehe*" $text]} { yaz "komik.txt" $chan $nick }
}


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


Txt dosyalarının içinde $nick diyerek mesaja karşılık vermişim. örneğin; kişi "hoşçakal" dediği zaman "güle güle $nick .." diyerek belirtmişiz. kanalda $nick diye çıkıyor. Daha önce kişinin nickini söylüyordu. Bu konudada yardım ederseniz sevinirim iyi çalışmalar.

 

Çevrimdışı

satırını ->


olarak değişin.. txt.dosyasında $variable-lar olabileceğini hesaba katmamıştım. neden txt okutmada subst kullanıldığı şimdi açıklığa kavuştu...

 

Çevrimdışı

saywhat Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sen başkasına diyeceğine ilk baş kendin özelini aç

 

Çevrimdışı

özel mesaj demişsiniz :


bu yukardakiyle botun özeline atılan tüm mesajlar resimlerde görüldüğü şekilde botun sahibinin özeline bot tarafından iletilir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yok benim belirleyeceğim bir kanala gitsin diyorsanızda: