küfür koruma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Selim01 · 13 Kasım 2009, 19:15

alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
}
on @*:text:*:#:{
if ($nick ison $chan) { halt }
elseif $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) { /gzline $nick +5h küfür etme }
}

arkadaşlar burdaki kırmızı yeri ben ekledim. yapmak isteidğim diyelimki küfür korumasında *deneme* kelimesi eklendi diyelim kanalda deneme nicki var ise deneme yazan kişi atılıyor ben atılmasın istiyorum nasıl yapabilirim.
yani yazılan küfür kanalda bir nick ise yazna kişi atılmasın bakarmısınız

neobre · 13 Kasım 2009, 20:07

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bunlara Bak Kardesım Isını Gorur Bunlar.

Selim01 · 14 Kasım 2009, 00:00

tşk ilgin için ama benim istediğim küfür koruması değil kardeşim ben zaten küfür koruması var veridğim kodda sadece eklediğim küfürde bir nick var ise kanal da biri o küfürü veya nicki yazılırsa atılmasın

örneğin amk ekledim küfür korumasına kanalda amk nickli biri var ise birisi amk yazdığında atılmasın

WeiLSiDe · 14 Kasım 2009, 10:38

if ($nick ison $chan) { halt }
bunun yerine şunu kullan

if ($nick == deneme) || ($nick isop $chan) { halt }

iyi forumlar.

Selim01 · 14 Kasım 2009, 21:47

demek istediğimi anlamamışsın sanırım
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yinede tşk ederim

Doktrin · 15 Kasım 2009, 02:41

alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $remove($ifmatch,*) } | inc %· } | return $false
}
on @*:text:*:#:{
if $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) && ($ifmatch !ison #) { /gzline $nick +5h küfür etme }
}

Bu şekilde denermisin.

neobre · 15 Kasım 2009, 13:30

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

alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
}
on @*:text:*:#:{
if ($nick ison $chan) { halt }
elseif $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) { /gzline $nick +5h küfür etme }
}

arkadaşlar burdaki kırmızı yeri ben ekledim. yapmak isteidğim diyelimki küfür korumasında *deneme* kelimesi eklendi diyelim kanalda deneme nicki var ise deneme yazan kişi atılıyor ben atılmasın istiyorum nasıl yapabilirim.
yani yazılan küfür kanalda bir nick ise yazna kişi atılmasın bakarmısınız

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

alias prot {
if !$istok(repeat bword,$1,32) { return $false }
goto $1
:repeat
var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
inc $(%÷,1)
if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
else { return $false }
:bword
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
}
on *:text:*:#:{
elseif $prot(repeat,#,$nick,$strip($1-),5,1) { /gzline $nick +5h FLood yapma }
elseif $prot(bword,$1-,küfürler.txt) { /gzline $nick +5h küfür etme }
}

ßunu Dene.

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
Küfür Koruma	XDie	mIRC Scripting Sorunları	1	13 Nisan 2012 20:56
küfür koruma yardım	ส н м є т	mIRC Scripting Sorunları	9	06 Kasım 2009 03:22
Hash Küfür Koruma	Tai_Pan	mIRC Scripting Sorunları	5	17 Şubat 2009 13:04
küfür koruma yardım	muratt_aziz	mIRC Scripting Sorunları	2	24 Ağustos 2008 17:43

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.