mIRC Bragspam Script

Moderator: GeekShed.Net Staff

mIRC Bragspam Script

Postby GrimReaper » Thu Nov 26, 2009 11:32 am

Code: Select all
;%%%%%%%%%%% BRAG SCRIPT %%%%%%%%%%%%%%%%%%%
;  Status Bragging Script
;  Version: 1.0
;  by: Helio


alias bragspam {
  /say I am on $rchans  $+ $iif($rchans == 1,channel,channels) $chr(40) $+ $rsecret Either Secret $+ $chr(44) 0p3r Or Admin $+ $chr(41) $+ , across $rnets  $+ $iif($rnets == 1,network,networks) $+ . I have $rolinect  $+ $iif($rolinect == 1,oline,olines) $+ , $rowner  $+ $iif($rowner == 1,owner,owners) $+ , $radmins  $+ $iif($radmins == 1,admin,admins) $+ , $rops  $+ $iif($rops == 1,op,ops) $+ , $rhops  $+ $iif($rhops == 1,halfop,halfops) and $rvoice  $+ $iif($rvoice == 1,voice,voices) $+ . I have non-abusive power over $rpower people!!!!! My average is $rchanavg  $+ $iif($rchanavg == 1,user,user's) per channel!!!!
}


;   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 rsecret {
  set %secret 0
  set %counter 1

  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ((s isincs $chan(%scounter).mode) || (O isincs $chan(%scounter).mode) || (A isincs $chan(%scounter).mode)) {
        inc %secret
      }
      inc %scounter
    }
    inc %counter
  }
  return %secret
}
alias rowner {
  set %owners 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($left($nick($chan(%scounter),$me).pnick,1) == ~) 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 ($left($nick($chan(%scounter),$me).pnick,1) == &) inc %admins
      inc %scounter
    }
    inc %counter
  }
  return %admins
}
alias rops {
  set %ops 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($left($nick($chan(%scounter),$me).pnick,1) == @) 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 ($left($nick($chan(%scounter),$me).pnick,1) == %) 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 ($left($nick($chan(%scounter),$me).pnick,1) == +) inc %voice
      inc %scounter
    }
    inc %counter
  }
  return %voice
}

alias rchanavg {
  return $round($calc($rpower / $rchans),0)
}

raw 266:*:{

}
alias rnets {
  return $scon(0)
}

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

alias rolinect {
  set %rolines 0
  set %rcounter 1
  while (%rcounter <= $scon(0)) {
    /scon %rcounter
    if ($status == connected) {
      if (o isincs $usermode) {
        inc %rolines
      }
    }
    inc %rcounter
  }
  return %rolines
}


This Script was made by Helio, I am not going to take praise for it, as i did not make it. But I have added some $iif functions to it. So it has the correct Grammer for 1 oline and will say "No olines," when you have none.

The syntax is /bragspam

Update: I added a few more $iif functions for when you are in 1 channel it will say so. not channels. and op's, hop's, voices etc.

Secondary update: Added an average user's per channel into the script and an on load function so you set the amount of oline's you have.

Updated again to automatically update how many oline's you have everytime you use the alias command.
Last edited by GrimReaper on Sun Mar 20, 2011 7:29 pm, edited 6 times in total.
GrimReaper
 
Posts: 73
Joined: Wed Oct 28, 2009 4:34 pm
Location: In your router, Resetting your connection.

Re: mIRC Bragspam Script

Postby Jordan » Thu Nov 26, 2009 10:50 pm

Ah, Thanks Grim.. I Saw a Few People Using This Script... I was wondering where they got it from...
Jordan
 
Posts: 17
Joined: Thu Oct 29, 2009 8:24 pm

Re: mIRC Bragspam Script

Postby GrimReaper » Sat Nov 28, 2009 5:18 pm

My pleasure Jordan.

I felt it needed posting, Regardless of if I made it or not.

I know user's will find it handy. Although I do not have one for XChat.

But I do have one for XChat on Linux Mint lol. but not on Windows.
GrimReaper
 
Posts: 73
Joined: Wed Oct 28, 2009 4:34 pm
Location: In your router, Resetting your connection.

Re: mIRC Bragspam Script

Postby therock247uk » Mon Nov 30, 2009 9:54 pm

Thanks been looking to readd this.
therock247uk
 
Posts: 217
Joined: Thu Oct 22, 2009 8:29 pm
Location: uk


Return to Script help

Who is online

Users browsing this forum: No registered users and 0 guests

cron