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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Ocak 2009, 18:55   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Eggdrop botum Oto +ao olsun.




Selam, arkadaşlar ben basit bir eggdrop bot yapmaya çalışıyorum ihtiyaç duyduğum özellikleri eklmeye çalışıyorum, botun 1 kişi olan kanallara girmesini sağladım önceden girse daha güzel olurdu ama : ) onu yapamadım, şimdi yapmak isteidğim botun 1 kişi olan kanallara girdiğinde direk sop(+ao) konumuna kendini alması operserv yardımıyla tcl sine veya conf dosyasına eklemem gereken kodu paylaşırmısınız.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 01 Ocak 2009, 19:17   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# Odadaki user sayısı set usersayisi "1" # Genel odalar set globalkanallar { "#Sohbet" "#Oyun" } bind raw - "322" kanal_listele set listzaman 10 if {![string match "*kanal_listesi*" [utimers]]} { utimer $listzaman kanal_listesi } proc kanal_listesi {} { global listzaman putserv "LIST" utimer $listzaman kanal_listesi return 1 } proc kanal_listele {from keyword arg} { global usersayisi globalkanallar botnick set listekanaladi [lindex $arg 1] set guncelsayi [lindex $arg 2] if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0} if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} { channel add $listekanaladi { +nodesynch flood-chan 10:2 } puthelp "os mode $listekanaladi +o $botnick" puthelp "privmsg $listekanaladi Keyifli sohbetler" } if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} { channel remove $listekanaladi } else { return 0 } }

Bunu deneyin...

NOT: ScanX'ın içinden alıntı bir kod. Kod yazarı SaW'dır...

__________________
Eskiden buralar hep dutluktu...
 
Alıntı ile Cevapla

Alt 01 Ocak 2009, 19:49   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Ne yazıkki belittiğiniz kodu bende denedim ama olmadı, zaten hatırladığım kadarıyla ScanX 'de botun girdiği kanallarda sop konumuna geçmesi için botu kaydeden yani kendini tanıtan kişinin nicki ve belirlediği pass 'ı tcl de bulunan kullanıcı adı ve pass kısmına yazması gerekiyordu, aksi halde bot kanallara girip sop konumuna çıkmıyor ve bir çok koruma özelliğinide kullanamıyordu.

Benim istediğim daha basit bir işlev varsa tabi kodu, girdiği kanallarda direk sop konumuna geçmesi ama sanırım eksik bişeler var CanCeL 'inde belirttiği kodu kullanınca tekbaşına ne yazıkki herhangi bir işlev yapmıyor bot. eklememiz gereken kodlarmı var ayrıca acaba ilgin için teşekkürler CanCeL.

 
Alıntı ile Cevapla

Alt 01 Ocak 2009, 19:56   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Kullandığın tcl'yi buraya ekle, kontrol edelim...

__________________
Eskiden buralar hep dutluktu...
 
Alıntı ile Cevapla

Alt 01 Ocak 2009, 20:58   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Kullandığım tcl tümüyle ScanX botu kodlarından alınmıştır.

Tcl kodu:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
################### # Temizleme tclsi # ################### bind pub - !temizle clear #PROC proc clear {nick uhand host chan text} { if {[isop $nick $chan] == 0} {return 0} for {set x 0} {$x<30} {incr x} { putquick "PRIVMSG $chan :$x" } putquick "PRIVMSG $chan :Oda Ekranı Temizlendi.Küfür ve Kötü Söz Her Zaman Sahibine Aittir. İyi Sohbetler." } ############################################################### ## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ## ## daha fazla user olan kanala otomatik olarak girer ve ## ## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ## ############################################################### # Odadaki user sayısı set usersayisi "1" # Genel odalar set globalkanallar { "#Sohbet" } bind raw - "322" kanal_listele set listzaman 10 if {![string match "*kanal_listesi*" [utimers]]} { utimer $listzaman kanal_listesi } proc kanal_listesi {} { global listzaman putserv "LIST" utimer $listzaman kanal_listesi return 1 } proc kanal_listele {from keyword arg} { global usersayisi globalkanallar botnick set listekanaladi [lindex $arg 1] set guncelsayi [lindex $arg 2] if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0} if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} { channel add $listekanaladi { +nodesynch flood-chan 10:2 } putquick "os mode $listekanaladi $botnick" putquick "privmsg $listekanaladi Keyifli sohbetler" } if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} { channel remove $listekanaladi } else { return 0 } } #nick şifresini yazınız set ScanXsifre "budur1" if {![string match "*cycle_yap*" [timers]]} { timer [rand 5] cycle_yap } proc cycle_yap {} { global globalkanallar admin_chan set kanal [lindex $globalkanallar [rand [expr [llength $globalkanallar] + 1]]] if {$kanal != $admin_chan && $kanal != "#help"} { set ::cygir 1; putserv "cycle $kanal" utimer 5[list set ::cygir 0] } timer 5 cycle_yap } bind notc - "*bu sizin nickiniz ise*" nckidentify proc nckidentify {nick uhost hand arg dest} { global ScanXsifre if {$nick == "NickServ"} { putquick "privmsg NickServ :identify $ScanXsifre" } } bind nick - * ghostla proc ghostla {nick uhost hand chan nn} { global botnick ScanXsifre if {$nick == $botnick} { putserv "privmsg NickServ :ghost $botnick $ScanXsifre" putserv "privmsg NickServ :release $botnick $ScanXsifre" } }

ihtayaç duyduğum ve botumun özelliklerini şöyle yapmak istiyorum;
1) 2 kişinin olduğu kanallara girmesi ve sop konumuna geçmesi ( mümkünse 1 kişi olduğu kanallara girip kişi çıkıtığında kanaldan çıkması yani kendini 1 kişi olarak görmemesi)
2) Kanalı temizlemesi
3) birde mümkünse küfür koruması yapması ve özelinden veya opers kanalından !kufur ekle edilenküfür şeklinde küfürlü kelimeleri küfür listesine eklemek.

Bukadarı bana yeter ScanX in bazı özellikleri sunucumun özellikleri bakımından fazla detay ve gereksiz bir çok banlanma ve spam sorunları oluyor bu nedenle daha basite indirilmiş bir bota ihtiyaç duyuyorum.

bot operini giriyor nick şifresini giriyor ama işte işlev olarak temizleme ve 2 kişinin olduğu kanalalra giriyor. 3 cü isteğimi daha ekleyemedim araştırıyorum bilgisi olan arkadaşlar yardımcı olursa sevinirim.

 
Alıntı ile Cevapla

Alt 01 Ocak 2009, 21:08   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Alıntı:
putquick "os mode $listekanaladi $botnick"

olan satırı
Alıntı:
putquick "os mode $listekanaladi +o $botnick"

olarak değiştirin...

__________________
Eskiden buralar hep dutluktu...
 
Alıntı ile Cevapla

Alt 02 Ocak 2009, 17:18   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Değiştirdim ama değişen birşey olmadı, yine op konumuna çıkmadı, botu kanala alırken ./eggdrop -mn komutuyla loglara bakdım girişden sora mode kullanmıyor girişimdede bulunmuyor yani engelleyen birşey yok bot admin liste ekli ve services admin yetkisine sahip :s

 
Alıntı ile Cevapla

Alt 02 Ocak 2009, 19:07   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join - * kgiris proc kgiris { n u h c } { global botnick if {$n == $botnick} { putquick "os mode $c +ao $botnick $botnick" } }



Konu BuCaLI tarafından (02 Ocak 2009 Saat 22:08 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 02 Ocak 2009, 21:18   #9
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Zaten ScanX'in içinde ilgili kısım vardı onu da alsaydın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ayrı olarak istiyorsan BuCaLI'nin verdiği kodu

proc kgiris { n u h a } {


Bu kısmını;

proc kgiris { n u h c } {

Olarak değiştirip kullanabilirsin, aksi halde çalışmayacaktır.

 
Alıntı ile Cevapla

Alt 09 Ocak 2009, 20:39   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop botum Oto +ao olsun.




Daha yeni deneme fırsatı buldum ve sorunsuz şekilde oldu, teşekkürler.

Son olarak botuma !küfür ekle Küfürmesajı Şeklinde küfürlü kelimelerde kanal ban atmasını nasıl sağlayabilirim, Uyarısız direk ban atmasını istiyorum ve direk yazılan kelimede atmasını yani adi kelimesini küfür lsitesine botun eklediğimde bot adin ne sorusundada kişiyi "adi" kısmını algılayıp banlamasın istiyorum. Bu mümkünse ve elinizdeböyle bir kod mevcutsa paylaşırsanız çok sevinirim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ao, botum, eggdrop, olsun, oto


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
eggdrop botum için 2 istek aspawa Eggdrop, NeoStats, BNC 4 08 Mart 2012 19:23
Eggdrop Botum Oper girmiyor ? (Yardim Lütfen..) ByOzCaN1 Eggdrop, NeoStats, BNC 11 24 Ağustos 2008 22:20
Eggdrop botum banlananı kicklio stray89 Eggdrop, NeoStats, BNC 6 12 Ağustos 2008 00:05
eggdrop botum kanal banlarını kendisi acsin ? SurucLu Eggdrop, NeoStats, BNC 1 23 Şubat 2008 17:08
Eggdrop Botum Neden Girmiyor? Brain Eggdrop, NeoStats, BNC 1 29 Ağustos 2007 02:47