alias -l cc { return $chr(3) $+ 4 $+ $1 }
alias -l c { return $chr(3) $+ 10 $+ $1 }
on $*:text:/^[!@] */Si:#:{
  if ($right($1,-1) == setrsn) { 
    writeini DefNames.ini Name $nick $2
    $iif($left($1,1) == !,/notice $nick,/msg $chan) $cc(Default name for) $c($nick) $cc(set to) $c($2)
  }
  var %id $ticks
  set %statsdisp. [ $+ [ %id ] ] $iif($left($1,1) == !,/notice $nick,/msg $chan)
  if (!$2) {
    set %statsnick. [ $+ [ %id ] ] $iif($readini(DefNames.ini,Name,$nick),$v1,$nick)
  }
  else {
    set %statsnick. [ $+ [ %id ] ] $replace($iif($2,$2-,$nick),$chr(32),$chr(45))
  }  
  set %yiha. [ $+ [ %id ] ] $setskill($right($1,-1))
  if (%yiha. [ $+ [ %id ] ] == halt) { 
    unset %*. [ $+ [ %id ] ]
    halt
  }
  sockopen stats. [ $+ [ %id ] ] o-ss.net 80
}
on *:sockopen:stats.*:{
  var %id $right($sockname,-6)
  sockwrite -nt $sockname Get /parsers/stats.php?user= $+ %statsnick. [ $+ [ %id ] ] HTTP/1.1
  sockwrite -nt $sockname HOST: o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats.*:{
  var %id $right($sockname,-6)
  if ($sockerr) {
    %statsdisp. [ $+ [ %id ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  var %socket
  sockread %socket
  if (* $+ %yiha. [ $+ [ %id ] ] $+ * iswm %socket) {
    %statsdisp. [ $+ [ %id ] ] $c(%yiha. [ $+ [ %id ] ]) $cc(stats for) $c(%statsnick. [ $+ [ %id ] ])
    %statsdisp. [ $+ [ %id ] ] $cc(Level :) $c($iif($gettok(%socket,3,32) == RANKED,/,$v1)) $cc(Rank :) $c($gettok(%socket,2,32)) $cc(Experience :) $c($gettok(%socket,4,32)) $cc(Exp To Level :) $c($xptolvl($gettok(%socket,3,32) $remove($gettok(%socket,4,32),$chr(44)))) 
    unset %*. [ $+ [ %id ] ]
    sockclose $sockname
    halt
  }
  if ($regex(%socket,/does/)) {
    %statsdisp. [ $+ [ %id ] ] $cc(Showing %yiha. [ $+ [ %id ] ] For) $c(%statsnick. [ $+ [ %id ] ]) $cc(:) $c(User Not Ranked!) 
    unset %*. [ $+ [ %id ] ]
    sockclose $sockname    
    halt
  }
  if ($regex(%socket,/Overall/)) set %overall. [ $+ [ %id ] ] $chr(3) $+ 4Overall $chr(3) $+ 10 $+ $gettok(%socket,3,32)
  if ($regex(%socket,/Attack/)) set %statsinfo. [ $+ [ %id ] ] on 
  if ($regex(%socket,/END/)) {
    %statsdisp. [ $+ [ %id ] ] $cc(Showing %yiha. [ $+ [ %id ] ] For) $c(%statsnick. [ $+ [ %id ] ]) $cc(:) %overall. [ $+ [ %id ] ]
    %statsdisp. [ $+ [ %id ] ] %stats. [ $+ [ %id ] ]
    unset %*. [ $+ [ %id ] ]
    sockclose $sockname
  }
  if (%statsinfo. [ $+ [ %id ] ]) {
    if ($gettok(%socket,3,32) == RANKED) {
      halt 
    }
    else {
      set %stats. [ $+ [ %id ] ] %stats. [ $+ [ %id ] ] $chr(3) $+ 4 $+ $gettok(%socket,1,32) $chr(3) $+ 10 $+ $iif($gettok(%socket,3,32) == RANKED,/,$v1)
    }
  }
}
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
  elseif ($1 == 24) || ($regex($1,/^stats/si)) return stats
  else return halt
} 
alias -l xptolvl {
  /tokenize 32 $1-
  if ($gettok($1,1,32) == 1 ) return $calc( 83 - $2)
  elseif ($gettok($1,1,32) == 2 ) return $calc( 174 - $2)
  elseif ($gettok($1,1,32) == 3 ) return $calc( 276 - $2)
  elseif ($gettok($1,1,32) == 4 ) return $calc( 388 - $2)
  elseif ($gettok($1,1,32) == 5 ) return $calc( 512 - $2)
  elseif ($gettok($1,1,32) == 6 ) return $calc( 650 - $2)
  elseif ($gettok($1,1,32) == 7 ) return $calc( 801 - $2)
  elseif ($gettok($1,1,32) == 8 ) return $calc( 969 - $2)
  elseif ($gettok($1,1,32) == 9 ) return $calc( 1154 - $2)
  elseif ($gettok($1,1,32) == 10 ) return $calc( 1358 - $2)
  elseif ($gettok($1,1,32) == 11 ) return $calc( 1584 - $2)
  elseif ($gettok($1,1,32) == 12 ) return $calc( 1833 - $2)
  elseif ($gettok($1,1,32) == 13 ) return $calc( 2107 - $2)
  elseif ($gettok($1,1,32) == 14 ) return $calc( 2411 - $2)
  elseif ($gettok($1,1,32) == 15 ) return $calc( 2746 - $2)
  elseif ($gettok($1,1,32) == 16 ) return $calc( 3115 - $2)
  elseif ($gettok($1,1,32) == 17 ) return $calc( 3523 - $2)
  elseif ($gettok($1,1,32) == 18 ) return $calc( 3973 - $2)
  elseif ($gettok($1,1,32) == 19 ) return $calc( 4470 - $2)
  elseif ($gettok($1,1,32) == 20 ) return $calc( 5018 - $2)
  elseif ($gettok($1,1,32) == 21 ) return $calc( 5624 - $2)
  elseif ($gettok($1,1,32) == 22 ) return $calc( 6291 - $2)
  elseif ($gettok($1,1,32) == 23 ) return $calc( 7028 - $2)
  elseif ($gettok($1,1,32) == 24 ) return $calc( 7842 - $2)
  elseif ($gettok($1,1,32) == 25 ) return $calc( 8740 - $2)
  elseif ($gettok($1,1,32) == 26 ) return $calc( 9730 - $2)
  elseif ($gettok($1,1,32) == 27 ) return $calc( 10824 - $2)
  elseif ($gettok($1,1,32) == 28 ) return $calc( 12031 - $2)
  elseif ($gettok($1,1,32) == 29 ) return $calc( 13363 - $2)
  elseif ($gettok($1,1,32) == 30 ) return $calc( 14833 - $2)
  elseif ($gettok($1,1,32) == 31 ) return $calc( 16456 - $2)
  elseif ($gettok($1,1,32) == 32 ) return $calc( 18247 - $2)
  elseif ($gettok($1,1,32) == 33 ) return $calc( 20224 - $2)
  elseif ($gettok($1,1,32) == 34 ) return $calc( 22406 - $2)
  elseif ($gettok($1,1,32) == 35 ) return $calc( 24815 - $2)
  elseif ($gettok($1,1,32) == 36 ) return $calc( 27473 - $2)
  elseif ($gettok($1,1,32) == 37 ) return $calc( 30408 - $2)
  elseif ($gettok($1,1,32) == 38 ) return $calc( 33648 - $2)
  elseif ($gettok($1,1,32) == 39 ) return $calc( 37224 - $2)
  elseif ($gettok($1,1,32) == 40 ) return $calc( 41171 - $2)
  elseif ($gettok($1,1,32) == 41 ) return $calc( 45529 - $2)
  elseif ($gettok($1,1,32) == 42 ) return $calc( 50339 - $2)
  elseif ($gettok($1,1,32) == 43 ) return $calc( 55649 - $2)
  elseif ($gettok($1,1,32) == 44 ) return $calc( 61512 - $2)
  elseif ($gettok($1,1,32) == 45 ) return $calc( 67983 - $2)
  elseif ($gettok($1,1,32) == 46 ) return $calc( 75127 - $2)
  elseif ($gettok($1,1,32) == 47 ) return $calc( 83014 - $2)
  elseif ($gettok($1,1,32) == 48 ) return $calc( 91721 - $2)
  elseif ($gettok($1,1,32) == 49 ) return $calc( 101333 - $2)
  elseif ($gettok($1,1,32) == 50 ) return $calc( 111945 - $2)
  elseif ($gettok($1,1,32) == 51 ) return $calc( 123660 - $2)
  elseif ($gettok($1,1,32) == 52 ) return $calc( 136594 - $2)
  elseif ($gettok($1,1,32) == 53 ) return $calc( 150872 - $2)
  elseif ($gettok($1,1,32) == 54 ) return $calc( 166636 - $2)
  elseif ($gettok($1,1,32) == 55 ) return $calc( 184040 - $2)
  elseif ($gettok($1,1,32) == 56 ) return $calc( 203254 - $2)
  elseif ($gettok($1,1,32) == 57 ) return $calc( 224466 - $2)
  elseif ($gettok($1,1,32) == 58 ) return $calc( 247886 - $2)
  elseif ($gettok($1,1,32) == 59 ) return $calc( 273742 - $2)
  elseif ($gettok($1,1,32) == 60 ) return $calc( 302288 - $2)
  elseif ($gettok($1,1,32) == 61 ) return $calc( 333804 - $2)
  elseif ($gettok($1,1,32) == 62 ) return $calc( 368599 - $2)
  elseif ($gettok($1,1,32) == 63 ) return $calc( 407015 - $2)
  elseif ($gettok($1,1,32) == 64 ) return $calc( 449428 - $2)
  elseif ($gettok($1,1,32) == 65 ) return $calc( 496254 - $2)
  elseif ($gettok($1,1,32) == 66 ) return $calc( 547953 - $2)
  elseif ($gettok($1,1,32) == 67 ) return $calc( 605032 - $2)
  elseif ($gettok($1,1,32) == 68 ) return $calc( 668051 - $2)
  elseif ($gettok($1,1,32) == 69 ) return $calc( 737627 - $2)
  elseif ($gettok($1,1,32) == 70 ) return $calc( 814445 - $2)
  elseif ($gettok($1,1,32) == 71 ) return $calc( 899257 - $2)
  elseif ($gettok($1,1,32) == 72 ) return $calc( 992895 - $2)
  elseif ($gettok($1,1,32) == 73 ) return $calc( 1096278 - $2)
  elseif ($gettok($1,1,32) == 74 ) return $calc( 1210421 - $2)
  elseif ($gettok($1,1,32) == 75 ) return $calc( 1336443 - $2)
  elseif ($gettok($1,1,32) == 76 ) return $calc( 1475581 - $2)
  elseif ($gettok($1,1,32) == 77 ) return $calc( 1629200 - $2)
  elseif ($gettok($1,1,32) == 78 ) return $calc( 1798808 - $2)
  elseif ($gettok($1,1,32) == 79 ) return $calc( 1986068 - $2)
  elseif ($gettok($1,1,32) == 80 ) return $calc( 2192818 - $2)
  elseif ($gettok($1,1,32) == 81 ) return $calc( 2421087 - $2)
  elseif ($gettok($1,1,32) == 82 ) return $calc( 2673114 - $2)
  elseif ($gettok($1,1,32) == 83 ) return $calc( 2951373 - $2)
  elseif ($gettok($1,1,32) == 84 ) return $calc( 3258594 - $2)
  elseif ($gettok($1,1,32) == 85 ) return $calc( 3597792 - $2)
  elseif ($gettok($1,1,32) == 86 ) return $calc( 3972294 - $2)
  elseif ($gettok($1,1,32) == 87 ) return $calc( 4385776 - $2)
  elseif ($gettok($1,1,32) == 88 ) return $calc( 4842295 - $2)
  elseif ($gettok($1,1,32) == 89 ) return $calc( 5346332 - $2)
  elseif ($gettok($1,1,32) == 90 ) return $calc( 5902831 - $2)
  elseif ($gettok($1,1,32) == 91 ) return $calc( 6517253 - $2)
  elseif ($gettok($1,1,32) == 92 ) return $calc( 7195629 - $2)
  elseif ($gettok($1,1,32) == 93 ) return $calc( 7944614 - $2)
  elseif ($gettok($1,1,32) == 94 ) return $calc( 8771558 - $2)
  elseif ($gettok($1,1,32) == 95 ) return $calc( 9684577 - $2)
  elseif ($gettok($1,1,32) == 96 ) return $calc( 10692629 - $2)
  elseif ($gettok($1,1,32) == 97 ) return $calc( 11805606 - $2)
  elseif ($gettok($1,1,32) == 98 ) return $calc( 13034431 - $2)
}