Something

  .color Treebar 0 

alias c12
  elseif ($nick ishop $chan) { 
    echo -t $chan $c2(%) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c7($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
  elseif ($nick isvoice $chan) { 
    echo -t $chan $c2(+) $c2(•) $+ $c7($chr(40)) $+ $c7(-) $+ $c2($nick) $+ $c7(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
  else {
    echo -t $chan $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c10($nick) $+ $c2(-) $+ $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 
    haltdef 
  } 
}
on *:INPUT:*:{ 
  if ($left($1,1) != /) { 
    if ($me isop $chan) { 
      echo -t $chan $c2(@) $c2(•) $+ $c7($chr(40)) $+ $c2(-) $+ $c4($nick) $+ $c2(-) $+  $c7($chr(41)) $+ $c2(•) $c1($upper($left($1-,1)) $+ $right($1-,-1))) 

  if (!$1-) { /echo -a * /me: insufficient parameters 
  } 
  else { 
    .describe # $$1- 
    echo -t $chan $c7($chr(40)) $+ $c2(Action) $+ $c7($chr(41)) $+ $c6(* $me) $c6($1-) 
    haltdef 
  } 
}
On ^*:QUIT:{ 
  var %x $comchan($nick,0) 
  while %x { 
    echo -t $comchan($nick,%x) $c7($chr(40)) $+ $c2(Quit) $c7($chr(41)) $+ $c2($nick) $c2(has) $c2($1-) 
    dec %x 
    haltdef 
  } 
}
On 
  haltdef 
}