Untitled

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

  }

}