alias stats {
  var %x = 1, %i = 1
  var %Ocount = 0, %Hcount = 0, %Vcount = 0, %chancount = 0, %infcount = 0, %usercount = 0
  while (%i <= $scon(0)) {
    scon %i {
      while ($chan(%x) <= $chan(0)) {
        if ($me isop $chan(%x)) { inc %Ocount | inc %Ousercount = $nick($chan(%x),0) }
        elseif ($me ishop $chan(%x)) { inc %Hcount | inc %Husercount = $nick($chan(%x),0) }
        elseif ($me isvoice $chan(%x)) { inc %Vcount | inc %Vusercount = $nick($chan(%x),0) }
        if ($me isop $chan(%x)) || ($me ishop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me isop $chan(%x),rvho,rv)))
        if ($me isvoice $chan(%x)) inc %infcount $nick($chan(%x),0,r)
        inc %usercount $nick($chan(%x),0)
        inc %Chancount
        inc %x
      }
    }
    inc %i
    var %x = 1
  }
  scid -r
  set %percent $ceil($calc((%infcount / %usercount)*100)) $+ %
  if (%infcount > %max.infcount) {
    set %max.infcount %infcount
    set %stats.infcount yes
  }
  if (%ocount > %max.ocount) {
    set %max.ocount %ocount
    set %stats.op yes
  }
  if (%hcount > %max.hcount) {
    set %max.hcount %hcount
    set %stats.hop yes
  }
  if (%Vcount > %max.Vcount) {
    set %max.vcount %Vcount
    set %stats.voice yes
  }
  if (%percent > %max.percent) {
    set %max.percent %percent
    set %stats.percent yes
  }
  msg $active 14I have: Op in4 %ocount $+ 14, Halfop in4 %hcount $+ 14, Voice in4 %Vcount $+ 14, and regular in4 $calc(%chancount - %Ocount - %Hcount - %Vcount) 14out of4 %chancount 14channels over4 $scid(0) 14networks. I control4 $+(%infcount,/,%usercount) 14Inferior mortals4 ( $+ $ceil($calc((%infcount / %usercount)*100)) $+ % $+ )
  if ((%stats.op == yes) || (%stats.hop == yes) || (%stats.voice == yes) || (%stats.percent == yes) || (%stats.infcount == yes)) {
    msg $active 14Max 4stats14 have been updated! Most 4channels 14opped in:4 %max.ocount 14- Halfopped in:4 %max.hcount 14- Voiced in:4 %max.vcount 14- Max people controled:4 %max.infcount 14- Percent Controled:4 ( $+ %max.percent $+ )
    unset %stats.*  
  }
}

alias Maxstats {
  //msg $active 14My max 4stats14 are: most 4channels 14opped in:4 %max.ocount 14- Halfopped in:4 %max.hcount 14- Voiced in:4 %max.vcount 14- Max people controled:4 %max.infcount 14- Percent Controled:4 ( $+ %max.percent $+ )
}

Before activating this script, type:-
  /set %max.infcount 0
  /set %stats.infcount 0
  /set %max.ocount 0
  /set %max.hcount 0
  /set %max.vcount 0
  /set %max.percent 0%