alias power {
  var %tc = 0,%tu = 0,%oc = 0,%po = 0,%i = $scid(0)
  while (%i) {
    scid $scon(%i)
    if ($status == connected) {
      var %c = $chan(0)
      while (%c) {
        inc %tc
        inc %tu $calc($nick($chan(%c),0) -1)
        if ($me isop $chan(%c)) {
          inc %oc
          inc %po $calc($nick($chan(%c),0) -1)
        }
        dec %c
      }
    }
    dec %i
  }
  scid -r
  if (!$isid) {
    if ($1 == -e) { echo -a $gtd(Stats) you're opped in $sd($+(%oc,/,%tc)) channels on $sd($scid(0)) $iif($scid(0) == 1,network.,networks.) You have the power over $sd($+(%po,/,%tu)) users. }
    else { say I'm opped in $+(12[,%oc,/,%tc,12])$+ channels on $+(12[,$scid(0),12]) $iif($scid(0) == 1,network.,networks.) I have the power over $+(12[,%po,/,%tu,12])$+ users. 4-15Lancy Power4- }
  }
  else { return %po }
}



goto loop
:end
scon -r
if ( %power.total.channels = 1 ) var %power.chanword channel
if ( %power.total.channels > 1 ) var %power.chanword channels
if ( %power.totalnetworks = 1 ) var %power.netword network
if ( %power.totalnetworks > 1 ) var %power.netword different networks
msg $active 4 I am OP'd in 14 %power.opchans $+ / $+ %power.total.channels 15 $+ %power.chanword 4 on < 14 %power.totalnetworks 4 >15 %power.netword $+ . 4 I own < 14 %power.powerover 4 >15 Noobs
unset %power.*
} 

ALISAS:

/useless /server -m irc.useless-site.com
/swift /server -m irc.swiftirc.net
/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1 $2-
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
randSN { return $+(Seers-,$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9)) }
randID { return $+(Seers,$rand(0,9),$rand(0,9),$rand(a,z),$rand(0,9),$rand(0,9)) }
randidentd /identd on $randID
randnick /nick Lancylote
/setnick /alias randnick /nick $1
/nick /nick $1 | /alias randnick /nick $1 
/helpload /go http://www.seersirc.net/index.php?page=help
autojoin1 /join #market,#staton,#help,#The_Coffee_Shoppe,#heaven,#rs,#seersclient,#seersirc,#Ta-Ra,#Lancylotte,#RSPC,#Drew,#DarkRitual,#Ling_Pc,#Mirc,#baked,#Tomconstable,#Your_pc
/setautojoin /alias autojoin1 /join $1-
/mp3 /aud
F1 /configpanel
F2 /aud
F3 /audplay
F4 /stop
F5 /prev
F6 /next
F7 /vol -v $calc($vol(master) + 2000)
F8 /vol -v $calc($vol(master) - 2000)
F9 /join #seersmp3
F10 /bc.open 1
F11 /dialog -m seersweb seersweb
F12 //run $mircdir $+ \help.txt
/stopnotice /alias autonotice 
/nickconfig /set %newclient no | /nick $$?="Choose an IRC Chat Nickname and click ok" | /setnick $nick | /ns register $$?="Wait 30seconds(important you wait 30seconds) & Choose a Password you can remember" $$?*="Enter your real email" | /set %regedpass $$?*="Re-enter password" | /setnick $me | /set %regednick $me | //echo $input(You have successfully registered your nick/username. PLEASE CHECK YOUR EMAIL FOR CONFIRMATION CODE! Also you have configured the client to auto identify for you!,o,Thank You for using SeersIrc Network!!,title,text)
/RegisterNewAccount /nick $$?="Choose a Nickname and click ok" | /setnick $nick | /ns register $$?="Wait 30seconds(important you wait 30seconds) & Choose a Password you can remember" $$?*="Enter your real email" | /set %regedpass $$?*="Re-enter password" | /setnick $me | /set %regednick $me | //echo $input(You have successfully registered your nick/username. PLEASE CHECK YOUR EMAIL FOR CONFIRMATION CODE! Also you have configured the client to auto identify for you!,o,Thank You for using SeersIrc Network!!,title,text)
/AutoIdentON /set %regednick $$?="Your Nick:" | /set %regedpass $$?*="Your Pass:" | //echo $input(You have Successfully configured auto-identify!,o,Thank You for using SeersIrc Network!!,title,text)
/ajoinchanset /setautojoin $$?="Channels to join on connect! Example: #rs,#seersirc,#help"
/AutoIdentOFF /set %regednick | /set %regedpass | //echo -a $input( Auto Identify is now OFF!,o,Auto Identify,title,text)
configpanel /dialog -m ConfigPanel ConfigPanel
cam //echo $input(Anyone that you connect to WILL be able to get your IP address. Be sure you Trust who you connect with!,o,Security Warning from dawg,title,text) | /bc.open 1
cam2 /bc.open 1
call /bc.call $1-
runescape /rs www.runescape.com
autors /rs www.runescape.com
/www /go $1-
/web /go $1-
/autolist /list
/stopautors /alias autors /halt
/stopauotlist /halt
/startautors /alias autors /rs www.runescape.com
/startautolist /alias autolist /list
/friendslist /uwho
/calculate /run calc.exe
/notepad /run notepad.exe
/paint /run mspaint.exe
global /amsg 12[Global] 0,1 $1-
sounds /dialog -m soundconfig soundconfig
friends /uwho
audio /run sndvol32.exe
svsnick { .msg operserv raw :operserv svsnick $1 $$2 $ctime }
svsjoin /msg operserv raw : $+ $$1 join $iif($2,$2,$chan) }
svspart /msg operserv raw : $+ $$1 part $iif($2,$2-,$chan)  }
sajoin { .msg operserv raw :operserv sajoin $1- }
sapart { .msg operserv raw :operserv sapart $1- }
svsmode /msg operserv raw 6:10operserv svsmode $1- }
sanick { .msg operserv raw :operserv svsnick $1 $$2 $ctime }
aop /mode # +a $nick $1 
/deaop /mode # -a $nick $1 
/qop /mode # +q $nick $1 
/deqop /mode # -q $nick $1 
/halfop /mode # +h $nick $1 
/dehalfop /mode # -h $nick $1
gmsg { 
var %x = 1 | while (%x <= $scid(0)) { var %y = 1 | while (%y <= $chan(0)) { 
if ($istok(%except.chans,$chan(%y),44) == $true) { inc %y | inc %x } 
elseif (($istok(%except.chans,$chan(%y),44) == $false) && ( isin $1-)) { 
  if (c isincs $chan($chan(%y)).mode) { 
    if (%mserver == on) { scon -at1 msg $chan(%y) [Global] $strip($1-) } 
    else { msg $chan(%y) [Global] $strip($1-) } 
    inc %y | inc %x 
  } 
  else { 
    if (%mserver == on) { scon -at1 msg $chan(%y) [Global] $1- } 
    else { msg $chan(%y) [Global] $1- } 
    inc %y | inc %x 
  } 
} 
elseif (($istok(%except.chans,$chan(%y),44) == $false) && ( !isin $1-)) { 
  if (%mserver == on) { scon -at1 msg $chan(%y) [Global] $1- } 
  else { msg $chan(%y) [Global] $1- } 
  inc %y | inc %x 
} 
} 
} 
}