rendered paste bodyon $*: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
}
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
}
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
}
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
}
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
}
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
}
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
}
inc %x
}
%display $chr(91) $+ 7PEST CONTROL $+ 1 $+ $chr(93) 5Attack:7 $bytes(%pointsneededatt,b) 5Defence:7 $bytes(%pointsneededdef,b) 5Strength:7 $bytes(%pointsneededstr,b) 5Hitpoints:7 $bytes(%pointsneededhp,b) 5Magic:7 $bytes(%pointsneededmage,b) 5Range:7 $bytes(%pointsneededatt,b) 5Prayer:7 $bytes(%pointsneededpray,b) }
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 }