set kline(oper) "#Opers"

set kline(logs) "#Operlog"

set kline(komut) "!kline"

bind pub - $kline(komut) kline:ekle
proc kline:ekle {nick uhost handle chan text} {
  global botnick kline
  set person [lindex $text 0]
  set reason [lrange $text 1 end]
  if {[string match -nocase "$kline(oper)" $chan]} {
    if {[string match -nocase "" $person] || [string match -nocase "" $reason]} {putquick "PRIVMSG $kline(kanal) :İstediğiniz bir kullanıcıya kline atmak için komutu doğru kullanınız. Kullanımı: <$kline(komut) nick sebep>";return}
    putquick "KLINE $person $reason"
    putquick "PRIVMSG $kline(logs) :› Bilgi: $person nickli kullanıcıya $nick tarafından ($reason) sebebi ile kline atılmıştır."  
  }
}
putlog "Kline TCL - Written By CLubber"