[Basarili] Bir Sunucu Eggdrop. Bakın. - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

1Casper · 26 Şubat 2007, 22:45

Selam bence bot güzel hoş olmuş ellerinize saglık...
Bot hakkında bir kaç sorum olacak
1.Botun girmesini istemediğimiz kanalları nasıl ayarlarız
2.Bot mesala kanal kayıt edilince o kanala otomatik girsin ve kendini op yapsın bu olabilirmi
3.!globalat !reklam gibi bazı komutları çalışmadı acaba sorun bendemi ?

yardımcı olursanız sevinirim...

Brain · 27 Şubat 2007, 00:51

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
bind raw - "322" kanal_listele
set listzaman 30
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 { flood-chan 10:2 }
}
if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
channel remove $listekanaladi
} else {
return 0
}
}

yayinlamadigima eminim halen evimin bir kosesinde duruyor. Inanamadim ve karsilastirdim, yani ikiz olsa bu kadar benzer degiskenler duzenek kurulmus olan mantik saskinligimi saklayamadim bunu ya sen ikizimsin yada hack yedim haberim yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

basarilar;

Bu da benim yazmis oldugumde:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 bind raw - "322" kanal_listele
set listzaman 30
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
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]} {
putlog "$listekanaladi kanalini sevdim"
channel add $listekanaladi
}
if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
channel remove $listekanaladi
putlog "$listekanaladi kanalini artik sevmiyorum"
} else {
return 0
}
}

yanlis anlama, sadece cok saskinim o kadar. olmasi gereken fonksiyon tabiki bu ben degiskenleri gorunce saskinliktan soke olmus durumdayim. basarilar.

Brain · 27 Şubat 2007, 03:07

Casper Nickli Üyeden Alıntı

Selam bence bot güzel hoş olmuş ellerinize saglık...
Bot hakkında bir kaç sorum olacak
1.Botun girmesini istemediğimiz kanalları nasıl ayarlarız
2.Bot mesala kanal kayıt edilince o kanala otomatik girsin ve kendini op yapsın bu olabilirmi
3.!globalat !reklam gibi bazı komutları çalışmadı acaba sorun bendemi ?

yardımcı olursanız sevinirim...

bind pub - !globalat globalat:msg

satirini bul

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
proc globalat:msg {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putserv "PRIVMSG operserv : global Reklam Kontrol! Lütfen bu mesaja cevap vermeyiniz."
v }
if {[onchan $n $admin_chan]==0} {
putserv "SAMODE $c +b $n"
putserv "KICK $c $n Bu komutu kullanmaya yetkiniz yok!"
}
}

yukaridaki kismi tamamiyla altta gosterdigim sekilde degistir

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !globalat globalat:msg
proc globalat:msg {n u h c a} {
global botnick admin_chan
if {[onchan $n $admin_chan]==1} {
putserv "PRIVMSG operserv : global Reklam Kontrol! Lütfen bu mesaja cevap vermeyiniz."
}
if {[onchan $n $admin_chan]==0} {
putserv "SAMODE $c +b $n"
putserv "KICK $c $n Bu komutu kullanmaya yetkiniz yok!"
}
}

kendine iyi bak dostum,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

1Casper · 27 Şubat 2007, 21:43

Adil saol dostum teşekkür ettim kaldı 2 sorum
1.Botun girmesini istemediğimiz kanalları nasıl ayarlarız
2.Bot mesala kanal kayıt edilince o kanala otomatik girsin ve kendini op yapsın bu olabilirmi

Birde botun özeline yardim yazinca help kanalına alması gerekiyor sanırım almıyor
bunu nasıl yapabiliriz ?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind pub - !help yardim:msg
bind pub - !yardim yardim:msg
bind pub - !yardım yardim:msg
proc yardim:msg {n u h c a} {
 global botnick admin_chan
 set yardim_msg [lindex $a ]
 if {[onchan $n $admin_chan]==1} {return 0}
 if {[onchan $n $admin_chan]==0} {
  putserv "sajoin $n #help"

  putserv "PRIVMSG #help 4$n sorununuz hakkında &#246;zelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. L&#252;tfen sorununuz halloldoğunda gereksiz bekleme yapmayınız!"
  putserv "GLOBOPS 4$n yardım isteğinde bulundu, otomatik olarak benim tarafımdan 12#Help4 kanalına &#231;ekilmiştir, l&#252;tfen ilgileniniz: 2!yardim $yardim_msg. ( Bu mesaj sadece sunucu yetkilelerine iletilmektedir! )"
  utimer 5[list putserv "MODE #help +v $n" -next]
  timer 2[list putserv "MODE #help -v $n"]
 }
}

Kırmızı olan kısmı şeklinde de denedim olmadı
putserv "PRIVMSG operserv : raw join $n #help"

Brain · 02 Mart 2007, 00:06

bot help kanalinda degilse bu dogru bir fonksiyon olmaz, bunun icin botun girmesini istediginiz kismi ya arkadasin dedigi gibi conf icerisinde de belirteceksiniz yada hazirlanan TCL nin en ust satirlarina botun girmesini istedigin kanallari yeniden su sekilde yazman gerekecek

channel add #help
channel add #master
channel add #baska1kanal
channel add #BuKanaladaGir

gibi cogaltilabilir, daima kalmasini istedigin kanallar buralari elbette sanirim TCL nin icinde de bu vardi admin kanallar yani girilmesini istediginiz kanallar kismi bu kisimlarida yukarida belirtilen kanal adlari ile ayni sekilde yazarsan sorunun kalmaz canim benim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

putserv "sajoin $n #help"

dogru 1 kural fakat bot o kanalda olmadigi yada valied bir kanal olmadigi icin bu sorgu hata vereceginden calismaz dedigim gibi bot o kanalda oldugu surece sorun olmamasi gerekiyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 bind pub - !help yardim:msg
 
 
 
bind pub - !yardim yardim:msg 
bind pub - !yardım yardim:msg

proc yardim:msg {n u h c a} {
global botnick admin_chan
set yardim_msg [lindex $a ]
if {[onchan $n $admin_chan]==1} {return 0}
if {[onchan $n $admin_chan]==0} {
putserv "sajoin $n #help" 
putserv "PRIVMSG #help 4$n sorununuz hakkında &#246;zelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. L&#252;tfen sorununuz halloldoğunda gereksiz bekleme yapmayınız!"
putserv "GLOBOPS 4$n yardım isteğinde bulundu, otomatik olarak benim tarafımdan 12#Help4 kanalına &#231;ekilmiştir, l&#252;tfen ilgileniniz: 2!yardim $yardim_msg. ( Bu mesaj sadece sunucu yetkilelerine iletilmektedir! )"
utimer 5[list putserv "MODE #help +v $n" -next]
timer 2[list putserv "MODE #help -v $n"]
}
}

yada sen bunu al direk olarak su sekilde duzelt. Detayli incelemedigim icin nerede ne var bilmiyorum vaktimde olmadigindan bakamiyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 bind pub - !help yardim:msg
 
 

bind pub - !yardim yardim:msg
bind pub - !yardım yardim:msg
# yardim kanalini altta belirtmen yeterli olacaktir
# diger bolumleri ellemen mesajlar disinda pek onemli 1 sey degildir
set yardim_kanali "#help"
channel add $yardim_kanali
proc yardim:msg {n u h c a} {
set yardim_msg [lindex $a ]
if {[onchan $n $yardim_kanali]==1} {return 0}
if {[onchan $n $yardim_kanali]==0} {
putserv "sajoin $n $yardim_kanali"
putserv "PRIVMSG $yardim_kanali :4$n sorununuz hakkında &#246;zelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. L&#252;tfen sorununuz halloldoğunda gereksiz bekleme yapmayınız!"
putserv "GLOBOPS 4$n yardım isteğinde bulundu, otomatik olarak benim tarafımdan 12$yardim_kanali4 kanalına &#231;ekilmiştir, l&#252;tfen ilgileniniz: 2!yardim $yardim_msg. ( Bu mesaj sadece sunucu yetkilelerine iletilmektedir! )"
}
}

sanirim sorun cikarmayacaktir.

Bu arada sorun icerisindeki 2. $Ik olmasi cok zor bir olay Unutsan ii olur
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(eggdrop icin, servisler uzerinde duzenleme yapilmalidir.)

aRdeTH_ · 04 Mart 2007, 20:37

ÇoK Guzel Bi eggdrop OLdukça işime yaraDı. paylaşım için tşkrler.
Ama Ben Bazı özelliklerinin Çalışmadıgını Gördüm örn:!temizle !bansil g Glineler açıLmadı. ve buna benze bi kaç komut daha.

1Casper · 05 Mart 2007, 00:07

Evet bende de bir çok komut çalışmıyor Bot tam anlamıyla çalışsa süper bişey olacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

aRdeTH_ · 05 Mart 2007, 17:23

Arkadaşlar Eggdrop Oyun Botunu atıyo. [17:06:32] *** SoruCevap ScanX Tarafından Kanaldan Atıldı (*Çok uzun yazı*. (0.042 saniyede 393 karakter) - 10 dakika Banlandınız. ::Kick no: ·289·)Oyun Botuna Netadmin ekledim +q verdim yine atıLDı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bi çözüm bulamadım yardımcı Olursanız sevinirim.

NeTDeLiSi · 05 Mart 2007, 18:09

Bence Koruma botunu oyun kanalına sokma neden dicen oyun botu bi site ismi sorsa reklam içeren birşey sorsa direk sunucudan atar bu dediğin ayarıda tcl den çözebilirsin sanırım bot bende yok indiricem tam net bilgi vermeye çalışırım

NeTDeLiSi · 05 Mart 2007, 18:18

Buldum Tcl Içinde Yanılmıyorsam Şu Satırdan Ayar Yapıcaksın Aşağıda Vericem ;

Alıntı:

#
## 2 ## Text flood (chars)
#

# Use .chanset #channel ap:textc <chars>:<seconds> (in DCC, 0:0 to disable)
# Set default rate here:
lappend ap:udefs {ap:textc 350:2}

# Text flood (chars) punishment method:
set textc(pmeth) 4

# Text flood (chars) bantype.
set textc(btype) 2

# Text flood (chars) ban time in minutes. (0 for no ban time)
set textc(btime) 10

# Text flood (chars) kick msg.
set textc(kmsg) "*Çok uzun yazı*. $kckcount(form)"

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
eggdrop sunucu koruma botu yardım	amonhutep	Eggdrop, NeoStats, BNC	0	19 Ekim 2016 02:34
Eggdrop Sunucu Hatasi	Req2uest	Eggdrop, NeoStats, BNC	2	07 Ağustos 2013 08:06
eggdrop sunucu botu lazım arkadaşlar	maxiumut	Eggdrop, NeoStats, BNC	4	26 Ekim 2009 20:10
basarili olana odul var...hadi bakalim	diEfoRyoU	Online Oyunlar	8	03 Temmuz 2007 05:50

Konuyu Toplam 3 Üye okuyor. (0 Kayıtlı üye ve 3 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.