/*
Author  : DeMiGoD
Script  : Power 
URL     : http://titan.fuziondesigns.net 
email   : demigod.titan@gmail.com
IRC     : IRC.EnterTheGame.Com @ #Titan
Version : 3.0

You're free to use this script as long as you don't pass it off as your own work
and keep my nick in this file as the author.

To Install: type in the mirc client /load -rs power.mrc
Syntax: /power or /power -e
*/



alias power.ver { return v3.0 }

;DON'T EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING! 

on *:LOAD:{
  if ($version >= 6) {
    echo -a •••••••••••••••••••••••••••••••••••••••••••••••••••
    echo -a •• Power Script v3.0                             ••
    echo -a •• © 2005 by DeMiGoD                             ••
    echo -a •• Visit http://titan.fuziondesigns.net & #Titan ••
    echo -a •••••••••••••••••••••••••••••••••••••••••••••••••••
  }
  else {
    echo -ats mIRC version lower than 6 - unloading script.
    echo -ats Update - http://www.mirc.com
    .unload -rs power.mrc
  }
}

menu channel,query {
  Extra Tools
  .Power!
  ..Power (/power):power
  ..Echo power (/power -e ):power -e
}

alias power {
  ; setting the vars
  var %tc = 0, %oc = 0 
  var %tu = 0, %ou = 0 
  var %i = $scid(0)

  ;going through all the networks
  while (%i) {
    scid $scon(%i)
    if ($status == connected) {
      var %c = $chan(0)
      ;going through all the channels
      while (%c) {
        inc %tc
        inc %tu $calc($nick($chan(%c),0) -1)
        if ($me isop $chan(%c)) {
          inc %oc
          inc %ou $calc($nick($chan(%c),0) -1)
        }
        dec %c
      }
    }
    dec %i
  }
  ; setting the status vars
  var %chan.status = $chr(91) $+ %oc $+ / $+ %tc $+ $chr(93) ( $+ $round($calc(%oc / %tc * 100),0) $+ % $+ ) $iif($chan(0) == 1,channel,channels)
  var %user.status = $chr(91) $+ %ou $+ / $+ %tu $+ $chr(93) ( $+ $round($calc(%ou / %tu * 100),0) $+ % $+ )

  ; feel free to edit the way you want the msg to be
  ;var %message.reg = 14.:4:14[0 I am an operator in %chan.status on $scid(0) $iif($scid(0) = 1,network,networks) $+ . I control %user.status users. 14]4:14:14.
  ;var %message.priv = 14.:4:14[0 You're an operator in %chan.status on $scid(0) $iif($scid(0) = 1,network,networks) $+ . You control %user.status users. 14]4:14:14.

  var %message.reg = 14.:4:14[15 I am an operator in %chan.status on $scid(0) $iif($scid(0) = 1,network,networks) $+ . I control %user.status users. 14]4:14:14.
  var %message.priv = 14.:4:14[15 You're an operator in %chan.status on $scid(0) $iif($scid(0) = 1,network,networks) $+ . You control %user.status users. 14]4:14:14.

  scid -r

  ; msg'n the active window with your op status
  if (!$isid) {    if ($1 == -e) { echo -ta %message.priv }
    else { 
      if (c isin $chan(#).mode) { say $strip(%message.reg) }
      else { say %message.reg }
    }
    else { return %ou }
  }
}