Someone

alias /status { 
  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 
}
 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.* 
 }