bind pub - !ignore engelle
proc engelle {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $text $chan] & [onchan $nick "#dj"]} {
set dosya [open "nickler.txt" a]
puts $dosya $text
close $dosya
putquick "privmsg #dj :\002 $text \002karalisteye eklendi.."
} 
} 

bind pub - !deignore engelac
proc engelac {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $nick "#dj"]} {
set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set nicki [lsearch -nocase $nicks $text]
set buldegis [lreplace $nicks $nicki $nicki]
set olustur [open "nickler.txt" w]
puts $olustur [join $buldegis "\n"]
close $olustur
putquick "privmsg #dj :\002 $text \002karalisteden çıkartıldı.."
}
} 

set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set uyari "Nickiniz istek gönderimi için engellenmiştir.."
if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }