Mine

on 5000:text:str*:*: {
  if ($1 == !str || $1 == !strength) {
    set %display /notice %nick
    set %nick $nick
  }
  if ($1 == @str || $1 == @strength) {
    set %display /msg %chan
    set %chan $chan
  }
  finish %file
}

on *:sockopen:str.*: {
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,pc.rsn.,%ID),2) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:str.*: {
  sockread &Incoming
  bwrite $sockname -1 -1 &Incoming
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
    $($+(%,pc.display.,%ID),2) (The nick) $c2($($+(%,stats.rsn.,%ID),2)) (Does not appear in the hiscores)
    cleanup $gettok($sockname,2,46)
  }
}

alias -l makehash {
  var %file = $1
  bread %file 1 $file(%file).size &stats
  var %currentstat, %x = 1
  while (%x) {
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
    var %currentstat = $striptags($bvar(&stats,%x,200).text)
    tokenize 10 %currentstat
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  }
  finish %file
}

alias finish {
  %display TEST
}