Well, since I made my hacktalk snippet, I decided to make this. It took about 30 mins to make and test, and it works very nicely I think. The meter bars take awhile to make, so if you would like to rip them for your own project go ahead. Hopefully that can spare some people time, because that's what takes more time than anything else. On this, you always turn out 100% leet, and you can select one person to always turn out not leet and one person to always turn out 100% leet. Next time I will add something so that the same person can't be both, but for right now the " 100% leet " overrides the " non-leet ", I think...

It should work well. Sorry these instructions are messy, I'm really tired right now.

alias leetmeter {
  if ($1 == $null) { set %check $$?="Nick to check:" }
  else { set %check $1 }
  if (%check == %noleet) set %bars 11 | goto 1
  if (%check == $me) || (%check == %leet) set %bars 12 | goto 1
  else set %bars $rand(1,10)
  :1
  msg $chan 1337 MeTeR cHeCk On %check $+ :
  if (%bars == 1) msg $chan 3|15||||||||| (1 MilliNation)
  if (%bars == 2) msg $chan 3||15|||||||| (2 MilliNations)
  if (%bars == 3) msg $chan 3||9|15||||||| (3 MilliNations)
  if (%bars == 4) msg $chan 3||9||15|||||| (4 MilliNations)
  if (%bars == 5) msg $chan 3||9|||5|15||||| (5 MilliNations)
  if (%bars == 6) msg $chan 3||9|||5||15|||| (6 MilliNations)
  if (%bars == 7) msg $chan 3||9|||5||7|15||| (7 MilliNations)
  if (%bars == 8) msg $chan 3||9|||5||7|15|| (8 MilliNations)
  if (%bars == 9) msg $chan 3||9||5||7|||15| (9 MilliNations)
  if (%bars == 10) msg $chan 3||9|||5||7|4|| (10 MilliNations)
  if (%bars == 11) msg $chan %check is NOT LEET! (0 MilliNations)
  if (%bars == 12) msg $chan 3||9|||5||7|4|| (10 MilliNations)
}

menu * {
  leet meter: leetmeter $1
  noleet: noleet $1
  leet: leet $1
}

alias noleet { 
  if ($1 == $null) set %noleet $$?="Person who gets a return of no-leet on the leet meter:"
  else set %noleet $1
  if ($1 == %leet) unset %leet
}

alias leet {
  if ($1 == $null) set %leet $$?="Person who always gets a level 10 leet readout:"
  else set %leet $1
  if ($1 == %unleet) unset %unleet
}