Use: $_t(<caps|color|bold|regular|underline|randomclr|reverse_t|reverse_c>,[0-15],[0-15],text)
-
alias _t {
if ($isid && $regex(+t,$1,/^(caps|color|bold|regular|underline|randomclr|reverse_(t|c))$/i)) {
var %_t = $regml(+t,1),%_r = return,%_2 = $iif($2,$v1),%_3 = $iif($3,$v1),%_tx = $$2-
if ($(,%_t) = caps) %_r $regsubex(%_tx,/(.(?<!\s))/g,$iif(2 \\ \n,$upper(\1),$lower(\1)))
if ($(,%_t) = bold) %_r $regsubex(%_tx,/(.)/g,$chr(2)\1)
if ($(,%_t) = reverse_c) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(22)\1)
if ($(,%_t) = underline) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(31)\1)
if ($(,%_t) = color) %_r $regsubex($$4-,/(.)/g,$iif(2 \\ \n,$+($chr(3),%_2,\1,$chr(3),%_3),\1))
if ($(,%_t) = regular) %_r $regsubex(%_tx,/(?<=^|(?<=[.:;])|(?<=[.;:])\s)(.(?<![.;:]))/g,$chr(32) $upper(\1))
if ($(,%_t) = randomclr) %_r $regsubex(%_tx,/(.)/g,$+($chr(3),$r($r(1,15),$r(1,\n)),\1))
if ($(,%_t) = reverse_t) %_r $regsubex(%_tx,/(.)/g,$mid(%_tx,$mid(%_tx,\n,0),1))
}
}