Can try something like this
; font $getstyle(1,$1-)
; color $getstyle(2,$1-)
; bold $getstyle(3,$1-)
; italic $getstyle(4,$1-)
alias getstyle {
var %r $regex(STYLE,$2-,/^##\*#(.*)~#(.*)~(0|1)~(0|1)#\*##/gi)
if ($1 == 1) return $regml(STYLE,1)
if ($1 == 2) return $regml(STYLE,2)
if ($1 == 3) return $regml(STYLE,3)
if ($1 == 4) return $regml(STYLE,4)
}