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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   !unban eggdrop tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/791437-unban-eggdrop-tcl.html)

kacakci 03 Nisan 2018 18:56

!unban eggdrop tcl
 
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."

Merhabalar. Bu kodda !unban yerine oto sekilde son atilmis ban'i nasil kaldirabiliriz ?

Heartbroken 07 Nisan 2018 19:03

Cevap: !unban eggdrop tcl
 
*Son Atılmış Ban* Derken ;
Kanal Ban Listesindeki En Eski
Atılmış Ban'ı Kast Ettiğinizi Farzediyorum!

*Oto Şekilde* Derken ;
Buna Biraz Daha Açıklık Getirmek Gerekir!
Belli Süre Aralıklarında Mı?
Yoksa;
Biri Yeni Bir Ban Eklediğinde,
Kanal Ban Listesinin En Sonunda,
En Eski Olan Mı Kaldırılsın?

Kod:

bind mode - * mode_ban

proc mode_ban {nick uhost hand chan mode target} {
    if {![channel get $chan otounban]} { return }
    if {$mode ne "+b" || ![botisop $chan] || ![botishalfop $chan]} { return 0 }
    if {[llength [chanbans $chan]] > "1"} {
        pushmode $chan -b [lindex [lindex [lsort -index 2 -integer -decreasing [chanbans $chan]] 0] 0]
    }
}

setudef flag otounban

Botunuza Bağlanın (DCC/CTCP Chat/Telnet)
.chanset #Kanal +otounban
İle Kodu Aktif Ettiğiniz,
#Kanal'da Biri +b Ayarladığında;
#Kanal Ban Listesinin En Eski Olanını;
-b Eder!

Yukarıda Verdiğiniz Kod En Yeni/Son Ayarlanmış
Ban'ı !unban Komutuyla Kaldırıyor!

Böyle ;
Kod:

bind mode - * mode_ban

proc mode_ban {nick uhost hand chan mode target} {
    if {![channel get $chan otounban]} { return }
    if {$mode ne "+b" || ![botisop $chan] || ![botishalfop $chan]} { return 0 }
        pushmode $chan -b $target
}

setudef flag otounban

Eklenirse ,Kodun Aktif Edildiği Kanal'daki,
En Yeni +b Modu Ayarlandıktan Sonra
Oto Kaldırır!
Ancak Bunun İçin Koda İhtiyaç Olduğunuda
Düşünmüyorum!
+bitch Yahut +revenge Gibi
Ayarlar Aktif Edildiğinde De, Bot
Bu Tür Gıcıklıkları Kendi Başına Yapabiliyor!

diE 13 Nisan 2018 19:04

Cevap: !unban eggdrop tcl
 
bu adamın şiir gibi yazışına hastayım : )
Eline sağlık

No_FeaR 14 Ekim 2018 12:52

Cevap: !unban eggdrop tcl
 
Adam King.. : )


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net