on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](stats))/Si):#:{
  tokenize 32 $iif($remove($1,$chr(44)) == $me,$2-,$1-)
  if ($left($1,1) == @ && $chan isin $haltchans) { halt }
  var %sckid = $right($ticks,5)
  if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
  if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $chan
  sockopen socket49572. [ $+ [ %sckid ] ] www.slushpuppy.silverinterlocution.org 80
  set %nick [ $+ [ %sckid ] ] $iif($2,$replace($2-,$chr(32),+),$iif(%defname [ $+ [ $address($nick,2) ] ],%defname [ $+ [ $address($nick,2) ] ],$nick))
}
on *:SOCKOPEN:socket49572.*: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %Nick [ $+ [ $right($sockname,5) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:socket49572.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*The Combat level for* iswm %sockreader) {
      var %nwt $remove(%sockreader,The,Combat,level,for,is,<br>)
      sockread %sockreader
      %way. [ $+ [ $right($sockname,5) ] ] $bracket(Combat stats) $arrows($remove(%nwt,<br>))
      %way. [ $+ [ $right($sockname,5) ] ] 07 $+ $remove($replace($regsubex(%sockreader,/(\d{2})/g,$chr(3) $+ 14 $+ \1 $+ $chr(3) $+ 07),attack,Att,Defence,Def,Strength,Str,Hitpoints,HP,firemaking,FM,Fletching,Fletch,Woodcutting,WC,runecraft,RC,Magic,Mage,Hunter,Hunt,Fishing,Fish,Farming,Farm,Ranged,Range),<br>)
      unset %way*
      unset %nick [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname
    }
    elseif (*does not feature* iswm %sockreader) {
      %way. [ $+ [ $right($sockname,5) ] ] $bracket(Combat stats) $replace(%nick [ $+ [ $right($sockname,5) ] ],+,$chr(32)) $c1(Doesn't Feature in the highscores for any skills)
      unset %way*
      unset %nick [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname  
    }
  }
}