Untitled

on $*:TEXT:/^[!@.](farm|att|attack|def|defence|str|strength|rng|range|mage|magic|pray|prayer|hit|points|over|all|cook|wc|woodcut|fletch|fletching|fish|fishing|fire|craft|smith|min|herb|ag|thiev|slay|rune|rc|hunt|con)/Si:#: {
  set %stat.return notice $nick
  if (@ isin $1) set %stat.return msg $chan
  if (over isin $1) set %level Overall
  if (att isin $1) set %level Attack
  if (def isin $1) set %level Defence
  if (str isin $1) set %level Strength
  if (hit isin $1) set %level Hitpoints
  if (range isin $1) || (rng isin $1) set %level Range
  if (prey isin $1) set %level Prayer
  if (mage isin $1) || (magic isin $1) set %level Magic
  if (cook isin $1) set %level Cooking
  if (wood isin $1) || (wc isin $1) set %stat.level Woodcutting
  if (fletch isin $1) set %level Fletching
  if (fish isin $1) set %level Fishing
  if (fire isin $1) set %level Firemaking
  if (craft isin $1) set %level Crafting
  if (smith isin $1) set %level Smithing
  if (min isin $1) set %level Mining
  if (herb isin $1) set %level Herblore
  if (agility isin $1) || (ag isin $1) set %level Agility
  if (thiev isin $1) set %level Thieving
  if (slay isin $1) set %level Slayer
  if (farm isin $1) set %level Farming
  if (rune isin $1) || (rc isin $1) set %level Runecraft
  if (hunt isin $1) set %level Hunter
  if (con isin $1) set %level Construction
  set %rsn $replace($2-,$cha(32),$chr(95))
  if (!$2) set %rsn $nick
  if (!$2) && (%rsn [ $+ [ $nick ] ]) set %rsn %rsn [ $+ [ $nick ] ]
  sockopen stat hiscore.runescape.com 80
}
on *:SOCKOPEN:stat: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %rsn HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:stat: {
  if ($sockerr) { 
    %stat.return Socket Error: $sockname $chr(124) Error Code: $sockerr
  }
  else {
    var %stat.read
    sockread %stat.read
    if (* %stat.level * iswm %stat.read) { 
      set %level $htmlfree(%stat.read)
      var %stat.read
      sockread %stat.read
    }
    if (*<td align="right">* iswm %stat.read) { 
      set %stat.rank $htmlfree(%stat.read)
      var %stat.read
      sockread %stat.read
    }
    if (*<td align="right">* iswm %stat.read) { 
      set %stat.lvl $htmlfree(%stat.read) 
      var %stat.read
      sockread %stat.read
    }
    if (*<td align="right">* iswm %stat.read) { 
      set %stat.xp $htmlfree(%stat.read)
      %stat.return %1 $+ Name: %2 %rsn $+ %1 $chr(124) Stat: %2 %level
      %stat.return %1 $+ Level: %2 %stat.lvl $+ %1 $chr(124) Rank: %2 %stat.rank $+ %1 $chr(124) XP: %2 %stat.xp
      sockclose $sockname
    }
  }
}