alias whatup {
  msg $active I am on $scon(0) Servers, in a total of $whatup.allchans channels.
  var %i 1
  while ( $whatup.printnet(%i) ) {
    msg $chan $whatup.printnet(%i)
    inc %i
  }
}
alias -l whatup.allchans {
  var %i = $scid(0)
  var %totchans
  while ( %i ) {
    scid $scon(%i)
    inc %totchans $chan(0)
    dec %i
  }
  return %totchans
}
alias -l whatup.printnet {
  if ( $scid($1) ) {
    scid $1
    return $chr(91) $+ $network $+ $chr(93) $str(0 $+ $chr(44) $+ 0.,$calc( 15 - ( $len($network) + 2 ) )) Channels: $chan(0) $str(0 $+ $chr(44) $+ 0.,$calc( 5 - $len($chan(0)) )) Ops: $whatup.ops($1) $str(0 $+ $chr(44) $+ 0.,$calc( 5 - $len($whatup.ops($1)) )) Half-Ops: $whatup.hops($1) $str(0 $+ $chr(44) $+ 0.,$calc( 5 - $len($whatup.hops($1)) )) Voices: $whatup.voices($1)
  }
  else {
    return $false
  }
}

alias -l whatup.ops {
  if ( $scid($1) ) {
    scid $1
    var %i 1, %ops 0
    while ( %i <= $chan(0) ) {
      if ( $me isop $chan(%i) ) {
        inc %ops
      }
      inc %i
    }
    return %ops
  }
  else {
    return $false
  }
}

alias -l whatup.hops {
  if ( $scid($1) ) {
    scid $1
    var %i 1, %ops 0
    while ( %i <= $chan(0) ) {
      if ( $me ishop $chan(%i) ) {
        inc %ops
      }
      inc %i
    }
    return %ops
  }
  else {
    return $false
  }
}

alias -l whatup.voices {
  if ( $scid($1) ) {
    scid $1
    var %i 1, %ops 0
    while ( %i <= $chan(0) ) {
      if ( $me isvoice $chan(%i) ) {
        inc %ops
      }
      inc %i
    }
    return %ops
  }
  else {
    return $false
  }
}