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

Kablosuz NET · 13 Ocak 2008, 23:57

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

## 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 *** 
## -----------------------------------------------------------------------

CanCeL · 14 Ocak 2008, 00:15

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

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


bind nick - * Detected_changebad

olan satırı

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


bind join - * Detected_changebad

olarak değiştirip denermisiniz.

Kablosuz NET · 14 Ocak 2008, 01:29

malesef değiştirsede işe yaramıyor sanırsam TCL kısmında bir hata yaptım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

BuCaLI · 14 Ocak 2008, 20:55

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.

Ruj · 10 Haziran 2008, 06:48

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

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.

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

Ruj · 10 Haziran 2008, 14:17

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?

Siber55 · 10 Haziran 2008, 19:46

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

BaharGulu · 17 Haziran 2008, 02:21

s.a kardesim elindeki çalisan kodları burayada verrisen Makbule geçer
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bende ariyorum da kolay gelsin

BuCaLI · 17 Haziran 2008, 21:39

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

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

putserv "MODE $chan +b $banmask"

yerine;

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

putserv "MODE $chan +b $newnick"

yazman yeterli.

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

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

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

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

Kyo · 20 Ekim 2017, 22:08

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

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

putserv "MODE $chan +b $banmask"

yerine;

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

putserv "MODE $chan +b $newnick"

yazman yeterli.

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

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

bu tcl scripte sunlarıda ekelrsen guncel olur.
putserv "MODE $chan +b $banmask" yerine putserv "MODE $chan +b $newnick" yazarsak

putserv "sajoin $nick #***" yerine putserv "sajoin $newnick #***" yazıldıgında atılan badnicki #*** kanalına sorunsuz sajoinler. iyi ifler

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Badnick badnick.db varsa guest yapsın	alphae	Eggdrop, NeoStats, BNC	2	08 Şubat 2018 17:16
Badnick Korumasinda Hata	Darnasus	mIRC Scripting Sorunları	2	11 Mart 2015 00:07
Badnick korumasında hata	Tinba	mIRC Scripting Sorunları	8	30 Ocak 2009 15:47
badnick korumasındaki hata nerde	SaintCty	mIRC Scripting Sorunları	11	15 Ocak 2008 12:38
Unreal Kurulumu - Hata Hata Hata :@	fatal	Unreal IRCd	2	20 Şubat 2007 18:46

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.