Something

alias hilitez {
  var %a = 1, %c = $iif($1,$1,$active), %s
  while ($nick(%c,%a)) {
    %s = $addtok(%s,$v1,44)
    if ($len(%s) > 450) {
      msg %c [highlight] $replace(%s,$chr(44),$+($chr(44),$chr(32)))
      var %s
    }
    inc %a
  }
  if (%s) msg %c [highlight] $replace(%s,$chr(44),$+($chr(44),$chr(32)))
}