on *:Text:*:#: {
  if ($me != Louisc999) halt
  ;;Colors, Color1 is your main color, Color2 is your secondary color.
  set %Color1 03
  set %Color2 06

  ;; Do not edit anything below UNLESS you know what your doing.

  if ($left($1,1) !isin !@) halt
  var %output = $iif($left($1,1) == @,msg $chan,notice $nick), $&
    %s1 = $iif($readini(RSNs.ini,$address($nick,2),S1),$v1,%Color1), $&
    %s2 = $iif($readini(RSNs.ini,$address($nick,2),S2),$v1,%Color2)

  tokenize 32 $right($1-,-1)
  if ($regex($1,/^(my|set)(Co?l(ou?)?r)$/Si)) {
    if ($2 !isnum 0-15) halt
    if ($3 !isnum 0-15) halt
    writeini RSNs.ini $address($nick,2) S1 $iif($len($2) < 2,0) $+ $2
    writeini RSNs.ini $address($nick,2) S2 $iif($len($3) < 2,0) $+ $3
    notice $nick $+($chr(3),$2) $+ your stats colors have been changed to $2 and $+($chr(3),$iif($len($3) < 2,0),$3) $+ $3 $+ .
    halt
  }
  if ($1 == rsn) {
    if (!$readini(RSNs.ini,$address($2,2),RSN)) {
      notice $nick $s1(%s1,I have found no match for) $s1(%s1,") $+ $s2(%s2,$2) $+ $s1(%s1,")
      halt
    }
    notice $nick $s2(%s2,$2 $+ 's) $s1(%s1,rsn is) $s2(%s2,$readini(RSNs.ini,$address($2,2),RSN))
  }
  if (!$skills($1)) halt
  if ($skills($1) == Defname) {
    if ($len($2-) > 12) {
      notice $nick $s1(%s1,The RSN) $s2(%s2,$2-) $s1(%s1,is too long.)
      halt
    }
    writeini RSNs.ini $address($nick,2) RSN $2-
    notice $nick $s1(%s1,The RSN) $s2(%s2,$2-) $s1(%s1,was successfully added for) $s2(%s2,$nick) $+ $s1(%s1,.)
    halt
  }
  else {
    noop $regex($2-,/(#|[-\+][tg])(\d\d)/Si)
    if ($regml(0) == 2) var %target = $regml(2)
    var %rsn = $remove($2-,$+($regml(1),$regml(2)))
    if (!$remove(%rsn,$chr(32))) {
      if ($readini(RSNs.ini,$address($nick,2),RSN)) var %rsn = $v1
      else var %rsn = $nick
    }
    if ($len(%rsn) > 12) {
      notice $nick $s1(%s1,Your rsn is too long.)
      halt
    }
    var %hash = $+(stats.,$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9))
    hadd -m %hash skill $skills($1)
    hadd -m %hash User %rsn
    hadd -m %hash Target $iif(%target,$v1,0)
    hadd -m %hash Display %output
    hadd -m %hash s1 %s1
    hadd -m %hash s2 %s2
    sockopen %hash hiscore.runescape.com 80
  }
}
on *:SOCKOPEN:stats.*: {
  var %user = $hget($sockname,User)
  hadd -m $sockname User $replace(%user,$chr(32),_)
  sockwrite -n $sockname GET /index_lite.ws?player= $+ $hget($sockname,User) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:stats.*: {
  var %hash = $sockname,%read,%ID = $gettok($sockname,2,46),%s1 = $hget(%hash,s1),%s2 = $hget(%hash,s2)
  sockread %read
  if (*Sorry, the page you were looking for was not found.* iswm %read) {
    $hget(%hash,display) $s1(%s1,The user) $s2(%s2,$hget(%hash,user)) $s1(%s1,doesn't appear in the hiscores.)
    sockclose $sockname
    if ($hget(%hash)) .hfree %hash
  }
  if ($hget(%hash,Read) == $true) {
    tokenize 44 %read
    if ($2 != 1) {
      if ($skills($hget(%hash,Inc))) hadd -m %hash $skills($hget(%hash,Inc)) $1 $2 $3
    }
    hinc -m %hash Inc 1
  }
  if (*Content-length:* iswm %read) {
    hadd -m %hash Read $true
    hadd -m %hash Inc -1
  }
}
on *:sockclose:stats.*:playstats $sockname
alias -l Playstats {
  var %hash = $1,%skill = $hget($1,skill),%user = $replace($hget($1,user),_,$chr(32)),%target = $hget($1,target),%display = $hget($1,display), $&
    %s1 = $hget($1,s1),%s2 = $hget($1,s2)
  if (%skill == stats) {
    var %x = 1,%statline
    while ($skills(%x)) {
      tokenize 32 $hget(%hash,$skills(%x))
      if ($2 > -1) var %statline = %statline $s1(%s1,$skills(%x)) $s2(%s2,$2)
      inc %x
    }
    if (!%statline) {
      %display $s1(%s1,The user) $s2(%s2,%user) $s1(%s1,doesn't appear in the hiscores. Or there was an error in the stats script.)
      goto done
    }
    tokenize 32 $hget(%hash,Overall)
    %display $s1(%s1,Stats for) $s2(%s2,%user) $iif($2 > 0,$s1(%s1,Total level) $s2(%s2,$bytes($2,b)))
    if (%statline) {
      %display $gettok(%statline,1-30,32)
      if ($gettok(%statline,31-,32)) %display $v1
    }
    goto done
  }
  if (%skill == Combat) {
    var %a = Attack,%d = Defence,%s = Strength,%hp = HitPoints,%r = Ranged,%m = Magic,%su = Summoning,%p = Prayer,%h = %hash
    var %cmb = $combat($token($hget(%h,%a),2,32),$token($hget(%h,%d),2,32),$token($hget(%h,%s),2,32),$token($hget(%h,%hp),2,32),$token($hget(%h,%p),2,32),$token($hget(%h,%r),2,32),$token($hget(%h,%m),2,32),$token($hget(%h,%su),2,32))
    var %cmbd = $calc($floor(%cmb) +1),%cmb2 = $calc(%cmbd - %cmb)

    %display $s2(%s2,%user) $s1(%s1,is) $s2(%s2,%cmb) $s1(%s1,based)
    %display $s1(%s1,Att:) $s2(%s2,$token($hget(%h,%a),2,32)) $&
      $s1(%s1,Str:) $s2(%s2,$token($hget(%h,%s),2,32)) $&
      $s1(%s1,Def:) $s2(%s2,$token($hget(%h,%d),2,32)) $&
      $s1(%s1,Hits:) $s2(%s2,$token($hget(%h,%hp),2,32)) $&
      $s1(%s1,Range:) $s2(%s2,$token($hget(%h,%r),2,32)) $&
      $s1(%s1,Pray:) $s2(%s2,$token($hget(%h,%p),2,32)) $&
      $s1(%s1,Mage:) $s2(%s2,$token($hget(%h,%m),2,32)) $&
      $s1(%s1,Summon:) $s2(%s2,$token($hget(%h,%su),2,32))

    %display $s1(%s1,Levels for) $s2(%s2,%cmbd) $+ $s1(%s1,:) $&
      $s1(%s1,Attack) $s2(%s2,$ceil($calc((%cmb2)/( 1 / 3 )))) $&
      $s1(%s1,Strength) $s2(%s2,$ceil($calc((%cmb2) / ( 1 / 3 )))) $&
      $s1(%s1,Defence) $s2(%s2,$ceil($calc((%cmb2) / ( 1 / 4 )))) $&
      $s1(%s1,HitPoints) $s2(%s2,$ceil($calc((%cmb2) / ( 1 / 4 )))) $&
      $s1(%s1,Prayer) $s2(%s2,$ceil($calc((%cmb2) / ( 1 / 8 )))) $&
      $s1(%s1,Summoning) $s2(%s2,$ceil($calc((%cmb2) / ( 1 / 8 ))))
    goto done
  }
  if (!%skill) goto done 
  if ($hget(%hash,%skill) == -1) {
    %display $s1(%s1,The user) $s2(%s2,%user) $s1(%s1,does not feature in the) $s2(%s2,%skill) $s1(%s1,hiscores) 
    if ($hget(%hash)) .hfree %hash
    halt
  }
  else {
    tokenize 32 $hget(%hash,%skill)
    if (%target < $2) var %target = $calc($2 + 1)
    var %xp = $iif($2 >= 99,$calc(200000000 - $3),$calc($exp(%target) - $3))
    %display $s1(%s1,Skill:) $s2(%s2,%skill) $s1(%s1,User:) $s2(%s2,%user)
    %display $s1(%s1,Rank:) $s2(%s2,$bytes($1,b)) $s1(%s1,Level:) $s2(%s2,$bytes($2,b)) $s1(%s1,Exp:) $s2(%s2,$bytes($3,b)) $&
      $iif(%skill != overall,$s1(%s1,Exp to lvl) $s2(%s2,%target) $+ $s1(%s1,:) $s2(%s2,$bytes(%xp,b)))
    var %x = 1,%b = 0
    while ($ini(Skills.ini,%skill,%x)) {
      var %item = $ini(Skills.ini,%skill,%x)
      var %exp = $ceil($calc(%xp / $readini(Skills.ini,%skill,%item)))
      var %string = %string $s1(%s1,%item) $s2(%s2,$bytes(%exp,b))
      inc %b
      if (%b >= 15) {
        %display $s1(%s1,<For level) $s2(%s2,%target) $+ $s1(%s1,>) %string
        %b = 0
        unset %string
      }
      inc %x
    }
    if (%string) %display $s1(%s1,<For level) $s2(%s2,%target) $+ $s1(%s1,>) %string
  }
  :done
  if ($hget(%hash)) hfree %hash
}
alias add {
  if (!$skills($1)) halt
  var %skill = $skills($1)
  var %x = 1
  while ($token($2-,%x,44)) {
    var %section = $token($2-,%x,44)
    var %exp = $token(%section,$token(%section,0,32),32)
    var %item = $token(%section,$+(1-,$calc($token(%section,0,32) -1)),32)
    writeini -n Skills.ini %skill $replace(%item,$chr(32),-) %exp
    inc %x
  }
}
alias rems {
  if (!$skills($1)) halt
  var %skill = $skills($1)
  remini Skills.ini %skill $replace($2-,$chr(32),-)
}
alias list {
  if (!$skills($1)) halt
  var %x = 1
  while ($ini(Skills.ini,$skills($1),%x)) {
    echo -a $ini(Skills.ini,$skills($1),%x) -- $readini(Skills.ini,$skills($1),$ini(Skills.ini,$skills($1),%x))
    inc %x
  }
}
alias skills { 
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 
  elseif ($1 == 1) || ($regex($1,/^at(t|t?k|tack)$/Si)) return Attack 
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$/Si)) return Defence 
  elseif ($1 == 3) || ($regex($1,/^str(eng[th][th])?$/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 == 23) || ($regex($1,/^(poh|cons?(truct)?(ion|ing)?|carp(entry)?)$/si)) return Construction
  elseif ($1 == 22) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter 
  elseif ($1 == 24) || ($Regex($1,/^sum(mon(ing)?)?$/Si)) return Summoning
  elseif ($regex($1,/^stats?$/Si)) return stats
  elseif ($regex($1,/^(set|def)(rsn|name)$/Si)) return Defname
  elseif ($regex($1,/^co?mba?t?$/Si)) return Combat
}
alias nohtml return $regsubex($1-,/<[^>]+>|&[^;]+;/g,)
alias exp {
  var %x = 1, %level = $1 - 1, %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}
alias s1 {
  if ($1 isnum 0-15) && ($2) return $+(,$iif($len($1) < 2,0) $+ $1,$2-,)
  elseif (!$1) return $+($( $+ %color1,2),$2-,)
  else return $+($( $+ %color1,2),$1-,)
}
alias s2 {
  if ($1 isnum 0-15) && ($2) return $+(,$iif($len($1) < 2,0) $+ $1,$2-,)
  elseif (!$1) && ($2) return $+($( $+ %color2,2),$2-,)
  else return $+($( $+ %color2,2),$1-,)
}
alias rsnfind {
  var %x = 1,%s,%t
  while ($ini(RSNs.ini,%x)) {
    %s = $v1
    if ($1 iswm $readini(RSNs.ini,%s,rsn)) %t = %t $+ , $v2
    inc %x
  }
  return $iif($mid(%t,2),$v1,$remove($1,$chr(42)))
}
alias combat.base {
  var %d = $1,%h = $2,%p = $3,%s = $4,%a = $calc(%d * 100),%b = $calc(%h * 100), $&
    %c = $iif(*.* iswm $calc(%p / 2),$calc((%p -1) * 50),$calc(%p * 50)), $&
    %d = $iif(*.* iswm $calc(%s /2),$calc((%s -1) *50),$calc(%s * 50))
  return $calc((%a + %b + %c + %d) / 400)
}
alias combat.class {
  var %att = $1,%str = $2,%range = $3,%mage = $4,%a = $calc(%att * 130),%b = $calc(%str * 130), $&
    %c = $iif(*.* iswm $calc(%range / 2),$calc(((%range - 1) + (%range * 2)) * 65),$calc(%range * 195)), $&
    %d = $iif(*.* iswm $calc(%mage / 2),$calc(((%mage - 1) + (%mage * 2)) * 65),$calc(%mage * 195)), $&
    %melee = $calc((%A + %B) / 400),%range = $calc(%C / 400),%mage = $calc(%D / 400)
  return $token($sorttok(%melee Melee| $+ %range Ranged| $+ %mage Magic,124,nr),1,124)
}
alias combat {
  if ($prop == f2p) tokenize 32 $1-7 0
  var %base = $combat.base($iif(!$2,1,$2),$iif(!$4,10,$4),$iif(!$5,1,$5),$iif(!$8,1,$8))
  var %class = $combat.class($iif(!$1,1,$1),$iif(!$3,1,$3),$iif(!$6,1,$6),$iif(!$7,1,$7))
  var %combat = $calc(%base + $token(%class,1,32))
  return %combat $token(%class,2,32)
}