on *:INPUT:#:{
  if (/* !iswm $1) {
    .msg $chan $caps($1-)
    echo -at $iif($nick isop #,4(4@14 $+ $nick $+ 4),$iif($nick ishop #,7( $+ $chr(37) $+ 14 $+ $nick $+ 7),$iif($nick isvoice #,12(12+14 $+ $nick $+ 12),$iif($nick isreg #,15(14 $+ $nick $+ 15),$iif($isadmin($chan,$nick) = $true,07»14(07&14) $+ $nick 07-»))))) $caps($1-)
    haltdef
  }
}
alias caps return $upper($left($1-,1)) $+ $right($1-,-1)