Miscellany

on *:input:#: {
  if ($regex($1,/^[@!]test/Si)) {
    var %random $rand(1,9999999)
    set $+(%,display.,%random) $iif($left($1,1) == @,echo @stats,echo -a) 
    set $+(%,user.,%random) $iif($2,$replace($2-,$chr(32),-),$me)
    $iif($left($1,1) == @,window @stats)
    sockopen $+(highscore.,%random) hiscore.runescape.com 80
  } 
}
on *:sockopen:highscore.*: { 
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $eval($+(%,user.,$gettok($sockname,2,46)),2) HTTP/1.1 
  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf 
  sockwrite -nt $sockname $crlf
} 
on *:sockread:highscore.*: { 
  if (!$sockerr) {
    var %stats
    sockread %stats 
  }
  if (*does*not*feature*in*the*hiscores* iswm %stats) {
    $eval($+(%,display.,$gettok($sockname,2,46)),2) $eval($+(%,user.,$gettok($sockname,2,46)),2) does not feature in the hiscores.
    halt
  }
  else {
    if ($htmlfree(%stats) == XP) {
      %t = 0
      :a
      sockread %sockreader
      set %var %var $htmlfree(%stats)
      sockread %sockreader
      set %var %var $htmlfree(%stats)
      inc %t
      if (%t < 5) { goto a }
    }
    else {
      $eval($+(%,display.,$gettok($sockname,2,46)),2) %var
    }
  }
}
on *:sockclose:highscore.*: {
  sockclose $sockname
}