alias stat {

  var %op,%power,%voice,%total, %i = $chan(0) , %chans = %i

  while (%i) {

    inc %total $nick($chan(%i),0)

    if ($me isop $chan(%i)) { inc %op | inc %power $nick($chan(%i),0) }

    if ($me !isop $chan(%i) && $me isvoice $chan(%i)) { inc %voice | inc %power $nick($chan(%i),0,r,ov) }

    dec %i

  }

  { msg $chan I am currently in %chans channels. I have op in $calc(%op) and voice in $calc(%voice) channels. I currently have power over $calc(%power) of the $calc(%total) users. }

}