Küfür KorumasI HakkInda Sorun! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

BeLaLim · 21 Haziran 2007, 10:01

Alıntı:

on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}
alias küfür {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.txt
on *:start: {
hmake kufur 1000
if ($exists(kufur.txt)) { hsave -o kufur kufur.txt }
hload kufur kufur.txt
}

Forum Sitesinden Bulmuştum Bu Kodu. Kod Gayet Güzel Çalışıyor Ancak * Yapan Atılıyor. Küfür Listesine Baktım Öyle Bir Küfür Ekli Değil , Sorun Nerede Acaba..?

Ajan · 21 Haziran 2007, 12:13

Bahsettiğin şey wilcard karakter, her kelimenin yerine geçer.

BeLaLim · 21 Haziran 2007, 12:42

küfürü * böyle ekledigimdenmi kaynaklanıyor yani , misal *siker* gibi?

SaW · 21 Haziran 2007, 17:29

Şu ilk kısmı:
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}

bu şekilde değiştirmen sorununu çözebilir:

alias rplc return $iif($pos($1-,*,0) == 0,$1-,$replace($1-,*,?))
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %k = $strip($1-)
var %l = $rplc(%k)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Küfür Koruma Sorun...	TİGeR	mIRC Scripting Sorunları	4	13 Nisan 2013 18:36
Uzun Harf Korumasi Hakkinda	Cybersoft	mIRC Scripting Sorunları	7	12 Haziran 2008 15:42
Tekrar korumasi hakkinda yardim	Support	Eggdrop, NeoStats, BNC	0	21 Eylül 2007 22:35
Küfür Korumada Sorun	StanteaR	mIRC Scripting Sorunları	3	04 Eylül 2007 23:21
Küfür Korumasi	StanteaR	mIRC Scripting Sorunları	2	18 Haziran 2007 14:53

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.