Stuff

alias status {
  var %total_users = 0, %oped = 0, %hoped = 0, %voice = 0, %reg = 0, %s = 1, %net = $network, %channels, %y, %nicks
  while $scon(%s) {
    var %b = $ifmatch, %i = 1
    scid %b
    if ($network == %net) {
      %nicks = %nicks $me
      var %nks = $replace(%nicks,$chr(32),$chr(46))
      %i = 1
      inc %y
      inc %channels $chan(0)
      while (%i <= $chan(0)) {
        %total_users = %total_users + $nick($chan(%i),0)
        if ($me isop $chan(%i)) inc %oped
        if ($me ishop $chan(%i)) inc %hoped
        if ($me isvoice $chan(%i)) inc %voice
        if ($me isreg $chan(%i)) inc %reg
        inc %i
      }
    }
    inc %s
  }
  scid -r
  if ($gettok(%nks,5,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) $+ , $gettok(%nks,4,46) & $gettok(%nks,2,46) }
  elseif ($gettok(%nks,4,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) & $gettok(%nks,4,46) }
  elseif ($gettok(%nks,3,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) & $gettok(%nks,3,46) }
  elseif ($gettok(%nks,2,46) != $null) { var %nicks = $gettok(%nks,1,46) & $gettok(%nks,2,46) }
  else { var %nicks = $gettok(%nks,1,46) }
  say I am on4 %channels Channels (4@ in %oped $+ ,7 $chr(37) in %hoped $+ , 2+ in %voice $+ ) with %total_users total people on network $network $+ , using %y nicknam $+ $iif(%y > 1,es,e) $+ . $+($chr(40),%nicks,$chr(41))
}