on *:TEXT:!req-on*:#: {
  if ($nick isop $chan )  ||  ($nick ishop $chan)  ||  ($nick == iCheck) { 
    if (%req [ $+ [ $chan ] ] == on) {
      notice $nick PestControl is Already On. ( $chan )
    }
    else {
      set %req $+ $chan on
      msg $chan 4Requirement 2check has been turned 4On2 in4 $chan 2by4 $nick
    }
  }
}
on *:TEXT:!req-off*:#: {
  if ($nick isop $chan )  ||  ($nick == nikibomb) {
    if (%req [ $+ [ $chan ] ] == off) {
      notice $nick Pestcontol is Already Off ( $chan )
    }
    else {
      set %req $+ $chan off
      msg $chan 4Requirement 2check has been turned 4On2 in4 $chan 2by4 $nick
    }
  }
}

on *:JOIN:#:{ 
  if ($nick == $me)||($nick == isop)||($nick == ishop) { Halt } 
  if (%req [ $+ [ $chan ] ] == off) { Halt }
  set %channy $chan 
  set %user $nick 
  set %pc.msg msg $chan 
  sockopen statscheck www.slushpuppy.silverinterlocution.org 80 
} 
on *:SOCKOPEN:statscheck*:{ 
  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:statscheck*:{ 
  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 1Rsn:14 %user 15¤  7Strength:7 14 %strength 14¤  7Attack: 14 %attack 15¤ 7 Combat: 14 %combat /95 
    if (%combat < 95) && ($calc(%attack + %strength) < 160) { } 
    if (%combat > 95) { Well Done You meet Requirements } 
    if ($calc(%attack + %strength) > 170) { } 
    if ($calc(%attack + %strength) == 170) { Well Done You meet Requirements }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg 
  } 
} 

on *:Sockclose:pestkick*:{ 
  Sockclose $sockname 
  if (%combat < 90) { kick $chan $nick You don't meet 90 combat req }
  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 }