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

Alıntı:

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

Kod:

putserv "MODE $chan +b $banmask"

yerine;

Kod:

putserv "MODE $chan +b $newnick"

yazman yeterli.

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 

    }  

  } 

 } 

}

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