#8 - 08/01/06 01:00 AM
Brag Script
|
Registered: 07/31/06
Posts: 646
Loc: Burlington, VT
|
Originally posted by Helio: To use, type /bragspam It'll show the amount of channels you are on, the modes, and how many people you have control over. Plans for 2.0: Oper status, with lusers output, refining r aliases
; 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)
}
_________________________
WyldRyde IRC Network Steve Mermelstein Root Admin #!/usr/bin/geek My Amazon.com WishlistPlease no PMs. Please post to a topic instead so your question(s) may benefit others.
|
|
Top
|
|
|
|
Sponsored Links
Member
Registered: 27/08/04
Posts: 10136
Loc: Mountain View, CA
|
|
|
Top
|
|
|
|
|
#681 - 01/22/08 01:46 PM
Re: Brag Script
[Re: usrbingeek]
|
Over 50 posts
Registered: 08/20/06
Posts: 76
Loc: USA
|
Updated by Phil to take into account the number of olines a person has. Shows the number of people a person has nonabusive power over (i.e. the number of people in channels where the person is an op or halfop) ; 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
}
}
_________________________
Ryan
Please do not PM me for support; the forums are where your answered questions may help others in the future.
|
|
Top
|
|
|
|
|
#1539 - 04/06/08 04:02 AM
Re: Brag Script
[Re: Andrew12]
|
n00b
Registered: 03/26/08
Posts: 15
Loc: around here
|
mirc freezes evertime i type /bragspam
|
|
Top
|
|
|
|
|
#1784 - 04/27/08 04:20 PM
Re: Brag Script
[Re: Andrew12]
|
Over 200 posts
Registered: 10/23/06
Posts: 205
Loc: Warwick, UK
|
A couple days ago I found out that I could do "/set %olinecount " to anything I want and I can make it say anything that I want so sometimes I do "/set %olinecount Freekie's" so it would say "[16:03] <@Andrew12> I am on 8 channels, across 1 networks. I have Freekie's olines, 4 ops, 3 halfops, and 1 voices. I have non-abusive power over 182 people" :P I'm not overly sure of the point in posting this comment. You make it out to be some kind of code exploit. Of course you can modify the contents of variables in your own client since there is no protection provided in mIRC similar to that something like Object Orientation would provide. Phil
Edited by Phil (04/27/08 04:23 PM)
|
|
Top
|
|
|
|
|
|
Previous Topic
Index