This script will highlight every nick on the channel.
Usage: /hlit
":D" \:D/
alias hlit {
var %i 1
while (%i <= $nick($chan,0)) {
if ($len(%k) < 300) { var %k = %k $+ $chr(44) $nick($chan,%i) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
inc %i
}
if (%k) { msg $chan $right(%k,-1) }
}
Auris 123 wrote:
I want highlight only ppl who got voices or higher rank. Can someone create for me this script?Here you go:
alias hlit {
while ($nick(#,$0,a,r)) {
tokenize 32 $1- $v1
}
$iif($remtok($2-,$me,32),msg # $2-)
}
If you happen to use an older copy of mirc, and the code doesn't respond to your trigger, change $v1 to $ifmatch
Please note that, depending on the limit of characters your network allows, some nicks may get cut off if you have a very big channel with many voices, ops, or above...since the highlighted nicks will be displayed horizontally. Other than that, the code should work fairly well for you.
I made a kind of a similiar script I named Typos Activity Checker and its purpose was to let you know whenever any activity happens in a channel. Its code is a lot larger than this one but it also lets you manage a list of channels it should monitor and some other options about what it checks for.
I had almost forgot about it until now.
I think Ill post it actually.
Good job btw OP. Very nice compact code that does exactly what it says. 6/10
alias hlit {
var %i 1
while (%i <= $nick($chan,0)) {
if ($nick($chan,%i) isop $chan) var %pre @
if ($nick($chan,%i) isvoice $chan) var %pre +
if ($nick($chan,%i) isreg $chan) var %pre $null
if ($len(%k) < 300) { var %k = %k $+ $chr(44) $+(%pre,$nick($chan,%i)) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
inc %i
}
if (%k) { msg $chan $right(%k,-1) }
}
Ubuntu FTW!
Nice script man, I took all the modifications everyone made and threw them all into one:
alias hlit {
unset %hiopt
var %i 1
while (%i <= $nick($chan,0)) {
if (!$1) {
if ($len(%k) < 300) { var %k = %k $+ $chr(44) $nick($chan,%i) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
}
else if ($1 == color || $1 == symbol) {
var %hiopt 1
if ($nick($chan,%i) isop $chan) { var %k $addtok(%k, 4 $+ @ $+ $nick($chan,%i),32)) }
if (($nick($chan,%i) ishop $chan) && ($nick($chan,%i) !isop $chan)) { var %k $addtok(%k, 10 $+ % $+ $nick($chan,%i),32)) }
if (($nick($chan,%i) isvoice $chan) && ($nick($chan,%i) !isop $chan) && ($nick($chan,%i) !ishop $chan)) { var %k $addtok(%k, 9 $+ + $+ $nick($chan,%i),32)) }
if ($nick($chan,%i) isreg $chan) { var %k $addtok(%k, 8 $+ ^ $+ $nick($chan,%i),32)) }
}
else if ($1 == no || $1 == rand) {
if (!%k) || ($len(%k) <= 300) { var %k = %k $+ $chr(44) $replacex($nick($chan,%i),$left($mid($nick($chan,%i),$r(1,$len($nick($chan,%i)))),1),*) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
}
inc %i
}
if (%hiopt == 1) { msg $chan %k }
else if (%k) { msg $chan $right(%k, -1) }
halt
}
I also slightly modified yours, EL, now It will only display each nick only once even if they have a combination of op, hop, and voice. :D
EDIT: Now the % shows up for halfops.
EDIT AGAIN: Um... I dont know how to make the color and bold char appear so ill just tell you what I did to make the % appear. You have to surround it with some kind of bold, reverse, color, or underline chars, I used bold then to make everything else fit I bolded the other chars aswell.
YOU HAVEN\'T SEEN ANYTHING YET!
This replaces random letters with * symbol! :D
alias hlit {
var %i = 1
while (%i <= $nick($chan,0)) {
if (!%k) || ($len(%k) <= 300) { var %k = %k $+ $chr(44) $replacex($nick($chan,%i),$left($mid($nick($chan,%i),$r(1,$len($nick($chan,%i)))),1),*) }
if ($len(%k) >= 300) { msg $chan $right(%k,-1) }
inc %i
}
if (%k) { msg $chan $right(%k,-1) }
}
:D
Acutually pretty cool code lol i like it heres my little Edit of yur code.
alias hlit {
var %i 1
while (%i <= $nick($chan,0)) {
if ($nick($chan,%i) isop $chan) { var %k $addtok(%k, 4 $+ @ $+ $nick($chan,%i),32)) }
if ($nick($chan,%i) ishop $chan) { var %k $addtok(%k, 10 $+ % $+ $nick($chan,%i),32)) }
if ($nick($chan,%i) isvoice $chan) { var %k $addtok(%k, 9 $+ + $+ $nick($chan,%i),32)) }
if ($nick($chan,%i) isreg $chan) { var %k $addtok(%k, 8 $+ ^ $+ $nick($chan,%i),32)) }
inc %i
}
if (%k) { msg $chan %k }
}
It just places the symbol with a color before the nicknames.Well dont no error and does what it ment to.\"Rate it or Hate it?\"...6/10