IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   küfür koruması regex|wildcard (https://www.ircforumlari.net/mirc-parca-kodlar/767417-kufur-korumasi-regex-wildcard.html)

CoCoRiCo 26 Ocak 2017 13:01
küfür koruması regex|wildcard
 
kullanım ve örnekler için /bw

Scriptinizde nasıl kullanacağınıza dair örnek
Kod:
on *:TEXT:*:#: { if $bw($1-).?  {  ban -ku600 #X $nick 2 küfür yasaktır! } }
Kod:
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 *****
  }
}

CoCoRiCo 02 Şubat 2017 13:09
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:
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:
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:
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
  }
}

L4roXyL 02 Şubat 2017 13:15
Cevap: küfür koruması regex|wildcard
 
Vuhuu.

CoCoRiCo 02 Şubat 2017 13:44
Cevap: küfür koruması regex|wildcard
 
Alıntı:
L4roXyL Nickli Üyeden Alıntı (Mesaj 1041840247)
Vuhuu.
uvlama bakim biraz çalış şunları düzelt :)

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:
%i $hget(bw~,%i)

Alper 05 Şubat 2017 15:16
Cevap: küfür koruması regex|wildcard gelişmiş
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041840245)
[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:
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:
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:
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

CoCoRiCo 06 Şubat 2017 09:11
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:
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)
  }
}

Alper 16 Şubat 2017 16:11
Cevap: küfür koruması regex|wildcard
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041841097)
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:
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:
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~ }

CoCoRiCo 20 Şubat 2017 16:55
Cevap: küfür koruması regex|wildcard
 
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041843575)
Bu şekilde denediğimde ise,

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

şekilde hata veriyor.

46. Satır
Kod:
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.

Alper 28 Şubat 2017 18:44
Cevap: küfür koruması regex|wildcard
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041844328)
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:
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.

onurcan1977 10 Nisan 2017 15:45
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:57.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net