Mine

on *:TEXT:!vc*:#pest: { if (nick isvoice #pest || $nick isreg #pest || $2 isop #pest || $2 ishop #pest || $2 isvoice #pest) { HALT }
  elseif ($nick isop #pest || $nick ishop #pest) { 
    set %channy $chan
    set %user $2
    set %pc.msg notice $nick
    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 4Rsn:7 %user 4 Strength:7 %strength 4  Attack:7 %attack 4  Combat:7 %combat
    if (%combat < 100) && (%combat > 10) && ($calc(%attack + %strength) < 180) { inc %kicks | ban -k %channy %user 14You don't meet the 7requirements 14for this channel. Reqs:4 100+ Cmb or4 180 str + Att 4 %kicks }
    if (%combat >= 100) { mode #pest +v %user }
    if (%combat = 0 ) { 
      notice %user You need to use your runescape name. Please leave and change it, then come back.
      %pc.msg %user is not using RSN, a notification was sent to him/her to change it.
    }

    if ($calc(%attack + %strength) > 180) { mode #pest +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 }