# killin yansıtılacağı kanalı #deneme yerine yazmalısınız
# !kill komutu hangi kanal/larda kullanmak istiyorsanız,
# .chanset #kanal +killkanal ile seçmelisiniz.
 
namespace eval kill {
    foreach p [array names kill *] { catch {unset kill($p)} 
 }
 
 variable kill
 array set kill {
        yansitma #deneme
        semb "!"
        renk1 \00314
        renk2 \00303
}
   variable knick {}
 
   variable sebep {}
 
setudef flag killkanal
 
bind pub -|- $kill(semb)kill ::kill::at
 
proc ::kill::at {nick host hand chan text} {
  variable kill
  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 {$knick == ""} {
 puthelp "notice $nick $kill(renk1) nick girmediniz. 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..."

 if {[string match -nocase "$kline(kanal)" $chan]} {

 if {[string match -nocase "$kline(oper)" $chan]} {