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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Eggdrop yansıtma (https://www.ircforumlari.net/eggdrop-neostats-bnc/518200-eggdrop-yansitma.html)

Rhall

23 Aralık 2012 01:24

Eggdrop yansıtma

Şöyle bir şeyle ugrastık hiç yapamadık. Bana yardımcı olabilir misiniz lütfen.

Opers kanalında operler

!kline nick <Sebep>

şeklinde kullanıcıyı atıcaklar ve sebepleri #x kanalına yansıyacak bunu nasıl yapabilirim ?

Şimdiden teşekürler

Rhall

24 Aralık 2012 04:30

Cevap: Eggdrop yansıtma

Yardım edicek yok mu

Xpyhre

24 Aralık 2012 05:30

Cevap: Eggdrop yansıtma

Alıntı:

Rhall Nickli Üyeden Alıntı (Mesaj 1041261247)

Yardım edicek yok mu

PHP- Kodu:

   bind pub - !kill uzaklas
#Komut algılama
proc uzaklas {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "privmsg $chan : $text Basariyla Banlandi $nick"
putquick "kill $text"
}

#Opers kanalinda op olan operler kullanabilir. Yalniz #x kanalina değilde opers kanalina yansitabilir. Sen dene kodlari ne gibi sıkıntı varsa uğraşiriz.

Rhall

24 Aralık 2012 22:18

Cevap: Eggdrop yansıtma

Çok teşekkür ederm. Şu şekilde mi işlev örnek vereyim > !kill Ahmet Sunucu kurallarına uymadığından banlandı. #Opers kanalına bu neden mi yazıcak ?

Xpyhre

25 Aralık 2012 03:24

Cevap: Eggdrop yansıtma

Alıntı:

Rhall Nickli Üyeden Alıntı (Mesaj 1041261635)

Çok teşekkür ederm. Şu şekilde mi işlev örnek vereyim > !kill Ahmet Sunucu kurallarına uymadığından banlandı. #Opers kanalına bu neden mi yazıcak ?

Botu hangi kanala sokarsanız oraya yazar sen dene, olumlu veya olumsuz sonuclari buraya yazarsin.

saywhat

25 Aralık 2012 10:24

Cevap: Eggdrop yansıtma

çalışıp çalışmadığını bilmiyorum denemedim...deneyin sorun varsa burda aldığınız hatayı belirtin.gerekeni yaparız.

!kill nick sebep komutunu hangi kanalda kullanmak istiyorsanız bota telnet/dcc üzerinden .chanset #kanal +killkanal komutuyla aktif etmelisiniz.

set kill(yansıtma) "#kanal-adi" kısmınada hangi kanala killlerin yansıtılmasını istiyorsanız o kanal adını girin kodu bota yüklemeden evvel*.

Kod:

namespace eval ::kill {}

 

set kill(semb) "!"

set kill(yansitma) "#kanal-adi"

 

setudef flag killkanal

 

bind pub -|- $kill(semb)kill ::kill::at

 

proc ::kill::at {nick host hand chan text} {

  global botnick

 if {![channel get $chan killkanal]} { return }

  set knick [lindex $text 0]

  set sebep [split $text]

   if {$sebep == ""} {

    puthelp "notice $nick lütfen bir sebep belirtin. kullanimi: $kill(semb)kill nick sebep"

   return 0

   }

   if {[regexp -nocase $botnick $knick]} { 

     putserv "notice $nick yok artık LeBron James $nick :p"

 return 0

    }

   putnow "kill $knick $sebep"

   putserv "privmsg $kill(yansitma) $nick tarafindan $knick 'e kill atildi saat : [clock format [clock seconds] -format %H:%M:%S] sebep : $sebep"

   }

 }

saywhat

25 Aralık 2012 17:13

Cevap: Eggdrop yansıtma

sabah kalkar kalkmaz yazınca böyle yamuk olmuş.dışarı çıkmam lazımdı şimdi döndüm eksikleri giderdim.biraz renk ekledim alladım pulladım.ama gene denemedim bende oper bot yok bu haliyle deneyin.

Kod:

namespace eval kill {

    foreach p [array names kill *] { catch {unset kill($p)} 

 }

 

 variable kill

 array set kill {

        yansitma #kanal-adi-girin

        semb "!"

        renk1 \00314

        renk2 \00303

}

 

setudef flag killkanal

 

bind pub -|- $kill(semb)kill ::kill::at

 

proc ::kill::at {nick host hand chan text} {

 variable kill knick

  global botnick

   if {![channel get $chan killkanal]} { 

  return

 }

   set knick [lindex $text 0]

   set sebep [lrange $text 1 end]

    if {$sebep == ""} {

 puthelp "notice $nick $kill(renk1) lütfen bir sebep belirtin. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"

 return 0

 }

   if {[regexp -nocase $botnick $knick]} {

   putserv "notice $nick $kill(renk1) yok artık LeBron James $nick $kill(renk2) :p"

    return 0

 }

 putnow "kill $knick $sebep"

 }

  putserv "privmsg $kill(yansitma) $kill(renk1) $nick $kill(renk2) tarafindan $kill(renk1) $knick $kill(renk2)'e kill atildi "

  putserv "privmsg $kill(yansitma) $kill(renk1) saat :$kill(renk2) [clock format [clock seconds] -format %H:%M:%S] $kill(renk1) sebep : $kill(renk2) $sebep"

 }

 

 putlog "telasa mehal yok...asais berkemal..."

Rhall

25 Aralık 2012 19:30

Cevap: Eggdrop yansıtma

Hata veriyor

Kod:

Can't read "knick": no such veriable while executing

"putserv "privmsg $kill(yansitma) $kill(renk1) $nick $kill(renk2) tarafindan $kill(renk1) $knick $kill(renk2) ' e kill atildi ""

(in namespace eval ": :kill" script line 35)

       invoked from within

"namespace eval kill {

        foreach p [array names kill *] { catch {unset kill ($p) }

}

veriable kill

array set kill {

yansitma #kanal

..."

CLubber

25 Aralık 2012 20:54

Cevap: Eggdrop yansıtma

Kod:

set kline(oper) "#Opers"
 

set kline(logs) "#Operlog"
 

set kline(komut) "!kline"
 

bind pub - $kline(komut) kline:ekle

proc kline:ekle {nick uhost handle chan text} {

  global botnick kline

  set person [lindex $text 0]

  set reason [lrange $text 1 end]

  if {[string match -nocase "$kline(oper)" $chan]} {

    if {[string match -nocase "" $person] || [string match -nocase "" $reason]} {putquick "PRIVMSG $kline(kanal) :İstediğiniz bir kullanıcıya kline atmak için komutu doğru kullanınız. Kullanımı: <$kline(komut) nick sebep>";return}

    putquick "KLINE $person $reason"

    putquick "PRIVMSG $kline(logs) :› Bilgi: $person nickli kullanıcıya $nick tarafından ($reason) sebebi ile kline atılmıştır."  

  }

}

putlog "Kline TCL - Written By CLubber"

saywhat

25 Aralık 2012 21:24

Cevap: Eggdrop yansıtma

ech nasıl atlamışım.şimdi tamam bu kez denedim.tesisatçıyı getirdim eve bir petek patlamış su akıtıyordu değiştirdik ev battı :Ğ

Kod:

# killin yansıtılacağı kanalı #deneme yerine yazmalısınız

# !kill komutu hangi kanal/larda kullanmak istiyorsanız,

# .chanset #kanal +killkanal ile seçmelisiniz.

 

namespace eval kill {

    foreach p [array names kill *] { catch {unset kill($p)} 

 }

 

 variable kill

 array set kill {

        yansitma #deneme

        semb "!"

        renk1 \00314

        renk2 \00303

}

   variable knick {}

 

   variable sebep {}

 

setudef flag killkanal

 

bind pub -|- $kill(semb)kill ::kill::at

 

proc ::kill::at {nick host hand chan text} {

  variable kill

  global botnick

   if {![channel get $chan killkanal]} { 

  return

 }

   set knick [lindex $text 0]

   set sebep [lrange $text 1 end]

     if {$sebep == ""} {

 puthelp "notice $nick $kill(renk1) lütfen bir sebep belirtin. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"

 return 0

 }

 if {$knick == ""} {

 puthelp "notice $nick $kill(renk1) nick girmediniz. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"

 return 0

 }

    if {[regexp -nocase $botnick $knick]} {

   putserv "notice $nick $kill(renk1) yok artık LeBron James $nick $kill(renk2) :p"

    return 0

 }

 putnow "kill $knick $sebep"

 }

     putserv "privmsg $kill(yansitma) $kill(renk1) $nick $kill(renk2) tarafindan $kill(renk1) $knick $kill(renk2)'e kill atildi "

  putserv "privmsg $kill(yansitma) $kill(renk1) saat :$kill(renk2) [clock format [clock seconds] -format %H:%M:%S] $kill(renk1) sebep : $kill(renk2) $sebep"

 }

 

 putlog "telasa mehal yok...asais berkemal..."

CLubber'ınkide bu yukardaki aynı işi görür.kulağınızı göstermenin iki farklı yolu (bugün mazoistliğim üstümde olduğu için acılı yolu seçtim sadece.):p

not CLubber'ın verdiği kodda bi karışıklık olmuş:

Kod:

if {[string match -nocase "$kline(kanal)" $chan]} {

yerine

Kod:

if {[string match -nocase "$kline(oper)" $chan]} {

oper yerine kanal olarak yazılmış onu değişirseniz sorun çıkmaz.
bide privmsg $kline(kanal) yerine de aynı değişiklik yapılmalı.kanal yerine oper gelecek yani.

Rhall

26 Aralık 2012 01:58

Cevap: Eggdrop yansıtma

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041261923)

ech nasıl atlamışım.şimdi tamam bu kez denedim.tesisatçıyı getirdim eve bir petek patlamış su akıtıyordu değiştirdik ev battı :Ğ

Kod:

# killin yansıtılacağı kanalı #deneme yerine yazmalısınız

# !kill komutu hangi kanal/larda kullanmak istiyorsanız,

# .chanset #kanal +killkanal ile seçmelisiniz.

 

namespace eval kill {

    foreach p [array names kill *] { catch {unset kill($p)} 

 }

 

 variable kill

 array set kill {

        yansitma #deneme

        semb "!"

        renk1 \00314

        renk2 \00303

}

   variable knick {}

 

   variable sebep {}

 

setudef flag killkanal

 

bind pub -|- $kill(semb)kill ::kill::at

 

proc ::kill::at {nick host hand chan text} {

  variable kill

  global botnick

   if {![channel get $chan killkanal]} { 

  return

 }

   set knick [lindex $text 0]

   set sebep [lrange $text 1 end]

     if {$sebep == ""} {

 puthelp "notice $nick $kill(renk1) lütfen bir sebep belirtin. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"

 return 0

 }

 if {$knick == ""} {

 puthelp "notice $nick $kill(renk1) nick girmediniz. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"

 return 0

 }

    if {[regexp -nocase $botnick $knick]} {

   putserv "notice $nick $kill(renk1) yok artık LeBron James $nick $kill(renk2) :p"

    return 0

 }

 putnow "kill $knick $sebep"

 }

     putserv "privmsg $kill(yansitma) $kill(renk1) $nick $kill(renk2) tarafindan $kill(renk1) $knick $kill(renk2)'e kill atildi "

  putserv "privmsg $kill(yansitma) $kill(renk1) saat :$kill(renk2) [clock format [clock seconds] -format %H:%M:%S] $kill(renk1) sebep : $kill(renk2) $sebep"

 }

 

 putlog "telasa mehal yok...asais berkemal..."

Kod:

if {[string match -nocase "$kline(kanal)" $chan]} {

yerine

Kod:

if {[string match -nocase "$kline(oper)" $chan]} {

oper yerine kanal olarak yazılmış onu değişirseniz sorun çıkmaz.
bide privmsg $kline(kanal) yerine de aynı değişiklik yapılmalı.kanal yerine oper gelecek yani.

Peki .Change set #kanal +killyansitma yapmak zorundamıyım ?

cunku ben bota giremiyom :(

saywhat

26 Aralık 2012 02:43

Cevap: Eggdrop yansıtma

uhm bota telnet/dcc bağlantınız erişiminiz yok mu ? yoksa nasıl bağlantı kuracağınızı mı bilmiyorsunuz?
örnek telnet ile o shellip(yada hostu) botun-portu
botun telnet-botnet vs portu eggdrop.conf dosyasında listen xxxx all yazan satırda bulabilirsiniz.ip yada hostuda set my-ip yada set my-vhost diye yazan satırda ayarlıdır. dcc içinde /dcc nick chat... komutu ancak bir firewall arkasındaysanız mirciniz için belirlediğiniz dcc portu bloke olabilmektedir.onun için port açmanız gerekebilir.ondan telneti tavsiye ederim dcc olmuyorsa fazla uğraşmamanız açısından.

setudef flag killkanal

bu udef user defination yani kullanıcı tanımlı bir ayar sağlıyor.bunu kullanmayı ben seviyorum nedeni bir elastakiyet sağlaması koda .şöyleki bu sayede botun bulunduğu birden fazla dilediğiniz kadar kanalı bu kodu kullanabilmek için ekleyip çıkarabilmenizi sağlıyor. tek yapmanız gereken botla telnet/dcc ilitişimi kurmak ve .chanset <-- yani kanal ayarı belirliyoruz. #kanal <-- ayarı aktif yada pasif etmek için seçtiğiniz kanal bunun yerine * koyarsanız botun olduğu tüm kanalları kapsar* . sonrada + yada - özellik. kısaca .chanset #kanalınız +killkanal komutuyla !kill nick sebep komutunu hangi kanal yada kanallar üzerinde kullanmak istediğinizi kendinizin seçebilmesini dilediğiniz zamanda .chanset #kanalınız -killkanal ile pasif hale getirebilmenize olanak sağlıyor.

yansıtma olayı içinde bu şekil tanımlanabilen bir ayar olarak ekleyebilirdim ancak onun yerine tek bir kanala yansıtmak isteyeceğinizi düşündüğümden bunu variable dizisinde ayarlanmasını uygun buldum. oda yansitma #deneme
#deneme yerine hangi kanalda olayın yansıtılmasını istiyorsanız o kanal adını girmeniz yeterli kodu yüklemeden evvel.yok derseniz ki ben bağlanamıycam ona göre değiştireyim kodu.

yada CLubber'ın verdiğini ayarlamak daha kolay gelebilir.iki kanalıda elle gireceksiniz o kodda işlev anlamında bir farkı yok iki kodda aynı işi yapması için yazılmış .sadece yapıları farklı.

Rhall

26 Aralık 2012 18:01

Cevap: Eggdrop yansıtma

Hepinize çok teşekkür ederim her şey için gerçekten cok sağ olun :)

Xpyhre

27 Aralık 2012 07:37

Cevap: Eggdrop yansıtma

[QUOTE=Xpyhre;1041261251]

PHP- Kodu:

   bind pub - !kill uzaklas
#Komut algılama
proc uzaklas {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "privmsg $chan : $text Basariyla Banlandi $nick"
putquick "kill $text"
}

Buradaki verdiğim tcl yi sadece #opers kanalinda nasıl kullanabiliriz.?

saywhat

27 Aralık 2012 11:23

Cevap: Eggdrop yansıtma

Kod:

bind pub - !kill uzaklas

proc uzaklas {nick uhand host chan text} {

if {![string match "#opers" $chan]} { return 0 }

if {![isop $nick $chan]} {return 0}

putquick "privmsg $chan : $text Basariyla Banlandi $nick"

putquick "kill $text"

}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:29.