# freenode #egghelp kanalında kingkong is kingkong@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ium/member/kingkong * kingkong
# isteğiyle yaptığım bir kodun Türkçe çevirisidir.
#########################################################################################

;# kodu kullanma yetkileri (eggdrop kullanıcı flagları)
set kbflags "nm|oa"

;# komutun başına gelecek sembol/işaret:
set sembol "."

;# komut ne olacak:
set komut "kb"

;# atılan kick sayısını saymaya başlayacağı sayı:
set kickno 0

;# yapılan işlem hakkında bilgi mesajı iletilecek kanal:
set anonsknl "#kanalA"

bind pub $::kbflags $::sembol$::komut kicker:pub 

proc kicker:pub {nick uhost hand chan text} {
   set target [lindex [split $text] 0] 
   set reason [join [lrange [split $text] 1 end]]
   if {$reason == ""} { set reason "istek üzerine";}

   if {[string match -nocase $::botnick $target]} { return 0;}
   
   if {$target == ""} { puthelp "notice $nick : Hata...Kullanımı : $::lastbind hedef sebep";}
   
   if {![onchan $target $chan]} { puthelp "notice $nick :Hata...  $target $chan kanalında bulunamadı..."
   } else {
     pushmode $chan +b $target 
     incr ::kickno 
     putkick $chan $target $reason 
     puthelp "privmsg $::anonsknl :$target $chan kanalında kick-ban'landı.sebep: $reason kick no: [concat $::kickno - [clock format [expr {3600 + [clock second]}] -format "Tarih: %d/%m/%Y Saat: %H:%M:%S %z"]]"
   return
   }
}

putlog "yüklendi..."