Stuff

  if (*stat* iswm %sockreader) { hadd -m RSN $remove(%sockreader,STAT:,) }
  if (*end* iswm %sockreader) { set %x 1
    var %o = $iif($gettok($hget(RSN,overall),2,32),$v1,0)
    var %stats.level $floor($calc(%o / 24))
    while (%x <= 25) { 
      tokenize 32 $hget(RSN,$setskill(%x))
      if ($2) var %statline1 = %statline1 $replace($setskill(%x),Hitpoints,hp,Ranged,Range,Prayer,Pray,Magic,Mage,Cooking,Cook,Woodcutting,Wc,Fletching,Fletch,Fishing,Fish,Firemaking,Fm,Attack,Atk,Defence,Def,Strength,Str,Mining,Mine,Herblore,Herb,Agility,Agil,Thieving,Thiev,Slayer,Slay,Farming,Farm,Runecraft,Rc,Hunter,Hunt,Construction,Con,Crafting,Craft,Smithing,Smith,Summoning,Sum) $c1($2) $+  $+ $chr(258) $+ $chr(124) $+ $chr(258)
      inc %x 
    }