Unnamed

on *:TEXT:!stats *:*:{
  set %HCOLOR 04
  ;### CHANGE ^^ THOSE TWO NUMBERS TO CHANGE THE LEVEL COLOR.
  set %SCOLOR 07
  ;### CHANGE ^^ THOSE TWO NUMBERS TO CHANGE THE SEPERATOR COLOR.
  inc %buildid 1
  set $+(%,build.name,%buildid) $replace($2-,$chr(32),$chr(95))
  set $+(%,statschan,%buildid) $iif($chan,$chan,$nick)
  sockopen $+(build,%buildid) hiscore-web.runescape.com 80
}
on *:sockopen:build*:{ 
  var %id = $right($sockname,-5)
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ $($+(%,build.name,%buildid),3) HTTP/1.1
  sockwrite -nt $sockname Host: hiscore-web.runescape.com $+ $crlf $+ $crlf 
}
on *:sockread:build*:{
  if ($sockerr) { echo -s error $sockerr }
  else {
    var %read | sockread %read | var %id = $right($sockname,-5)
    if (personal scores for isin %read) { set %switch 1 | set %switchskill $striptags(%read) }
    elseif (%switch == 1) || (%switch isnum 3-4) { inc %switch 1 }
    elseif (%switch == 2) {
      set $+(%,statsmsg,%id) $($+(%,statsmsg,%id),2) $+($chr(124),$chr(3)) %switchskill $+($chr(3),%HCOLOR,$striptags(%read),$chr(3),%SCOLOR)
      inc %switch 1 
    }
  }
}
on *:sockclose:build*:{ 
  var %id = $right($sockname,-5) 
  if ($($+(%,statsmsg,%id),2)) { msg $($+(%,statschan,%id),2) $chr(91) $+($chr(3),%hcolor,$($+(%,build.name,%id),2),$chr(3)) $chr(93) $right($replace($($+(%,statsmsg,%id),2),Attack,Att,Strength,Str,Defence,Def,Hitpoints,HP,Fletching,Fletch,Prayer,Pray,Ranged,Range,Runecrafting,RCing,Farming,Farm,Herblore,Herb,Woodcutting,WCing,Overall,Total),-3) }
  else { msg $($+(%,statschan,%id),2) Stats of $+($chr(3),%hcolor,$($+(%,build.name,%id),2),$chr(3)) not found. }
  cleanup 
}
alias -l cleanup { unset %statsmsg* %build.name* %statschan* %switch* %switchskill* %hcolor %scolor }
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }