Miscellany

alias hpbar {
  var %a = $1, %r1 = $+(/,$chr(40),?<= {,$floor($calc(($3 - $len($1)) / 2)),$(},),$chr(41),$str( ,$len($1)),/), %r2 = $+(/,$chr(40),?<=[ \d],$({,),$floor($calc($3 / ($2 / $1))),$(},),$chr(41),(.)/)
  return $+($chr(3),01,$chr(44),09,$regsubex($regsubex($str( ,$3),%r1,%a),%r2,$+($chr(3),01,$chr(44),04\1))))
}