Mine

on ^*:TEXT:*:#:{ haltdef | echo -t $chan < $+ $chr(2) $+ $prefixplz($nick,$chan) $+ $nick $+ $+($chr(3),$chr(2),>) $1- }
on *:INPUT:#:{
  if ($left($1,1) == /) {
    var %v1 = $regex($1,/\//Sg)
    if ($mid($1,$calc(%v1 + 1),$calc($len($1) - %v1)) == me) {
      haltdef
      .describe $chan $iif(%v1 >= 2,$($2-,2),$2-)
      echo 6 -t $chan $chr(2) $+ * $iif($me isop $chan,@,$iif($me ishop $chan,%,$iif($me isvoice $chan,+)))) $+ $me $+ $+($chr(3),$chr(2)) $iif(%v1 >= 2,$($2-,2),$2-)
    }
    else return
  }
  else { haltdef | .msg $chan $1- | echo -t $chan < $+ $chr(2) $+ $prefixplz($me,$chan) $+ $me $+ $+($chr(3),$chr(2),>) $1- }
}
alias colornl {
  var %a = 0
  while (%a < $nick($1,0)) {
    inc %a 1
    cline $iif($nick($1,%a) isop $1,4,$iif($nick($1,%a) ishop $1,7,$iif($nick($1,%a) isvoice $1,2))) $1 %a
  }
}
alias prefixplz return $iif($1 isop $2,$+($chr(3),4@),$iif($1 ishop $2,$+($chr(3),7%),$iif($1 isvoice $2,$+($chr(3),2+),$+($chr(3),10))))
on *:JOIN:#:{ if ($nick == $me) { .timer -ms 1 5 colornl $chan } }
on ^*:ACTION:*:#:{ haltdef | echo 6 -t $chan * $iif($nick isop $chan,@,$iif($nick ishop $chan,%,$iif($nick isvoice $chan,+)))) $+ $nick $1- }
on *:OP:#:colornl $chan
on *:DEOP:#:colornl $chan
on *:HELP:#:colornl $chan
on *:DEHELP:#:colornl $chan
on *:VOICE:#:colornl $chan
on *:DEVOICE:#:colornl $chan