alias altcol return $regsubex($1-,/(\S+(?:$| ))(\S+)?/g,$+($chr(3),04,\1,$chr(3),02,\2))

on $*:text:/^[.!@](defname|setrsn)/Si:#:{ if (!$2) { notice $nick We need a name to default. }
if ($2) { set %defname.[ $+ [ $address($nick,2) ] ] $2 | notice $nick Defname saved. } }

on $*:text:/^[!@]stats/Si:#: {
  if ($sock(rsstats)) .sockclose rsstats
  set %RSplayway $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen Rsstats www.slushpuppy.silverinterlocution.org 80
  if (!$2 && !%defname.[ $+ [ $address($nick,2) ] ]) { set %player $nick }
  if ($2) { set %player $2- }
  if (!$2 && %defname.[ $+ [ $address($nick,2) ] ]) { set %player %defname.[ $+ [ $address($nick,2) ] ] }
} 

on *:SOCKOPEN:rsstats: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %player HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsstats: {
  if ($sockerr) { notice Jcfc SOCKET ERROR: $sockerr }
  else {
    var %sockreader
    sockread %sockreader
    if (The Combat level* iswm %sockreader) {
      tokenize 32 %sockreader
      set %combnstuff 02 All stats for %player 1~ 4Combat level 02 $+ $7 $+ 2 $8 based)1 ~ 
    }
    if (*Overall:* iswm %sockreader) {
      tokenize 32 %sockreader
      %rsplayway 02 $+ %combnstuff 04 $+ $1 02 $+ $2
      %rsplayway $altcol($remove($3-,<br>)))
      unset %rsplayway
      sockclose rsstats
    }
  }
}

on *:TEXT:*:#:{ if ($sock(rssingle)) .sockclose rssingle
  set %RSplayway $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen rssingle www.o-ss.net 80
  if (!$2) && (!%defname.[ $+ [ $address($nick,2) ] ]) { set %player $nick }
  if ($2) { set %player $2- }
  if (!$2) && (%defname.[ $+ [ $address($nick,2) ] ]) { set %player %defname.[ $+ [ $address($nick,2) ] ] }
  set %rssingle $setskill($right($1,-1))
} 

on *:SOCKOPEN:rssingle: {
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %player HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rssingle: {
  if ($sockerr) { notice Jcfc SOCKET ERROR: $sockerr }
  else {
    var %sockreader
    sockread %sockreader
    set %rssingle $setskill($right($1,-1))
    if (*%rssingle* iswm %sockreader) {
      tokenize 32 %sockreader
      %rsplayway %rssingle for %player $+ : Level: $3 Rank: $2 Xp: $4
    }
  }
}
alias -l setskill {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^r(ng|ange|anged|angeing|anger)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/Si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^(hunt)(er|ing)?$/Si)) return Hunter
}