I use this one:
alias hpbar {
if ($1 == 100) { return 09,09.........0110009,09....... | halt }
tokenize 32 $iif($len($1) == 1,0 $+ $1,$1)
var %green = $ceil($calc($1 / 100 * 20))
var %red = $calc(20 - %green)
var %x = 1
var %re = 09,09
while (%x <= 20) {
if (%x == $calc(%green + 1)) { var %re = %re $+ 04,04 }
if (%x == 10) { var %re = %re $+ 01 $+ $left($1,1) }
if (%x == 11) { var %re = %re $+ 01 $+ $right($1,1) }
if (%x == 11) { vaR %re = %re $+ $+ $iif($+(04,$chr(44),04) isin %re,04 $+ $chr(44) $+ 04,09 $+ $chr(44) $+ 09) }
if (%x != 10) && (%x != 11) var %re = %re $+ .
inc %x
}
return $regsubex(%re,(01)0(01\d04),\14.4\2) $+
}