;  Status Bragging Script 
;  Version: 1.0
;  by: Helio
;  
;  note: all stats have there own identifiers.
;        Feel free to edit the bragspam alias
;        to your own liking.
;
;  To Do: 
;        Taking into accound admin/IRCop status
;        Refining the $rpower alias
;          ie, taking out botserv bots,
;              logical duplicates, 
;              etc..
;
;


alias bragspam {
  /say I am on $rchans channels, across $rnets networks. I have $rops ops, $rhops halfops, and $rvoice voices. I have power over $rpower people
}

;   r* aliases
;    You can use these identifiers anywhere you want, they are global.
;    so if you only want your channel total, you can //say $rchans
;    etc
;


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 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 rops {


}
raw 266:*:{

}
alias rnets {
  return $scon(0)
}

;  Status Bragging Script 
;  Version: 1.0
;  by: Helio


alias bragspam {
  /say I am on $rchans channels, across $rnets networks. I have %olinecount olines, $rops ops, $rhops halfops, and $rvoice voices. I have non-abusive power over $rpower people
}


;   r* aliases
;    You can use these identifiers anywhere you want, they are global.
;    so if you only want your channel total, you can //say $rchans
;    etc
;


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 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 rops {


}
raw 266:*:{

}
alias rnets {
  return $scon(0)
}

alias rtest {
  if ($regex($1-,(h?)i)) {
    echo -a Yes
  }
}

on 1:START:{
  unset %countednets
  set %olinecount 0
}

raw 381:*:{
  set %curbragwork ¬ $+ $network $+ ¬
  if (%curbragwork !isin %countednets) {
    set %countednets %countednets $+ %curbragwork
    inc %olinecount
  }
}