on *:join:CHAN:{
  if ($regex($nick,[//|/\|\`|\|])) {
    /msg $nick Illegal chracters in your nick 14\,/,`,|. Please change your nick before joining
    halt
  }
  else {
    /set %userstats $remove($nick
    /sockopen Pestcontrol [ $+ [ %userstats ] ] hiscore.runescape.com 80
  }
}
on *:SOCKOPEN:Pestcontrol*:{
  /sockwrite -t $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $eval(%userstats, 2) HTTP/1.1 $+ $crlf
  /sockwrite -t $sockname Host: hiscore.runescape.com $+ $crlf
  /sockwrite -t $sockname $crlf
} 
on *:sockread:Pestcontrol*:{
  if ($sockerr) {
    /echo -a error. $sock($sockname).wsmsg
  }
  else {
    sockread -n &comeon
    /bwrite $sockname -1 -1 &comeon
    if ($bfind(&comeon, 1, </html>).text) { 
      /results $sockname
    }
  }
}

alias -l results {
  if ($1) {
    /bread $1 1 $file($1).size &pc
  }
  if ($bfind(&pc, 1, does not feature in the hiscores.).text) {
    /set %combatstats [ $+ [ $nick ] ] null
    /tokickornottokick
    halt
  }
  else {
    var %i 1
    while (%i <= 7) {
      if ($bfind(&pc, 1, <a href="overall.ws?table= $+ %i).text) {
        /var %lvls $bfind(&pc, 1, <a href="overall.ws?table= $+ %i).text
        /var %end $calc($bfind(&pc, $eval(%lvls, 2), </tr>").text - %lvls)
        /var %stats $bvar(&pc, $eval(%lvls, 2), $eval(%end, 2)).text
        /set %combatstats [ $+ [ $nick ] ] $addtok(%combatstats, %stats, 3, 32), 46))
        /inc %i
        else /tokickornottokick
      }
      else /tokickornottokick
    }
  }
}
alias -l tokickornottokick {
  if (%combatstats == null) {
    /kick $chan $nick Play more rs pl0x
    /sockclose $sockname
    halt
  }
  else {
    /sockclose $sockname
    /echo -s commands here
  }
}
alias -l html {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}