Mine

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)
  .0-9
  ..0:gas 0
  ..1:gas 1
  ..2:gas 2
  ..3:gas 3
  ..4:gas 4
  ..5:gas 5
  ..6:gas 6
  ..7:gas 7
  ..8:gas 8
  ..9:gas 9
  .10-19
  ..10:gas 10
  ..11:gas 11
  ..12:gas 12
  ..13:gas 13
  ..14:gas 14
  ..15:gas 15
  ..16:gas 16
  ..17:gas 17
  ..18:gas 18
  ..19:gas 19
  .20-29
  ..20:gas 20
  ..21:gas 21
  ..22:gas 22
  ..23:gas 23
  ..24:gas 24
  ..25:gas 25
  ..26:gas 26
  ..27:gas 27
  ..28:gas 28
  ..29:gas 29
  .30-39
  ..30:gas 30
  ..31:gas 31
  ..32:gas 32
  ..33:gas 33
  ..34:gas 34
  ..35:gas 35
  ..36:gas 36
  ..37:gas 37
  ..38:gas 38
  ..39:gas 39
  .40-49
  ..40:gas 40
  ..41:gas 41
  ..42:gas 42
  ..43:gas 43
  ..44:gas 44
  ..45:gas 45
  ..46:gas 46
  ..47:gas 47
  ..48:gas 48
  ..49:gas 49
  .50-59
  ..50:gas 50
  ..51:gas 51
  ..52:gas 52
  ..53:gas 53
  ..54:gas 54
  ..55:gas 55
  ..56:gas 56
  ..57:gas 57
  ..58:gas 58
  ..59:gas 59
  .60-69
  ..60:gas 60
  ..61:gas 61
  ..62:gas 62
  ..63:gas 63
  ..64:gas 64
  ..65:gas 65
  ..66:gas 66
  ..67:gas 67
  ..68:gas 68
  ..69:gas 69
  .70-79
  ..70:gas 70
  ..71:gas 71
  ..72:gas 72
  ..73:gas 73
  ..74:gas 74
  ..75:gas 75
  ..76:gas 76
  ..77:gas 77
  ..78:gas 78
  ..79:gas 79
  .80-89
  ..80:gas 80
  ..81:gas 81
  ..82:gas 82
  ..83:gas 83
  ..84:gas 84
  ..85:gas 85
  ..86:gas 86
  ..87:gas 87
  ..88:gas 88
  ..89:gas 89
  .90-100
  ..90:gas 90
  ..91:gas 91
  ..92:gas 92
  ..93:gas 93
  ..94:gas 94
  ..95:gas 95
  ..96:gas 96
  ..97:gas 97
  ..98:gas 98
  ..99:gas 99
  ..100:gas 100
}