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/)

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Bu koddan kufur tcl si olabilirmi ? (https://www.ircforumlari.net/tcl-scriptler/34258-bu-koddan-kufur-tcl-si-olabilirmi.html)

shardad

15 Temmuz 2007 03:11

Bu koddan kufur tcl si olabilirmi ?

PHP- Kodu:

   on *:text:*:#:if $regex($1-,/\byarak|\byavsak/i) { ban -u900 # $nick 2 | kick # $nick Kurallara Aykırı Davrandığınız İçin 15 Dakika Uzaklaştırıldınız }

Bu kod tcl haline gelirmi ? pek anlamıyorum daha dün tclye merak sarmaya başladımda . Yukardaki kod regex ile yazıldığından güzel bir koruma pek hatalı ban atmıyor her şekle sokulabiliyor kelime. Kırmızı olan yerde araya | koyup sıralayabiliyoruz kelimeleri .

Brain

16 Temmuz 2007 03:08

Cevap: Bu koddan kufur tcl si olabilirmi ?

benzer badword koruma sistemleri zaten forumda mevcut, maksadiniz regex kavrami ise aciklayici 1 sey yazabilirim tcl de kullanimi konusunda.

shardad

16 Temmuz 2007 03:16

Yanıt: Bu koddan kufur tcl si olabilirmi ?

Evet bahsettiğim regex kavramı , çünkü sizde biliyorsunuz regex ile yazılan korumalar daha sağlıklı oluyor. mesela yukarda verdiğim koddaki \b ayracı çok işime yarıyor hatalı ban atılmasını engelliyor. Yani demek istediğim verdiğim kod ile tcl yapılabilirmi ? ben bu korumayı kullanıyorum ve herkese tavsiye ederim. Tşkler aCoustiC

RooTMasteR

18 Temmuz 2007 23:26

Cevap: Bu koddan kufur tcl si olabilirmi ?

güzel Olur

Brain

18 Temmuz 2007 23:31

Cevap: Bu koddan kufur tcl si olabilirmi ?

Kod:

[regexp -nocase -- {regex_kavramlari} $text]

Kod:

 

 

bind pubm - * kufurban

proc kufurban {nick uhost hand chan text} {

 if {([regexp -nocase -- {(\byarak\b|\byavsak\b)} $text])} {

  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]"

  putkick $chan $nick "Kurallara Aykırı davranis" 

 }

}

regex kullanimina basit bir ornek, bu sekilde istedigin gibi gelistirebilirsin. Regex kismini sanirim anlamissindir, $text mirc kodlarindaki $1- karsiligidir.

shardad

19 Temmuz 2007 02:42

Yanıt: Bu koddan kufur tcl si olabilirmi ?

Bu şekilde tcl olarak kaydedip denedim fakat çalıştıramadım . Başka tclleri inceliyorum oradan örnek alıp yapmaya çalışıyorum. Kodda bir sorun yoktur değilmi ? Sadece bu kodu .tcl olarak kaydedersek çalışmaz sanırım. Düzenleme yapmam gerekiyormu ? Yanlış anlamayın herhangi bir bilgim yok bu konuda diye soruyorum burc.tcl sini kurdum sadece yazdığınız. Gayet iyi çalışıyor.

Brain

19 Temmuz 2007 22:38

Cevap: Bu koddan kufur tcl si olabilirmi ?

kodu denemedim lakin tcl olarak kaydedip calistiramadiysaniz 1 sorun olmus olabilir kod gorunurde 1 hataya sebebiyet verecek satirlara sahip degil.

bind pubm - * kufurban
proc kufurban {nick uhost hand chan text} {
if {[regexp -nocase -- {*test* $text]} {
putserv "PRIVMSG $chan :kufur korumasi calisiyor."
}
}

Bu sekilde dener, kanala test yazdiginda bot o kanala mesaj yazarsa bu koruma sistemi calisiyor demektir, o zaman regex kullanirken yanlis kavramlar kullanmis olabilirsin

1. Bot kelimenin yazilacagi kanalda olmak zorunda
2. test ve benzeri icinde test gecen her kelimeyi kullanabilirsin.

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