Top

Brag Spam


mIRC Code
+ 1 likes
Please Register to submit score.
Bookmark and Share
Average Score  0.0 (of 0 scores)
Date Added  Oct 17, 2009
Last Updated  Nov 09, 2009
Tags  brag  channels  servers  spam 

Introduction

when you enter "/bragspam" into you mIRC consol it will calculate how many channels you are on and it will figure out what your status is in each channel and will report the totals in the channel. Really good script

Grab the Code

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;@@@ Brag Spam Script                        @@@
;@@@ By Craighton                            @@@
;@@@ http://blog.thetechsoup.com             @@@
;@@@ If you need help join                   @@@
;@@@ Server: irc.techtoknow.net              @@@
;@@@ Channel: #scripts                       @@@
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
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
  }
}
on *:start: { unset %countednets | set %olinecount 0 }
 

Comments

  (1)  RSS
GrimReaper
Comments: 10
 
mIRC Snippet:  Brag Spam
Posted on Nov 19, 2009 3:17 am
in place of "olines," you could put
Code:
$iif(%olinecount == 1,oline,olines) $+ ,
Then it will update from olines to oline if you have one oline and not 2.

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  
Bottom