Eggdrop Botunuz Konu$sun :)

[SqL]

#######################################
# Ai.tcl 0.1 by AyAz
#
# Set the next lines as the triggers and random responses you want
#
################################################## #################
# Translated to Turkish - AyAz [ Ayaz@medyashell.com) #
# Turkcelestiren - AyAz - AcuSy #
# Bu dosya http://www.MedyasheLL.Com adresinden cekilmistir. #
#
# Bu script botun kanalda gecen konusmalara cevap verebilmesini saglar.
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 AyAz 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]]]]]"
}
}
}
}



k£Limeler Az ama siz istediqiniz qißi ßüyüteßiLirsiniz..

AyAz we AcuSy Arkada$Lara T$k £derim Türkceye cevirdikLeri icin


<SqL> merhaba
<Koruma> iyi gunler
<SqL> aaa
<Koruma> yyyyyyyyy

Sayqilar.

[SqL]

# Simple script that allows you to ask questions from bot.
# Say !ask <your question>. By: AyAz
################################################## ###############
# Translated to Turkish - By AyAz ayaz@medyashell.com #
# Turkcelestiren - By AyAz #
# Bu dosya http://www.MedyasheLL.com adresinden cekilmistir. #
#
# Ne sorulurs asorulsun botunuz tum sorulara siyasetci! cevabi veriyor
# kullanimi !ask <sorulacak soru> seklinde.
set sanat {
"Hayir."
"Evet."
"Belki."
"Olabilir."
"Mumkundur."
"Buyuk ihtimalle evet."
"Bilmiyorum."
"Pek degil."
"Her seyi bilemem."
"Bir baskasina sorun."
"Bir baskasina sorun, cok yoruldum."
"Bana biraz para ver ve yeniden sor."
"Boyle aptalca sorular sorma."
"Ne desem yalan olur."
"Bosver bunlari."
"Cevap yok."
"Surem ne kadar?"
"Pas."
"Uc kurusa bes kofte, yok oyle..."
"sence?"
"Dusunmek lazim."
"Goggle :)"
"Cevap vermeyecegim."
}
# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!
bind pub - !ask tell_that
proc tell_that {nick uhost hand chan $rand} {
global sanat
putchan $chan "$nick, [lindex $sanat [rand [llength $sanat]]]"
}


Arkada$lar ßunu az önce caLdim :D kuLLanımı icinde yazior Ama qine ßen söLim

!ask soruLacak Soruyu yaziosun O Sana ßurda yaziLan cvpLardan ßirini söyLüor in$ i$inize yarar sayqilar.