Masshighlight!

By juhapuha on Jul 11, 2008

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) }
}

Comments

Sign in to comment.
Jethro   -  Jun 04, 2010

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.

 Respond  
Auris 123   -  Jun 04, 2010

I need help with mass highlightning , I want highlight only ppl who got voices or higher rank. Can someone create for me this script?

 Respond  
juhapuha   -  Jul 12, 2008

Surprising how that little piece of code activated people to comment :D

 Respond  
Typo   -  Jul 12, 2008

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

 Respond  
Jamiie   -  Jul 11, 2008

I actually been looking for one of these, I give a 7/10

 Respond  
juhapuha   -  Jul 11, 2008

man, i\'m not gonna update it :D

 Respond  
juhapuha   -  Jul 11, 2008

should work =D

 Respond  
juhapuha   -  Jul 11, 2008

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) }
}

 Respond  
EL   -  Jul 11, 2008

Oh yeah wasnt thinkin about all that altho ppl shouldnt be dual modes anyways least not where i come from it makes no sense.Nice edit tho glad we are all throwin ideas around for juhapuha.@juhapuha ,should update.`-.-´

 Respond  
NIGathan   -  Jul 11, 2008

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.

 Respond  
juhapuha   -  Jul 11, 2008

:--)

 Respond  
ChunkieMonkey   -  Jul 11, 2008

Linux is actually a great operating system x.o even though I don\'t use it...

 Respond  
juhapuha   -  Jul 11, 2008

i\'d like to tell you gtfo but i don\'t :-) linux <3

 Respond  
Eugenio   -  Jul 11, 2008

ROFL @ linux = epic fail mate

 Respond  
juhapuha   -  Jul 11, 2008

well, it has some good features i\'m missing when i\'m using windows

 Respond  
EL   -  Jul 11, 2008

;x im not a Linuxer sucks tho

 Respond  
juhapuha   -  Jul 11, 2008

one word: LINUX
mIRC is not working very well if i want to run it on wine.

 Respond  
EL   -  Jul 11, 2008

wtf why not?

 Respond  
juhapuha   -  Jul 11, 2008

why should i ! :D
I\'M SO ANGRY THAT I CAN\'T USE MIRC TO ACTUALLY TEST MY SCRIPTS! :D

 Respond  
EL   -  Jul 11, 2008

Ha its cool not like its a 10000000000000 line code lol just a lil easyer to see is all well done again ;p and u should add yur replaces as another alias.

 Respond  
juhapuha   -  Jul 11, 2008

:D sry i\'m not so used to post comments here :D

 Respond  
EL   -  Jul 11, 2008

ROFL wtf FTW! :P btw use BBCode

 Respond  
juhapuha   -  Jul 11, 2008

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

 Respond  
EL   -  Jul 11, 2008

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

 Respond  
juhapuha   -  Jul 11, 2008

:>

 Respond  
guest598594   -  Jul 11, 2008

oh damn, my bad >_<

 Respond  
juhapuha   -  Jul 11, 2008

no there\'s not actually :D

 Respond  
guest598594   -  Jul 11, 2008

There\'s a bracket mismatch.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.