Mine

alias c1 { return $+($chr(3),13,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),07,$1-) }
alias c4 { return $+($chr(3),12,$1-) }
alias c5 { return $+($chr(3),10,$1-) }
alias c6 { return $+($chr(3),14,$1-) }
alias logo return 14*** (04 $+ $1- $+ 14)
on $*:TEXT:/^[@!.](u(ser)?c(ount)?)/Si:#:{
  $iif($left($1,1) == @,msg $chan,notice $nick) $logo(USER COUNT) In $c2($chan) $c6(there are) $c1($nick($chan,0)) $c6(total members:) $c2($nick($chan,0,o) Ops,) $c3($nick($chan,0,h,o) Half-Ops,) $c4($nick($chan,0,v,oh) Voices,) $c6(and) $c5($nick($chan,0,r) Regular.)
}