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

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

- - Badnick TCL Hata (https://www.ircforumlari.net/eggdrop-neostats-bnc/47268-badnick-tcl-hata.html)

Badnick TCL Hata

elimde badnick.txt adında bir dosya var bu dosyada var olan nicklerden herhangi birisi odaya girdiği anda atılmasını istiyorum işlem bu kadar basit görünüyordu ama 4 saattir uğraşmama rağmen TCL çalıştıramadım birde sizler bakarmısınız nerede hata yapıyorum..

Kod:

## Badnick scans  

set badnicks "scripts/badnick.txt"

set file [open $badnicks r]

set listfile [split [subst -nocommands [read $file]] "\n"]

set a [lindex $listfile [rand [llength $listfile]]]
 

## ---------------------------------------------------------------- 

## --- Buradan Aşagısını Ellemeyin.                             --- 

## ---------------------------------------------------------------- 
 

###################################################################### 

##-------------------------------------------------------------------- 

##--- F O R     ---   P R O T E C T I O N  ---    CHANNEL   ---- 

##-------------------------------------------------------------------- 

######################################################################          
 

set arg.v "Change Badnick protection IRCTURK.ORG" 
 

bind nick - * Detected_changebad 
 

proc Detected_changebad {nick uhost hand chan newnick} { 

 global badnicks botnick 

if {(![matchattr $hand b]) && ($nick != $botnick)} { 

  foreach badchange [string tolower $badnicks] { 

   if {[string match *$badchange* [string tolower $newnick]]} { 

    set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 

    putserv "MODE $chan +b $banmask" 

    putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 

    putserv "sajoin $nick #***" 

    return 0 

    }  

  } 

 } 

} 
 

## ----------------------------------------------------------------------- 

putlog "-=-=   Kötü Nick Koruma   =-=-=-=-=-" 

putlog "Kötü Nick Koruma  1.1:" 

putlog "${arg.v} Yükleme Tamamlandı" 

##------------------------------------------------------------------------ 

##                      ***    E N D   OF  ChangeBadnick1.0.TCL *** 

## -----------------------------------------------------------------------

Cevap: Badnick TCL Hata

Odada badnick'e gecildiğinde işlem yapıyor sanırım.
Yani;
asdeasdas nicki asdasdasd_cam gibi bir nicke gecildiğinde +b/kick/sajoin işlemlerini gerçekleştirir. (Sanırım:))

PHP- Kodu:

   bind nick - * Detected_changebad

olan satırı

PHP- Kodu:

   bind join - * Detected_changebad

olarak değiştirip denermisiniz.

Cevap: Badnick TCL Hata

malesef değiştirsede işe yaramıyor sanırsam TCL kısmında bir hata yaptım :(

Cevap: Badnick TCL Hata

foreach badchange [string tolower $badnicks] {
olan satırı;
foreach badchange [string tolower $listfile] {
olarak değiştir bakalım ne olucak.

global badnicks botnick satırınıda ;
global badnicks botnick listfile olarak düzeltmeyi unutma.

Cevap: Badnick TCL Hata

Alıntı:

BuCaLI Nickli Üyeden Alıntı (Mesaj 324516)

yaptim dostum ama calismadi elinde saglam calisan tcl varsa link yada eklenti yaparsan cok iyi olur simdiden eyw.

Cevap: Badnick TCL Hata

Tamam sorun duzeldi calismaya basladi fakat bu host'a ban atiyo bunu nick'e atmasi icin ne yapmamis gerek ?

putserv "MODE $chan +b $banmask" yerine putserv "MODE $chan +b $bannick" yapsak olurmu?

Cevap: Badnick TCL Hata

$bannick yapabilmen icin bannick olayını önce tanıtman gerekiyor. bak orada $newnick e kick atılmış demekki $newnick ' e ban da atılabilir $newnick dene .... Eğer olmazsa $nick denersin ...

Cevap: Badnick TCL Hata

s.a kardesim elindeki çalisan kodları burayada verrisen Makbule geçer :)
bende ariyorum da kolay gelsin

Cevap: Badnick TCL Hata

Alıntı:

Neo Nickli Üyeden Alıntı (Mesaj 485098)

Tamam sorun duzeldi calismaya basladi fakat bu host'a ban atiyo bunu nick'e atmasi icin ne yapmamis gerek ?

putserv "MODE $chan +b $banmask" yerine putserv "MODE $chan +b $bannick" yapsak olurmu?

Kod:

putserv "MODE $chan +b $banmask"

yerine;

Kod:

putserv "MODE $chan +b $newnick"

yazman yeterli.

Alıntı:

BaharGulu Nickli Üyeden Alıntı (Mesaj 489839)

s.a kardesim elindeki çalisan kodları burayada verrisen Makbule geçer
bende ariyorum da kolay gelsin

Kod:

set badnicks "scripts/badnick.txt"

set file [open $badnicks r]

set listfile [split [subst -nocommands [read $file]] "\n"]
 
 

bind nick - * Detected_changebad 
 

proc Detected_changebad {nick uhost hand chan newnick} { 

global listfile botnick 

if {(![matchattr $hand b]) && ($nick != $botnick)} { 

  foreach badchange [string tolower $listfile] { 

   if {[string match *$badchange* [string tolower $newnick]]} { 

    set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 

    putserv "MODE $chan +b $banmask" 

    putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 

    putserv "sajoin $nick #***" 

    return 0 

    }  

  } 

 } 

}

Cevap: Badnick TCL Hata

peki bu kod badnick.txt dosyasına eklenmiş *s*e*x* gibi bi badnick alıyormu
ve newnick yada nick gibi terimler girilmis bu sadece nick değişincemi atıcak yani ;boggled eğer öyleyse girişte atması için ne yapmamız gerekiyor?