on *:START: {
  server irc.purplesurge.com
  server -m shadow.ambernova.net 6668
  server -m irc.darkvoltage.net 6667

}

on *:CONNECT: {
  if ($network == PurpleSurge) {
    .msg nickserv IDENTIFY PASS
    JOIN #unbreakable,#zanacross,#mythosaos,#chat,#<3,#heaven,#help,#darkfusion,#monksofhistory,#spp,#battle,#aduckspond,#shadowrage,#spam,#hotskitty,#home,#lobby,#crystalfallows,#guttermind,#eagle,#iminachannotidleetc
  }

  if ($network == Amber-Novas-IRC-Network) || ($network == True-Flame-Network) {
    .msg nickserv IDENTIFY PASS
    JOIN #True-flame,#4chan,#help,#unbreakable,#wish-cave
  }
  if ($network == Darkvoltage) {
    .msg nickserv IDENTIFY PASS
    JOIN #unbreakable,#darkvoltage,#home,#help
  }



  alias bragspam {
    /say I'm on $rchans channels, across $rnets networks. I have %olinecount olines, $rowners owners, $radmins admins, $rops ops, $rhops halfops, and $rvoice voices. I have abusive power over $rpower people.
  }
  alias rchans {
    set %total 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      /set %chans $chan(0)
      set %total $calc(%total + %chans)
      inc %counter
    }
    return %total
  }
  alias rops {
    set %ops 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($me isop $chan(%scounter)) inc %ops
        inc %scounter
      }
      inc %counter
    }
    return %ops
  }
  alias rpower {
    set %peeps 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($me isop $chan(%scounter)) set %peeps $calc(%peeps + $nick($chan(%scounter),0) - 1)
        if ($me ishop $chan(%scounter)) set %peeps $calc(%peeps + $nick($chan(%scounter),0) - 1)
        inc %scounter
      }
      inc %counter
    }
    return %peeps
  }
  alias rowners {
    set %owners 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($nick($chan(%scounter),$me,q)) inc %owners
        inc %scounter
      }
      inc %counter
    }
    return %owners
  }
  alias radmins {
    set %admins 0
    set %counter 1
    while (%counter <= $scon(0)) {
      scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($nick($chan(%scounter),$me,a) == 1) { inc %admins 1 }
        inc %scounter
      }
      inc %counter
    }
    return %admins
  }
  alias rhops {
    set %hops 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($me ishop $chan(%scounter)) inc %hops
        inc %scounter
      }
      inc %counter
    }
    return %hops
  }
  alias rvoice {
    set %voice 0
    set %counter 1
    while (%counter <= $scon(0)) {
      /scon %counter
      set %scounter 1
      while (%scounter <= $chan(0)) {
        if ($me isvoice $chan(%scounter)) inc %voice
        inc %scounter
      }
      inc %counter
    }
    return %voice
  }
  alias rnets {
    return $scon(0)
  }
  raw 381:*:{
    set %curbragwork ¬ $+ $network $+ ¬
    if (%curbragwork !isin %countednets) {
      set %countednets %countednets $+ %curbragwork
      inc %olinecount
    }
  }