meter

on $*:text:/^~(rmeter \w+|meter \w+ .*)$/i:#: {
  if ($left($regml(1),1) == r) tokenize 32 $1 $read(adj.txt) $2
  if (%meter [ $+ [ $2 [ $+ [ $remove($3-,$chr(32)) ] ] ] ] !isnum) set %meter [ $+ [ $2 [ $+ [ $remove($3-,$chr(32)) ] ] ] ] $r(0,100)
  var %number $round($calc(%meter [ $+ [ $2 [ $+ [ $remove($3-,$chr(32)) ] ] ] ] / 10),0)
  msg # $3- $+ 's $2 level: $chr(124) $+ $rainbow($str($chr(9632),%number)) $+ $str($chr(9632),$calc(10 - %number)) $+ $chr(124) $chr(40) $+ %meter [ $+ [ $2 [ $+ [ $remove($3-,$chr(32)) ] ] ] ] $+ % $+ $chr(41)
}