Mine

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
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 
}