Stuff

on *:text:!stets *:#: {
  sockopen stets hiscore.runescape.com 80
  set %nick $2
  set %person $nick
  set %chan $chan
}
on *:SOCKOPEN:stets:{
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %nick
  sockwrite -n $sockname Host: hiscore.runescape.com 80      
  sockwrite -n $sockname $crlf
}
on *:sockread:stets: {
  if ($sockerr) echo -s Socker Error
  else {
    var %stets  
    sockread %stets
    while ($sockbr) {
      sockread -f %stets
      if (<td align="right">*</td> iswm %stets) {
        set %finalstats %finalstats $regsubex(%stets,/(?<=^| )[^\s\d]*\d[^\s\d]*(?= |$)|\D/g,)  
      }
    }
    msg #clanglory %finalstats 
  }
}