Random Whois / Spam Chan Kicker

Posted by Boffill Thursday, May 1, 2008
alias rwhois { if ($1) { var %x = 5 | while (%x > 0) { var %i = $nick($1,$r(1,$nick($1,0,rv)),rv) | %rwhois = $addtok(%rwhois,%i,44) | whois %i | dec %x } } }
on *:JOIN:#: { if ($nick == $me) { rwhois # } | else { %rwhois = $addtok(%rwhois,$nick,44) | whois $nick } }
raw 319:*: {
if (spamchanhere isin $3-) || (spamchanhere isin $3-) || (spamchanhere isin $3-) || (spamchanhere isin $3-) || (spamchanhere isin $3-){
set -u %match $v1
var %t = $comchan($2,0)
while (%t) {
if (($me isop $comchan($2,%t)) && ($2 !isop $comchan($2,%t))) {
ban -ku3600 $comchan($2,%t) $2 2 12Unacceptable Channels Detected! Matches: %match
}
dec %t
}
}
if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
}


raw 301:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 310:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 311:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 312:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 313:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 317:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 318:*: if (%rwhois) && ($istok(%rwhois,$2,44)) { %rwhois = $deltok(%rwhois,$findtok(%rwhois,$2,1,44),44) | haltdef }
raw 431:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef
raw 307:*: if (%rwhois) && ($istok(%rwhois,$2,44)) haltdef



-------------

-------------

0 comments :

Post a Comment