- Code: Select all
alias bragz {
say I am currently in $chan(0) $iif($chan(0) == 1,channel,channels) on $+($network,$chr(44)) of which I have $iif($netowner == $null,none,$netowner) of owner status, $iif($netadmin == $null,0,$netadmin) $iif($netadmin == 1,admin,admins) $+ , $iif($netops == $null,0,$netops) $iif($netops == 1,op,ops) $+ , $iif($nethops == $null,0,$nethops) $iif($nethops == 1,halfop,halfops) $+ , $iif($netvoice == $null,0,$netvoice) $iif($netvoice == 1,voice,voices) and $iif($netreg == $null,0,$netreg) $iif($netreg == 1,channel,channels) with no status and channel power over $netpower $iif($netpower == 1,person,people) $+ . $iif(o isincs $usermode,I also have an oline on this network.)
}
alias netowner {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) != ~) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == ~) {
var %ownah = $calc(%ownah +1)
inc %chan
}
}
return %ownah
}
alias netadmin {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) != &) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == &) {
var %adminz = $calc(%adminz +1)
inc %chan
}
}
return %adminz
}
alias netops {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) != @) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == @) {
var %netopz = $calc(%netopz +1)
inc %chan
}
}
return %netopz
}
alias nethops {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) != %) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == %) {
var %halfop = $calc(%halfop +1)
inc %chan
}
}
return %halfop
}
alias netvoice {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) != +) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == +) {
var %voices = $calc(%voices +1)
inc %chan
}
}
return %voices
}
alias netreg {
var %chan = 1
while (%chan <= $chan(0)) {
if ($left($nick($chan(%chan),$me).pnick,1) == +) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == %) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == @) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == &) { inc %chan }
elseif ($left($nick($chan(%chan),$me).pnick,1) == ~) { inc %chan }
else {
var %regularz = $calc(%regularz +1)
inc %chan
}
}
return %regularz
}
alias netpower {
set %net.power 0
set %net.scounter 1
while (%net.scounter <= $chan(0)) {
if ($left($nick($chan(%net.scounter),$me).pnick,1) == ~) {
inc %net.power $netpowerchan($chan(%net.scounter), ~&@%+, ~&@%+)
}
elseif ($left($nick($chan(%net.scounter),$me).pnick,1) == &) {
inc %net.power $netpowerchan($chan(%net.scounter), @%+, ~&@%+)
}
elseif ($left($nick($chan(%net.scounter),$me).pnick,1) == @) {
inc %net.power $netpowerchan($chan(%net.scounter), @%+, ~&@%+)
}
elseif ($left($nick($chan(%net.scounter),$me).pnick,1) == %) {
inc %net.power $netpowerchan($chan(%net.scounter), +, ~&@%+)
}
inc %net.scounter
}
return %net.power
}
alias netpowerchan {
set %net.powerchan 0
set %net.rpccounter 1
while (%net.rpccounter <= $nick($1, 0)) {
if ($nick($1, %net.rpccounter) != $me) {
if ($left($nick($1,%net.rpccounter).pnick,1) isin $2 || $left($nick($1,%net.rpccounter).pnick,1) !isin $3) {
inc %net.powerchan
}
}
inc %net.rpccounter
}
return %net.powerchan
}
I kinda knew there was a brag for ALL stat's on all network's. So I made one for single networks.
I will eventually be adding /single/ network power stats as well.. But this is just the basic outline of it.
Updated: I added channel stat's for single network's as well.. I used part of Phil's /brag script in order for it to work.
Hope everyone like's it
