bind join - "*" wscom
proc wscom {nick uhost handle chan} {
if { [file isfile "scripts/nicklist.txt"] } {
    set opinfo [open "scripts/nicklist.txt" r] 
    set lines [read $opinfo]
    close $opinfo
      if { [lsearch -exact $lines $nick] > -1 } { 
      putquick "MODE $chan +b $nick"
      putquick "KICK $chan $nick nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz."
      putquick "SAJOIN $nick #cinsellik"    
        }
    }
}

bind pub - !yasakla yasakla 
proc yasakla {nick host hand chan text} {
if {![isop $nick $chan]} { return 0 }
    if { [file isfile "scripts/nicklist.txt"] } {
    set badnick [lindex $text 0]
    set ops [open "scripts/nicklist.txt" r]
    set nicks [read $ops]
    close $ops
    if { [lsearch -exact $nicks $badnick] eq -1 } {
    set ops [open "scripts/nicklist.txt" a] 
     puts $ops " $badnick" 
   close $ops
   putquick "NOTICE $nick :$badnick yasakli listesine eklendi."
     } else {
    putquick "NOTICE $nick :$badnick nicki yasakli listesinde mevcut." 
     }
} else {
set badnick [lindex $text 0]
  set ops [open "scripts/nicklist.txt" w]
  puts $ops " $badnick" 
  close $ops
   putquick "NOTICE $nick :$badnick yasakli listesine eklendi."
}
}

bind pub - !yasaklama yasaklama 
proc yasaklama {nick host hand chan text} {
if {![isop $nick $chan]} { return 0 }
if { [file isfile "scripts/nicklist.txt"] } {
    set yasaklama [lindex $text 0]
    set ops [open "scripts/nicklist.txt" r] 
    set nicks [read $ops]
 close $ops
 if { [lsearch -exact $nicks $yasaklama] > -1 } {
    set line [lsearch -exact $nicks $yasaklama] 
    set badnicks [lreplace $nicks $line $line] 
    set ops [open "scripts/nicklist.txt" w]
    puts $ops $badnicks 
  close $ops
  putquick "NOTICE $nick :$yasaklama yasakli listesinden silindi."
} else {
putquick "NOTICE $nick :$yasaklama yasakli listesinde mevcut değil."
}
} else {
close [open "scripts/nicklist.txt" w]
putquick "NOTICE $nick :nicklist.txt dosyasi yoktu olusturuldu."
}
}