Stuff

on *:TEXT:!world:#:{
  inc %hpe
  set $+(%,hpn.,%hpe) $iif($2,$2-,$nick)
  Set $+(%,hpw.,%hpe) $iif($left($1,1) == !,notice Fatality)
  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 $+ .
    unset $+(%,hpw,.$right($sockname,1)
    unset $+(%,hpn,.$right($sockname,1)
    sockclose $sockname
  }
  else {
    var %read. [ $+ [ $right($sockname,1) ] ]
    sockread %read. [ $+ [ $right($sockname,1) ] ]
    if (*<font color="#AA0022">*</font>* iswm %read. [ $+ [ $right($sockname,1) ] ]) {
      %hpw. [ $+ [ $right($sockname,1) ] ] Hp exp for %hpn. [ $+ [ $right($sockname,1) ] ] Is $htmlfree(%read. [ $+ [ $right($sockname,1) ] ]) $+ .
      unset %hpw. [ $+ [ $right($sockname,1) ] ]
      unset %hpn. [ $+ [ $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) ] ]) {
      %hpw. [ $+ [ $right($sockname,1) ] ] %hpn. [ $+ [ $right($sockname,1) ] ] Is not ranked in hp.
      unset %hpw. [ $+ [ $right($sockname,1) ] ]
      unset %hpn. [ $+ [ $right($sockname,1) ] ]
      sockclose $sockname
    }
  }
}