Something

on $*:text:/^[!@]/si:#: {
  if (sock(stats.*)) .sockclose stats.*
  if ($setskill($right($1,-1))) && (!$3) {
    var %sockid = $right($ticks,6)
    set %statsplay. [ $+ [ %sockid ] ] $iff($left($1,1) == @, msg $chan, notice $nick)
    set %nick $2
    sockopen stats. [ $+ [ %sockid ] ] www.users.on.net 80
  }
}
on *:sockopen:stats.*: {
  sockwrite -nt $sockname GET ~adtory/stats.php?user= $+ %nick HTTP/1.1
  sockwrite -nt $sockname host: www.users.on.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats.*: {
  if ($sockerr) { echo -a SOCKET ERROR: $sockerr | halt }
  set %sockreader
  sockread %sockreader
  if (%skill iswm %sockreader) {
    tokenize 32 %sockreader
    if ($3 == 0) {
      %statsplay. [ $+ [ $right($sockname,6) ] ] $2 does not appear in the highscores for %skill $+ .
      unset %sockreader
      unset %statsplay. [ $+ [ $right($sockname,6) ] ]
      unset %nick
      sockclose $sockname
      halt
    }
    else {
      %statsplay. [ $+ [ $right($sockname,6) ] ] Skill: %skill - Level: $3 - Expoints: $4 - Expoints till next level: $2
      unset %sockreader
      unset %statsplay. [ $+ [ $right($sockname,6) ] ]
      unset %nick
      sockclose $sockname
    }
  }
  else {
    %statsplay. [ $+ [ $right($sockname,6) ] ] Please choose a valid skill.
    unset %sockreader
    unset %statsplay. [ $+ [ $right($sockname,6) ] ]
    unset %nick
    sockclose $sockname
  }
}
alias -l setskill { 
  if ($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,/^range(r|d|ing)?$/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,/^(hunt)(er|ing)?$/si)) return Hunter 
  elseif ($1 == 23) || ($regex($1,/^(con)(ion|ing)?$/si)) return Construction 
}