Bu koddan kufur tcl si olabilirmi ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

shardad · 15 Temmuz 2007, 03:11

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

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

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

güzel Olur

Brain · 18 Temmuz 2007, 23:31

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
 
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

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

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Koddan anlayan baksın 2 dakika ufak bi hata	SsAaRrUkKAnN	mIRC Scripting Sorunları	3	25 Ağustos 2010 09:13
Olabilirmi ???	MaRReSaLL	mIRC Scripting Sorunları	6	21 Mart 2010 19:28
bu koddan serverı kaldırmak için	kurugaddere	mIRC Scripting Sorunları	1	16 Temmuz 2009 21:09
Olabilirmi ?	RapStar	mIRC Scripting Sorunları	4	09 Eylül 2008 20:25
Remote.ini'deki kufur'leri iptal edip, kufur.tx ile sağlıkla sağlamak için ne gerek?	ircmsn	mIRC Scripting Sorunları	5	08 Aralık 2007 16:40

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.