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]]]]]"
   }
  }
 }
}