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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - ✔ Çözüldü Kelime Uyarıcı (https://www.ircforumlari.net/mirc-scripting-sorunlari/1069141-kelime-uyarici.html)

Comanche

25 Eylül 2025 21:08

Kelime Uyarıcı

Slmlar...

on *:text:*:#:{
var %1 = 1,%v1
while ($read(dosya.txt,%1)) {
%v1 = $v1
if ($regex($1-,%v1)) {
echo -caet action $nick # kanalında belirlediğiniz $+(kelimelerden,$chr(40),%v1,$chr(41)) birini kullandı.
break
}
inc %1
}
}

(Code L4roXyL aittir.)

Bu codede cümle içinde içinde geçen tek kelimelerde uyarı veriyor.

Dosya.txt'e fatih sultan mehmet gibi 3 kelimelik bir eklenti yaptıgımda kanalda fatih sultan mehmet yazılsada uyarı vermiyor. Yardımcı olursanız sevinirim.

manikdepresif

25 Eylül 2025 22:22

Cevap: Kelime Uyarıcı

Cumlede en az 3 kelimenin eşleşmesini mi istiyorsunuz ? @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Comanche

26 Eylül 2025 08:15

Cevap: Kelime Uyarıcı

Şunu demek istedim.

Listede ekli kelimemiz Fatih Sultan Mehmet olduğunu düşünelim.
Cümle içerisinde fatih yada sultan yada Mehmet kelimelerinden herhangi biri geçtiğinde uyarı veriyor.
Sadece içlerinden bir kelime geçtiğinde değilde
Listemde ekli olduğu gibi tam olarak fatih sultan Mehmet kelimesi yazıldığında uyarı vermesini istiyorum.

h4pp3n

26 Eylül 2025 08:32

Cevap: Kelime Uyarıcı

Kod:

on *:text:*:#: {

  var %i = 1, %ara

  while ($read(dosya.txt,%i)) {

    %ara = $v1

    var %bak = $regsubex(%ara,/([\\\^\$\.\|\?\*\+\(\)\[\]\{\}])/g,\\\1)

    if ($regex($1-,/\b $+ %bak $+ \b/i)) {

      echo -caet # $nick kanalında belirlediğiniz $+(ifade,$chr(40),%ara,$chr(41)) ifadesini kullandı.

      break

    }

    inc %i

  }

}

dene bakalım .. umarım isine yarar ..

Comanche

26 Eylül 2025 08:51

Cevap: Kelime Uyarıcı

h4pp3n Maalesef çalışmadı..

manikdepresif

26 Eylül 2025 10:00

Cevap: Kelime Uyarıcı

dosyadan ornek olarak 10 tane kadar liste ornegi verir misin sonunun tam anlasilmasi icin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SNOOPY

26 Eylül 2025 13:41

Cevap: Kelime Uyarıcı

Kod:

on *:text:*:#:{

  var %file = $mircdir\dosya.txt

  if (!$isfile(%file)) return
 

  var %msg = $lower($1-)

  var %i = 1, %line, %word, %tok
 

  while ($read(%file,%i)) {

    %line = $read(%file,%i)

    if (%line == $null) break
 

    if ($left(%line,3) == $chr(239) $+ $chr(187) $+ $chr(191)) {

      %line = $right(%line,$calc($len(%line)-3))

    }
 

    %line = $remove(%line,$chr(13),$chr(10))

    %line = $lower(%line)
 

    var %tok = 1

    while ($gettok(%line,%tok,32)) {

      %word = $gettok(%line,%tok,32)

      if ($pos(%msg,%word)) {

        if (!$window(@Uyarilar)) window -en @Uyarilar

        aline @Uyarilar [ $time(HH:nn) ] < $nick > $1-

        return

      }

      inc %tok

    }

    inc %i

  }

}

@Uyarilar benceresinde

Alıntı:

13:54 < deneme > Mavi: sana Mehmet Abinin selamı var

Gösteriyor

Comanche

26 Eylül 2025 14:39

Cevap: Kelime Uyarıcı

hepinize tşk ederim....

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:43.