Mine

alias hpbar {
  var %n 1,%x 20,%y $iif($round($calc($1 / $2 * %x),0),$v1,1),%z 09,09,%color 09
  echo -a %y
  while %n <= %x {
    if (%n != $int($calc(%x / 2))) {
      %z = %z $+ .
      if (%n == %y) {
        %color = 04
        %z = %z $+ 04,04
      }
    }
    else {
      var %t $len(%x
      %z = %z $+ 01 $+ $1 $+ %color
      inc %n 1
    }
    inc %n
  }
  return %z
}