Miscellany

on *:sockread:rsstats: {
  if (!%v) { var %v = 1 }
  Else { inc %v } 
  if ($sockerr) { return }
  var %read
  sockread %read
  tokenize 32 %read
  echo -a %read
  if (%v >= 25) {
    %stats.style $c1(Stats for) $c2(%stats.user $+ :) %stats.return
    sockclose $sockname
    unset %stats.*
  }
  if (*STAT:overall* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($2)
  }
  if (*STAT:Attack* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:defence* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:strength* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:hitpoints* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:ranged* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:prayer* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:magic* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:cooking* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:woodcutting* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:fletching* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:fishing* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:firemaking* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:crafting* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:smithing* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:mining* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:herblore* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:agility* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:thieving* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:slayer* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:farming* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:runecraft* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:hunter* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:construction* iswm %read) {
    set %stats.return %stats.return $c1($remove($1,Stat:)) $c2($3)
  }
  if (*STAT:dueling* iswm %read) {
    set %stats.return %stats.return $c1(Dueling Rank:) $c2($3)
  }
}