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

- IRCd Botlar (https://www.ircforumlari.net/ircd-botlar/)

- - Geveze Tcl (Konuşan bot) (https://www.ircforumlari.net/ircd-botlar/50615-geveze-tcl-konusan-bot.html)

Geveze Tcl (Konuşan bot)

Kanal genelindeki dönen sohbete göre konuşan / cevap veren bir tcl. uzun zaman önceki bi uğraşımdı forumda istendiğini görünce paylaşmayı uygun buldum.
geveze.tcl ile bot dosyasını scripts klasörüne atıp uygun bir conf oluşturarak çalıştırın. bot dosyası içindeki metin belgeleri (txt) isteğe göre düzenlenebilir / geliştirilebilir. aynı şekilde geveze.tcl geliştirilmeye açıktır.

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

rar şifresi : bucali

Cevap: Geveze Tcl (Konuşan bot)

Hocam bunu SöyLe bişe yapamayızmı Mesela owner olsun sadece o nick /dur /basla yani Durdurmak botu Istıyorum ıstedigim zaman CaLısmasını Istıyorum Bazen Gereksiz olabilir botun sohbet etmesi.. lazım oldugu zaman kullanamak daha uygun olabilir tşkler

Yanıt: Geveze Tcl (Konuşan bot)

Kodları açık görebildiğimiz için kendi adıma teşekkür ederim BuCaLi : )
Böylece olumlu/olumsuz eleştrilerimizi daha sağlıklı sunabiliriz bundan da herkes kazançlı çıkar sanırım..

Programlamada bir kural vardır; tek satır bile fazla kod gereksizdir ve bütün koda kötü demeye yeterlidir.. Çünkü yazılan her yazıda bot dosyayı baştan sonra okuyor ve her satır için fazladan işlem yapmış oluyor.. O yüzden sonuca gidebilecek en kısa yoldan gitmek her zaman daha iyidir..

Kod:

proc konus { nick uhost host chan arg } { 

global botnick

if {[string match -nocase "*selam*" "$arg"] || [string match -nocase "*slm*" "$arg"]} { yaz "selam.txt" $chan $nick }

if {[string match -nocase "*te?ekk*" "$arg"]} { yaz "tşk.txt" $chan $nick }

if {[string match -nocase "*tel*" "$arg"]} { yaz "telefon.txt" $chan $nick }

if {[string match -nocase "*iyi*" "$arg"] || [string match -nocase "ii*" "$arg"]} { yaz "iyi.txt" $chan $nick }

if {[string match -nocase "*nbr*" "$arg"] || [string match -nocase "*naber*" "$arg"] || [string match -nocase "*nas?ls?n*" "$arg"]} { yaz "nasılsın.txt" $chan $nick }

if {[string match -nocase "*nrd*" "$arg"] || [string match -nocase "*nerden*" "$arg"]} { yaz "nerden.txt" $chan $nick }

if {[string match -nocase "*canım*" "$arg"] || [string match -nocase "*aşkım*" "$arg"]} { yaz "aşkım.txt" $chan $nick }

if {[string match -nocase "*alo*" "$arg"]} { yaz "alo.txt" $chan $nick }

if {[string match -nocase "*or*damısın*" "$arg"]} { yaz "ordamısın.txt" $chan $nick }

if {[string match -nocase "*of*" "$arg"]} { yaz "off.txt" $chan $nick }

if {[string match -nocase "*bay*" "$arg"] || [string match -nocase "*bye*" "$arg"]} { yaz "bye.txt" $chan $nick }

if {[string match -nocase "*hyr*" "$arg"] || [string match -nocase "*hay?r*" "$arg"]} { yaz "hayır.txt" $chan $nick }

if {[string match -nocase "*neden*" "$arg"] || [string match -nocase "*ni?in*" "$arg"] || [string match -nocase "*niye*" "$arg"]} { yaz "neden.txt" $chan $nick }

if {[string match -nocase "*yaş*" "$arg"] || [string match -nocase "*asl*" "$arg"]} { yaz "asl.txt" $chan $nick }

if {[string match -nocase "*bot*" "$arg"]} { yaz "bot.txt" $chan $nick }

if {[string match -nocase "haha*" "$arg"] || [string match -nocase "hehe*" "$arg"] || [string match -nocase "*muha*" "$arg"] || [string match -nocase "*zuhah*" "$arg"] || [string match -nocase "*pohah*" "$arg"]} { yaz "komik.txt" $chan $nick }

if {[string match -nocase "ee*" "$arg"]} { yaz "eee.txt" $chan $nick }

if {[string match -nocase "ok" "$arg"] || [string match -nocase "oke" "$arg"] || [string match -nocase "*tamam*" "$arg"]} { yaz "tamam.txt" $chan $nick }

if {[string match -nocase "*merhaba*" "$arg"] || [string match -nocase "*mrb*" "$arg"]} { yaz "merhaba.txt" $chan $nick }

if {[string match -nocase "*olmaz*" "$arg"]} { yaz "olmaz.txt" $chan $nick }

if {[string match -nocase "*evlen*" "$arg"]} { yaz "evlenelim.txt" $chan $nick }

if {[string match -nocase "*gelim*" "$arg"]} { yaz "gelim.txt" $chan $nick }

if {[string match -nocase "*gidicem*" "$arg"] || [string match -nocase "*gidiyom*" "$arg"] || [string match -nocase "*gidiyorum*" "$arg"]} { yaz "gidicem.txt" $chan $nick }

if {[string match -nocase "*gelmicem*" "$arg"]} { yaz "gelmem.txt" $chan $nick }

if {[string match -nocase "*geldim*" "$arg"] || [string match -nocase "*or*dayım*" "$arg"]} { yaz "geldim.txt" $chan $nick }

if {[string match -nocase "*sıkıldım*" "$arg"]} { yaz "sıkıldım.txt" $chan $nick }

if {[string match -nocase "cevap*" "$arg"]} { yaz "cevap.txt" $chan $nick }

if {[string match -nocase "*bilmem*" "$arg"]} { yaz "bilmem.txt" $chan $nick }

if {[string match -nocase "*peki*" "$arg"]} { yaz "peki.txt" $chan $nick }

if {[string match -nocase "*olabilir*" "$arg"]} { yaz "olabilir.txt" $chan $nick }

}

Buradan başlayalım..
oradaki her kelimeyi daha öncesinde bir değişken içerisine setlemek ve o değişkendeki verileri proc içerisinde bir döngü içerisinde taratıp tek if ile olayı çözebilirdin.. örnek olarak:

Kod:

set kelimeler "selam kelam melam vs"

proc {nick uhost host chan arg} {

global kelimeler

foreach a $kelimeler {

if {[string match -nocase *$a*  $arg]} { yaz "$a.txt" $chan $nick }

}

}

Bu sadece genel mantığını göstermek için bir örnekti daha düzgün birşey çıkabilir ortaya tabiki..
Bir diğeri ise:

Kod:

utimer 1[list putserv "privmsg $chan $rmsg"]

Satırı.. Buradaki timer'ın mantığını anlamış değilim.. Eğer putserv'ı bir saniye daha geç iletmekse maksat, putserv yerine puthelp kullanıp timer kullanmaya gerek görmeyebilirdin, dediğim gibi fazladan işlem herzaman gereksizdir..

Onun haricinde emeğine sağlık ve çalışmalarında başarılar diliyorum.

Cevap: Geveze Tcl (Konuşan bot)

Anlatmaya çalıştığın sana göre ilk başta mantıklı görünmüş olabilir fakat bazı durumlarda veya ( || ) ile ayrılmış yani benzer anlamlara gelen kelimeler var ve her birinde aynı sonuca varılmasını istemişim dediğin şekilde yaparsam ya örnek veriyorum selam diyenle slm diyeni ayırt edemem yada her bi eşanlamlı sözcük için ayrı metin belgeleri oluşturmam gerekir. yinede dediğim gibi çok eskiden kalan bi çalışma üzerinde düşünme fırsatım olmadan kendim kullanmak amacıyla yaptığım bişey. yinede tşk.

Cevap: Geveze Tcl (Konuşan bot)

GüzeL ßişe Tşk Ederim ßaşarlarınızın Ve Başarılarımızın Devamını dilerim.. yaww ßunu Nasıl Sunucuya sokucaz :S

ßirde Sizden ŞöyLe ßişeyİsteyebilirmiyim komik Bot Var Mesela onun gibi Özle ßir KanaLda Eğlence Amaçlı Fıkra v.s gibi Şeyler Anlatarak Timer ile Eglendirsin gülmek Var Ölmek yok :)

Cevap: Geveze Tcl (Konuşan bot)

ilk postta nasil oldugunu açiklanmiş.

Cevap: Geveze Tcl (Konuşan bot)

Link Kırık YeniLermiSiniz ?? :) Yada eLinde Olan ßiri upLoad Edeßilirmi..

Cevap: Geveze Tcl (Konuşan bot)

nen şifresi ne bunun :D

Cevap: Geveze Tcl (Konuşan bot)

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 499062)

rar şifresi : bucali

Diyor :)

Cevap: Geveze Tcl (Konuşan bot)

Link ölü aga:D yenilermisin

Cevap: Geveze Tcl (Konuşan bot)

İlk mesajdaki link sağlam..

Cevap: Geveze Tcl (Konuşan bot)

Tcl güzel hoş olmuş ama eksik yeri var denenmemiş sanırım. Bot dosyasının içideki .txt lerden aldığını kanala yazmıyor, sadece ilk cümlesini alıyor.

Cevap: Geveze Tcl (Konuşan bot)

ya güzelde buna göre conf dosyasını nasıl yapacaz

Cevap: Geveze Tcl (Konuşan bot)

Herhangi Bir conf dosyası Bulup Çalıstırabilirsiniz. Forumda Aratırsanız, Bulursunuz.

Cevap: Geveze Tcl (Konuşan bot)

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 349311)

selam bucalı kardeşimiz elina sağlık güzel bir paylaşım yapmışsın (ama ben bunu kelime confunda çalıştırmak istedim bir türlü bot komut almıyor :S anlamadım gitti ) bu konuda yardımcı olursanız sevinirim

Cevap: Geveze Tcl (Konuşan bot)

:( Link Çalışmıyor

Cevap: Geveze Tcl (Konuşan bot)

Link sağlam. Botun çalışmaması konusunda da aldığınız bi hata mesajı vs. vermezseniz neden çalışmadığını bilemeyiz müneccim değiliz nihayetinde ;)

Cevap: Geveze Tcl (Konuşan bot)

gercekten guzel bısey olmus... ellerıne saglık... bı ıkı arkadastan duydum karısk falan dıyolar ama bence gayet basit ve kullanıslı olmus... geliştirilmeye acık demıssın eywallah sagolasın gelıstırcem gelıstırılmıs halınıde ılk sana göstercem :D

Cevap: Geveze Tcl (Konuşan bot)

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 795673)

Link sağlam. Botun çalışmaması konusunda da aldığınız bi hata mesajı vs. vermezseniz neden çalışmadığını bilemeyiz müneccim değiliz nihayetinde ;)

koptum ya huh :D

Cevap: Geveze Tcl (Konuşan bot)

aynen ya ölü :XD:D

Cevap: Geveze Tcl (Konuşan bot)

Bu tcl de botun sadece belirlenen bir kanalda mesela #sohbet kanalında konuşması için ne yapmak gerekir

Cevap: Geveze Tcl (Konuşan bot)

Kod:

proc konus { nick uhost host chan arg } { 

global botnick

hemen altına ;

Kod:

if {$chan != "#sohbet"} {return 0}

satırını eklersen sohbet kanalı dışında bi yerde çalışmaz..

Cevap: Geveze Tcl (Konuşan bot)

teşekkürler bucalı

Cevap: Geveze Tcl (Konuşan bot)

Bucali Eline Saglık Guzel Baylasım Tesekkür

Cevap: Geveze Tcl (Konuşan bot)

ben baktım güzel ama nasıl uygulamaya sokcaz ne yapıcaz ki çalışsın

Cevap: Geveze Tcl (Konuşan bot)

ben bu botun sadece özelde konuşmasını istersem ne yapmam lazım yardım edebilirmisiniz?

Cevap: Geveze Tcl (Konuşan bot)

Link Ölü indiren arkadaslar Varsa Yenilerse makbule gecer

Cevap: Geveze Tcl (Konuşan bot)

calışıyor saglam ama txt leri okumuyor yardım ederisiniz.

Cevap: Geveze Tcl (Konuşan bot)

bot klasörünü ve geveze.tcl botunuzun scripts dizinine kopyalayın scripts altında bot klasörü diye bu geveze.tcl'nin okuduğu gördüğü txt dosyalarını barındıran bir klasör oluşmuş olacak..

geveze tcl'nin içine if global botnick yazan satırın altına {$chan != "#kanalınız"} {return 0} bu satırı botun konuşmasını istediğiniz kanalınızın adını yazıp ekleyin .bot.conf unuzuda scriptlerin yazılı olduğu satıra source scripts/geveze.tcl satırı ekleyip kapıyoruz. sonra bota rehash yaptırıyoruz hepsi bu..

Cevap: Geveze Tcl (Konuşan bot)

kardeş conf u nasıl oluşturacaz. örnek verebilirmisin nasıl yapacaz onu ?

Cevap: Geveze Tcl (Konuşan bot)

her script için ayrı bir conf düzenlemeye gerek yok. elinizde bir conf varsa alttaki scripts satırına source scripts/geveze.tcl şeklinde yüklemek istediğiniz script adını girin ..elinizde bir conf yoksa forumda aratın çok sayıda örnek conf bulabilirsiniz kendinize göre düzenleyip kullanabilirsiniz.

Cevap: Geveze Tcl (Konuşan bot)

Alıntı:

feragat Nickli Üyeden Alıntı (Mesaj 1040931329)

kardeş conf u nasıl oluşturacaz. örnek verebilirmisin nasıl yapacaz onu ?

buyur kardeşim örnek bir conf.

PHP- Kodu:

###### Bilgi Satiri ##### set mod-path "modules/" set help-path "help/" set text-path "text/" loadmodule dns loadmodule channels loadmodule server loadmodule ctcp loadmodule irc loadmodule notes loadmodule console checkmodule blowfish ##### Bilgi Satiri ##### ##### Bot bilgileri ##### set nick "BotNick" set realname "2Bot İdenti" #Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa #Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir. #set my-ip "1.2.3.4" set init-server { putserv "oper opernick opersifre" putserv "PRIVMSG nickserv identify nicksifresi" } set servers { 66.90.107.187:6667 } channel add #KanalAdı { chanmode "lik" idle-kick 0 stopnethack-mode 0 } set net-type 5 set owner TimothY ##### Dosyalar ve Dizinler ##### ##### Bilgi Satiri ##### set userfile "bots.user" set chanfile "bots.chan" set temp-path "/tmp" logfile msbxco * "logs/bots.log" logfile jpk #kanaladi "logs/#kanaladi.log" set console "mkcobxs" ##### SCRIPTLER ##### source scripts/userinfo.tcl source scripts/script1.tcl source scripts/script2.tcl source scripts/script3.tcl loadhelp userinfo.help # EndOf

gerekli yerleri kendine göre düzenleyebilirsiniz.

PHP- Kodu:

source scripts/script3.tcl

bu kısımlara dikkat ediniz.Çünkü; TCL dosyalarını buradan okuturuz.

Örneğin;

PHP- Kodu:

source scripts/geveze.tcl

gibi ekleme yaparak tcl dosyasını ekleyebilirsiniz.Dikkat etiysen, botun okutulaçağı klasör scripts klasörüdür.TCL'lerini buranın içine atman gerekir.

Cevap: Geveze Tcl (Konuşan bot)

aşağıdaki eklentiden alabilirsiniz.

Cevap: Geveze Tcl (Konuşan bot)

Bu botun özelde konuşmasını sağlayamayızmı

Cevap: Geveze Tcl (Konuşan bot)

TCL'de bulunan;

PHP- Kodu:

   bind pubm - *

Kısmını

PHP- Kodu:

   bind msgm - *

Olarak değiştirin.

TCL'deki

PHP- Kodu:

   nick uhost host chan arg

Kısmını ise,

PHP- Kodu:

   nick uhost host arg

Olarak değiştirin.

PHP- Kodu:

   if {[string match -nocase "*selam*" "$arg"] || [string match -nocase "*slm*" "$arg"]} { yaz "selam.txt" $chan $nick }

Kısımlarındaki $chan kelimelerini silin,

PHP- Kodu:

   proc yaz { txt chan nick } {

Kodunu;

PHP- Kodu:

   proc yaz { txt nick } {

Olarak değiştirin ve son olarakta;

PHP- Kodu:

   [list putserv "privmsg $chan $rmsg"]

Kısmını

PHP- Kodu:

   [list putserv "privmsg $nick $rmsg"]

Olarak değiştirin.

Cevap: Geveze Tcl (Konuşan bot)

Culubber çok teşekkür ederim kurdum gayet iyi çalışıyor

Cevap: Geveze Tcl (Konuşan bot)

Culubber bişey daha rica etsem bu tcl için bot çok seri cevap veriyor bunu biraz yavaşlatamayızmı