Miscellany

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 
}