alias text {
  if (!$istok(caps|bold|underline|reverse|color,$prop,124)) || (!$prop) || (!$1) return
  if ($prop == caps) return $calc($regex($1-,/[A-ZÄÖÅÜ]/g) * 100 / $len($strip($1-)))
  elseif ($prop == bold) || ($prop == underline) || ($prop == reverse) {
    var %i 1,%z 0,%r $iif($prop == bold,$regex($1-,/\002([^\002]+)\002?/g),$iif($prop ==  underline,$regex($1-,/\037([^\037]+)\037?/g),$regex($1-,/\026([^\026]+)\026?/g)))
    while (%i <= %r) { inc %z $len($strip($regml(%i)))) | inc %i }
    return $calc(%z * 100 / $len($strip($1-)))
  }
  elseif ($prop == color) {
    var %i 1,%z 0,%r $regex($1-,/\003\d\d?(.\d\d?)?([^(\003\d\d?(.\d\d?)?)?]+)/g)
    while ($regml(%i)) { if ($left($regml(%i),1) != $chr(44)) { inc %z $len($strip($regml(%i)))) } | inc %i }
    return $calc(%z * 100 / $len($strip($1-)))
  }
}

Commenting Options