Try this:

Code:
alias sfont { return $regsubex($1-,/\[style.+\](.+)\[/style\]/i,\1) | halt } 
on ^*:TEXT:*:#:{ echo -t $chan [ $nick ] $chr(58) $sfont($1-) | haltdef }