IRC ve mIRC Kullanıcılarının Buluşma Noktası
  zurna net

  IRC ve mIRC Kullanıcılarının Buluşma Noktası Genel IRCD (Sunucu, Servis, Botlar, Korumalar) Eggdrop, NeoStats, BNC

Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


Eggdrop, NeoStats, BNC

Sunucu botları, kurulumları ve ayalarına bu başlık altından ulaşabilirsiniz.



1Beğeni(ler)
  • 1 Post By Heartbroken

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 03 Nisan 2018, 18:56   #1
Çevrimdışı
!unban eggdrop tcl


-- Sponsor Baglantı --


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 ?
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 ?
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 07 Nisan 2018, 19:03   #2
Çevrimdışı
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!

__________________
beş tas has hoş hoşaf...
  Alıntı ile Cevapla

Alt 13 Nisan 2018, 19:04   #3
Çevrimdışı
diE

diE - ait Kullanıcı Resmi (Avatar)
Cevap: !unban eggdrop tcl




bu adamın şiir gibi yazışına hastayım : )
Eline sağlık

__________________
KelebekTR IRC Network
  Alıntı ile Cevapla

Cevapla

Etiketler
!unban, oto-unban, tcl unban

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık