Pencere ve Willcard sorunu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

High · 14 Şubat 2021, 18:11

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

on @*:TEXT:*:#: {
  ;4 +o +h +v11'ler bu değerden etkilenmeyecekler.
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(badwords,%l)) {
    ban -u5000 # $nick 3
    kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
  }
}
alias badwords {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    if !$hget(badwords) { hmake badwords 1000 }
    hadd badwords $2
    secho  $2  4veritabanina başarıyla eklendi
    hsave badwords badwords.data
  }
  elseif ($1 == sil) {
    if ($hfind(badwords,$2)) {
      hdel badwords $2
      secho $2 11veritabanindan başarıyla silindi
      hsave badwords badwords.data
    }
    else { secho $2 7veritabaninda bulunamadı }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(badwords,0).item) {
      set %hbadwords $addtok(%hbadwords,$hget(badwords,%x).item,1)
      if ($numtok(%hbadwords,32) >= 7) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadwords }
      inc %x
    }
    if ($numtok(%hbadwords,32) >= 1) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hbadwords }
  }
  else { secho 11hatalı işlem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S }
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(badwords) { hmake badwords 1000 }
  if !$isfile(badwords.data) { hsave badwords badwords.data } 
  hload badwords badwords.data 
}

Selamun aleykum arkadaşlar yukarı da vermiş olduğum Küfür Kodu gayet güzel çalışmakta. Yanlış hatırlamıyorsam aCuSTiC arkadaşımıza ait di. Yalnız Kod da şöyle bi sorun yaşıyorum. Mesela kelimeyi eklerken willcard kullanıyoruz. Örnek: *Selam?nasılsın* şeklinde ekledik. Boşluklara anladığım kadarıyla ? işareti gelmeli dimi? boşluk olarak eklediğim de almıyor denedim. Kanalda ?? yazan yada * yazanı da atıyor buna sebep ne anladım. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s penceresine yapılan, takılan maskları yansıta bilir miyiz? Örneğin #Sohbet kanalında nickli kullanıcının kullandığı kelime takılan mask; şeklinde? en azından saçma sapan BAN attığın da sebep olan sorunu da görmüş oluruz. Teşekkürler.

cinaryigit · 14 Şubat 2021, 18:54

Atıldığı kelimeyi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s penceresinde gösterir.
[18:50] Ban Sebebi: Atılgan #angara Kanalında 18:50:10 Saatinde Şunu Yazdı: < sanane >
Diğerini bilmiyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

on @*:TEXT:*:#: {
  ;4 +o +h +v11'ler bu değerden etkilenmeyecekler.
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(badwords,%l)) {
    ban -u5000 # $nick 3
    kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
    if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s }
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s Ban Sebebi: $nick  $chan  Kanalında $time Saatinde Şunu Yazdı: < $1- >
  }
}
alias badwords {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    if !$hget(badwords) { hmake badwords 1000 }
    hadd badwords $2
    secho  $2  4veritabanina başarıyla eklendi
    hsave badwords badwords.data
  }
  elseif ($1 == sil) {
    if ($hfind(badwords,$2)) {
      hdel badwords $2
      secho $2 11veritabanindan başarıyla silindi
      hsave badwords badwords.data
    }
    else { secho $2 7veritabaninda bulunamadı }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(badwords,0).item) {
      set %hbadwords $addtok(%hbadwords,$hget(badwords,%x).item,1)
      if ($numtok(%hbadwords,32) >= 7) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadwords }
      inc %x
    }
    if ($numtok(%hbadwords,32) >= 1) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hbadwords }
  }
  else { secho 11hatalı işlem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S }
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(badwords) { hmake badwords 1000 }
  if !$isfile(badwords.data) { hsave badwords badwords.data } 
  hload badwords badwords.data 
}

Keyifli İF'ler

High · 14 Şubat 2021, 19:50

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Aynen çalışıyor ama dediğin gibi küfür geçen kelimeyi yansıtıyor sadece ekli maskı göstermiyor. Dur bakalım bilen birileri vardır herhalde.

Hesapsiz33 · 14 Şubat 2021, 20:08

Boşlukların arasına alt çizgi ekliyerek deneyin birde
Selam_nasılsın gibi.
Eklenen maskı yansıtmak için $hget(badwords) veya $hget(badwords).item yazarak deneyin birde.
Pek anlamıyorum ama belki olur.

High · 14 Şubat 2021, 20:09

Arkadaşlar yukarıda belirttiğim sorunu Çözdüm. KOd'un son halini burada paylaşıyorum belki kullanmak isteyen olur.

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

on @*:TEXT:*:#: {
  ;4 +o +h +v11'ler bu değerden etkilenmeyecekler.
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(badwords,%l)) {
    ban -u5000 # $nick 3
    kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
    if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S }
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S ==>0,1 # 12Kanalında uzaklaştırılan 0,1NiCK:4[ $nick ]12 yasağa takılan mask:0,1 $hmatch(badwords,%l)
  }
}
alias badwords {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    if !$hget(badwords) { hmake badwords 1000 }
    hadd badwords $2
    secho  $2  4veritabanina başarıyla eklendi
    hsave badwords badwords.data
  }
  elseif ($1 == sil) {
    if ($hfind(badwords,$2)) {
      hdel badwords $2
      secho $2 11veritabanindan başarıyla silindi
      hsave badwords badwords.data
    }
    else { secho $2 7veritabaninda bulunamadı }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(badwords,0).item) {
      set %hbadwords $addtok(%hbadwords,$hget(badwords,%x).item,1)
      if ($numtok(%hbadwords,32) >= 7) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32))) | unset %hbadwords }
      inc %x
    }
    if ($numtok(%hbadwords,32) >= 1) { secho $replace(%hbadwords,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hbadwords }
  }
  else { secho 11hatalı işlem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S }
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(badwords) { hmake badwords 1000 }
  if !$isfile(badwords.data) { hsave badwords badwords.data } 
  hload badwords badwords.data 
}
------------------------------------
/Badwords ekle *kelime*
/Badwords sil *kelime*
/Badwords list

Arkadaşlar zaten komutları verilmiş. Anlatılacak bir şey yok. Eklerken willcard kullanıyorsunuz daha kapsamlı ekleme yapabiliyorsunuz. Ek olarak Küfürlü kelime kullanan kişi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s penceresin gösterilir. Hangi kanalda hangi nick ne sebeple? hangi mask'ı kullandığı için atılmış görebilir. BUna göre de gerek görürseniz küfür ekler, siler yada düzenleye bilirsiniz.

KONU KİLİT.!

High · 16 Şubat 2021, 14:09

Arkadaşlar kusura bakmayın konu Kilit dedik ama başka bi sorunla karşılaştım.
[13:46] <Nick> ???
[13:46] * Oper mod değiştirdi:+b *!*Kaos@*.246.8DC331BA.FA0208CE
takılan MASK;
[13:46] ==> #Sohbet Kanalında uzaklaştırılan NiCK:[ Nick ] yasağa takılan mask: amq
Gördüğünüz gibi kişi ??? yazmış kanala fakat KOD amq olarak algılamış ve işlem yapmış ne sebepten böyle hatalı bi işlem uyguluyor olabilir. Bilgisi olan yardımcı olabilir mi? KOD'un son hali yukarıda'dır.

SuLh · 16 Şubat 2021, 14:35

Wildcard üzerinde "?" bu herhangi bir karakter anlamına geldiğinden, ??? ifadesi hash tablosunda 3 karakterli herhangi bir stringle eşleşecektir. Ayrıca boşluk eklenmemesinin sebebi hash tablosuna eklendiğinden <item> <data> kuralına uyduğu için (ilk kelimeyi item kalanını data görecek.)

Mylife · 16 Şubat 2021, 14:44

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

Arkadaşlar kusura bakmayın konu Kilit dedik ama başka bi sorunla karşılaştım.
[13:46] <Nick> ???
[13:46] * Oper mod değiştirdi:+b *!*Kaos@*.246.8DC331BA.FA0208CE
takılan MASK;
[13:46] ==> #Sohbet Kanalında uzaklaştırılan NiCK:[ Nick ] yasağa takılan mask: amq
Gördüğünüz gibi kişi ??? yazmış kanala fakat KOD amq olarak algılamış ve işlem yapmış ne sebepten böyle hatalı bi işlem uyguluyor olabilir. Bilgisi olan yardımcı olabilir mi? KOD'un son hali yukarıda'dır.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] < TIKLA

High · 16 Şubat 2021, 15:00

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam eyvallah çok sağ ol bilgi için. Şunu anlamadım mesela ' Selam Lezbiyenler ' yazdığın da biri ben bunu şu şekilde ekliyordum. *Selam?Lezb?yenler* şeklinde. Boşluk yerine ne kullanmalıyım burada onu anlamadım _ mi kullanılmalı yada. Ben Badnick eklerken nasıl willcard kullanıyorsak küfürlü kelime için de aynı o şekilde kullanıyorum. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hoca willcard konu anlatımının linkini vermiş onu da inceleyeceğim. Fakat bilmek istediğim boşluk yerine bu KOD da ne kullanmalıyım ve ö,i,ü,ç,ş gibi cümle de geçen harfler için ? işareti kullanmamalı mıyım?

Toprak · 16 Şubat 2021, 16:24

Böyle kullanabilirsin, sorun yaşamaşsın;

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

on @*:text:*:#:{
  if ($nick !isreg #) { return }
  elseif $hfind(badwords,$strip($1-),1,W).data {
    ban -u5000 # $nick 3
    kick # $nick 0,1FORBiDDEN:10 Uygunsuz kelimeler;4 Küfür, Hakaret Argo vb10 Kelimeler kullandığınız için kanaldan uzaklaştırıldınız.
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S),.window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S ==>0,1 # 12Kanalında uzaklaştırılan 0,1NiCK:4[ $nick ]12 yasağa takılan mask:0,1 $hget(badwords,$hfind(badwords,$strip($1-),1,W).data)
  }
}
alias badwords {
  if ($1 == ekle) && $regex($2,[A-Za-z]) {
    .hadd -ms badwords $left($md5($ticks),$r(10,25)) $strip($2)
    .hsave badwords badwords.data
    secho  $strip($2)  4veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) && $regex($2,[A-Za-z]) {
    if $hget(badwords,$strip($2)).data {
      .hdel -ms badwords $hfind(badwords,$strip($2),1,W).data
      .hsave badwords badwords.data
      secho $strip($2) 11veritabanindan başarıyla silindi
    }
    else { secho $strip($2) 7veritabaninda bulunamadı }
  }
  elseif ($1 == list) {
    if !$hget(badwords,0).data { secho Liste boş.. }
    else {
      secho Badwords list..
      secho -
      var %b = 1 | while %b <= $hget(badwords,0).data { secho $+(%b,-4,$chr(41),) $hget(badwords,%b).data | inc %b }
      secho -
      secho Badwords list sonu..
    }
  }
  else { secho 11hatalı işlem }
}
alias secho {
  $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S),.window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S)
  echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]S $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(badwords) { hmake badwords 1000 }
  if !$isfile(badwords.data) { hsave badwords badwords.data } 
  hload badwords badwords.data 
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Pencere Sorunu	Style35	mIRC Scripting Sorunları	2	20 Temmuz 2018 16:37
Mirc @Pencere Sorunu	c00	mIRC Scripting Sorunları	1	13 Nisan 2015 18:53
Pencere Sorunu	KiLLed	mIRC Scripting Sorunları	3	01 Ocak 2013 13:29
Timer bağlantı, pencere sorunu.	Prens	mIRC Scripting Sorunları	2	30 Nisan 2012 18:15
Pencere sorunu	SteNLie	mIRC Scripting Sorunları	1	24 Mart 2010 05:16

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.