Anonymous

on $*:Text:/^[!@]stats/Si:#: {
set %rsn $2
set %display $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen Stats o-ss.net 80
}
on *:SockOpen:stats: {
sockwrite -n $sockname GET /parsers/stats.php?user= $+ %rsn HTTP/1.1
sockwrite -n $sockname Host: o-ss.net $+ $crlf $+ $crlf
}
on *:Sockread:stats: {
if ($sockerr) %display Sockread Error in $sockname $+ .
else {
var %read
sockread %read
tokenize 32 %read
if ($setskill($1)) {
set %statline %statline $setskill($1) $3
}
elseif (*END* iswm %read) {
%display Stats for: %rsn
%display %statline
sockclose $sockname
unset %display
unset %rsn
unset %statline
}
}
}
alias setskill { 
  if ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 
  elseif ($regex($1,/^at(t|t?k|tack)$/Si)) return Attack 
  elseif ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence 
  elseif ($regex($1,/^str(eng[th][th])?$/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,/^(poh|cons?(truct)?(ion|ing)?|carp(entry)?)$/si)) return Construction
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter 
}