Something

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

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
}