bind join - "% *" wscom
proc wscom {nick uhost handle chan} { 
set nicklist "scripts/nicklist.txt" 
    set opinfo [open $nicklist r] 
    set lines [split [read -nonewline $opinfo] \n] 
close $opinfo 
    foreach opcheck $lines { 
        if {[string match -nocase "$nick" $opcheck]} { 
      putquick "MODE $chan +b $nick"
      putquick "KICK $chan $nick 4nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz."
      putquick "SAJOIN $nick #cinsellik"    
        } 

    } 
} 


bind pub o|o !yasakla yasakla 
proc yasakla {nick host hand chan text} { 
    set badnick [join [lindex [split $text] 0]] 
    set ops [open "scripts/nicklist.txt"] 
    set nicks [split [read -nonewline $ops] \n] 
 close $ops 
    if {![llength $nicks]} { 
        set ops [open "scripts/nicklist.txt" w] 
    } else { 
        set ops [open "scripts/nicklist.txt" a] 
    } 
    foreach line $nicks { 
        if {[string match -nocase "$badnick" $line]} { 
     putquick "NOTICE $nick :$badnick yasakli listesine eklendi." 

        } 
    } 
 puts $ops "$badnick" 
   close $ops 
} 

bind pub o|o !yasaklama yasaklama 
proc yasaklama {nick host hand chan text} { 
    set yasaklama [join [lindex [split $text] 0]] 
    set ops [open "scripts/nicklist.txt"] 
    set nicks [split [read -nonewline $ops] \n] 
 close $ops 
    if {![llength $nicks]} { 
   putquick "NOTICE $nick :nick yasakli listesinden silindi." 
   
    } 
    set line [lsearch -exact $nicks "$yasaklama" ] 
    set badnicks [lreplace $nicks $line $line] 
    set ops [open "scripts/nicklist.txt" w] 
    puts $ops [join $badnicks "\n"] 
  close $ops 
}