IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Geveze.tcl yardım. (https://www.ircforumlari.net/tcl-scriptler/560545-gevezetcl-yardim.html)

Geveze.tcl yardım.

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
}

Cevap: Geveze.tcl yardım.

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

Cevap: Geveze.tcl yardım.

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.

Cevap: Geveze.tcl yardım.

Kod:

set dosyalist [split [read -nonewline [open "scripts/bot/$txt" r]] \n]

satırını ->

Kod:

set dosyalist [split [subst -nocommands [read [open "scripts/bot/$txt" 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...

Cevap: Geveze.tcl yardım.

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041382267)

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

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

Cevap: Geveze.tcl yardım.

özel mesaj demişsiniz :

Kod:

bind msgm - "*" egg_priv
 

proc egg_priv {nick uhost hand text} {

 puthelp "privmsg $::owner :$::botnick PM by $nick $uhost -> $text"

 return 0

 }

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:

Kod:

set kanal "#kanalim"
 

bind msgm - "*" egg_priv
 

proc egg_priv {nick uhost hand text} {

 puthelp "privmsg $::kanal :$::botnick PM by $nick $uhost -> $text"

 return 0

 }