mIRC seslenme kodu

Merhabalar IRCALEM.Net kullanıcılar’ı

Sunucunuz üzerinde’ki bağlı olan bütün userler’e seslenebilmek için kullanabileceğiniz ufak bir kod’dur. Kod’u mirc script’inizin remote kısmına ekledikten sonra herhangi bir kanalda /kanal yazarak bütün userler’e seslenebilirsiniz.

alias kanal { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }

1	alias kanal { var %x = $nick(#,0) \| var %y \| while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } \| dec %x } \| say %y $1- }

Eğer kanalda fazla user sayısı var ise aşağıdaki kod ile nickler’i txt dosyasına kaydettirip yazdırabilirsiniz.

alias kanal { if $active == $$chan { .remove liste.txt | var %a 1
    While %a <= $nick(#,0) { bwrite liste.txt -1 -1 $nick(#,%a) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a }
    Var %b 1 | while %b <= $lines(liste.txt) { say $replace($read(liste.txt,%b),$chr(160),$chr(32)) | inc %b }
  }
}

alias kanal { if $active == $$chan { .remove liste.txt | var %a 1

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

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

}

Not : Üsttek’i kodda Satır sayısı arttığı için nickleri kanal’a yansıtmamaktadır.ikinici kod’da ise txt okutmalı olduğu için öncelikle txt dosyasına kaydedip tek tek mirc tarafından kanal’a yazılmaktadır.