Mine

alias hpbar {
  if ($1 isnum 1-5) { return $+(9,$chr(44),9|4,$chr(44),4||||||||,010,$1,4|||||||||) }
  if ($1 isnum 6-9) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,010,$1,4|||||||||) }
  if ($1 == 10) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,01,$1,4|||||||||) }
  if ($1 isnum 11-15) { return $+(9,$chr(44),9|||04,$chr(44),4||||||,01,$1,4|||||||||) }
  if ($1 isnum 16-20) { return $+(9,$chr(44),9||||04,$chr(44),4|||||,01,$1,4|||||||||) }
  if ($1 isnum 21-25) { return $+(9,$chr(44),9|||||04,$chr(44),4||||,01,$1,4|||||||||) }
  if ($1 isnum 26-30) { return $+(9,$chr(44),9||||||04,$chr(44),4|||,01,$1,4|||||||||) }
  if ($1 isnum 31-35) { return $+(9,$chr(44),9|||||||04,$chr(44),4||,01,$1,4|||||||||) }
  if ($1 isnum 36-40) { return $+(9,$chr(44),9||||||||04,$chr(44),4|,01,$1,4|||||||||) }
  if ($1 isnum 41-45) { return $+(9,$chr(44),9|||||||||01,$chr(44),04,$1,04|||||||||) }
  if ($1 isnum 46-50) { return $+(9,$chr(44),9|||||||||01,$left($1,1),01,$chr(44),04,$right($1,1),04|||||||||) }
  if ($1 isnum 51-55) { return $+(9,$chr(44),9|||||||||,01,$1,04,$chr(44),04|||||||||) }
  if ($1 isnum 56-60) { return $+(9,$chr(44),9|||||||||,01,$1,09|04,$chr(44),04||||||||) }
  if ($1 isnum 61-65) { return $+(9,$chr(44),9|||||||||,01,$1,09||04,$chr(44),04|||||||) }
  if ($1 isnum 66-70) { return $+(9,$chr(44),9|||||||||,01,$1,09|||04,$chr(44),04||||||) }
  if ($1 isnum 71-75) { return $+(9,$chr(44),9|||||||||,01,$1,09||||04,$chr(44),04|||||) }
  if ($1 isnum 76-80) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||04,$chr(44),04||||) }
  if ($1 isnum 81-85) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||04,$chr(44),04|||) }
  if ($1 isnum 86-90) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||04,$chr(44),04||) }
  if ($1 isnum 91-95) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||||04,$chr(44),04|) }
  if ($1 isnum 96-98) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
  if ($1 isnum 100-999999) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
}