Mine

alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
} 
alias c1 { return 06 $+ $1- }
alias c2 { return 13 $+ $1- }
alias skills {
  if ($regex($1,/^0|overall|total/i)) { return Overall }
  elseif ($regex($1,/^1$|at(k|tack)/i)) { return Attack }
  elseif ($regex($1,/^2$|def(en[sc]e)?/i)) { return Defence }
  elseif ($regex($1,/^3$|str(ength)?/i)) { return Strength }
  elseif ($regex($1,/^4$|hp|hit(point)?s/i)) { return Hitpoints }
  elseif ($regex($1,/^5$|range[rd]?/i)) { return Ranged }
  elseif ($regex($1,/^6$|pray(er|ing?)?/i)) { return Prayer }
  elseif ($regex($1,/^7$|mag(e|ick?)?/i)) { return Magic }
  elseif ($regex($1,/^8$|cook(ing?)?/i)) { return Cooking }
  elseif ($regex($1,/^9$|wc|woodcut(ting?)?/i)) { return Woodcutting }
  elseif ($regex($1,/^10$|fletch(ing?)?/i)) { return Fletching }
  elseif ($regex($1,/^11$|f(i|ee)sh(ing?)?/i)) { return Fishing }
  elseif ($regex($1,/^12$|fm|firemake?(ing?)?/i)) { return Firemaking }
  elseif ($regex($1,/^13$|craft(ing?)?/i)) { return Crafting }
  elseif ($regex($1,/^14$|smith(ing?)?/i)) { return Smithing }
  elseif ($regex($1,/^15$|mine?(ing?)?/i)) { return Mining }
  elseif ($regex($1,/^16$|herb(lore?|al(ism)?)?/i)) { return Herblore }
  elseif ($regex($1,/^17$|agil(ity)?/i)) { return Agility }
  elseif ($regex($1,/^18$|th(ie|ei)[fv](ing?)?/i)) { return Thieving }
  elseif ($regex($1,/^19$|slay(er|ing?)?/i)) { return Slayer }
  elseif ($regex($1,/^20$|farm(er|ing?)?/i)) { return Farming }
  elseif ($regex($1,/^21$|(rc|runecraft)(ing?)?/i)) { return Runecraft } 
  elseif ($regex($1,/^22$|hunt(er|ing?)?/i)) { return Hunter }
  elseif ($regex($1,/^23$|cons(truct(io?ng?)?)?/i)) { return Construction }
  elseif ($1 == Stats) { Return Stats }
  elseif ($1 == Combat) { Return Combat }
  elseif ($1 == Cmb) { Return Combat }
  else { return $null }
}
on $*:text:/^[!@](defname)/Si:#: { 
  writeini defname.ini rsnicks $nick $2-
  notice $nick The your Default nick for $nick has been set to $2-
}
on $*:text:/^[!@]/Si:#: { 
  if ($Skills($Remove($1,$left($1,1)))) {
    inc %x
    set -u10 %msg. $+ %x $iif($left($1,1) == @,Msg $chan,notice $nick)
    set -u10 %skill. $+ %x $skills($remove($1,$left($1,1)))
    if (!$2) {
      if ($readini(defname.ini,rsnicks,$nick)) {
        set -u10 %nick. $+ %x $readini(defname.ini,rsnicks,$nick)
      }
      else {
        set -u10 %nick. $+ %x $nick
      }
    }
    else {
      set -u10 %nick. $+ %x $2
    }
    Sockopen stats. $+ %x o-ss.net 80
  }
}
on *:SOCKOPEN:Stats*: {
  set -u10 %nick1 $($+(%,nick,.,$gettok($sockname,2,46)),2)
  Sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %nick1 HTTP/1.0 
  Sockwrite -nt $sockname Host: o-ss.net
  Sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Stats*: {
  var %sockread
  sockread %sockread
  tokenize 32 %sockread
  if (*does not feature in the hiscores* Iswm %sockread) {
    $($+(%,msg,.,$gettok($sockname,2,46)),2) $c2($2) $c1($3-)
    set -u10 %failed. $+ $gettok($sockname,2,46) yes
  }
  elseif (* $+ $($+(%,skill,.,$gettok($sockname,2,46)),2) $+ * iswm %sockread) {
  $($+(%,msg,.,$gettok($sockname,2,46)),2) $c2($1) $c1(Stats For) $c2($($+(%,nick,.,$gettok($sockname,2,46)),2) $c1(Level) $c2($3)) $c1(Experence) $c2($4) $c1(Rank) $c2($2) }
  elseif ($($+(%,skill,.,$gettok($sockname,2,46)),2) == stats) {
    if (Overall* iswm %sockread) { set -u10 %overall. $+ $gettok($sockname,2,46) $c1(overall) $c2($replace($3,Ranked,N/A)) }
    if (Attack* iswm %sockread) { set -u10 %Attack. $+ $gettok($sockname,2,46) $c1(Attack) $c2($replace($3,Ranked,N/A)) }
    if (Defence* iswm %sockread) { set -u10 %Defence. $+ $gettok($sockname,2,46) $c1(Defence) $c2($replace($3,Ranked,N/A)) }
    if (Strength* iswm %sockread) { set -u10 %Strength. $+ $gettok($sockname,2,46) $c1(Strength) $c2($replace($3,Ranked,N/A)) }
    if (Hitpoints* iswm %sockread) { set -u10 %Hitpoints. $+ $gettok($sockname,2,46) $c1(Hitpoints) $c2($replace($3,Ranked,N/A)) }
    if (Ranged* iswm %sockread) { set -u10 %Ranged. $+ $gettok($sockname,2,46) $c1(Ranged) $c2($replace($3,Ranked,N/A)) }
    if (Prayer* iswm %sockread) { set -u10 %Prayer. $+ $gettok($sockname,2,46) $c1(Prayer) $c2($replace($3,Ranked,N/A)) }
    if (Magic* iswm %sockread) { set -u10 %Magic. $+ $gettok($sockname,2,46) $c1(Magic) $c2($replace($3,Ranked,N/A)) } 
    if (Cooking* iswm %sockread) { set -u10 %Cooking. $+ $gettok($sockname,2,46) $c1(Cooking) $c2($replace($3,Ranked,N/A)) }
    if (Woodcutting* iswm %sockread) { set -u10 %Woodcutting. $+ $gettok($sockname,2,46) $c1(Woodcutting) $c2($replace($3,Ranked,N/A)) }
    if (Fletching* iswm %sockread) { set -u10 %Fletching. $+ $gettok($sockname,2,46) $c1(Fletching) $c2($replace($3,Ranked,N/A)) }
    if (Fishing* iswm %sockread) { set -u10 %Fishing. $+ $gettok($sockname,2,46) $c1(Fishing) $c2($replace($3,Ranked,N/A)) }
    if (Firemaking* iswm %sockread) { set -u10 %Firemaking. $+ $gettok($sockname,2,46) $c1(Firemaking) $c2($replace($3,Ranked,N/A)) }
    if (Crafting* iswm %sockread) { set -u10 %Crafting. $+ $gettok($sockname,2,46) $c1(Crafting) $c2($replace($3,Ranked,N/A)) }
    if (Smithing* iswm %sockread) { set -u10 %Smithing. $+ $gettok($sockname,2,46) $c1(Smithing) $c2($replace($3,Ranked,N/A)) }
    if (Mining* iswm %sockread) { set -u10 %Mining. $+ $gettok($sockname,2,46) $c1(Mining) $c2($replace($3,Ranked,N/A)) } 
    if (Herblore* iswm %sockread) { set -u10 %Herblore. $+ $gettok($sockname,2,46) $c1(Herblore) $c2($replace($3,Ranked,N/A)) }
    if (Agility* iswm %sockread) { set -u10 %Agility. $+ $gettok($sockname,2,46) $c1(Agility) $c2($replace($3,Ranked,N/A)) }
    if (Thieving* iswm %sockread) { set -u10 %Thieving. $+ $gettok($sockname,2,46) $c1(Thieving) $c2($replace($3,Ranked,N/A)) }
    if (Slayer* iswm %sockread) { set -u10 %Slayer. $+ $gettok($sockname,2,46) $c1(Slayer) $c2($replace($3,Ranked,N/A)) }
    if (Farming* iswm %sockread) { set -u10 %Farming. $+ $gettok($sockname,2,46) $c1(Farming) $c2($replace($3,Ranked,N/A)) }
    if (Runecraft* iswm %sockread) { set -u10 %Runecraft. $+ $gettok($sockname,2,46) $c1(Runecraft) $c2($replace($3,Ranked,N/A)) }
    if (Hunter* iswm %sockread) { set -u10 %Hunter. $+ $gettok($sockname,2,46) $c1(Hunter) $c2($replace($3,Ranked,N/A)) }
    if (Construction* iswm %sockread) { set -u10 %Construction. $+ $gettok($sockname,2,46) $c1(Construction) $c2($replace($3,Ranked,N/A)) }
    elseif (*end* iswm %sockread) {
      if ($($+(%,failed,.,$gettok($sockname,2,46)),2) == yes) { Halt }
      Else {
        var %i = $gettok($sockname,2,46))
        $($+(%,msg,.,$gettok($sockname,2,46)),2) $c1(Stats For) $c2($($+(%,nick,.,$gettok($sockname,2,46)),2)) $+ $c1(:)
        $($+(%,msg,.,$gettok($sockname,2,46)),2) $($+(%,overall,.,%i),2) $($+(%,Attack,.,%i),2) $($+(%,Defence,.,%i),2) $($+(%,strength,.,%i),2) $($+(%,hitpoints,.,%i),2) $($+(%,ranged,.,%i),2) $($+(%,prayer,.,%i),2) $($+(%,magic,.,%i),2) $($+(%,cooking,.,%i),2) $($+(%,Fletching,.,%i),2) $($+(%,fishing,.,%i),2) $($+(%,firemaking,.,%i),2) $($+(%,crafting,.,%i),2) $($+(%,smithing,.,%i),2) $($+(%,mining,.,%i),2) $($+(%,herblore,.,%i),2) $($+(%,agility,.,%i),2) $($+(%,thieving,.,%i),2) $($+(%,slayer,.,%i),2) $($+(%,farming,.,%i),2) $($+(%,runecraft,.,%i),2) $($+(%,hunter,.,%i),2) 
        $($+(%,msg,.,$gettok($sockname,2,46)),2) $($+(%,construction,.,%i),2)
      }
    }
  }
  elseif ($($+(%,skill,.,$gettok($sockname,2,46)),2) == combat) {
    if (Attack* iswm %sockread) { set -u10 %Attack. $+ $gettok($sockname,2,46)  $replace($3,Ranked,0) }
    if (Defence* iswm %sockread) { set -u10 %Defence. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) }
    if (Strength* iswm %sockread) { set -u10 %Strength. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) }
    if (Hitpoints* iswm %sockread) { set -u10 %Hitpoints. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) }
    if (Ranged* iswm %sockread) { set -u10 %Ranged. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) }
    if (Prayer* iswm %sockread) { set -u10 %Prayer. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) }
    if (Magic* iswm %sockread) { set -u10 %Magic. $+ $gettok($sockname,2,46) $replace($3,Ranked,0) } 
    elseif (*end* iswm %sockread) {
      if ($($+(%,failed,.,$gettok($sockname,2,46)),2) == yes) { Halt }
      Else {
        var %i = $gettok($sockname,2,46))
        $($+(%,msg,.,$gettok($sockname,2,46)),2) $c1(Combat Level For) $c2($($+(%,nick,.,$gettok($sockname,2,46)),2)) $+ $c1(:) $c2($cmb($($+(%,hitpoints,.,%i),2),$($+(%,defence,.,%i),2),$($+(%,prayer,.,%i),2),$($+(%,attack,.,%i),2),$($+(%,strength,.,%i),2),$($+(%,ranged,.,%i),2),$($+(%,magic,.,%i),2))) $c1(ASDHRPM:) $c2($($+(%,attack,.,%i),2) $($+(%,strength,.,%i),2) $($+(%,defence,.,%i),2) $($+(%,hitpoints,.,%i),2) $($+(%,ranged,.,%i),2) $($+(%,prayer,.,%i),2) $($+(%,magic,.,%i),2))
      }
    }
  }
}