Mine

alias test {
  var %totbots
  var %regbots
  var %cusbots
  var %serbots
  var %sysbots
  var %p 1
  while (%p <= $nick($1,0)) {
    if (AdminServ isin $nick($1,%p)) {
      inc %totbots
    }
    if (AdminServ-?? iswm $nick($1,%p)) {
      inc %regbots
    }
    if (AdminServ-C?? iswm $nick($1,%p)) {
      inc %cusbots
    }
    if (AdminServ-???? iswm $nick($1,%p)) || (AdminServ-Trivia == $nick($1,%p)) {
      inc %serbots
    }
    if (AdminServ-00 == $nick($1,%p)) {
      inc %sysbots
      set %regbots $calc(%regbots - 1)
    }
    if (AdminServ-C00 == $nick($1,%p)) {
      inc %sysbots
      set %cusbots $calc(%cusbots - 1)
    }
    inc %p
  }
  return $iif(%sysbots,$v1,0) System // $iif(%serbots,$v1,0) Services // $iif(%regbots,$v1,0) Regular // $iif(%cusbots,$v1,0) Custom // $iif(%totbots,$v1,0) Total
}