Anonymous

alias altcol return $regsubex($1-,/(\S+(?:$| ))(\S+)?/g,$+($chr(3),04,\1,$chr(3),02,\2))
alias -l exp { return $gettok(0 83 174 276 388 512 650 801 969 1154 1358 1584 1833 2107 2411 2746 3115 3523 3973 4470 5018 5624 6291 7028 7842 8740 9730 10824 12031 13363 14833 16456 18247 20224 22406 24815 27473 30408 33648 37224 41171 45529 50339 55649 61512 67983 75127 83014 91721 101333 111945 123660 136594 150872 166636 184040 203254 224466 247886 273742 302288 333804 368599 407015 449428 496254 547953 605032 668051 737627 814445 899257 992895 1096278 1210421 1336443 1475581 1629200 1798808 1986068 2192818 2421087 2673114 2951373 3258594 3597792 3972294 4385776 4842295 5346332 5902831 6517253 7195629 7944614 8771558 9684577 10692629 11805606 13034431 14391160,$1,32) }

on $*:text:/^[.!@](defname|setrsn)/Si:#:{ if (!$2) { notice $nick We need a name to default. }
if ($2) { set %defname.[ $+ [ $address($nick,2) ] ] $2 | notice $nick Defname saved. } }

on $*:text:/^[!@]stats/Si:#: {
  if ($sock(rsstats)) .sockclose rsstats
  set %RSplayway $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen Rsstats www.slushpuppy.silverinterlocution.org 80
  if (!$2 && %defname. [ $+ [ $address($nick,2) ] ]) { set %player %defname.[ $+ [ $address($nick,2) ] ] }
  if (!$2 && !%defname. [ $+ [ $address($nick,2) ] ]) { set %player $nick }
if ($2) { set %player $2- } } 

on *:SOCKOPEN:rsstats: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %player HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsstats: {
  if ($sockerr) { notice Jcfc SOCKET ERROR: $sockerr }
  else {
    var %sockreader
    sockread %sockreader
    if (The Combat level* iswm %sockreader) {
      tokenize 32 %sockreader
      set %combnstuff 02 All stats for %player 1~ 4Combat level 02 $+ $7 $+ 2 $8 based)1 ~ 
    }
    if (*Overall:* iswm %sockreader) {
      tokenize 32 %sockreader
      %rsplayway 02 $+ %combnstuff 04 $+ $1 02 $+ $2
      %rsplayway $altcol($remove($3-,<br>)))
      unset %rsplayway
      .sockclose rsstats
      unset %player
    }
  }
}

on *:TEXT:*:#:{ 
  if $skill2($right($1,-1)) == no match { halt }
  if ($sock(rssingle)) .sockclose rssingle
  set %RSplayway $iif($left($1,1) == @, msg $chan, notice $nick)
  if (!$2) && (%defname. [ $+ [ $address($nick,2) ] ]) { set %player %defname. [ $+ [ $address($nick,2) ] ] }
  if (!$2) && (!%defname. [ $+ [ $address($nick,2) ] ]) { set %player $nick }
  if ($2) { set %player $replace($2-,$chr(32),+) } 
  set %rssingle $skill2($right($1,-1))
  sockopen rssingle www.o-ss.net 80
} 
on *:SOCKOPEN:rssingle: {
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %player HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rssingle: {
  if ($sockerr) { notice Jcfc SOCKET ERROR: $sockerr }
  else {
    var %sockreader
    sockread %sockreader
    if (* $+ %rssingle $+ * iswm %sockreader) {
      tokenize 32 %sockreader
      set %xptonext $bytes($calc($exp($calc($3 + 1)) - $remove($4,$chr(44))),bd)
      %rsplayway 4 $+ %rssingle $altcol(information for %player $+ : Level: $3 Rank: $2 Xp: $4 Xp to level $calc($3 + 1) $+ : %xptonext )
      unset %sockreader
      .sockclose rssingle
      unset %player
    }
  }
}
alias skill2 { 
  if ($regex($1,/^(over(all)?|total)$/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,/^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,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
  else { return no match }
}