Muten

alias stats {
  sockopen stats hiscore.runescape.com 80
  sockmark stats $+($replace($1-,$chr(32),_),|,echo -a)
}
on *:SOCKOPEN:stats: {
  sockwrite -nt $sockname GET $+(/hiscorepersonal.ws?user1=,$gettok($sock(stats).mark,1,124)) HTTP/1.1
  sockwrite -nt $sockname Host: $+(hiscore.runescape.com,$str($crlf,2))
}
on *:SOCKREAD:stats: {
  if (!$sockerr) {
    var %s
    sockread %s
    if ($iskill(%s)) {
      var %skill %s,%x 0 | while (%x < 4) { sockread %s | inc %x }
      tokenize 60 %s
      tokenize 62 $1
      if ($2 != $null) { sockmark stats $addtok($sock(stats).mark,14 $+ $fix(%skill) (12 $+ $2  $+ 14),124) }
      if (%skill == Dungeoneering) {
        tokenize 124 $sock(stats).mark
        $2 $logo($upper($replace($1,_,$chr(32)))) $3-19
        if ($20 || $22 || $24) { $2 $logo($upper($replace($1,_,$chr(32)))) $20- }
        sockclose $sockname
      }
    }
  }
}
alias iskill {
  return $istok(Overall Prayer Attack Defence Strength Hitpoints Ranged Magic Cooking Woodcutting Fletching Fishing Firemaking Crafting Smithing Mining Herblore Agility Thieving Slayer Farming Runecrafting Hunter Construction Summoning Dungeoneering,$1,32)
}
alias logo return 14(12 $+ $1- $+ 14) —›
on $*:TEXT:/^[!@.](rs)?stats/Si:#: {
  if (!$($+(%,statflood,$nick),2)) && (!$sock(stats)) {
    set -u3 $+(%,statflood,$nick) on
    sockopen stats hiscore.runescape.com 80
    sockmark stats $+($replace($2-,$chr(32),_),|,$iif($left($1,1) == @,msg #,.notice $nick))
  }
}
alias fix { return $replace($$1,Attack,Att,Strength,Str,Ranged,Range,Defence,Def,Hitpoints,HP,Agility,Agi,Herblore,Herb,Magic,Mage,Woodcutting,WC,Firemaking,FM,Thieving,Thief,Slayer,Slay,Prayer,Pray,Construction,Con,Runecraft,RC,Fletching,Fletch,Fishing,Fish,Cooking,Cook,Crafting,Craft,Dungeon) }