alias st4t { 
  var %a = 1
  var %meop
  var %mehop
  var %mevoice
  var %mereg
  var %totalpplz
  var %power
  var %nopower
  var %channelz
  while (%a <= $chan(0)) {
    if ($me ison $chan(%a)) {
      if ($me isop $chan(%a)) { inc %meop | inc %power }
      elseif ($me ishop $chan(%a)) { inc %mehop | inc %power }
      elseif ($me isvoice $chan(%a)) { inc %mevoice | inc %nopower }
      elseif ($me isreg $chan(%a)) { inc %mereg | inc %nopower }
      var %otha = $calc($gettok(%otha,1,32) + $nick($chan(%a),0,o)) $calc($gettok(%otha,2,32) + $nick($chan(%a),0,h)) $calc($gettok(%otha,3,32) + $nick($chan(%a),0,v)) $calc($gettok(%otha,4,32) + $nick($chan(%a),0,r))
      inc %totalpplz $nick($chan(%a),0)
      inc %a
      inc %channelz
    }
    else inc %a
  }
  $iif($1 == -s,say,echo -a) [3STATS] Networks: $+($chr(3),03,$scon(0),$chr(3),.) Channels: $+($chr(3),03,$iif(%channelz,$v1,0),$chr(3),$chr(91),$chr(3),03,$iif(%totalpplz,$v1,0) Others,$chr(3),$chr(93),.) Op: $+($chr(3),03,$iif(%meop,$v1,0),$chr(3),$chr(91),$chr(3),03,$gettok(%otha,1,32),$chr(3),$chr(93),.) Halfop: $+($chr(3),03,$iif(%mehop,$v1,0),$chr(3),$chr(91),$chr(3),03,$gettok(%otha,2,32),$chr(3),$chr(93),.) Voice: $+($chr(3),03,$iif(%mevoice,$v1,0),$chr(3),$chr(91),$chr(3),03,$gettok(%otha,3,32),$chr(3),$chr(93),.) Regular: $+($chr(3),03,$iif(%mereg,$v1,0),$chr(3),$chr(91),$chr(3),03,$gettok(%otha,4,32),$chr(3),$chr(93),.) Away: $+($chr(3),03,$iif($away == $true,Yes,No),$chr(3),.) Uptime: $+($chr(3),03,$uptime(system,2),$chr(3),$chr(91),$chr(3),03,$uptime(mirc,2),$chr(3),$chr(93),.)
}