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

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

- - Çözüldü !seslen alias sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/691269-seslen-alias-sorunu.html)

Cevap: !seslen alias sorunu

Alıntı:

SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042211720)

öncelikle selam guzel kod yapmıssınız elinize sağlık peki bu koda muaf nick eklenebilirmi kamal koruma botu kanal radyo botu ismi gecmesin istiyorum bir de mümkünse kim seslenmisse onun nicki görünsün
örnek Ali #kanalda size sesleniyor mehmet osman yayın alacak varmı
mümkünse şimdiden tesekkürler

Kod:

on *:input:#:{ 

  if $regex($1,/^[!\.]seslen$/Si) && $regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/) && $2 {

    msg # $regsubex($str(-,$nick(#,0)),/./g, $+($chr(3),$r(1,4)) $iif($nick(#,\n) != $me,$iif($nick(#,\n) != Nick1,$iif($nick(#,\n) != Nick2,$nick(#,\n)))) $+($chr(32),$chr(3),5)) ==>6 $nick 1size5 $chan 1kanalında sesleniyor: $+($chr(3),12,$2-)

  }

}

ya da;

Kod:

on *:input:#:{ 

  if $regex($1,/^[!\.]seslen$/Si) && $2 {

    .hadd -ms seslen $chan $2- | who $chan

  }

}
 

raw 352:*:{

  if $hget(seslen,$2) {

    if $regex($7,/(%|@|&|~|\.)/) {

      if $regex($6,/( $+ $me $+ |Nick1|Nick2|Nick3)/Si) { return }

      .hadd -m seslen nickler $hget(seslen,nickler) $+($chr(3),$r(1,4),$6)

    }

  }

}

raw 315:*:{

  if $hget(seslen,$2) && $hget(seslen,nickler) {

    msg $2 $hget(seslen,nickler) $+($chr(32),$chr(3),5) ==>6 $me 1size5 $2 1kanalında sesleniyor: $+($chr(3),12,$hget(seslen,$2))

    .hfree -sw seslen

  }

}

İki şekilde de yapabilirsiniz. Gerekli noktaları kırmızı ile belirttim.

İyi forumlar.

Cevap: !seslen alias sorunu

Emrehan elinize sağlık çok teşekkür ederim.

İyi forumlar.

Cevap: !seslen alias sorunu

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041665034)

Buna bir kaç yol ile ulaşabilirsin.

1- $nick() tanımı ve mirc.chm anlatımı.

Kod:

$nick(#,N/nick,aohvr,aohvr)
 

Returns Nth nickname in the channels nickname listbox on channel #.

Properties: color, pnick, idle
 

$nick(#mIRC,0)  returns the total number of nicknames on #mIRC

$nick(#mIRC,1)  returns the 1st nickname on #mIRC
 

Both aohvr parameters are optional. The first specifies which nicks you'd like included, and the second specifies the nicks you'd like excluded, where:
 

  a = all nicks, o = ops, h = halfops, v = voiced, r = regular
 

$nick(#mIRC,1,o)  return the first op on #mIRC

$nick(#mIRC,0,a,o)  return the total number of nicks not including ops on #mIRC
 

The pnick property returns the nickname in a .@%+nick format.

$nick(#kanal,Sıra,o)

Örnek:
-

Kod:

//while ¿ { inc -u %u | echo -a $$nick(#,%u,o) }

Kanaldaki +o modesi almış kullanıcıları listeler. (+oa +oq vs bunlara dahildir.)

2- $nick().pnick Properties (özelliği)

Örnek:

Kod:

//while ^\?$ { inc -u %u | if (@* iswm $$nick(#,%u).pnick) echo -a $v2 }

Sadece @ Prefixine sahip kullanıcıları döner.

- Kanal @ (op) larını bulmak için isaop operatörünü falan da kullanabilirsin. Yol çok. Üstteki örneklerde sadece kanal @ larına nasıl ulaşabileceğinin anlatımı var. Gerisi ihtiyacın olan kodları şekillendirmeye kalmış.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Merhaba üstad peki şöyle bir sorun var , kanal text satırının belli bi sayı sınırı olduğu için bi sayıdan sonra tam olarak herkese seslenmiyor bot üzerinde herkese kendi sayfasında seslenmiş gözüküyor fakat farklı bir yerden bakılınca seslenmiyor , bu max satırı ( 100 ) sayıcak olursak kanala hepsinin seslenilmesi için nasıl ypabiliriz ? Şimdiden teşekkür ederim.

Cevap: !seslen alias sorunu

Alıntı:

Umud1990 Nickli Üyeden Alıntı (Mesaj 1042490307)

Kalabalık kanallarda herkese seslenmek için @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] in 22 Ocak 2014, 02:34 tarihinde yaptığı bir kod var. Onu kullanıp ihtiyaçlarına göre düzenleyebilirsin.

Kullanımı: Kanalda /seslen

Kod:

alias seslen { 

  var %a 1,%b,%c $nick(#,0)

  while %a <= %c {  

    if ($len(%b) > 820 || %a == %c) { say %b | var %b }

    var %b %b $nick(#,%a) | inc %a

  } 

  say - | say $1- 

}

Kolay gelsin.

Cevap: !seslen alias sorunu

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1042490808)

Kod:

alias seslen { 

  var %a 1,%b,%c $nick(#,0)

  while %a <= %c {  

    if ($len(%b) > 820 || %a == %c) { say %b | var %b }

    var %b %b $nick(#,%a) | inc %a

  } 

  say - | say $1- 

}

Kolay gelsin.

efsane geri döndü :)

Cevap: !seslen alias sorunu

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042212221)

Kod:

on *:input:#:{ 

  if $regex($1,/^[!\.]seslen$/Si) && $regex($nick(#,$nick).pnick,/(%|@|&|~|\.)/) && $2 {

    msg # $regsubex($str(-,$nick(#,0)),/./g, $+($chr(3),$r(1,4)) $iif($nick(#,\n) != $me,$iif($nick(#,\n) != Nick1,$iif($nick(#,\n) != Nick2,$nick(#,\n)))) $+($chr(32),$chr(3),5)) ==>6 $nick 1size5 $chan 1kanalında sesleniyor: $+($chr(3),12,$2-)

  }

}

ya da;

Kod:

on *:input:#:{ 

  if $regex($1,/^[!\.]seslen$/Si) && $2 {

    .hadd -ms seslen $chan $2- | who $chan

  }

}
 

raw 352:*:{

  if $hget(seslen,$2) {

    if $regex($7,/(%|@|&|~|\.)/) {

      if $regex($6,/( $+ $me $+ |Nick1|Nick2|Nick3)/Si) { return }

      .hadd -m seslen nickler $hget(seslen,nickler) $+($chr(3),$r(1,4),$6)

    }

  }

}

raw 315:*:{

  if $hget(seslen,$2) && $hget(seslen,nickler) {

    msg $2 $hget(seslen,nickler) $+($chr(32),$chr(3),5) ==>6 $me 1size5 $2 1kanalında sesleniyor: $+($chr(3),12,$hget(seslen,$2))

    .hfree -sw seslen

  }

}

İki şekilde de yapabilirsiniz. Gerekli noktaları kırmızı ile belirttim.

İyi forumlar.

bu kodda sadee yetkilileremi sesleniyor banamı öyle denk geldi

Cevap: !seslen alias sorunu

Alıntı:

Joop Nickli Üyeden Alıntı (Mesaj 1042522978)

bu kodda sadee yetkilileremi sesleniyor banamı öyle denk geldi

Merhaba,

Evet, sadece yetkililer baz alınsın şeklinde ayarlıdır.

Cevap: !seslen alias sorunu

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042523020)

Merhaba,

Evet, sadece yetkililer baz alınsın şeklinde ayarlıdır.

muaf tutulan ickler harici tüm kanal'a ayarlayabiliriyiz peki[COLOR="Silver"]

Cevap: !seslen alias sorunu

Kodda Sıkıntı Oldugundan Paylaşımdan Kaldırdım.

Cevap: !seslen alias sorunu

Alıntı:

Joop Nickli Üyeden Alıntı (Mesaj 1042523022)

muaf tutulan ickler harici tüm kanal'a ayarlayabiliriyiz peki[COLOR="Silver"]

Kod:

on *:text:*:#: {

  if $regex($1,/^([.!]seslen)/Si) {

    if !$istok(Nick1 Nick2 Nick3 Nick4 Nick5,$nick,32) { msg # 4Bu komutu kullanmaya yetkiniz yok. | return }

    unset %y | set %s 0 | var %i = 1  | while %i <= $nick(#,0) { 

      if !$istok(Muaf1 Muaf2 Muaf3 Muaf4 Muaf5,$nick(#,%i),32) {

    $iif(%y,set %y %y $nick(#,%i),set %y $nick(#,%i)) | inc %s | if %s = 15 {  msg # 0,6 %y | set %s 0 | unset %y } } | inc %i }  

    msg # 0,6 ~ %y ~ | msg # 3 - 

  }

}

Nick1 Nick2 Nick3 Nick4 Nick5 : !seslen komutu için yetki atamasıdır , çoğaltılabilir azaltılabilir.

Muaf1 Muaf2 Muaf3 Muaf4 Muaf5 : !seslen komutundan muaf tutulacaklar içindir , çoğaltılabilir azaltılabilir.

Sanırım bu işine yarar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bilgilendirme : Code Alıntıdır.