I got bored with all the "Multi Networked" brag script's.. So I decided to /try/ make one for a single network.

Syntax used is: /bragz

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
}