on *:JOIN:#goodpcw: {
  if ($nick == $me) {
    halt
  }
  else { 
    set %tt 1
    while (%tt <= $lines(exceptions.txt)) {
      if ($nick == $read(exceptions.txt,%tt)) {
        msg #goodpcw 4 $+ $nick 14is on the4 exception14 list.
        /mode $chan +v $nick
        halt
      }
      inc %tt 1
    }
    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 < 90) && ($calc(%attack + %strength) < 150) { inc %kicks | ban -ku20 %channy %user 2 You don't meet reqs 90+ cmb or 150 combined att+str, use your RSN or train! ¤ Noobs owned: %kicks }
    if (%combat > 90) { Notice %user Congratulations, you meet reqs of 90+ cmb | mode %channy +v %user }
    if ($calc(%attack + %strength) > 150) { Notice %user Congratulations, you meet reqs of 150+ combined att+str | mode %channy +v %user }
    if ($calc(%attack + %strength) == 150) { Notice %user Congratulations, you meet reqs of 150 combined 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 }


on *:TEXT:!except *:#goodpcw: {
  if ($nick isop $chan) {
    set %aa 1
    while (%aa <= $lines(exceptions.txt)) {
      if ($2 == $read(exceptions.txt,%aa)) {
        msg #goodpcw 4 $+ $2 14is on the4 exception14 list.
        set %bloobla yes
        halt
      }
      inc %aa 1
      set %bloobla no
    }
    if (%bloobla == no) {
      write exceptions.txt $2
      notice $nick 4 $+ $2 14has been added to the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!unexcept *:#goodpcw: {
  if ($nick isop $chan) {
    if ($2 !isin $read(exceptions.txt)) {
      notice $Nick 14This person isn't on the 4exception 14list.
    }
    else {
      write -ds $+ $2 exceptions.txt $2
      notice $nick 4 $+ $2 14has been deleted from the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!elist:#goodpcw: {
  if ($nick isop $chan) {
    set %ss 1
    while (%ss <= $lines(exceptions.txt)) {
      msg $nick 4 $+ $read(exceptions.txt,%ss) 14is an 4exception14.
      inc %ss 1
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}