alias nickstyle {
  if ($1 isop $2) { return $+($chr(3),4,$chr(2),@,$chr(2),$chr(3),10,,$left($1,1),,$mid($1,2,$len($1))) }
  if ($1 ishop $2) { return $+($chr(3),7,$chr(2),%,$chr(2),$chr(3),10,,$left($1,1),,$mid($1,2,$len($1))) }
  if ($1 isvoice $2) { return $+($chr(3),12,$chr(2),+,$chr(2),$chr(3),10,,$left($1,1),,$mid($1,2,$len($1))) }
  if ($1 isreg $2) { return $+($chr(3),07,$chr(2),¤,$chr(2),$chr(3),10,,$left($1,1),,$mid($1,2,$len($1))) }
  if ($1 !ison $2) { return $+($chr(3),07,$chr(2),›,$chr(2),$chr(3),10,,$left($1,1),,$mid($1,2,$len($1))) }
}
elseif ($1 ison $active) {
  haltdef
  var %kaik = $nick($active,$1)
  .msg $active [» $+ $nick($active,%kaik) $+ «] $+ $iif($3,: $2-,$+($chr(32),$2-))
  echo -ta $+(,$chr(187),,$nickstyle($me,$chan),,$chr(171),:) [» $+ $nick($active,%kaik) $+ «] $+ $iif($3,: $2-,$+($chr(32),$2-))
}