bind pub - !ZLine banned
proc banned {nick host hand chan text} {
    set yap [lindex [split $text] 0]
    if {($yap != "listele") && [llength $text] < 2} { putquick "privmsg $chan :Kullanım: !ZLine <nick> şeklindedir."; return 0 }
    set vnick [lindex [split $text] 1]
    set vkanal [lrange [split $text] 2 end]
    if {[string match -nocase "ekle" $yap]} {
        if {$vkanal == ""} {
            putserv "privmsg $chan User belirtmediniz, Lütfen User adını da belirtiniz." ; return 0          
        }
        putquick "privmsg $nick :ZLine: Nick: $vnick Kanal: $vkanal --> Başarıyla listeye eklendi."
        set dl [open "scripts/zline.txt" a]
        puts $dl "[join $vnick] [join $vkanal] [join \002Ekleyen:\002] [join $nick] \n"
        flush $dl
        catch {closer $dl}
     }
 set zline "scripts/zline.txt"
 bind pub - !unzline unzline
 proc unzline {nick uhost hand chan $rand} {
 global zline
 timer 3600 putquick "unzline [lindex $zline [rand [llength $zline]]]"
 }
 if {![file exists $zline]} {
  putlog "\002[file tail [info script]]\002 Yuklenemedi: $zline dosyasi bulunamadi."
  return
 }