!unban ( kod istek ) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Raw · 13 Ağustos 2009, 04:28

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

fener1907 · 13 Eylül 2009, 04:44

ZuGasiBerePe Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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 ?

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

Raw · 13 Eylül 2009, 05:20

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
/unban	sihaye	mIRC Scripting Sorunları	4	12 Ekim 2009 07:38
!unban /unban değişimi	fener1907	mIRC Scripting Sorunları	8	17 Eylül 2009 23:49
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
!unban	ncxsd	mIRC Scripting Sorunları	13	28 Aralık 2007 19:34
Oto unban	Requiem	mIRC Scripting Sorunları	1	07 Haziran 2006 19:00

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.