on $*:TEXT:/^[!@.]top10/Si:#: {
  if (!$skl($2)) && ($2) { notice $nick skill not found | halt }
  if (!$2) {
    var %b $right($ticks,6)
    set %n $nick
    set %top.num $+ %b $chr(48)
    set %top.msg $+ %b $iif($left($1,1) == @,msg #,.notice $nick)
    sockopen top10 $+ %b rscript.org 80
  }
  elseif ($2 != $null) {
    var %b $right($ticks,6)
    set %n $nick
    set %top.num $+ %b $replace($2-,$chr(32),_)
    set %top.msg $+ %b $iif($left($1,1) == @,msg #,.notice $nick)
    sockopen top10 $+ %b rscript.org 80
  }
}
on *:sockopen:top10*: {
  sockwrite -nt $sockname GET $iif(%top.num [ $+ [ $right($sockname,6) ] ] == 0,/lookup.php?type=top10&table=0,/lookup.php?type=top10&table= $+ $skilnum(%top.num [ $+ [ $right($sockname,6) ] ])) HTTP/1.1
  sockwrite -nt $sockname Host: rscript.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:top10*: {
  var %read
  var %a = 0
  while ($sock($sockname).rq > 0) {
    sockread %read
    echo -a %read
    set %x [ $+ [ $right($sockname,6) ] ] %x [ $+ [ $right($sockname,6) ] ] $gettok(%read,4,32) $chr(40) $+ $gettok(%read,3,32) $+ $chr(41) $chr(124) %a $+ :
    inc %a
  }
  %top.msg [ $+ [ $right($sockname,6) ] ] $chr(40) $+ $upper($iif(%top.num [ $+ [ $right($sockname,6) ] ] == 0, Overall top10,$skl(%top.num [ $+ [ $right($sockname,6) ] ]) top10)) $+ $chr(41) $left($right(%x [ $+ [ $right($sockname,6) ] ],-61),-15)
  sockclose $sockname
}
alias skilnum {
  if ($regex($1,/(all|overal(l)?)/i)) return $chr(48)
  if ($regex($1,/att(a(c)?k)?/i)) return 1
  if ($regex($1,/(def(en[sc]e)?)/i)) return 2
  if ($regex($1,/str(ength)?$/i)) return 3
  if ($regex($1,/(h(it)?p(oint[sz])?)/i)) return 4
  if ($regex($1,/^(constitution|cns)/Si)) return 4
  if ($regex($1,/(rang(e|ing)?)/i)) return 5
  if ($regex($1,/(Pray(er)?)/i)) return 6
  if ($regex($1,/(mag(ic|e))/i)) return 7
  if ($regex($1,/(cook(ing)?)/i)) return 8
  if ($regex($1,/(w(ood)?c(utting)?)/i)) return 9
  if ($regex($1,/(fletch(ing)?)/i)) return 10
  if ($regex($1,/fish(ing)?/i)) return 11
  if ($regex($1,/f(ire)?m(aking)?/i)) return 12
  if ($regex($1,/craft(ing)?/i)) return 13
  if ($regex($1,/smith(ing)?/i)) return 14
  if ($regex($1,/(mine|mining)/i)) return 15
  if ($regex($1,/herb(lore)?/i)) return 16
  if ($regex($1,/agil(ity)?/i)) return 17
  if ($regex($1,/thie[fv](ing)?/i)) return 18
  if ($regex($1,/slay(er)?/i)) return 29
  if ($regex($1,/farm(ing)?/i)) return 20
  if ($regex($1,/r(une)?c(raft)?/i)) return 21
  if ($regex($1,/hunt(er|ing)?/i)) return 22
  if ($regex($1,/con(struc(tion)?)/i)) return 23
  if ($regex($1,/summ(on(ing)?)?/i)) return 24
}