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)) 14I have 02(14 $+ %Me.Ops $+ 02)14 @Op(s), 02(14 $+ %Me.Hops $+ 02)14 % $+ HalfOp(s), 02(14 $+ %Me.Voices $+ 02)14 +Voice(s), and 02(14 $+ %Me.Regs $+ 02)14 Regular(s) in 02(14 $+ %Me.Chans $+ 02)14 Channel(s) over 02(14 $+ %Me.Nets $+ 02)14 Network(s). I control 02(14 $+ %Me.Controls $+ 02/14 $+ %Me.TotalUsers $+ 02) (14 $+ $replace(%Me.Percent,.,.) $+ %02)14 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
}