Miscellany

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

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
    if (* $+ %rssingle $+ * iswm %sockreader) {
      tokenize 32 %sockreader
      %rsplayway %rssingle for %player $+ : Level: $3 Rank: $2 Xp: $4
    }
  }
}
alias skill2 { 
  if ($regex($1,/^(over(all)?|total)$/Si)) return Overall
  elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack  
  elseif ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence 
  elseif ($regex($1,/^str(ength)?$/Si)) return Strength 
  elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints 
  elseif ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged 
  elseif ($regex($1,/^Pray(er)?$$/Si)) return Prayer 
  elseif ($regex($1,/^mag(e|ic)$$/Si)) return Magic 
  elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking 
  elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting 
  elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching 
  elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing 
  elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 
  elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting 
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 
  elseif ($regex($1,/^mine(ing)?$/Si)) return Mining 
  elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 
  elseif ($regex($1,/^agil(ity)?$/Si)) return Agility 
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 
  elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 
  elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming 
  elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 
  elseif ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
  else { return no match }
}