Mine

lias -l c1 return $+($chr(3),05,$1-)
alias -l c2 return $+($chr(3),14,$1-)
on *:TEXT:*:#:{
  if ($regex($1,/^[!@]setrsn/Si)) { writeini defrsn.ini defname $nick $remove($2-,$) | $iif($left($1,1) == !,notice $nick,msg $chan) $nick $+ : your default rsn is set to $readini(defrsn.ini,defname,$nick) | halt }
  if ($skill($right($1,-1))) {
    if ($skill($right($1,-1)) == overall) { halt }
    if ($regex($left($1,1),/^(@|!)/Si)) { hadd -m $+(stats,.,$nick) disp $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick)) }
    else halt
    if ($regex($skill($right($1,-1)),/^(combat|stats|pest)/Si)) { 
      if ($skill($right($1,-1)) == combat) { hadd -m $+(stats,.,$nick) style cb }
      elseif ($skill($right($1,-1)) == stats) hadd -m $+(stats,.,$nick) style st
      else hadd -m $+(stats,.,$nick) style pc
    }
    else {
      if (($left($2,1) == $chr(35)) && ($right($2,-1) isnum 1-100)) { hadd -m $+(stats,.,$nick) style ts | hadd -m $+(stats,.,$nick) target $right($2,-1) }
      else hadd -m $+(stats,.,$nick) style ss
      hadd -m $+(stats,.,$nick) skill $skill($right($1,-1))