Unnamed

on *:text:!world:#blazing_hearts: {
  set %status on
  inc %hpe
  set $+(%,hpn.,%hpe) $nick
  set $+(%,hpw.,%hpe) notice $nick
  set $+(%,nick.,%hpe) $nick
}
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) ] ])
      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
    }
  }
  set $+(%,$nick.,$ctime) %var. [ $+ [ %hpe ] ]
  unset %hpn. [ $+ [ %hpe ] ]
  unset %hpw. [ $+ [ %hpe ] ]
}

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