Unnamed

on *:TEXT:!stat*:#: { sockopen hiscore hiscore.runescape.com 80 | set %user $2 | set %n $nick }
on *:sockopen:hiscore: { 
  sockwrite -n hiscore GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user HTTP/1.1
  sockwrite -n hiscore Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:hiscore:{
  if ($sockerr) {
    notice %n Error.
    halt
  }
  else { 
    var %temptext
    while (1) {
      if ($sockbr = 0) { break }
      sockread -f %temptext 
      if (<td align="right">*</td> iswm %temptext) { set %skillline %skillline $+($htmlfree(%temptext)) }
    }
  }
}
  on *:sockclose:hiscore: { unset %n | unset %user | unset %skillline }
  alias -l htmlfree {
    var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
    return %x
  }