on *:text:!addexcept*:#: { 
  if (!$2) $nick $nick Please specify a user to add to the exeption list 
  elseif ($nick isop $chan) || ($nick ishop $chan) || ($nick == kakadu55) {
    /writeini pc.ini pc $address($2,2) pc
    msg $chan 7 $2 14was added to exeption list. 
  } 
  else { 
    notice $nick $nick You need atleast Half-op to add to exeption list. 
  } 
} 

on *:text:!delexcept*:#: { 
  if (!$2) $nick $nick Please specify a user to remove from exeption list 
  elseif ($nick isop $chan) || ($nick ishop $chan) || ($nick == Kakadu55) {
    /remini pc.ini pc $address($2,2) 
    msg $chan 7 $2 14was removed from exeption list.
  } 
  else { 
    notice $nick $nick You need atleast Half-op to remove from exeption list.
  } 
} 

on *:JOIN:#goodpcw:{ if ($readini(pc.ini,pc,$address($nick,2))) { 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) 
    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+, 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) > 155) { Notice %user Congratulations, you meet reqs of 155+ combined att+str | mode %channy +v %user }
    if ($calc(%attack + %strength) == 155) { Notice %user Congratulations, you meet reqs of 155+ 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 } 



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