TCL isteği
 

Merhaba üstadlar, sizlerden ufak bir tcl isteğim olacak
İsteğim #Kontrol , #Karantina kanalları için

Kontrol kanalına 7 saniyede 5 giriş yapılmışsa komut çalıştırmak istiyorum yani demek istediğim şu,

7 Saniye içerisinde 5 kez giriş olmuşsa /girisac komutunu çalıştırarak olabilesi proxy bot girişini engellemek istiyorum. Eğer bot girişleri algılayıp /girisac yapmışsa 15 dakika sonra /giriskapat yapsın. Sonrası döngü gibi. Biz tetikle olacağımıza bot tetikte olmalı yani.

Tabi bu işin ani user girişleri bakımından da zararı olabilir ama botların kanallara girmesinden iyidir :)

Nacizane isteğim forumda birçok kişinin işine yarayabilir diye düşünüyorum, yardım edeceklere, okuyanlara teşekkürler..

Cevap: TCL isteği
 

Anlayabildiğim Kadarıyla ;
/girisac İle mIRC'inizde Aktif Ettiğiniz
Bir Koruma Kodunuz Var.

Bu Kodu Dışarıdan Başka Birinin (Yada Botun)
Aktif/Pasif Edebilmesi İçin;
O Kod'da Düzenleme Yapılması Gerekir.
Bunu Da Mirc Scripting Bölümünde ;
Belli Bir Kullanıcının (Botunuzun) O Komutu
Kullanma Hakkı Tanıyacak Şekilde Düzenletirseniz,
Olabilecek Birşey!

Böyleyse Eğer, Bot Üzerinden O Koda,
Dolaylı Bir Müdahale Yerine ; Doğruca O mIRC Koduna,
Kendi Başına Algılayıp Aktif Edebilecek ,
Kendini Belli Bir Süre Sonra Kapatacak Ek Yaptırmak,
Dışarıdan Endirekt Bir Müdahale Yerine Daha Uygun
Olurdu Sanki !.

O 15 Dakika /girisac - /giriskapat Olayına Daha Bir
Açıklama Gerekiyor!
Çünkü Şu Açıklama'dan Benim Çıkarabildiğim Sonuç
Budur.

Herneyse. Bunu Deneyebilirsiniz :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Şimdi Yazdığım , /girisac - /giriskapat-sız
15 Dakikasız, Kendi Başına Bir Flood Kontrolü*

Not :
Bunun İçin Aslında Bir Kod/Script'ede Ne Derece İhtiyaç
Olduğu Eggdrop Kullanıcısı İçin Bir Soru İşaretidir.
Şöyle ki: Eggdrop Zaten Kendinden Bir Flood Korumasına
Sahiptir.
Botunuza Bağlanın .chaninfo #Kanal İle Listelenen Bot
Ayarlarında Alt Sıralarda Flood Settings: Başlığı Altında ,
Join Flood Ayarını : .chanset #Kanal flood-join Saniyede:Kez
Şeklinde Değişebileceğiniz (Her Kanal İçin Ayrı Ayrı Ayarlanabilir!)
Bir Koruması Kendinden Vardır.

Bunun Dışında Eggdrop'unuzla Gelen Öntanımlı Scriptlerden Biri;
sentinel.tcl Etkili Bir Flood Korumasıdır!

Cevap: TCL isteği
 

Bahsettiğiniz kodu yapabildiğim kadar düzelttim ama bota konsoldan bağlanıp .chanset #Kanal +GirisFlood yaptıktan sonra bahsetmiş olduğum girişkodu açıp kapatma işlemini yaptıramıyorum.. Kod'un neresinde oynama yapmalıyız ? Teşekkürler bu arada.

[BOX="tcl"]
# Kaç Saniyede ,
set GirisSaniye 8
# Kaç Kanal Girisi?
set GirisMax 4
# Bu Nickler Banlanacak Mı? 1 -> Evet , 0 -> Hayır
set Banlansin 0
# Kanal'da Uygulanan Modlar Kaç Saniye Sonra Kaldırılsın?
set GirisKodSaniyesi 900
# .chanset #Kanal +GirisFlood İle Kanal'ınızda Aktif Edilir!
setudef flag GirisFlood

bind join - *!*@* Giris:Flood

proc Giris:Flood {nick uhost hand chan} {
if {![channel get $chan GirisFlood] || [isbotnick $nick] || $nick eq $::owner} { return 0 }
if {![info exists ::Giris($chan)]} { set ::Giris($chan 1 } { incr ::Giris($chan) }
if {![info exists ::Saydir($chan,Kisi)]} { set ::Saydir($chan,Kisi) $nick } { lappend ::Saydir($chan,Kisi) $nick }
if {$::Giris($chan) >= $::GirisMax} {
if {$:: Banlansin >= "1" && [string length $:: Banlansin]}
{
foreach Hedef $::Saydir($chan,Kisi) { putquick "zline $Hedef :Aşırı Giriş Yapıldı.";}
}
else
{
putquick "girisac"
utimer $::GirisKodSaniyesi[list putquick "giriskapat"]
}
}
utimer $::GirisSaniye[list unset ::Giris($chan) ::Saydir($chan,Kisi)]
}
[/BOX]

Edit: Banlansin kısmında smiley çıktığı için boşluk bıraktım.

Cevap: TCL isteği
 

putquick "girisac" Bu Şekilde Sunucuya,
Komut Gönderiyor!
Size Yada Şu "girisac" Kodunun Olduğu
Hedef'e Değil!

Komut "Yöntem <Hedef> :Gönderi"
Örnek :
putserv "PRIVMSG $nick :Hey!"

O Düzenlettiğinizi Yazdığınız girisac/giriskapat
Kodu,Dışarıdan Hangi Yöntemle
Komut Alacak Şekilde Düzenlendi?
Kişiye Notice Mi? #Kanal Üstünden !Komut'la Mı?
Yoksa Özele Mesaj Mı?
Buna Göre Eggdrop Bot'tan Hedef'e ,
Hedef'te Yüklü Kod'u Tetiklenebilir!

Diğer Önemli Konu;
Tcl Kod'u Editlemeye Niyet Edilmişse;
Öncelikle Kullandığınız Kod/Text Editörü
Tcl'yi Desteklemesi Gerekir,
Aksi Halde Kodu Bozar.
Windows Not Defteri'nin Tcl Desteği
Yoktur!
Notepad++ , Sublime-Text , eMacs
Vim, Geany Vs Vs. Gibi Editörler Tercih Edilmelidir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Tcl'nin Kendi Syntax'ı ( Yazımı ) Vardır,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Demek İstediğim Yukarıdaki Gibi,
O Ayraçları Bozarsanız ,
}
else
{
Olursa ,Eggdrop'unuz " Bu Da Neyin Nesi Böyle? "
Der!

Cevap: TCL isteği
 

if else deyimini burada daha iyi anlaşılsın diye o şekilde yazmıştım, /girisac ve /giriskapat kodları modül olarak yüklü yani her oper/admin /girisac veya /giriskapat yazığında sunucuya bağlantı esnasında giriş kod sormakta veya sormamakta, editör olarak notepad++ kullanıyorum fakat tcl kodlama bilgim yok. Sizdem ricam kodu istediğim gibi uyarlayabilirmisiniz? uyarlamazsanızda canınız sağolsun ne diyelim :)

Cevap: TCL isteği
 

Başta /girisac /giriskapat Nedir Böyle Yazsanız,
Bende; mIRC'inizde Bir Alias / Kısayol
Kod Yüklü /Komutla O'nu Açıp-Kapıyorsunuz
Sanıyorum!

Kim Nereden Bilebilir, Sizin Sunucuda Ne Modül
Kullanıyorsunuz,Ne İşler Çeviriyorsunuz Allah Bilir!

Bunu Bilsem Baştan ,Kanal Koruması Tarzı Bir
Script Yazmazdım. Şu Yeterli Olur:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bot Nick Tanıtma,Oper Şifre Girme,
Mod Değişme Vs. İçin De:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Böyle Birşey!

Cevap: TCL isteği
 

Biraz anlatım bozukluğu yapıp kendimi ifade edememişim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok sağolasın üstad :)