mass hl

alias masshl {
  if ($left($1,1) == -) { var %massu $iif(a isin $1 || o isin $1 || h isin $1 || v isin $1 || r isin $1,$remove($1,-),a) | tokenize 32 $2- }
  else { var %massu a }
  var %x 1 | var %msg $iif($1,=> $+ $1-) | tokenize 32
  while (%x <= $nick(#,0,%massu)) { if ($nick(#,%x,%massu) != $me) { tokenize 32 $1- $nick(#,%x,%massu) }
    inc %x
  }
  tokenize 32 $1- %msg
  while ($$1-) { say $1-30 | tokenize 32 $31- }
}
menu nicklist {
  .Mass HL {
    var %msg $?="Message?" | var %msg $iif(%msg,=> $+ %msg) | tokenize 32 $replace($snicks,$chr(44),$chr(32))
    tokenize 32 $1- %msg
    while ($$1-) { say $1-30 | tokenize 32 $31- }
  }
}
alias rainbow { return $regsubex($1-, /(.)/g, $+($chr(3), $gettok(04.07.08.09.11.12.06, $calc(1 + (\n - 1) % 7), 46), \t, $chr(3))) }
alias rainbowz {
  if(!$var(%rainbowz)) { set %rainbowz 0 }
  inc %rainbowz 1
  if (%rainbowz > 7) { set %rainbowz 1 }
  return $regsubex($1-, /(.)/g, $+($chr(3), $gettok(04.07.08.09.11.12.06, $calc(1 + (%rainbowz + (\n - 1)) % 7), 46), \t, $chr(3)))
}