namespace eval kill {
    foreach p [array names kill *] { catch {unset kill($p)} 
 }
 
 variable kill
 array set kill {
        yansitma #kanal-adi-girin
        semb "!"
        renk1 \00314
        renk2 \00303
}
 
setudef flag killkanal
 
bind pub -|- $kill(semb)kill ::kill::at
 
proc ::kill::at {nick host hand chan text} {
 variable kill knick
  global botnick
   if {![channel get $chan killkanal]} { 
  return
 }
   set knick [lindex $text 0]
   set sebep [lrange $text 1 end]
    if {$sebep == ""} {
 puthelp "notice $nick $kill(renk1) lütfen bir sebep belirtin. kullanimi:$kill(renk2) $kill(semb)kill nick sebep"
 return 0
 }
   if {[regexp -nocase $botnick $knick]} {
   putserv "notice $nick $kill(renk1) yok artık LeBron James $nick $kill(renk2) :p"
    return 0
 }
 putnow "kill $knick $sebep"
 }
  putserv "privmsg $kill(yansitma) $kill(renk1) $nick $kill(renk2) tarafindan $kill(renk1) $knick $kill(renk2)'e kill atildi "
  putserv "privmsg $kill(yansitma) $kill(renk1) saat :$kill(renk2) [clock format [clock seconds] -format %H:%M:%S] $kill(renk1) sebep : $kill(renk2) $sebep"
 }
 
 putlog "telasa mehal yok...asais berkemal..."