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

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

- - Nickimi 5 defa yazanı oto ignore (https://www.ircforumlari.net/mirc-scripting-sorunlari/751998-nickimi-5-defa-yazani-oto-ignore.html)

Cevap: Nickimi 5 defa yazanı oto ignore

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

Cevap: Nickimi 5 defa yazanı oto ignore

Alıntı:

ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1042307850)

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

merak edip bende denedim de aynı sizin dediginiz gibi göstermedi.
ben eski mirc kullanıyorum eger sizde eski sürüm kullanıyorsanız kesin ondan eksik calışıyordur.

Cevap: Nickimi 5 defa yazanı oto ignore

Aliaslarini eklediniz mi denerken?

Cevap: Nickimi 5 defa yazanı oto ignore

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042307913)

Aliaslarini eklediniz mi denerken?

yok ben alias felan eklemedim bana lazım degil kod öylesine merak edip denemiştim.

Cevap: Nickimi 5 defa yazanı oto ignore

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

Burada aliaslar var bunlar ekli olması lazım çalışması için.

Cevap: Nickimi 5 defa yazanı oto ignore

Alıntı:

xwerswoodx Nickli Üyeden Alıntı (Mesaj 1041792872)

PHP- Kodu:

   alias trduration { return $replace($duration($1),wks,$chr(32) $ince(Hafta),days,$chr(32) $ince(Gün),hrs,$chr(32) $ince(Saat),secs,$chr(32) $ince(Saniye),mins,$chr(32) $ince(Dakika),min,$chr(32) $ince(Dakika),hr,$chr(32) $ince(Saat),wk,$chr(32) $ince(Hafta),day,$chr(32) $ince(Gün),sec,$chr(32) $ince(Saniye)) }

alias ince { return $+($chr(2),$1-,$chr(2)) }

Kod:

On *:text:*:#: { 

  if $regex($1-,/^(.*[[:space:]]|)nickin([[:space:]].*|)/i) { 

    .inc -u600 %:nickim [ $+ [ $nick ] ] 1

    if %:nickim [ $+ [ $nick ] ] == 4 { msg # Nickimi 4 kere yazdınız, eğer tekrar yazarsanız ignore edileceksiniz. Nickimi tekrar yazabilmek için $ince($trduration($var(:nickim_ [ $+ [ $nick ] ],1).secs)) daha beklemelisiniz. }

    elseif %:nickim [ $+ [ $nick ] ] == 5 {  msg # 2 $nick Nickimi 30 Dakika icersinde 5 sefer yazdığınız için Otomatik oLarak ignore edildiniz (: | ignore $nick | .timer -o 1 600 ignore -r $nick | .unset %:nickim [ $+ [ $nick ] ]  }

  } 

}

denedim veriablese flood yapan nicki ekliyor %:nickimfloodyapannick 4

Nickimi 4 kere yazdınız, eğer tekrar yazarsanız ignore edileceksiniz. Nickimi tekrar yazabilmek için 0 daha beklemelisiniz.
süreyi 0 olarak gösteriyor ama dedigim gibi ben eski mirc sürümü kullanıyorum ondan tam calısmıyordur.
arkadas farklı mircte denerse sorunsuz çalışır kesin.

Cevap: Nickimi 5 defa yazanı oto ignore

Böyle olmayacak tam halini atayım :)

Kod:

alias trduration { return $replace($duration($1),wks,$chr(32) $ince(Hafta),days,$chr(32) $ince(Gün),hrs,$chr(32) $ince(Saat),secs,$chr(32) $ince(Saniye),mins,$chr(32) $ince(Dakika),min,$chr(32) $ince(Dakika),hr,$chr(32) $ince(Saat),wk,$chr(32) $ince(Hafta),day,$chr(32) $ince(Gün),sec,$chr(32) $ince(Saniye)) }

alias ince { return $+($chr(2),$1-,$chr(2)) } 

on *:text:*:#: { 

  if $regex($1-,/^(.*[[:space:]]|)nickin([[:space:]].*|)/Si) { 

    .inc -u600 %:nickim [ $+ [ $nick ] ] 1

    if %:nickim [ $+ [ $nick ] ] == 4 { msg # Nickimi 4 kere yazdınız, eğer tekrar yazarsanız ignore edileceksiniz. Nickimi tekrar yazabilmek için $ince($trduration($var(:nickim [ $+ [ $nick ] ],1).secs)) daha beklemelisiniz. }

    elseif %:nickim [ $+ [ $nick ] ] == 5 {  msg # 2 $nick Nickimi 30 Dakika icersinde 5 sefer yazdığınız için Otomatik oLarak ignore edildiniz (: | ignore $nick | .timer -o 1 600 ignore -r $nick | .unset %:nickim [ $+ [ $nick ] ]  }

  } 

}

Cevap: Nickimi 5 defa yazanı oto ignore

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042307913)

Aliaslarini eklediniz mi denerken?

evet ekledim mirc sürümüm 6.35

Cevap: Nickimi 5 defa yazanı oto ignore

Belirlediğimiz bir nick özele yazdıgı anda ignore edebiliyormuyuz mesajla ?

Cevap: Nickimi 5 defa yazanı oto ignore

Alıntı:

fasafiso Nickli Üyeden Alıntı (Mesaj 1042499740)

Belirlediğimiz bir nick özele yazdıgı anda ignore edebiliyormuyuz mesajla ?

bu isinize yarar belki.

Kod:

on *:open:?: {

  if $read(yasak.txt,w,$nick) { .ignore $nick | closemsg $nick }

}

alias ekle {

  if  $read(yasak.txt,w,$1) { echo -t 4 $+ $1 zaten listede ekli4 ! }

  else { echo -t 4 $+ $1 yasak listesine eklendi. | write yasak.txt $1 }

}

alias sil {

  if  !$read(yasak.txt,w,$1) { echo -t 4 $+ $1 listede yok4 ! }

  else { echo -t 4 $+ $1 Yasaklı listesinden silindi. | $iif($read(yasak.txt,w,$1),write $+(-dl,$readn) yasak.txt) }

}

alias list { 

  var %s = 1,%ss = $lines(yasak.txt)

  while %s <= %ss {  echo -t 4 $+ $read(yasak.txt,%s) | inc %s }

}