Unnamed

on *:text:!world:#blazing_hearts: {
  inc %hpe
  set $+(%,hpn.,%hpe) $gettok($nick,2-,124)
  set $+(%,hpw.,%hpe) notice $gettok($nick,2-,124)
  set $+(%,nick.,%hpe) $gettok($nick,2-,124)
  sockopen $+(hp.,%hpe) hiscore.runescape.com 80
}
on *:sockopen:hp.*:{
  sockwrite -nt $sockname GET /overall.ws?table=4&user= $+ %hpn. [ $+ [ $right($sockname,1) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:hp.*:{
  if ($sockerr) {
    $($+(%,hpw,.$right($sockname,1)),2) Error: $sockerr $+ .
    sockclose $sockname
  }
  else {
    var %read. [ $+ [ $right($sockname,1) ] ]
    sockread %read. [ $+ [ $right($sockname,1) ] ]
    if (*<font color="#AA0022">*</font>* iswm %read. [ $+ [ $right($sockname,1) ] ]) {
      set $+(%,var.,%hpe) $htmlfree(%read. [ $+ [ $right($sockname,1) ] ])
      set $+(%,$ctime) %hpn. [ $+ [ %hpe ] ] $+ $chr(124) $+ %var. [ $+ [ %hpe ] ]
      sockclose $sockname
    }
    if (*<div class="tandc">This website and its contents are copyright © 1999 - 2007 Jagex Ltd.<br>* iswm %read. [ $+ [ $right($sockname,1) ] ]) {
      sockclose $sockname
    }
  }
  unset %nick. [ $+ [ %hpe ] ]
  unset %var. [ $+ [ %hpe ] ]
  unset %hpw. [ $+ [ %hpe ] ]
}

alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x 
}