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/)
-   -   oto selamda sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/56131-oto-selamda-sorun.html)

Regex 30 Nisan 2008 19:10

Cevap: oto selamda sorun
 
Alıntı:

L4roXyL Nickli Üyeden Alıntı (Mesaj 389164)
on *:text:*:#:if ($regex($1-,selam|slm|s.a|selam(ü|u)n aleyk(ü|u)m|selamlar)) { inc -eu30 $+(%,slm,$nick) 1 | if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs. }

Gibi.


Bu sefer de "S.a." gibi atılan selamlar alınmaz.

L4roXyL 01 Mayıs 2008 17:05

Cevap: oto selamda sorun
 
on *:text:*:#:if ($regex($1-,/(selam|slm|s.a|selam(ü|u)n aleyk(ü|u)m|selamlar)/i)) { inc -eu2 $+(%,slm,$nick) 1 | if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs. }

Şeklinde alıcaktır.

Dependent 01 Mayıs 2008 18:10

Cevap: oto selamda sorun
 
iyide selam(ü|u)n aleyk(ü|u)m|selamlar = selam
yani
/(selam|slm|s.a|selam(ü|u)n aleyk(ü|u)m|selamlar)/i = /(selam|slm|s.a)/i
not: hash kullanın hafızayı sömürün derim ;oki
ve bir not daha s.a = s(herhangi bir karakter)a onunda s\.a olması gerek
ve extra bir not daha: s.a.v kabul etmesin dersek s\.a(?<!\.) gibi kullanılabilir vs vs vs;painter

Nickolas 01 Mayıs 2008 18:53

Cevap: oto selamda sorun
 
Başka bir forumda kod olarak vermiştim. 60 saniye ignore koruması var. Çok iyi düşünülmüş bir kod değil. Tutarlılığını da pek bilemiyorum. Ama işe yarar :)

Kod:

alias re_selam {
  var %regex = /(^s\.a(\.?)$)|(^selam$)|(^selam(lar)?$)|(slm)|(^selam(..)?(\s)?aleyk.m$)|(^sa$)|(^sa(\.+)$)/gi
 
  if ($regex($1-, %regex)) {
    if (!$hget(isnick, $nick)) {
      msg $chan aleyküm selam $nick
    }
 
    hadd -mu60 isnick $nick $true
  }
}
 
on *:TEXT:*:#: {
  re_selam $1-
}
 
on *:ACTION:*:#: {
  re_selam $1-
}


L4roXyL 01 Mayıs 2008 20:46

Cevap: oto selamda sorun
 
Aslında haklısın.
Selamün aleyküm, selamlar vb. aynı yola çıkıyor regex 'de.

on *:text:*:#:if ($regex($1-,/(selam|slm|s\.a)/i)) { inc -eu30 $+(%,slm,$nick) 1 | if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs. }

Şeklinde yapılabilir.
30 saniye.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk