works like: //echo -a $text(sometext).bold/caps/bold/reverse/color
Would be useful for bots etc :)
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-)))
}
}