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

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

- - Çözüldü !Seslenme Addou Yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/1046747-seslenme-addou-yardim.html)

!Seslenme Addou Yardım

merhaba arkadaşlar forumda aradım ama buladım konu benzeri konu yada konular mevcutsa affola bir ricam olacak bulunduğum kanalda !seslen yazınca kanaldaki herkeze seslenmesini istiyorum kangi kanal olursa olsun lütfen yardımcı olurmusunuz şimdiden teşekkürler.

Cevap: !Seslenme Addou Yardım

Merhabalar
-

Kod:

alias millet { if $active == $$chan { .remove nickler.txt | var %a 1 

    while %a <= $nick(#,0) { bwrite nickler.txt -1 -1 $nick(#,%a) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 

    var %b 1 | while %b <= $lines(nickler.txt) { say $replace($read(nickler.txt,%b),$chr(160),$chr(32)) | inc %b }  

  }

}

-

Muaflı

alias millet { if $active == $$chan { .remove nikler.txt | var %a 1 

    while %a <= $nick(#,0) { bwrite nickler.txt -1 -1 $iif(!$regex($nick(#,%a).pnick,/^(@|&|\.|~|%)/),$nick(#,%a)) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 

    var %b 1 | while %b <= $lines(nickler.txt) { say $replace($read(nickler.txt,%b),$chr(160),$chr(32)) | inc %b }  

  }

}

-
istediğiniz kodlama bu şekilde, yetkili muaflı şekilde de kullanabilirsiniz.
-
Kurulum anlatımı
Script'iniz açık iken klavyenizden Alt+R tuşlarına basınız.
Acılan editörünüzden Dosya kısmından yeni bir sayfa açarak istediğiniz kodu yerleştirip TAMAM demeniz yeterli olacaktır
Kullanımı: /millet
Keyifli forumlar.

Cevap: !Seslenme Addou Yardım

Alıntı:

LafLayak Nickli Üyeden Alıntı (Mesaj 1042943147)

Kod:

on *:input:#: {

  if ($1 == !seslen) {

    var %message = $2- 

    var %nickList

    var %a 1
 

    

    while (%a <= $nick($active,0)) {

      if ($nick($active,%a) != $me) { 

        %nickList = %nickList $nick($active,%a)

      }

      inc %a

    }
 

    if (%nickList) {

      msg $active %nickList

      msg $active -----------

      msg $active %message

    }

    halt 

  }
 

  elseif ($1 == !seslenMuafli) {

    var %message = $2-

    var %nickList

    var %a 1
 

    while (%a <= $nick($active,0)) {

      if (($nick($active,%a) != $me) && !$regex($nick($active,%a).pnick, /^(@|&|\.|~|%)/)) {

        %nickList = %nickList $nick($active,%a)

      }

      inc %a

    }
 

    if (%nickList) {

      msg $active %nickList

      msg $active -----------

      msg $active %message

    }

    halt 

  }

}

Bu kod her hangi bir kanalda !seslen yaparsanız nickleri tablar !seslen yazınızı kimse görmeyecektir, Dilerseniz !seslen selam yazdığınızda nickleri tablayıp --- Boşluk bırakıp selam yazar

!seslenmuafli yaparsanız kanal operatörlerinin nicklerini tablamayacaktır.

Cevap: !Seslenme Addou Yardım

on *:TEXT:!seslen:#: {
var %kanal = $chan
var %liste
var %i = 1

; Kanal listesindeki kişileri topla
while ($nick(%kanal,%i)) {
var %nick = $nick(%kanal,%i)
; Opsiyonel: kendini ve botları dışla
if (%nick != $me) {
%liste = %liste @%nick
}
inc %i
}

; Mesajı gönder
msg %kanal %liste
}

!seslen komutu yazıldığında:
• Komutun yazıldığı kanalı otomatik tanır.
• O anda kanalda bulunan tüm kullanıcıların nicklerini @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şeklinde toplar.
• Tümünü tek mesajda yaza