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

10Beğeni(ler)

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


Konu BuCaLI tarafından (11 Nisan 2009 Saat 11:32 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 13 Şubat 2008, 04:30   #2
Çevrimdışı
Yardımcı Admin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

Alt 13 Şubat 2008, 18:32   #3
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

Alt 13 Şubat 2008, 20:19   #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 (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.

 
Alıntı ile Cevapla

Alt 29 Nisan 2008, 01:25   #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 (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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 29 Nisan 2008, 11:00   #6
Çevrimiçi
Bir Adanalı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze Tcl (Konuşan bot)




ilk postta nasil oldugunu açiklanmiş.

__________________
"Her bir fikir, bin dönüşüm başlatır; her kelime, yeni bir ufuk açar ve dünyayı şekillendirir. Bizim sözlerimiz değişimi taşıyan rüzgarlar gibidir, geleceği oluşturan temel taşlardır."
 
Alıntı ile Cevapla

Alt 03 Temmuz 2008, 21:06   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze Tcl (Konuşan bot)




Link Kırık YeniLermiSiniz ??
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yada eLinde Olan ßiri upLoad Edeßilirmi..

 
Alıntı ile Cevapla

Alt 15 Kasım 2008, 13:08   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze Tcl (Konuşan bot)




nen şifresi ne bunun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 15 Kasım 2008, 14:22   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze Tcl (Konuşan bot)




BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
rar şifresi : bucali

Diyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 01 Aralık 2008, 03:31   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Geveze Tcl (Konuşan bot)




Link ölü aga
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yenilermisin

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, konusan, tcl, geveze, konuşan


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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Konuşan Bot toXic IRCd Botlar 10 01 Ekim 2023 15:22
konuşan bot muratt_aziz mIRC Scripting Sorunları 8 23 Mayıs 2009 02:38
konuşan bot narkoz_ Eggdrop, NeoStats, BNC 7 15 Mayıs 2007 19:36