Anonymous

alias -l a {
  return $replace($1,25,Overall,24,Attack,23,Defence,22,Strength,21,Hitpoints,20,Ranged,19,Prayer,18,Magic,17,Cooking,16,Woodcutting,15,Fletching,14,Fishing,13,Firemaking,12,Crafting,11,Smithing,10,Mining,9,Herblore,8,Agility,7,Thieving,6,Slayer,5,Farming,4,Runecraft,3,Hunter,2,Construction,1,Summoning) $+ :
}
on *:SOCKOPEN:stats.*:{
  tokenize 32 $sock($sockname).mark
  if ($sock($sockname).wserr) {
    $1-2 $v1
  }
  else {
    sockwrite -nt $sockname GET /index_lite.ws?player= $+ $replace($4-,$chr(32),+) HTTP/1.1
    sockwrite -nt $sockname Host: hiscore.runescape.com
    sockwrite -nt $sockname $lf
  }
}
on *:SOCKREAD:stats.*:{
  tokenize 32 $sock($sockname).mark
  if ($sock($sockname).wserr) {
    $1-2 $v1
  }   
  else {
    var %a
    $event %a
    if (*,*,* iswm %a) {
      var %b = 25
      while (%b) {
        if ($token(%a,$3,44) != -1) {
          var %c = %c $a(%b) $v1
        }
        $event %a
        dec %b
      }
      tokenize 32 $sock($sockname).mark
      $1-2 $+([,$4-,]) %c
    }
  }
}
on $*:TEXT:/^[!@]stats/:#:{
  var %a = 1
  while ($sock(stats. [ $+ [ %a ] ])) {
    inc %a
  }
  sockopen stats. [ $+ [ %a ] ] hiscore.runescape.com 80
  sockmark stats. [ $+ [ %a ] ] $iif($left($1,1) == !, .notice $nick, msg $chan) $iif($regex($2, /^-[rle]$/), $replace($2,-r,1,-l,2,-e,3) $3-, 2 $2-)
}