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 $+ $crlf $+ $crlf
}
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) hadd -m stats %skill 14 $+ $replace(%skill,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) (12 $+ $2  $+ 14)
      if (%skill == Summoning) {
        $gettok($sock(stats).mark,2,124) $logo($upper($replace($gettok($sock(stats).mark,1,124),_,$chr(32)))) $hget(stats,overall) $hget(stats,Attack) $hget(stats,Defence) $hget(stats,Strength) $hget(stats,Hitpoints) $hget(stats,Ranged) $hget(stats,Magic) $hget(stats,Prayer) $hget(stats,Cooking) $hget(stats,Woodcutting) $hget(stats,Fishing) $hget(stats,Fletching) $hget(stats,Firemaking) $hget(stats,Crafting) $hget(stats,Mining) $hget(stats,Smithing) $hget(stats,Agility) $hget(stats,Herblore) $hget(stats,Farming) $hget(stats,Thieving) $hget(stats,Slayer) 
        if ($istok(Runecrafting Hunter Construction Summoning,%skill,32) == $true) $gettok($sock(stats).mark,2,124)) $iif($hget(stats,Runecrafting),$v1) $iif($hget(stats,Hunter),$v1) $iif($hget(stats,Construction),$v1) $iif($hget(stats,Summoning),$v1)
        hfree stats
        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,$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))
  }
}
 

Commenting Options