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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - zline (https://www.ircforumlari.net/eggdrop-neostats-bnc/39705-zline.html)

#gerekli bindler
bind pub - !zline zline
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
}
proc zline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #Opers Atıldı $gnick Atılan Nick $kanal"
putserv "zline $kanal Uzaklaştırıldınız"
}

arkadaşlar burda !zline nick diye atıyorm opers kanalından fakat buna timer nasıl ekliye biliriz 1 saat sonra banı bot açsın yani timer nasıl eklenir yardımcı olursanız sevirinim? mircde timer 1 60 vs gibi ama tcl de nasıl bilmiyorum

Kod:

bind pub - !ZLine banned

proc banned {nick host hand chan text} {

    set yap [lindex [split $text] 0]

    if {($yap != "listele") && [llength $text] < 2} { putquick "privmsg $chan :Kullanım: !ZLine <nick> şeklindedir."; return 0 }

    set vnick [lindex [split $text] 1]

    set vkanal [lrange [split $text] 2 end]

    if {[string match -nocase "ekle" $yap]} {

        if {$vkanal == ""} {

            putserv "privmsg $chan User belirtmediniz, Lütfen User adını da belirtiniz." ; return 0          

        }

        putquick "privmsg $nick :ZLine: Nick: $vnick Kanal: $vkanal --> Başarıyla listeye eklendi."

        set dl [open "scripts/zline.txt" a]

        puts $dl "[join $vnick] [join $vkanal] [join \002Ekleyen:\002] [join $nick] \n"

        flush $dl

        catch {closer $dl}

     }

 set zline "scripts/zline.txt"

 bind pub - !unzline unzline

 proc unzline {nick uhost hand chan $rand} {

 global zline

 timer 3600 putquick "unzline [lindex $zline [rand [llength $zline]]]"

 }

 if {![file exists $zline]} {

  putlog "\002[file tail [info script]]\002 Yuklenemedi: $zline dosyasi bulunamadi."

  return

 }

Yukarıdakini kullanabilirsin. (Denemedim, çalışmazsa yaz buraya gerekli yerlerine bakayım)
Kullanım:
!zline ekle <Rumuz> : Bu komutla <Rumuz>'a zline attırırsın.
!unzline : Bu komutu botu servera soktuğunda yaz, çunki 3600 saniye arasında zlineleri kontrol edip açıyor...

DipNot: TCL Code'yi Nebiliymben'in bir kodundan esinlenerek yaptım...

Saygılar...

tesekkürler fakat denedim çalıştıramadim, fakat !zline *@IP dediginde atıcak, 3600 saniye sonra o zline attğım ipi açıcak mesela bu şekil mümkünmi verdiğim koda timer ekliye bilirmiyiz ?

Cevap: Yanıt: zline

Alıntı:

Silence Nickli Üyeden Alıntı (Mesaj 274979)

TIMER Ekli Silence...
Botu Sunucuya Soktukdan Sonra => !unzline (Startlar botu)
ZLINE Atma Komutu: !zline ekle *@IP