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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - !unban ( kod istek ) (https://www.ircforumlari.net/tcl-scriptler/243307-unban-kod-istek.html)

Raw	13 Ağustos 2009 04:28

!unban ( kod istek )

Kod:

bind pub o "!unban" unban:pub
 

proc unban:pub {nick uhost hand chan text} {

   global botnick

     if {![botisop $chan]} {

     putserv "PRIVMSG $chan :I'm not opped!"

     } else {

     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]

     set last [lindex [lindex $chanbanlist end] 0]

     if {[llength $chanbanlist] > 0} {

     putquick "MODE $chan -b $last"

     return 0

     }

  }

}

putlog "Unban last ban loaded successfully."

arkadaşlar bu tcl !unban komutun son atılan banı açıyor tüm banları açması için nasıl bir değişiklik yapmak gerekir yani !unban dediğimizde tüm ban list i temizlesin nasıl yaparız sizce ?

GhostLy

13 Ağustos 2009 08:43

Cevap: !unban ( kod istek )

BucaLı arkaşımızın yapmış olduğu bir kod.. daha önce kendisi forumda paylaşmıştı..

Kod:

bind pub - !bantemizle bantemizle

proc bantemizle { n u h c a } {

foreach ban [chanbans $c] {

append bans "[lindex $ban 0] "

}

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 0 11]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 12 23]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 24 end]"

putquick "privmsg $c $c Kanalındaki Tüm Banlar Temizlendi."

}

fener1907

28 Ağustos 2009 18:07

Cevap: !unban ( kod istek )

arkadaşlar bunu unban yazarak değilde kanal genelini çift tıklayınca çıkan ekrandan banlaerı seçip kaldır deyince butun kanallardan kaldırması mümkün mü?

Keen	31 Ağustos 2009 09:28

Cevap: !unban ( kod istek )

Kodu alın ekleyin bir eggdropa ve /amsg !unban komutunu kullanın hepsinde açar.

fener1907

13 Eylül 2009 04:44

Cevap: !unban ( kod istek )

Alıntı:

ZuGasiBerePe Nickli Üyeden Alıntı (Mesaj 780279)

Kod:

bind pub o "!unban" unban:pub

 

proc unban:pub {nick uhost hand chan text} {

   global botnick

     if {![botisop $chan]} {

     putserv "PRIVMSG $chan :I'm not opped!"

     } else {

     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]

     set last [lindex [lindex $chanbanlist end] 0]

     if {[llength $chanbanlist] > 0} {

     putquick "MODE $chan -b $last"

     return 0

     }

  }

}

putlog "Unban last ban loaded successfully."

bu kodu /unban yazınca açacak şekılde değiştirmemiz mumkun mü acaba

Raw	13 Eylül 2009 05:20

Cevap: !unban ( kod istek )

Kod:

bind pub - unban bantemizle

proc bantemizle { n u h c a } {

foreach ban [chanbans $c] {

append bans "[lindex $ban 0] "

}

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 0 11]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 12 23]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 24 end]"

putquick "privmsg $c $c Kanalındaki Tüm Banlar Temizlendi."

}

kardeş bu şekilde eklersen kanal genelinde unban komutunda açacaktır ..

fener1907

13 Eylül 2009 05:23

Cevap: !unban ( kod istek )

teşekkur ederim ama ben diğer komutun /unban olarak calışmasını istiyorum tek ban kaldıranın

Raw	13 Eylül 2009 05:29

Cevap: !unban ( kod istek )

kardeş tam olarak bilmemekle beraber bunu bir module ile yapabileceğiniz düşünüyorum .. umarım bu konuda yardımcı olacak arkadaşlar çıkacaktır . kolay gelsin ..

fener1907

13 Eylül 2009 05:36

Cevap: !unban ( kod istek )

eyvallah sağolasın inşallah çıkar

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:37.