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

4Beğeni(ler)
  • 1 Post By saywhat
  • 1 Post By saywhat
  • 1 Post By InvISIbLe_
  • 1 Post By saywhat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 12 Ocak 2014, 01:27   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Ocak 2014, 16:01   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze.tcl yardım.




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

 
Alıntı ile Cevapla

Alt 15 Ocak 2014, 01:11   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 15 Ocak 2014, 07:17   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze.tcl yardım.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set dosyalist [split [read -nonewline [open "scripts/bot/$txt" r]] \n]

satırını ->

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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...

 
Alıntı ile Cevapla

Alt 20 Ocak 2014, 17:11   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze.tcl yardım.




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ç

 
Alıntı ile Cevapla

Alt 20 Ocak 2014, 18:54   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze.tcl yardım.




özel mesaj demişsiniz :

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 }


 
Alıntı ile Cevapla

Cevapla

Etiketler
geveze.tcl, gevezetcl, tcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık