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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - tcl istek (https://www.ircforumlari.net/eggdrop-neostats-bnc/38838-tcl-istek.html)

arkadaşlar elinde şöle bir tcl olan varmı mesela biri sohbet kanala girip selam yada s.a dediği zaman koruma botu Selam Ncik sohbet kanalımıza hoşgeldiniz bye dediği zamanda mesela ona göre benim istediğim yazıyı yazcak elinde bu şekilde bir tcl olan varmı . teşekkür ederim

Cevap: tcl istek

Buyur Gada Kendine Göre Editlersin

Cevap.tcl

PHP- Kodu:

    
set ai_data {
# Karsilik verilecek kelimeleri yada cumleri yazarken dikkat edin.
# Ornegin, *selam* seklinde bir kelime girerseniz bot hem selam diyenlere
# hem selamlar diyenlere hemde a.selam diyenlere cevap verecektir.
# ayrica parantezlerede dikkat etmeyi unutmayin.
 {  
   "merhaba" {
   "sanada merhaba"
   "iyi gunler"
  }
 }
 
 {
  "selam*" {
   "sanada selam"
   "selam"
  }
 }
 
 {
  "*aaa" {
   "xxxx"
   "yyyyyyyyy"
  }
 }
 
}
# Bu ozelligin aktif olacagi kanllari girin
set ai_chans "#testkanali1 #testkanali2"
# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!!!
bind pubm - * pub_ai
putlog "*** Ai.tcl 0.1 by KuNgFo0 loaded"
proc pub_ai {nick uhost hand chan arg} {
 global ai_data ai_chans botnick
 if {(([lsearch -exact [string tolower $ai_chans] [string tolower $chan]] != -1) || ($ai_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
  foreach i $ai_data {
   if {[string match [string tolower [lindex $i 0]] [string tolower $arg]]} {
    putserv "PRIVMSG $chan :[subst [lindex [lindex $i 1] [rand [llength [lindex $i 1]]]]]"
   }
  }
 }
}

Cevap: tcl istek

çok sağol arkadaşım ben bir deniyeyim paylaşımın içinde tekrradan teşekkürler

Cevap: tcl istek

kardeşim tcl çok güzel işe yarıyo aşağıdakileri bye diye değiştim metnide değiştim cevap veriyo ama bir türlü selam a cevap vermiyo sebep nedir acaba

Cevap: tcl istek

neyse kardeşim çok sağol paylaşımın için s.a sa. ilede hallettik çok teşekkürler :)