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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Özel yasak uyarısı (https://www.ircforumlari.net/mirc-scripting-sorunlari/402535-ozel-yasak-uyarisi.html)

Özel yasak uyarısı

S.a Herkese hayırlı ramazanlar.. şimdi elimde bir cod var oncelikle kodu vereyim

PHP- Kodu:

   #uyarı on
on *:text:*:#:{
  if ($nick isreg $chan) {
    if $istok($1-,ozele,32) || $istok($1-,özeline,32)  || $istok($1-,özelde,32) ||  $istok($1-,özelime,32) || $istok($1-,özele,) {
      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan  UYARI:  $nick : Kanal Genelinde Kullanıcıları Özele Davet Etmek Yasaktır! Aksi Taktirde Kanaldan Uzaklaştırılacaksınız! }
      else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 2 Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ <  Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Kurallara uymadığınız Için Kanaldan Uzaklaştırıldınız.. | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
      }
    }
  }
}
#uyarı end

Şimdi yukardaki kod kanalda kullanıcıları özee davet edenlere 1.de uyarı tekrarı halinde kanaldan banlıyor eklenmis kelimeler ozele,özele,özeline,özelime,özelde.. gibi bunları kullanan kisileri 1.de uyarıyor 2.de kanaldan uzaklastırıo burakaya kadar sorun yok ama mesela bayan özelde konusmuyorum özele bakmıyorum vb dediği zaman oda korumadan etkilenior.. Şimdi benim istediğim kelimeyi tamamen almak yani birisi (özele gelirmisin,özele bak, özelde konusalımmı,) derse şayet kodun calısmasını istiorm lakin yazan kisi illaki bosluk bırakıcak "özele gel" gibi yukardaki codu bu sekilde nasıl ayarlarız bosluguda kapsayacak sekilde.
ikinci istegim ise bu kod ceza uygularken gecici akick eklior ben bunu akick deilde 15dk sora acılması kaydıyla ban+kick olarak nasıl ayarlarım? Sevigli koder arkadaslar ilgilenirse cok sevinirim iyi gunler herkese..;s1

Cevap: Özel yasak uyarısı

Kod:

#uyarı on

on *:text:*:#:{

  if ($nick isreg $chan) {

    if ($regex($1-,/(ö|Ö|o)zel(e|d|i)/i) &&  $regex($1-,/(konu(s|ş|Ş)(a|c|ç|Ç)|gel|gel(e|i|c|s)|gid(e|c)|bak|bak(c|Ç|ç|ı|i))/i)) {

      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan  UYARI:  $nick : Kanal Genelinde Kullanıcıları Özele Davet Etmek Yasaktır! Aksi Taktirde Kanaldan Uzaklaştırılacaksınız! }

      else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ <  Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Kurallara uymadığınız Için Kanaldan Uzaklaştırıldınız.. | .timer $+ $nick -d 1 900 mode $chan -b $nick | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }

      }

    }

  }

}

#uyarı end

Denemedim ama, çalışacaktır.

Cevap: Özel yasak uyarısı

Teskkurler ilgin için ustat burda özeline,özelime,özelde, kelimelerinide kapsıyormu yoksa sadece "özele" kelimesimi?

Cevap: Özel yasak uyarısı

Daha önce, içinde sadece "özele" kelimesi geçen cümleler kabul oluyordu ama biraz değiştirdim, düzenledim tekrardan.

Düzenleme: içerisinde özelime, özeline, özelde , özele vs vs geçen bütün kelimeleri kapsaycak hale getirilmiştir. Ayrıca boşluklu boşluksuz her türlü yakalayacaktır.

Not: kapsamı geniş olduğundan dolayı, sorun yaşayabilirsin, daha önce o yuzden sadece "o/özele" şeklinde ayarlamıştım. Fakat bu şekilde çok daha hassas olacaktır ve yanlış banlamalara sebeb olabilir.

Örnek:
Bu benim özelim kimse karışamaz -> banlar
bu aracın özellikleri içerisinde motor bozuk -> banlar
benim en iyi özelliğim sessizliktir. -> banlar

Bunu engellemek istiyorsan;

Kod:

$regex($1-,/(ö|o)zel([a-z])/i)

Bu kısımdaki (ö|o)zel([a-z]) şu satırı, daraltabilirsin.

Örnek -> (ö|o)zel(e|d|i) yaparsan, özelime, özelde, özeli gibi geçen kelimeleri yakalayacaktır, bunu kafana göre eklediğim harfleri yan yana belirlediğim gibi ekleyebilirsin.

Cevap: Özel yasak uyarısı

S.a şimdi burdaki sorunu ilk mesajda belirtmiştim sanırım dikkat etmemişsin ustat ;s1 ben sadece özele,özelde,özelime,özeline kelimeleri değil (özele gel,özeline geleyimmi,özelde konusalımmı,özele gelirmisin) gibi belirli cümleleri almak istiyorum ama aradaki bosluqu kapsayacak yani senin dediğin gibi olduqunda illaki bayanda özele bakmam der ve oda etkilenir sadece parantez içindekileri bosluquda kapsayacak sekilde istiorm eğer mumkun olursa kelimeleri biraz daha coğaltabilirz :D iyi sabahlar diliyorum

Cevap: Özel yasak uyarısı

Bu kısmı $regex($1-,/(ö|o)zel([a-z])/i)

Kod:

$regex($1-,/(ö|Ö|o)zel(e|d|i)/i) && $regex($1-,/(konu(s|ş|Ş)(a|c|ç|Ç)|gel|gel(e|i|c|s)|gid(e|c)|bak|bak(c|Ç|ç|ı|i))/i)

böyle değiştir o halde.

Kullanımlar;
özelimde konuşalım -> banlar
özele gidelim -> banlar
özele gelmem -> banlamaz
özele bakmıyorum -> banlamaz
özelime bakmıyorum -> banlamaz
özelde konuşalım -> banlar
özelimde konuşmuyorum -> banlamaz

vs vs işini görecektir. İlk mesajımı da editledim, ordan tüm kodu tekrar alabilirsn.

Cevap: Özel yasak uyarısı

Cok tesekkur ederim bişey sorayım kanalda genelde özele davet ederken en cok kullanılan kelime (özele gel, özele bak, özele gelirmisin özeline bak) bu kod bunları yazanlarıda banlıyormu?

Yukardaki mesajı kodu denemeden yazmıştım ve denedim gördümki en cok kullanılan (özele bak, özele gel) cümlelerinde calısmıyor birde özelde konusalımmı cümlesinde banlıyor fakat ÖzeLde KonusaLımmı yaznca banlamıor yani büyük harf duyarlı değil bunlarıda ayarladığmızda kod süper olucak :D

Cevap: Özel yasak uyarısı

Kod:

$regex($1-,/(ö|Ö|o)zel(e|d|i)/i) &&  $regex($1-,/(konu(s|ş|Ş)(a|c|ç|Ç)|gel|gel(e|i|c|s)|gid(e|c)|bak|bak(c|Ç|ç|ı|i))/i)

al bakalım.

Cevap: Özel yasak uyarısı

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040782659)

Kod:

$regex($1-,/(ö|Ö|o)zel(e|d|i)/i) &&  $regex($1-,/(konu(s|ş|Ş)(a|c|ç|Ç)|gel|gel(e|i|c|s)|gid(e|c)|bak|bak(c|Ç|ç|ı|i))/i)

al bakalım.

Üstat kod bu sefer hic bir tepki vermedi ;s2
[19:47] <Caki> ÖzeLe Ge
[19:47] <Caki> ÖzeLe Gel
[19:47] <Caki> ÖzeLe Bak
[19:47] <Caki> ÖzeLde KonusaLımmı
[19:48] <Caki> özele bak
[19:48] <Caki> özele gel
[19:48] <Caki> özelde konusalımmı
*** Remote Açık (Ctcps,Events,Raw)
[19:48] <Caki> özele gel
[19:48] <Caki> özelde konusalımmı
[19:48] <Caki> özele gelirmisin
[19:48] <Caki> özeline bak
[19:48] <Caki> özelimde konusalımm

Cevap: Özel yasak uyarısı

Kod:

#uyarı on

on *:text:*:#:{
   if ($nick isreg $chan) {

  if ($regex($1-,/(ö|Ö|o)zel(e|d|i)/i) &&  $regex($1-,/(konu(s|ş|Ş)(a|c|ç|Ç)|ge(c|ç|Ç)|gel|gel(e|i|c|s)|gid(e|c)|bak|bak(c|Ç|ç|ı|i))/i)) {

      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan  UYARI:  $nick : Kanal Genelinde Kullanıcıları Özele Davet Etmek Yasaktır! Aksi Taktirde Kanaldan Uzaklaştırılacaksınız! }

      else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ <  Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Kurallara uymadığınız Için Kanaldan Uzaklaştırıldınız.. | .timer $+ $nick -d 1 900 mode $chan -b $nick | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }

      }

    }
   }

}

#uyarı end

Böyle ekleyeceksin, denedim hiç bir problemi yok, kusursuz çalışıyor şuan için. Yalnız kırmızıyla işaretlediğim yerleri kaldırsan iyi olur biraz saçma.