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

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

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

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

Cevap: Eggdrop yansıtma

Yardım edicek yok mu

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.

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 ?

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.

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"

   }

 }

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

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

..."

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"

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.