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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - [Basarili] Bir Sunucu Eggdrop. Bakın. (https://www.ircforumlari.net/eggdrop-neostats-bnc/27516-basarili-bir-sunucu-eggdrop-bakin.html)

Yanıt: [Basarili] Bir Sunucu Eggdrop. Bakın.

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...

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

ikizmiyiz ;)

Kod:

 

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 :)

basarilar;

Bu da benim yazmis oldugumde:

Kod:

 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.

Cevap: Yanıt: [Basarili] Bir Sunucu Eggdrop. Bakın.

Alıntı:

Casper Nickli Üyeden Alıntı

bind pub - !globalat globalat:msg

satirini bul

Kod:

 

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- Kodu:

   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, ;)

Yanıt: [Basarili] Bir Sunucu Eggdrop. Bakın.

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:

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 özelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. Lü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 çekilmiştir, lü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"

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

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 ;)

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:

 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 özelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. Lü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 çekilmiştir, lü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 ;)

Kod:

 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 özelime Yardim yazarak gereken bilgiyi edinebileceğiniz gibi birazdan online yetkililerimiz de sizinle ilgilencektir. Lü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 çekilmiştir, lü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 ;) (eggdrop icin, servisler uzerinde duzenleme yapilmalidir.)

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

Ç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.

Yanıt: [Basarili] Bir Sunucu Eggdrop. Bakın.

Evet bende de bir çok komut çalışmıyor Bot tam anlamıyla çalışsa süper bişey olacak :(

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

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ı :( bi çözüm bulamadım yardımcı Olursanız sevinirim.

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

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

Cevap: [Basarili] Bir Sunucu Eggdrop. Bakın.

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)"