alias power {
  var %n = 1 , %opped.in = 0 , %owned.tot = 0
  while ($chan(%n)) {
    if ($me isop $chan(%n)) {
      var %opped.in = $calc(%opped.in +1)
      var %owned.tot = $calc($nick($chan(%n),0) + %owned.tot)
    }
    var %peep.tot = $calc(%peep.tot + $nick($chan(%n),0))
    inc %n
  }
  say  11,1I'm Opped in %opped.in $+ [OF]  $+ $chan(0) Channels ( $+ $round($calc(%opped.in / $chan(0) *100),0) $+ $chr(37) $+ ). I own %owned.tot $+ [OF] $+ %peep.tot people ( $+ $round($calc(%owned.tot / %peep.tot *100),0) $+ $chr(37) $+ ) My Operating system is [Windows $os $+ ] The date is [ $+ $date(mm/dd/yyyy) $+ ] and the time is [ $+ $time(h:nn:ss tt)  $+ ] my system uptime is [ $+ $uptime(system, 1) $+ ] and my record uptime is [ $+ %uptime.record $+ ] 
}
on *:DISCONNECT: { uptime }
alias uptime { set %uptime.check $uptime(system,1) { if (%uptime.check > %uptime.record) { set %uptime.record %uptime.check } } }
