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 }