rendered paste bodyon *:TEXT:!addexcept*:#PestOwnage:{
if ($nick isop $chan) {
notice $nick $2 added to #PestOwnage Exception List | notice $2 You have been added to the #PestOwnage Exception List
set %exception [ $+ [ $chan ] ] $2
}
}
on *:TEXT:!delexcept*:#PestOwnage:{
if ($nick isop $chan) {
notice $nick $2 deleted from #PestOwnage Exception List | notice $2 You have been deleted from the #PestOwnage Exception List
unset %exception [ $+ [ $chan ] ] $2
}
}
on *:JOIN:#PestOwnage:{
if ($nick == $me) || (%exception [ $+ [ $chan ] ] $nick) { HALT }
else {
set %chan $chan
set %user $nick
set %pc.msg msg $chan
sockopen pestkick www.slushpuppy.silverinterlocution.org 80
}
}
on *:SOCKOPEN:pestkick*:{
sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
var %sockread
sockread %sockread
if (<b> isin %sockread) {
set %attack $gettok($htmlfree(%sockread),4,32)
set %strength $gettok($htmlfree(%sockread),8,32)
}
if (<br> isin %sockread) {
var %combat = $htmlfree(%sockread)
if (%user == %exception %user) { halt }
%pc.msg Rsnick: %user ¤ Strength: %strength ¤ Attack: %attack ¤ Combat: %combat ¤
if (%combat < 95) && (%user !isop $chan) && (%user !ishop $chan) { inc %pckicks | ban -ku30 %chan %user You DON'T meet the 95+ Reqs For this channel! ¤ %pckicks naarbs fed to hungry hippos }
if (%combat > 95) { notice %user Congratulations, You meet the Reqs | mode %chan +v %user }
sockclose $sockname | unset %combat.3 | unset %chan | unset %user | unset %attack | unset %strength | unset %pc.msg
}
}
on *:Sockclose:pestkick*:{
Sockclose $sockname
unset %combat | unset %chan | unset %user | unset %attack | unset %strength | unset %pc.msg
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x }