on *:TEXT:!addprotect *:#pcmasters: {
  if ($address($nick,2) == $address($me,2)) {
    write protected.txt $2
  }
}
on *:TEXT:!setname *:#pcmasters: {
  writeini rsn.ini rsns $address($nick,2) $remove($2-,$chr(36))
  notice $nick The default rsn for the address $address($nick,2) has been set to: $2-
}
on *:JOIN:#pcmasters:{
  if ($nick == $me) || ($read(protected.txt,w,$nick)) { Halt }
  set %channy $chan
  if ($readini(rsn.ini,n,rsns,$address($nick,2)) set %user $replace($ifmatch,$chr(32),_)
  else set %user $nick
  set %nick $nick
  set %pc.msg msg $chan
  sockopen pestkick http://www.slushpuppy.silverinterlocution.org/pestcontrol.php?pestcontrol=RSN 
}
on *:SOCKOPEN:pestkick*:{
  sockwrite -nt $sockname GET http://www.slushpuppy.silverinterlocution.org/pestcontrol.php?pestcontrol=RSN  $+ %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 Rsnick: %user ¤ Strength: %strength ¤ Attack: %attack ¤ Combat: %combat
    if (%combat < 90) && ($calc(%attack + %strength) < 155) && (%nick !isop $chan) && (%nick !ishop $chan) { inc %kicks | ban -ku60 %channy %nick You DON'T meet Reqs For this channel! ¤ %kicks }
    if (%combat > 90) {  Congratulations,You meet Reqs  | mode %channy +v %nick }
    if ($calc(%attack + %strength) > 155) {  Congratulations,You meet Reqs  | mode %channy +v %nick }
    if ($calc(%attack + %strength) == 55) {  Congratulations,You meet Reqs  | mode %channy +v %nick }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg | unset %nick
  }
}

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


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