Anonymous

alias -l cleanup {
  /unset % $+ $1 $+ *
  if ($sock($1)) { /sockclose $1 }
}

on $*:TEXT:/(Symptora \s)?[\.@!]stats */Si:#: {
  if (!$2) {   var %x 1

    while ($sock(rsstats. $+ %x)) {
      inc %x
    }

    if ($regex($1-,(Symptora \s)?\.)) { set % $+ rsstats. $+ %x $+ .return .msg $nick }
    if ($regex($1-,(Symptora \s)?\@)) { set % $+ rsstats. $+ %x $+ .return msg $chan }
    if ($regex($1-,(Symptora \s)?\!)) { set % $+ rsstats. $+ %x $+ .return .notice $nick }

    set % $+ rsstats. $+ %x $regsubex($nick,(Symptora \s)?[\.!@]stats,)
    sockopen rsstats. $+ %x hiscore.runescape.com 80 
  halt }
  var %x 1

  while ($sock(rsstats. $+ %x)) {
    inc %x
  }

  if ($regex($1-,(Symptora \s)?\.)) { set % $+ rsstats. $+ %x $+ .return .msg $nick }
  if ($regex($1-,(Symptora \s)?\@)) { set % $+ rsstats. $+ %x $+ .return msg $chan }
  if ($regex($1-,(Symptora \s)?\!)) { set % $+ rsstats. $+ %x $+ .return .notice $nick }

  set % $+ rsstats. $+ %x $regsubex($2-,(Symptora \s)?[\.!@]stats,)
  sockopen rsstats. $+ %x hiscore.runescape.com 80
}

on *:SOCKOPEN:rsstats.*: {
  sockwrite -nt $sockname GET /index_lite.ws?player= $+ $(% $+ $sockname,2) HTTP/1.1
  sockwrite -nt $sockname HOST: hiscore.runescape.com
  sockwrite -nt $sockname
}

on *:SOCKREAD:rsstats.*: {
  if ($sockerr) {
    $(% $+ $sockname $+ .return,2) Socket error while looking up4 $(% $+ $sockname,2) $+ 1: $sockerr
    /cleanup $sockname
    /return
  }
  var %read
  /sockread %read

  if (<html>* iswm %read) {
    $(% $+ $sockname $+ .return,2) User4 $(% $+ $sockname,2) 1is not on the hiscores.
    /cleanup $sockname
    /return
  }

  inc % $+ $sockname $+ .inc
  set % $+ $sockname $+ .stat. $+ $(% $+ $sockname $+ .inc,2) %read
  if ($(% $+ $sockname $+ .inc,2) >= 35) { /results $sockname }
}

alias -l results {
  var %x $chr(91) %statcolr $+ $(% $+ $1,2) $+  $chr(93)
  var %s $chr(124)
  var %i 1

  while (%i <= 24) {
    var % $+ x. $+ %i %statcolr $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + %i),2),2,44) $+ 
    inc %i
  }

  $(% $+ $1 $+ .return,2) 1,0Stats of:4 %x 2Total4 %x.1 %s 2Attack4 %x.2 %s 2Defence4 %x.3 Strength %x.4 %s 2HP4 %x.5 %s 2Range4 %x.6 %s 2Prayer4 %x.7 %s 2Magic4 %x.8 %s 2Cooking4 %x.9 %s 2Woodcutting4 %x.10 %s 2Fletching4 %x.11 %s 2Fishing4 %x.12 %s 2Firemaking4 %x.13 %s 2Crafting4 %x.14 %s 2Smithing4 %x.15 %s 2Mining4 %x.16 %s 2Herblore4 %x.17 %s 2Agility4 %x.18 %s 2Theiving4 %x.19 %s 2Slayer4 %x.20 %s 2Farming4 %x.21 %s 2Runecrafting4 %x.22 %s 2Hunter4 %x.23 %s 2Construction4 %x.24
  /cleanup $1

}