IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - kick-ban anons (https://www.ircforumlari.net/tcl-scriptler/543824-kick-ban-anons.html)

-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kullanımı : .kb hedef sebep
sebep belirlenmemişse öntanımlı sebep ile işlem yapar. atılan kick sayısı saydırır.

belirlenmiş bir kanal üzerinde atılan kick hakkında bilgi anonsu yapar : şu kişi şu kanalda şu nedenle atıldı.kick numarası bu.tarih şu saati bu .zaman dilimi bu...
şeklinde iş görür.

Kod:

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

Cevap: kick-ban anons

güncelleme: gözden kaçırdığım şeyleri düzelttim. yazarken birkaç kez kingkong'un isteklerine göre kodu değiştirmiş ,bazı şeyleri ekleyip-çıkarmış yada yerini değişmiştim.bu değişiklikleri yaparken bazı şeyleride gözden kaçırmışım..

düzeltildi... -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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

Cevap: kick-ban anons