alias ChannelStats {
  var %Max $nick($chan,0)
  var %I 1
  var %Regular 0
  var %Voice 0
  var %Halfop 0
  var %Op 0
  var %admin 0
  var %master 0  
  echo -a * Channel Stats
  echo -a * This channel has %max people on it.
  While ( %I <= %max ) {
    If ($left($nick($chan,[ %I ]).pnick,1) = ~) {
      inc %master
    }
    else If ($left($nick($chan,%I).pnick,1) = &) {
      inc %admin
    }
    else If ($left($nick($chan,%I).pnick,1) = @) {
      inc %op
    }
    else If ($left($nick($chan,%I).pnick,1) = %) {
      inc %halfop
    }
    else If ($left($nick($chan,%I).pnick,1) = +) {
      inc %voice
    }
    else {
      inc %regular
    }
    inc %I
  }
  echo * This channel userbase is $round($calc(($(%master)/$(%max))*100),0) $+ % QOP.
  echo * This channel userbase is $round($calc(($(%admin)/$(%max))*100),0) $+ % SOP.
  echo * This channel userbase is $round($calc(($(%op)/$(%max))*100),0) $+ % AOP.
  echo * This channel userbase is $round($calc(($(%halfop)/$(%max))*100),0) $+ % HOP.
  echo * This channel userbase is $round($calc(($(%voice)/$(%max))*100),0) $+ % VOP.
  echo * This channel userbase is $round($calc(($(%regular)/$(%max))*100),0) $+ % REG.
  If ($chan($chan).key != $null) {
    echo * This channel's key is $chan($chan).key
  }
  echo * This channel's topic is $chan($chan).topic
  echo * This channel's mode settings are $chan($chan).mode
}