alias masshl {
  ;set here the maximum number of characters that the servers accept per line (200 is a safe value, should be accepted everywhere)
  var %max = 200
  if ($me ison $1) var %c $1
  elseif ($me ison $active) var %c $active
  else { echo -at 15(4+15) Mass Highlight: highlight all people on a channel. Format:  14/mass-highlight [#channel]  15(if no channel specified, current used) | halt }
  if (!$chan(%c).ial) { echo -at 15(4+15) IAL is not updated for %c $+ . Updating it now... retry in a few seconds. | who %c | halt }
  var %a = $ialchan(*,%c,0)
  var %pre = [Highlight'd]
  var %i = 1,%z = 1,%p1 = %pre
  while (%z <= %a) {
    var %n = $nick(%c,%z)
    if ((%n != Q) && (%n != L) && (%n != S) && (%n != F) && (%n != H) && (%n != T) && (%n != X) && (%n != ChanServ)) {
      if ($len( %p [ $+ [ %i ] ] ) < %max) {
        var %p [ $+ [ %i ] ] %p [ $+ [ %i ] ] $+ $chr(32) $+ %n
      }
      else {
        inc %i | var %p [ $+ [ %i ] ] %pre $+ $chr(32) $+ %n
      }
    }
    inc %z
  }
  var %j = 1,%t = 1
  while (%j <= %i) {
    .timer(Mass-Highlight- $+ %t $+ - $+ %c $+ ) 1 %t $iif($isalias(msgchan),msgchan,msg) %c %p [ $+ [ %j ] ]
    inc %j | inc %t