on *:TEXT:*:#: {
  if ($setskill($right($1,-1))) && (!$3) {
    set %return $iif($left($1,1) == @, msg $chan, notice $nick)
    set %skill $setskill($remove($1,@,!,.))
    set %user $replace($2-,$chr(32),$chr(95))
    /sockopen kerstskill www.o-ss.net 80
  }
}
on *:SOCKOPEN:kerstskill: {
  sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %skill $+ &user= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:kerstskill: {
  if ($sockerr) {
    %return error
    halt
  }
  var %read
  sockread %read
  if (*end iswm %read) {
    tokenize 32 $htmlfree(%read)
    %return 7[ $+ %skill 12info for7 %user $+ ]: 12Level:7 $remove($2,end) 12Experience:7 $remove($3,end) 12Rank:7 # $+ $remove($1,end) 4 $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %return
    /unset %user
    /unset %skill
  }
}
alias -l setskill {
  if ($regex($1,/(st|(skill)?total|overall)^/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,/min(e|e?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,/hunt(er|ing)?/Si)) return Hunting
  elseif ($regex($1,/c(b|mb|ombat)?/Si)) return Combat
}