Someone

alias /getinfo {
  scon -a /getpowers
  if (!%Me.Ops) set %Me.Ops 0 | if (!%Me.Hops) set %Me.Hops 0 | if (!%Me.Voices) set %Me.Voices 0 | if (!%Me.Regs) set %Me.Regs 0 | if (!%Me.Controls) set %Me.Controls 0 | if (!%Me.TotalUsers) set %Me.TotalUsers 0 | set %Me.Percent $round($calc((%Me.Controls / %Me.TotalUsers) * 100),1)
  $iif($1 == -a,amsg,msg $iif($1,$1,$active)) 10I have 7(10 $+ %Me.Ops $+ 07)10 @Op(s), 07(10 $+ %Me.Hops $+ 07)10 % $+ HalfOp(s), 07(10 $+ %Me.Voices $+ 07)10 +Voice(s), and 07(10 $+ %Me.Regs $+ 07)10 Regular(s) in 07(10 $+ %Me.Chans $+ 07)10 Channel(s) over 07(10 $+ %Me.Nets $+ 07)10 Network(s). I control 07(10 $+ %Me.Controls $+ 07/10 $+ %Me.TotalUsers $+ 07) (10 $+ $replace(%Me.Percent,.,.) $+ %07)10 Users.
  unset %Me.* 
}

alias /getpowers {
  var %x = 1
  while ($chan(%x)) {
    if ($me isop $chan(%x)) { inc %Me.Ops 1 | inc %Me.Controls $nick($chan(%x),0,ohvr) }
    elseif ($me ishop $chan(%x)) { inc %Me.Hops 1 | inc %Me.Controls $nick($chan(%x),0,hvr) }
    elseif ($me isvoice $chan(%x)) { inc %Me.Voices 1 | inc %Me.Controls $nick($chan(%x),0,vr) }
    elseif ($me isreg $chan(%x)) { inc %Me.Regs 1 }
    inc %Me.TotalUsers $nick($chan(%x),0)
    inc %Me.Chans 1
    inc %x 1
  }
  inc %Me.Nets 1
}