Mine

on *:SOCKREAD:Bluh.*:{
  var %rb | sockread %rb
  if ($regex(%rb,/^<td align="right"><img class="miniimg" src="http://www\.runescape\.com/img/hiscores/skill_icon_(.*?)1.gif"></td>$/Si)) {
    var %sk = $regml(1)
    while ((</tr> !iswm %rb) && (</table> !iswm %rb)) {
      sockread %rb
      if ((<td align="right">* iswm %rb) && ($htmlfree(%rb) != not ranked)) {
        sockread %rb
        echo -a Ok: %sk $htmlfree(%rb)
        break
      }
    }
  }
}


on *:SOCKREAD:Bluh.*:{
  while ($sock($sockname).rq) {
    var %rb | sockread %rb
    if ($regex(%rb,/^<td align="right"><img class="miniimg" src="http://www\.runescape\.com/img/hiscores/skill_icon_(.*?)1.gif"></td>$/Si)) {
      var %sk = $regml(1)
      while ((</tr> !iswm %rb) && (</table> !iswm %rb)) {
        sockread %rb
        if ((<td align="right">* iswm %rb) && ($htmlfree(%rb) != not ranked)) {
          sockread %rb
          echo -a Ok: %sk $htmlfree(%rb)
          break
        }
      }
    }
    sockread %rb
  }
}