# 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.
# orjinal kod : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tarih : 22.08.2013 19:09
#########################################################################################

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

;# 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"

;# timezone - saat dilimi ayarı:
set tz "GMT+3"

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

proc kicker:pub {nick uhost hand chan text} {
    global botnick
   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 {
   
   set kickno [expr {$::kickno + 1}]
    pushmode $chan +b $target 
	 incr kickno 
    putkick $chan $target $reason:$kickno 
     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 ( $::tz )"]]"
   return 1
   }
}

putlog "yüklendi..."

# 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..."