namespace eval ::kill {}
 
set kill(semb) "!"
set kill(yansitma) "#kanal-adi"
 
setudef flag killkanal
 
bind pub -|- $kill(semb)kill ::kill::at
 
proc ::kill::at {nick host hand chan text} {
  global botnick
 if {![channel get $chan killkanal]} { return }
  set knick [lindex $text 0]
  set sebep [split $text]
   if {$sebep == ""} {
    puthelp "notice $nick lütfen bir sebep belirtin. kullanimi: $kill(semb)kill nick sebep"
   return 0
   }
   if {[regexp -nocase $botnick $knick]} { 
     putserv "notice $nick yok artık LeBron James $nick :p"
 return 0
    }
   putnow "kill $knick $sebep"
   putserv "privmsg $kill(yansitma) $nick tarafindan $knick 'e kill atildi saat : [clock format [clock seconds] -format %H:%M:%S] sebep : $sebep"
   }
 }