![]() |
![]() |
|
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: #bilgi kanalı için tcl 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. | |
| ![]() |
![]() | #2 | ||||
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: #bilgi kanalı için tcl
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ı." } } } | ||||
| ![]() |
![]() |
Etiketler |
#bilgi, icin, kanalı, tcl |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
ops kanalı için | TİGeR | mIRC Scripting Sorunları | 9 | 31 Ekim 2012 00:00 |
Beşiktaş kanalı için bot | Cpu | mIRC Scripting Sorunları | 22 | 17 Temmuz 2012 09:19 |
Radyo kanalı için girişte /radyoac çıkışta /radyokapat | phatih | mIRC Scripting Sorunları | 1 | 07 Nisan 2009 04:11 |
bot için log kanalı | KnOuCK | Eggdrop, NeoStats, BNC | 2 | 09 Ocak 2008 22:33 |