on $*:text:/^[!@]pc */Si:#:{
  inc %ID
  var %skill = $setskill($2)
  if (!%skill) { set %pcmode not skill }
  else { set %pcmode skill }
  if (%pcmode == skill) {  
    if (!$2) {
      /notice $nick You must choose a skill. Syntax is [!/@]pc <skill> <nick>.
      halt
    }
  }

  if (%pcmode == skill) {
    if ($3) {
      set $+(%,pc.rsn.,%ID) $replace($3-,$chr(32),-)
      set %pcmode skill
    }
    elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) { set $+(%,pc.rsn.,%ID) $ifmatch  }
    elseif ($readini(DefRSN.ini,RSNs,$nick)) { set $+(%,pc.rsn.,%ID) $ifmatch  }
    else { /notice $nick You must specify a RuneScape Name. }
  }
  else {
    if ($2) {
      set $+(%,pc.rsn.,%ID) $replace($2-,$chr(32),-)
    }
    elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) { set $+(%,pc.rsn.,%ID) $ifmatch  }
    elseif ($readini(DefRSN.ini,RSNs,$nick)) { set $+(%,pc.rsn.,%ID) $ifmatch  }
    else { /notice $nick You must specify a RuneScape Name. }
  }
  if ((%skill == Attack) || (%skill == Defence) || (%skill == Hitpoints) || (%skill == Strength) || (%skill == Ranged) || (%skill == Magic) || (%skill == Prayer)) {  
    set $+(%,pc.skill.,%ID) %skill
  }
  elseif (%pcmode == skill) {
    /notice $nick Only Attack, Defence, Hitpoints, Strength, Ranged, Magic, and Prayer may be enhanced with Pest Control.
    halt
  }
  set $+(%,pc.display.,%ID) $iif($left($1,1) == @,msg $chan,notice %nick)
  sockopen $+(pc.,%ID) hiscore.runescape.com 80
}

on *:sockopen:pc.*: {
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,pc.rsn.,%ID),2) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:pc.*: {
  sockread &Incoming
  bwrite $sockname -1 -1 &Incoming
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
    $($+(%,pc.display.,%ID),2) (The nick) $c2($($+(%,stats.rsn.,%ID),2)) (Does not appear in the hiscores)
    cleanup $gettok($sockname,2,46)
  }
}

alias -l makehash {
  var %file = $1
  bread %file 1 $file(%file).size &stats
  var %currentstat, %x = 1
  while (%x) {
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
    var %currentstat = $striptags($bvar(&stats,%x,200).text)
    tokenize 10 %currentstat
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  }
  finish %file
}
alias finish {
  var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
    %display = $($+(%,pc.display.,%ID),2), $&
    %rsn = $($+(%,pc.rsn.,%ID),2), $&
    %skill = $($+(%,pc.skill.,%ID),2), $&
    %a = 1
  if (%pcmode == not skill) {
    while (%x <= 7) {
      tokenize 32 $hget(%table,$setskill(%x))
      if ($2) set %statline. $+ $setskill(%x) $2 $4
      if ($setskill(%x) == Prayer) {
        set %xpperpoint $calc(($2 * $2) / 12)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededpray %pointsneeded
        set %praylvl $2
        set %xpperpointpray %xpperpoint
      }
      if ($setskill(%x) == Attack) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededatt %pointsneeded
        set %attlvl $2
        set %xpperpointatt %xpperpoint
      } 
      if ($setskill(%x) == Defence) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededdef %pointsneeded
        set %deflvl $2
        set %xpperpointdef %xpperpoint
      }
      if ($setskill(%x) == Strength) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededstr %pointsneeded
        set %strlvl $2
        set %xpperpointstr %xpperpoint
      }
      if ($setskill(%x) == Hitpoints) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededhp %pointsneeded
        set %hplvl $2
        set %xpperpointhp %xpperpoint
      }
      if ($setskill(%x) == Ranged) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededrange %pointsneeded
        set %rangelvl $2
        set %xpperpointrange %xpperpoint
      }
      if ($setskill(%x) == Magic) {
        set %xpperpoint $calc(($2 * $2) / 6)
        set %pointsneeded $calc($4 / %xpperpoint)
        if (%pointsneeded >= 100) { set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint)) }
        set %pointsneededmage %pointsneeded
        set %magelvl $2
        set %xpperpointmage %xpperpoint
      }
      inc %x
    }
  %display $chr(91) $+ 7PEST CONTROL $+ 1 $+ $chr(93) 5Attack $chr(40) $+ %attlvl $+ $chr(41) $+ :7 $bytes(%pointsneededatt,b) $chr(60) $+ $bytes(%xpperpointatt,b) $+ $chr(62) 5Defence $chr(40) $+ %deflvl $+ $chr(41) $+ :7 $bytes(%pointsneededdef,b) $chr(60) $+ $bytes(%xpperpointdef,b) $+ $chr(62) 5Strength $chr(40) $+ %strlvl $+ $chr(41) $+ :7 $bytes(%pointsneededstr,b) $chr(60) $+ $bytes(%xpperpointstr,b) $+ $chr(62) 5Hitpoints $chr(40) $+ %hplvl $+ $chr(41) $+ :7 $bytes(%pointsneededhp,b) $chr(60) $+ $bytes(%xpperpointhp,b) $+ $chr(62) 5Magic $chr(40) $+ %magelvl $+ $chr(41) $+ :7 $bytes(%pointsneededmage,b) $chr(60) $+ $bytes(%xpperpointmage,b) $+ $chr(62) 5Range $chr(40) $+ %rangelvl $+ $chr(41) $+ :7 $bytes(%pointsneededrange,b) $chr(60) $+ $bytes(%xpperpointrange,b) $+ $chr(62) 5Prayer $chr(40) $+ %praylvl $+ $chr(41) $+ :7 $bytes(%pointsneededpray,b) $chr(60) $+ $bytes(%xpperpointpray,b) $+ $chr(62)   }
  else {
    tokenize 32 $hget(%table,%skill)
    set %xptolvl $4
    set %leveler $2
    if (%leveler < 99 ) {
      if (%skill == Prayer) {
        set %xpperpoint $calc((%leveler * %leveler) / 12)
      }
      else {
        set %xpperpoint $calc((%leveler * %leveler) / 6)
      }
      set %pointsneeded $calc(%xptolvl / %xpperpoint)
      if (%pointsneeded >= 100) {
        set %pointsneeded $calc(%xptolvl / ((%xpperpoint * .10) + %xpperpoint))
      }     
      %display $chr(91) $+ 7PEST CONTROL $+ 1 $+ $chr(93) 5You need $bytes(%pointsneeded,b) single Pest Control Points to gain a level in %skill $+ .
    }
    else { %display $chr(91) $+ 7PEST CONTROL $+ 1 $+ $chr(93) 5 You are level 99, you can no longer level up with Pest Control. }
  }
}
alias -l setskill {
  if ($1 == 0) || ($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,/^min(e|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,/^rc|runecraft(ing|er)?$/Si)) return Runecraft
  elseif ($1 == 21) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 22) || ($regex($1,/^con(struct|struction)?$/Si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
}

alias -l cleanup {
  unset $+(%,stats.*.,$1)
  sockclose $+(Stats.,$1)
  .remove $+(Stats.,$1)
}

alias -l xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}

alias -l xp2Next {
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  return $calc(%nextxp - %xp)
}

alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }