on *:TEXT:!addexcept*:#95: {
if ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) {
writeini excepts.ini $2 exceptions on
/msg $chan $2 has been added to the exceptions list by $nick $+ .
} }
on *:TEXT:!delexcept*:#95: {
if ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) {
remini excepts.ini $nick
/msg $chan $2 has been deleted from the exceptions list by $nick $+ .
} }
on *:JOIN:#95:{
  if ($readini(excepts.ini,$nick,exceptions == on)) { Halt }
  set %channy $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)
    %pc.msg Rsn:714 %user 1¤ 7 Strength: 14 %strength 1¤ 7 Attack: 14 %attack 1¤ 7 Combat: 14 %combat 
    if (%combat < 95) && ($calc(%attack + %strength) < 160) { inc %kicks | ban -ku20 %channy %user 2 You don't meet reqs 95+ cmb, use your RSN or train! 20 sec ban ¤ Noobs owned: %kicks }
    if (%combat > 95) { Notice %user Congratulations, you meet the reqs of 95+ cmb | mode %channy +v %user }
    if ($calc(%attack + %strength) > 160) { Notice %user Congratulations, you meet reqs of 160+ att+str | mode %channy +v %user }
    if ($calc(%attack + %strength) == 160) { Notice %user Congratulations, you meet reqs of 160 att+str | mode %channy +v %user }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
  }
}

on *:Sockclose:pestkick*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
}


alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }



alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }