This is a Q & L (Quakenet) count script, I didn't make the Q part, but I cannot remember who did. Any improvements/sugestions would be nice thanks.

Output:

[7:49] (_Zach) [Q] Flags: Ow[n]er: 3 - [M]aster: 2 - [O]perator:
9 - [V]oice: 0 - [T]otal: 14
[7:49] (_Zach) [L] Flags: Ow[n]er: 4 - [M]aster: 1 - [O]perator: 1 - [V]oice: 1 - [T]otal: 7

menu channel,query {
  Q Flags:/q-flags $active
}
alias q-flags {
  set %q-flags 1
  set %q-flags.n 0
  set %q-flags.m 0
  set %q-flags.o 0
  set %q-flags.v 0
  set %q-flags.b 0
  set %q-flags.tar $1
  .msg Q whoami
}
alias q-flags.end {
  msg %q-flags.tar [Q] Flags: Ow[n]er: %q-flags.n - [M]aster: %q-flags.m - [O]perator: %q-flags.o - [V]oice: %q-flags.v - [T]otal: $calc(%q-flags.n + %q-flags.m + %q-flags.o + %q-flags.v)
  unset %q-flags*
}
on ^*:NOTICE:*:?: {
  if (%l-flags == 1) {
    haltdef
    if (#* iswm $1) {
      if (b isin $2) { inc %l-flags.b }
      if (n isin $2) { inc %l-flags.n }
      elseif (m isin $2) { inc %l-flags.m }
      elseif (o isin $2) { inc %l-flags.o }
      elseif (v isin $2) { inc %l-flags.v }
    }
    if ($1-4 == End of list.) { l-flags.end }
    elseif ($1-4 == You have NOT authed) { unset %l-flags* | echo -a $timestamp You need to be authed. }
  }
  if (%q-flags == 1) { haltdef
    if ($1 == E-mail:) { .timerq-flags -m 1 1000 q-flags.end }
    elseif ($1 == Access) {
      .timerq-flags -m 1 1000 q-flags.end
      if (b isin $3) { inc %q-flags.b }
      if (n isin $3) { inc %q-flags.n }
      elseif (m isin $3) { inc %q-flags.m }
      elseif (o isin $3) { inc %q-flags.o }
      elseif (v isin $3) { inc %q-flags.v }
    }
    elseif ($1-4 == You have NOT authed) { unset %q-flags* | echo -a $timestamp You need to be authed. }
  }
}
menu channel,query {
  L Flags:/l-flags $active
}
alias l-flags {
  set %l-flags 1
  set %l-flags.n 0
  set %l-flags.m 0
  set %l-flags.o 0
  set %l-flags.v 0
  set %l-flags.b 0
  set %l-flags.tar $1
  .msg l whoami
}
alias l-flags.end {
  msg %l-flags.tar [L] Flags: Ow[n]er: %l-flags.n - [M]aster: %l-flags.m - [O]perator: %l-flags.o - [V]oice: %l-flags.v - [T]otal: $calc(%l-flags.n + %l-flags.m + %l-flags.o + %l-flags.v)
  unset %l-flags*
}