on *:text:?*meter*:#:{
  var %meter $r(1,100)
  $iif($left($1,1) = @,msg $chan,notice $nick) $+(7[,$remove($1,!,meter,@,meter),test,7]) $iif($2,$2,$nick) is %meter $+ % $remove($1,!,meter,@,meter) $+ !
}