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

Rhall · 23 Aralık 2012, 01:24

Şö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

Yardım edicek yok mu

Xpyhre · 24 Aralık 2012, 05:30

Rhall Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Yardım edicek yok mu

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


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.

Xpyhre · 27 Aralık 2012, 07:37

[QUOTE=Xpyhre;1041261251]

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


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

Rhall · 24 Aralık 2012, 22:18

Ç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

Rhall Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ç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

ç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: Kodu kopyalamak için üzerine çift tıklayın!

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Hata veriyor

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

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

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

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"

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
echo yansıtma	sahr	mIRC Scripting Sorunları	6	04 Mart 2011 03:41
özeli yansıtma	aldanis	mIRC Scripting Sorunları	1	15 Haziran 2010 12:49
EGGDROP Bottan WEB e yansıtma??	Black	Eggdrop, NeoStats, BNC	0	19 Aralık 2007 23:35
Kanal Yansıtma.	µGµR	mIRC Scripting Sorunları	3	23 Eylül 2007 18:16

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 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.