alias nchans {
  var %z 1
  while ($scon(%z)) {
    scid $v1
    if ($status == connected) {
      var %l 1,%no 0,%nv 0,%nn 0
      while ($chan(%l)) {
        if ($me isop $v1) { inc %no }
        elseif ($me isvoice $v2) { inc %nv }
        else { inc %nn }
        inc %l
      }
      echo -a $+($server,[,$network,]) opped in %no - voiced in %nv - other in %nn - total $chan(0)
    }
    inc %z
  }
}

alias schans {
  var %z 1
  while ($scon(%z)) {
    scid $v1
    if ($status == connected) {
      var %l 1,%i,%r $+($server,[,$network,])
      while ($chan(%l)) {
        %i = $v1
        %r = %r $+($iif($left($nick(%i,$me).pnick,1) isin $prefix,$v1),$left(%i,1),$iif(s isincs $gettok($chan(%l).mode,1,32),$str(*,$calc($len(%i) -1)),$right(%i,-1)))
        inc %l
      }
      echo -a %r
    }
    inc %z
  }
}