Project-D

alias hp {
  set %testhp $1
  set %dots $calc(%testhp /10)
  set %side $calc(10 - $len($1))
  echo -a $hpbar
}
alias partone {
  return $str(.,%side)
}
alias parttwo {
  return %testhp
}
alias partthree {
  return $str(.,%side)
}
alias hpbar {
  return $+($partone,$parttwo,$partthree)
}