IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

18Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Ocak 2017, 13:01   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
küfür koruması regex|wildcard




kullanım ve örnekler için /bw

Scriptinizde nasıl kullanacağınıza dair örnek
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if $bw($1-).? { ban -ku600 #X $nick 2 küfür yasaktır! } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias b:save hsave b~ badword.db alias b:load hmake b~ 10000 | hload b~ badword.db on *:connect: b:load alias bw { if $regex($1,/([-+][wr])/) && $2 { if $1 == +r { if $hget(b~,$2) { echo 4 *** Bu Kelime ekli | return } if !$hget(b~,$2) { hadd -m b~ $2 r | echo 3 ** Kelime eklendi } } if $1 == -r { if $hget(b~,$2) { hdel b~ $2 | echo 4 ** Kelime silindi | return } if !$hget(b~,$2) { echo 4 ** Kelime bulunamadı } } if $1 == +w { if $hget(b~,$2) { echo 4 *** Bu Kelime ekli | return } if !$hget(b~,$2) { hadd -m b~ $2 w | echo 3 ** Kelime eklendi } } if $1 == -w { if $hget(b~,$2) { hdel b~ $2 | echo 4 ** Kelime silindi | return } if !$hget(b~,$2) { echo 4 ** Kelime bulunamadı } } b:save } elseif $prop == ? { if $hfind(b~,$1-,0,R) || $hfind(b~,$1-,0,W) { return $true } } else { echo 5 *** hatalı ve eksik parametre echo 5 * /bw [+|-][W|R] (wildcard|regex) [wildcard text| regex text] echo 5 * orn: /bw +r [pb][i!İı1][cç\[] echo 5 * orn: /bw +w ***** } }


__________________
2b|!2b=?
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 02 Şubat 2017, 13:09   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
küfür koruması regex|wildcard gelişmiş




[Güncelleme]
Bir öncekinin geliştirilmiş hali..
Dialog pencere vs. yapmaya zaman bulamadım bulursam yaparım..

Kullanımı:
REGEX eklemek için
/Bw +r (g[o0]g*[Il][e3]\sy[a4]z) zline
silmek için
/Bw -r (g[o0]g*[Il][e3]\sy[a4]z)

WILDCARD eklemek için
/Bw +w *g??gle* kickban
silmek için
/Bw -w *g??gle*

ekleyeceğiniz kelimenin eşleşebileceği bir kayıt varmı kontrol için
/bw ? google
şeklinde kontrol edebilirsiniz.


yasaklayacagınız kelimenin tipini ve uygulanacak cezayı opsiyonel ekleyebilirsiniz
"google" kelimesini zline atmak isteyebilir ancak "denyo" kelimesini yalnızca banlamak isteyebilirsiniz.
her kelime için aynı ceza yerine kelimelerin tipine göre ceza uygulayabilirsiniz bununla ilgili kısaltmalar
yada tek kelimelik özel kambinasyonlar yapababilirsiniz (Kickban yerine KB gibi) ancak entegre ederken
bu kelimeyi dikkate almalısınız (uygulama kodundaki mavi satırlar)
mesela eklediginiz kelimede hem kickban hem kline hemde nick yasaklayacaksınız.. buna göre ExData için bir kelime
belirlediniz. KB_K_Q
buna göre koşullandırabilirsiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if %p` == KB_K_Q { ban -k # $nick sebep! kline $nick sebep! qline $nick sebep! }

eğer hangi eşleşme sebebiyle atıldığını görmek isterseniz de

"echo # $nick %p~ kelimesinden dolayı atıldı"
gibi %p~ ile görüntüleyebilir yada sebeplere ekleyebilirsiniz..

geçerli ExData KickBan'dır b:def fonksiyonundan değiştirilebilir.

diyelimki herhangi bir uygulama tipi kullanmayacaksınız..
standart bir ceza yönteminiz var..
bu durumda da
if ($bw($1-).?) { ban -ku600 # $nick 2 küfür yasaktır! }
kodu yeterli olacaktır..

Uygulama örnegi;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if $me isop $chan { if ($bw($1-).?) { var %p~ $gettok($v1,-1,32),%p` $gettok($v1,1,32) ban -ku600 # $nick 2 küfür yasaktır! $v1 if %p` == kickban { ban -ku600 # $nick 2 küfür yaraktır! echo 4 # $nick $qt(%p`) yasaklı kelimeyi kullandı! } } } }

Badword Kodu:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: b:load alias b:def return $iif($1,$1,KickBan) alias b:save hsave br~ -i badword.db | hsave bw~ -i badword.db alias b:load { if !$hget(bw~,0) || !$hget(br~,0) { hmake bw~ 10000 | hload bw~ -i badword.db hmake br~ 10000 | hload br~ -i badword.db } } alias bw { if $regex($1,/([-+][wr])/) && $2 && $b:def($3) { if $1 == +r { if $hget(br~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m br~ $2 $b:def($3) | echo 3 ** Kelime eklendi | return } if $1 == -r { if $hget(br~,$2) { hdel br~ $2 | echo 4 ** Kelime silindi | return } else echo 4 ** Kelime bulunamadı | return } if $1 == +w { if $hget(bw~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m bw~ $2 $b:def($3) | echo 3 ** Kelime eklendi | return } if $1 == -w { if $hget(bw~,$2) { hdel bw~ $2 | echo 4 ** Kelime silindi | return } else echo 4 ** Kelime bulunamadı | return } b:save } if $1 == ? { noop $hfind(br~,$2,0,R,echo -a Regex: $1-) | noop $hfind(bw~,$2,0,W,echo -a WildCard: $1-) } elseif $prop == ? { var %r~ = $gettok($1-,0,32) while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return $hget(br~,%i) %i | dec %r~ } var %w~ $gettok($1-,0,32) while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return $hget(bw~,%i) %i | dec %w~ } } else { echo 5 *** hatalı ve eksik parametre echo 5 * /bw [+|-][W|R]? (wildcard|regex|kontrol) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]> echo 5 * orn: /bw +r ([pb][i!İı1][cç\[]) echo 5 * orn: /bw +r (\b[pb][i!I1İü][çc]\b) ban echo 5 * orn: /bw +w *bitch* kickBan echo 5 * orn: /bw +w *g0ogle* kill echo 5 * orn: /bw ? bitch } }


__________________
2b|!2b=?
 
Alıntı ile Cevapla

Alt 02 Şubat 2017, 13:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




Vuhuu.

 
Alıntı ile Cevapla

Alt 02 Şubat 2017, 13:44   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




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

uvlama bakim biraz çalış şunları düzelt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Alıntı:
while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return $hget(br~,%i) %i | dec %r~ }

while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return $hget(bw~,%i) %i | dec %w~ }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
%i $hget(bw~,%i)


__________________
2b|!2b=?
 
Alıntı ile Cevapla

Alt 05 Şubat 2017, 15:16   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard gelişmiş




CoCoRiCo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[Güncelleme]
Bir öncekinin geliştirilmiş hali..
Dialog pencere vs. yapmaya zaman bulamadım bulursam yaparım..

Kullanımı:
REGEX eklemek için
/Bw +r (g[o0]g*[Il][e3]\sy[a4]z) zline
silmek için
/Bw -r (g[o0]g*[Il][e3]\sy[a4]z)

WILDCARD eklemek için
/Bw +w *g??gle* kickban
silmek için
/Bw -w *g??gle*

ekleyeceğiniz kelimenin eşleşebileceği bir kayıt varmı kontrol için
/bw ? google
şeklinde kontrol edebilirsiniz.


yasaklayacagınız kelimenin tipini ve uygulanacak cezayı opsiyonel ekleyebilirsiniz
"google" kelimesini zline atmak isteyebilir ancak "denyo" kelimesini yalnızca banlamak isteyebilirsiniz.
her kelime için aynı ceza yerine kelimelerin tipine göre ceza uygulayabilirsiniz bununla ilgili kısaltmalar
yada tek kelimelik özel kambinasyonlar yapababilirsiniz (Kickban yerine KB gibi) ancak entegre ederken
bu kelimeyi dikkate almalısınız (uygulama kodundaki mavi satırlar)
mesela eklediginiz kelimede hem kickban hem kline hemde nick yasaklayacaksınız.. buna göre ExData için bir kelime
belirlediniz. KB_K_Q
buna göre koşullandırabilirsiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if %p` == KB_K_Q { ban -k # $nick sebep! kline $nick sebep! qline $nick sebep! }

eğer hangi eşleşme sebebiyle atıldığını görmek isterseniz de

"echo # $nick %p~ kelimesinden dolayı atıldı"
gibi %p~ ile görüntüleyebilir yada sebeplere ekleyebilirsiniz..

geçerli ExData KickBan'dır b:def fonksiyonundan değiştirilebilir.

diyelimki herhangi bir uygulama tipi kullanmayacaksınız..
standart bir ceza yönteminiz var..
bu durumda da
if ($bw($1-).?) { ban -ku600 # $nick 2 küfür yasaktır! }
kodu yeterli olacaktır..

Uygulama örnegi;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if $me isop $chan { if ($bw($1-).?) { var %p~ $gettok($v1,-1,32),%p` $gettok($v1,1,32) ban -ku600 # $nick 2 küfür yasaktır! $v1 if %p` == kickban { ban -ku600 # $nick 2 küfür yaraktır! echo 4 # $nick $qt(%p`) yasaklı kelimeyi kullandı! } } } }

Badword Kodu:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: b:load alias b:def return $iif($1,$1,KickBan) alias b:save hsave br~ -i badword.db | hsave bw~ -i badword.db alias b:load { if !$hget(bw~,0) || !$hget(br~,0) { hmake bw~ 10000 | hload bw~ -i badword.db hmake br~ 10000 | hload br~ -i badword.db } } alias bw { if $regex($1,/([-+][wr])/) && $2 && $b:def($3) { if $1 == +r { if $hget(br~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m br~ $2 $b:def($3) | echo 3 ** Kelime eklendi | return } if $1 == -r { if $hget(br~,$2) { hdel br~ $2 | echo 4 ** Kelime silindi | return } else echo 4 ** Kelime bulunamadı | return } if $1 == +w { if $hget(bw~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m bw~ $2 $b:def($3) | echo 3 ** Kelime eklendi | return } if $1 == -w { if $hget(bw~,$2) { hdel bw~ $2 | echo 4 ** Kelime silindi | return } else echo 4 ** Kelime bulunamadı | return } b:save } if $1 == ? { noop $hfind(br~,$2,0,R,echo -a Regex: $1-) | noop $hfind(bw~,$2,0,W,echo -a WildCard: $1-) } elseif $prop == ? { var %r~ = $gettok($1-,0,32) while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return $hget(br~,%i) %i | dec %r~ } var %w~ $gettok($1-,0,32) while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return $hget(bw~,%i) %i | dec %w~ } } else { echo 5 *** hatalı ve eksik parametre echo 5 * /bw [+|-][W|R]? (wildcard|regex|kontrol) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]> echo 5 * orn: /bw +r ([pb][i!İı1][cç\[]) echo 5 * orn: /bw +r (\b[pb][i!I1İü][çc]\b) ban echo 5 * orn: /bw +w *bitch* kickBan echo 5 * orn: /bw +w *g0ogle* kill echo 5 * orn: /bw ? bitch } }


Merhaba,

korumayı denediğimde açılışta; ..ScRipT\-i' (line 21, KufurZline) hatası alıyorum açtıktan sonra yani sunucuya girdikten sonrada; * Invalid parameters: $hfind (line 49, KufurZline)

line 21 : hmake bw~ 10000 | hload bw~ -i badword.db
line 49 : while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return $hget(br~,%i) %i | dec %r~ }

dosya oluşturamıyor diye düşündüm dosya oluşturdum attım scriptin klasörünü yine olmadı nerde eksiklik var çözemedim.

Teşekkürler

 
Alıntı ile Cevapla

Alt 06 Şubat 2017, 09:11   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




bazı şeyleri mükemmel yapmak için kullanıcı deneyimi ve geri dönüşü önemlidir.
işte bu noktada mantık hatalarının olduğunu gördük ve düzelttim.

bazı yeniliklerde ekledim eklemeyede devam edeceğim, insallah daha mükemmel bir iş çıkacak..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if $me isop $chan { if ($bw($1-).?) { ;$1<eslesme> $2<tespit edilen kelime> $3<ceza tipi> tokenize 32 $v1 if $3 == Kickban { ban -ku600 # $nick 2 küfür yaraktır! echo # $nick $qt($1) ile eşleşen $qt($2) yasaklı kelimesini kullandı! } } } } on *:start: b:load alias b:def return $iif($1,$1,KickBan) alias b:save $iif($hget(bw~,0),.hsave bw~ badword.db) | $iif($hget(br~,0),.hsave br~ badword.db) alias b:load { if !$hget(bw~,0) || !$hget(br~,0) { if (!$isfile(badword.db)) write badword.db if ($isfile(badword.db)) { hmake bw~ 10000 | hload bw~ badword.db | hmake br~ 10000 | hload br~ badword.db } } } alias bw { if $regex($1,/([-+][wr])/) && $b:def($3) { if $1 == +r { if $hget(br~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m br~ $2 $b:def($3) | echo 3 ** Kelime eklendi | b:save | return } if $1 == -r { if $hget(br~,$2) { hdel br~ $2 | echo 4 ** Kelime silindi | b:save | return } else echo 4 ** Kelime bulunamadı | return } if $1 == +w { if $hget(bw~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m bw~ $2 $b:def($3) | echo 3 ** Kelime eklendi | b:save | return } if $1 == -w { if $hget(bw~,$2) { hdel bw~ $2 | echo 4 ** Kelime silindi | b:save | return } else echo 4 ** Kelime bulunamadı | return } } if $1 == ? { noop $hfind(br~,$2,0,R,echo Regex: $1-) | noop $hfind(bw~,$2,0,W,echo WildCard: $1-) | return } if ($regex($1,/(cr|cw)/ig)) { echo * liste temizlendi | $iif($regml(1) == cw,hfree bw~,hfree br~) | b:save | return } elseif $prop == ? { var %r~ = $gettok($1-,0,32) while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32) $hget(br~,%i) | dec %r~ } var %w~ $gettok($1-,0,32) while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return %i $gettok($1-,%w~,32) $hget(bw~,%i) | dec %w~ } } else { echo 5 *** hatalı ve eksik parametre echo 5 * /bw [+|-][W|R|CR|WR]? (wildcard|regex|kontrol|kayıt temizleme) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]> echo 5 * orn: /bw +R ([pb][i!İı1][cç\[]) echo 5 * orn: /bw +R (\b[pb][i!I1İü][çc]\b) ban echo 5 * orn: /bw -R (\b[pb][i!I1İü][çc]\b) (eklenen kaydı siler) echo 5 * orn: /bw +R (\bw{3}\.\w+\.w*\b) Sizin_ceza_tipiniz echo 5 * orn: /bw +W *bitch* kickBan echo 5 * orn: /bw +W *g0ogle* kill echo 5 * orn: /bw -W *g0ogle* (eklenen kaydı siler) echo 5 * orn: /bw +W *y?nd?x* Sizin_ceza_tipiniz echo 5 * orn: /bw ? bitch (bu kelimeye uygun eşleşme var mı sorgular ) echo 5 * orn: /bw CR (tüm Regex kayıtlarını siler) echo 5 * orn: /bw CW (tüm wildcard kayıtlarını siler) } }


__________________
2b|!2b=?
 
Alıntı ile Cevapla

Alt 16 Şubat 2017, 16:11   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




CoCoRiCo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bazı şeyleri mükemmel yapmak için kullanıcı deneyimi ve geri dönüşü önemlidir.
işte bu noktada mantık hatalarının olduğunu gördük ve düzelttim.

bazı yeniliklerde ekledim eklemeyede devam edeceğim, insallah daha mükemmel bir iş çıkacak..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { if $me isop $chan { if ($bw($1-).?) { ;$1<eslesme> $2<tespit edilen kelime> $3<ceza tipi> tokenize 32 $v1 if $3 == Kickban { ban -ku600 # $nick 2 küfür yaraktır! echo # $nick $qt($1) ile eşleşen $qt($2) yasaklı kelimesini kullandı! } } } } on *:start: b:load alias b:def return $iif($1,$1,KickBan) alias b:save $iif($hget(bw~,0),.hsave bw~ badword.db) | $iif($hget(br~,0),.hsave br~ badword.db) alias b:load { if !$hget(bw~,0) || !$hget(br~,0) { if (!$isfile(badword.db)) write badword.db if ($isfile(badword.db)) { hmake bw~ 10000 | hload bw~ badword.db | hmake br~ 10000 | hload br~ badword.db } } } alias bw { if $regex($1,/([-+][wr])/) && $b:def($3) { if $1 == +r { if $hget(br~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m br~ $2 $b:def($3) | echo 3 ** Kelime eklendi | b:save | return } if $1 == -r { if $hget(br~,$2) { hdel br~ $2 | echo 4 ** Kelime silindi | b:save | return } else echo 4 ** Kelime bulunamadı | return } if $1 == +w { if $hget(bw~,$2) { echo 4 *** Bu Kelime ekli | return } else hadd -m bw~ $2 $b:def($3) | echo 3 ** Kelime eklendi | b:save | return } if $1 == -w { if $hget(bw~,$2) { hdel bw~ $2 | echo 4 ** Kelime silindi | b:save | return } else echo 4 ** Kelime bulunamadı | return } } if $1 == ? { noop $hfind(br~,$2,0,R,echo Regex: $1-) | noop $hfind(bw~,$2,0,W,echo WildCard: $1-) | return } if ($regex($1,/(cr|cw)/ig)) { echo * liste temizlendi | $iif($regml(1) == cw,hfree bw~,hfree br~) | b:save | return } elseif $prop == ? { var %r~ = $gettok($1-,0,32) while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32) $hget(br~,%i) | dec %r~ } var %w~ $gettok($1-,0,32) while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return %i $gettok($1-,%w~,32) $hget(bw~,%i) | dec %w~ } } else { echo 5 *** hatalı ve eksik parametre echo 5 * /bw [+|-][W|R|CR|WR]? (wildcard|regex|kontrol|kayıt temizleme) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]> echo 5 * orn: /bw +R ([pb][i!İı1][cç\[]) echo 5 * orn: /bw +R (\b[pb][i!I1İü][çc]\b) ban echo 5 * orn: /bw -R (\b[pb][i!I1İü][çc]\b) (eklenen kaydı siler) echo 5 * orn: /bw +R (\bw{3}\.\w+\.w*\b) Sizin_ceza_tipiniz echo 5 * orn: /bw +W *bitch* kickBan echo 5 * orn: /bw +W *g0ogle* kill echo 5 * orn: /bw -W *g0ogle* (eklenen kaydı siler) echo 5 * orn: /bw +W *y?nd?x* Sizin_ceza_tipiniz echo 5 * orn: /bw ? bitch (bu kelimeye uygun eşleşme var mı sorgular ) echo 5 * orn: /bw CR (tüm Regex kayıtlarını siler) echo 5 * orn: /bw CW (tüm wildcard kayıtlarını siler) } }


Bu şekilde denediğimde ise,

* Invalid parameters: $hfind (line 46, KufurZline)

şekilde hata veriyor.

46. Satır
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32) $hget(br~,%i) | dec %r~ }


 
Alıntı ile Cevapla

Alt 20 Şubat 2017, 16:55   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu şekilde denediğimde ise,

* Invalid parameters: $hfind (line 46, KufurZline)

şekilde hata veriyor.

46. Satır
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32) $hget(br~,%i) | dec %r~ }


mIRC'nin 7.xx sürümlerinde sağlıklı çalışır..
$hfind() tanımı bu sürümün altındakilerde farklı çalışmakta..
sürümler arası farkı düzeltip yeniden paylaşıcam kayıtlarda da benzer farklılıkların
problemleri olduğunu söyledi bazı arkadaslar.

__________________
2b|!2b=?
 
Alıntı ile Cevapla

Alt 28 Şubat 2017, 18:44   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




CoCoRiCo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
mIRC'nin 7.xx sürümlerinde sağlıklı çalışır..
$hfind() tanımı bu sürümün altındakilerde farklı çalışmakta..
sürümler arası farkı düzeltip yeniden paylaşıcam kayıtlarda da benzer farklılıkların
problemleri olduğunu söyledi bazı arkadaslar.

Başka bir kodda kullanılan $hfind var mIRC 6.x serisinde çalışan ona göre uyarlanabilir mi ?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{ if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return } if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m prox %n $strip($3) .hsave -o prox prox.hs .timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3) } ] on *:start:{ $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs | ykle } alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }

Teşekkürler.

 
Alıntı ile Cevapla

Alt 10 Nisan 2017, 15:45   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: küfür koruması regex|wildcard




Selam, kelimelerin listesini nereden bulabilirim? Bir de herhangi ve ne olursa olsun şeklinde nasıl eşleştiririm? Acaba bu başlık altında var da ben mi anlayamadım? Demek istediğim:

?muz
omuz ile eşleşsin domuz ile eşleşmesin

*muz
hem domuzla hem omuzla hem muzla eşleşsin

 
Alıntı ile Cevapla

Cevapla

Etiketler
koruması, küfür, regex, wildcard


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
küfür koruması. Skys mIRC Scripting Sorunları 6 22 Mart 2011 06:36
Küfür Koruması GuneL mIRC Scripting Sorunları 8 06 Mayıs 2009 13:57
BoT hakkında küfür koruması ekLeme !küfür Editor mIRC Scripting Sorunları 6 30 Kasım 2007 23:26