alias gas {
  if ($1 isnum 0-100) && (. !isin $1) {
    var %bar = $str(I,$round($calc($1 / 2),0)), %dash = $str(-,$calc(50 - $len(%bar)))
    msg $active [Give-A-Shit-Meter] $+([04,%bar,,%dash,]) $+($chr(40),$1,$chr(37),$chr(41))
  }
  else echo -ag  $+ $color(info) $+ /gas - Invalid Number, valid numbers are whole numbers 0 through 100
}

menu channel {
  GAS Meter
  .Random:gas $rand(0,100)
  .Manual
  ..0:gas 0
  ..10:gas 10
  ..20:gas 20
  ..30:gas 30
  ..40:gas 40
  ..50:gas 50
  ..60:gas 60
  ..70:gas 70
  ..80:gas 80
  ..90:gas 90
  ..100:gas 100
}