Çevrimdışı

Şöyle bir kod yaptım işine yarar umarım

 

Çevrimdışı

ban'ı mode .. +b ... yerine ,newchanban -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] komutuyla uygulayabilirsiniz.

 

Çevrimdışı

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

Şöyle bir kod yaptım işine yarar umarım Kod:   Kodu kopyalamak için üzerine çift tıklayın! bind pub - !nick msg_nickban proc msg_nickban {nick uhost handle chan arg} { global botnick # Oto-Ban Zamanı set ::autoban "1" # Bilgi Verilecek Kanal set ::bkanal "#bilgi" set person [lindex $arg 0] set ::bantime [lindex $arg 1] set ::kanal $chan if {$person == $botnick} {return} if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} { if {![ishalfop $person $chan] && ![isop $person $chan]} { putquick "whois $person" bind raw - 311 whois } } } proc whois { from keyword arg } { set anick [lindex $arg 0] set bnick [lindex $arg 1] set banip [lindex $arg 3] putquick "privmsg irc mode $::kanal +b $banip" if { $::bantime == ""} { putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::autoban dakika\0031 ) IP'niz banlandı. \0034<\002\0033 autoban time\002\0034 >" putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı." } else { putquick "kick $::kanal $bnick :\0031Kanal kurallarına uymadığınız tespit edildi. (\0034 $::bantime dakika\0031 ) IP'niz banlandı. \0034<\002\0033 manuel time\002\0034 >" putquick "PRIVMSG $::bkanal :$::kanal kanalında $bnick nickli üye $anick tarafından kanaldan atıldı." } if { $::bantime != "" } { timer $::bantime [list putquick "privmsg irc mode $::kanal -b $banip"] } else { timer $::autoban [list putquick "privmsg irc mode $::kanal -b $banip"] } }

Şimdi denedim ama yine aynı şekilde tutarsız banlar 30sn 20 sn gibi değişken sürelerde açılıyor.Mesela 22.10.15 te ban atıldı 22.11.15 te açılmıyor ScanX botta tam olarak bunu yapmışlar diyelimki ban süresini 5 dak ayarladın tam olarak ban 300 saniye sonra açılıyor nasıl yapmışlar anlamadım

 

Çevrimdışı

tekrar yazayım bari hadi...
newchanban -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

timer vs kullanmaya gerek olmadan, sunucuya komut/mode göndermeden, bu newchanban komutuyla kişiye atılan ban direk botun .user / kullanıcı dosyasına işlenir. süre belirtilmezse 60 dakika , 0 olarak belirtilirse "sticky" yani süresiz ban bunun dışında kaç yazarsanız o kadar dakika ban kullanıcı listesine işlenmiş ve kişiye uygulanmış olur. o süre doluncada kaldırılır.

newchanban local yani adı geçen kanalda ban için kullanılır. newban , global/yani botun olduğu tüm kanallarda geçerli olur.timer ile uygulanmaya çalışıldığında, saniye* bazında geçikmeler yaşanması doğaldır.

kullanıcı dosyasına işlenirse bu saniyelerle ölçülen gecikmeler olmayacak,bot için daha öncelikli* bir işlem haline gelecektir.aksi uygulamalarda bot , -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "queues" (sıralama/sıralandırma") diye çevirebileceğimiz bir "yapılacak işleri aciliyet/önem açısından sıraya sokar ki bu sayede kaynakların en ekonomik şekilde kullanılması sağlanmış olur.

scanx'in daha dakik olduğunu söylüyorsunuz. açın scanx.tcl dosyasını ve newchanban aratın,ben bakmadım ve hiç kullanmadım da, büyük ihtimalle newchanban yahut global olması için newban komutlarıyla uygulanıyordur.

bot dışardan bakılınca bir iş yapmıyormuş gibi gelebilir. ancak gerçekte arka planda sürekli olarak iş yapar. neler olduğunu görmek istiyorsanız. raw-log ayarını .conf üzerinde 1 yapın .restart ettikten sonra , bota login olup : .console +bcdhjkmoprstvwx
komutu uygulayın o zaman botun gördüğü işlediği herşeyi görme takip etme imkanınız olur.

 

Çevrimdışı

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

tekrar yazayım bari hadi... newchanban -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] timer vs kullanmaya gerek olmadan, sunucuya komut/mode göndermeden, bu newchanban komutuyla kişiye atılan ban direk botun .user / kullanıcı dosyasına işlenir. süre belirtilmezse 60 dakika , 0 olarak belirtilirse "sticky" yani süresiz ban bunun dışında kaç yazarsanız o kadar dakika ban kullanıcı listesine işlenmiş ve kişiye uygulanmış olur. o süre doluncada kaldırılır. newchanban local yani adı geçen kanalda ban için kullanılır. newban , global/yani botun olduğu tüm kanallarda geçerli olur.timer ile uygulanmaya çalışıldığında, saniye* bazında geçikmeler yaşanması doğaldır. kullanıcı dosyasına işlenirse bu saniyelerle ölçülen gecikmeler olmayacak,bot için daha öncelikli* bir işlem haline gelecektir.aksi uygulamalarda bot , -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "queues" (sıralama/sıralandırma") diye çevirebileceğimiz bir "yapılacak işleri aciliyet/önem açısından sıraya sokar ki bu sayede kaynakların en ekonomik şekilde kullanılması sağlanmış olur. scanx'in daha dakik olduğunu söylüyorsunuz. açın scanx.tcl dosyasını ve newchanban aratın,ben bakmadım ve hiç kullanmadım da, bahse varım ki newchanban yahut global olması için newban komutlarıyla uygulanıyordur. bot dışardan bakılınca bir iş yapmıyormuş gibi gelebilir. ancak gerçekte arka planda sürekli olarak iş yapar. neler olduğunu görmek istiyorsanız. raw-log ayarını .conf üzerinde 1 yapın .restart ettikten sonra , bota login olup : .console +bcdhjkmoprstvwx komutu uygulayın o zaman botun gördüğü işlediği herşeyi görme takip etme imkanınız olur.

Kod bilgim yok bir tane tcl ile çalışıyorum (!nick nickban)+(!sus kanalda kişiyi susturmak için)+(!yasak kişinin ip adresini banlayıp kanaldan atmak için)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 09:36 -->-> Daha önceki mesaj 09:31 --

Kullandığım tcl bu


bind pub - !yasak msg_forbid
proc msg_forbid {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#op"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b [getchanhost $person $chan]"
putquick "kick $chan $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
putquick "PRIVMSG #bilgi $chan kanalında *****$person***** nickli üyeye -----$nick----- tarafından !yasak komutu uygulandı."
}
}
}
bind pub - !nick msg_nickban
proc msg_nickban {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#op"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b $person"
putquick "kick $chan $person $person rumuzu sohbet kurallarına aykırıdır. /nick Yeninick komutu ile değiştiriniz."
putquick "PRIVMSG #bilgi $chan kanalında *****$person***** nickli üye -----$nick----- tarafından bad nick sebebi ile kanaldan atıldı."
}
}
}

bind pub - !sus msg_silence
proc msg_silence {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#op"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b ~q:[getchanhost $person $chan]"
putquick "NOTICE $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
putquick "PRIVMSG #bilgi $chan kanalında *****$person***** nickli üyeye -----$nick----- tarafından !Sus komutu uygulandı."
}
}
}

 

Çevrimdışı

newchanban komutu uygulama şekli:


(not yukardaki sizin koddaki örneğe eklenecekse hostu alınacak $nick $person olarak girilmiş "hedef" alınandır.
buna göre [getchanhost $nick $chan] komutu [getchanhost $person $chan] olarak uygulanmalıdır. )

xx olarak belirttiğim satır sonundaki kısma ban süresi gelir. 30 dakikaysa 30 ,300 ise 300 .. yukarda yazdığım gibi boş bırakılırsa öntanımlı olarak 60 dakika. 0 girilirse süresiz "sticky" banlı kullanıcı olarak bot.user dosyası içinde her kanal için ayrı kayıt tutulur buda #falanca-kanal
bans
... vs gibi işler. süresi dolunca silinir ...

peh yine global botnick satırı burada da karşıma çıktı... global botnick varsa prosedürde $botnick yoksa $::botnick