putserv "MODE $chan +b $banmask"

putserv "MODE $chan +b $newnick"

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