rendered paste bodymenu * {
Stats window:{ if (!$window(@RunescapeStats)) { window -ek0l +bst @RunescapeStats -1 -1 * * | aline -h @RunescapeStats Type your desired username in the window bar, and press enter }
}
}
menu @RunescapeStats {
dclick:{ var %temp = $line(@RunescapeStats,$1), %tempp = $remove($line(@RunescapeStats,1),Runescape,highscore,stats,for)
if (*Runescape Highscore Stats For* iswm $line(@RunescapeStats,1)) { if ($remove($strip($gettok(%temp,1,9)),$chr(32)) != Overall) && ($remove($strip($gettok(%temp,3,9)),$chr(32)) isnum 1-98) { var %temppp = $chr(2) $+ Exp For Next lvl: $+ $chr(2) $comma($xp2next($gettok(%temp,3,9),$gettok(%temp,4,9)))) }
dline @RunescapeStats 1- | aline -h @RunescapeStats $chr(2) $+ $gettok(%temp,1,9) $+ $chr(2) Stats for $chr(31) $+ $chr(2) $+ $strip(%tempp) | aline -h @RunescapeStats $chr(2) $+ Rank: $+ $chr(2) $gettok(%temp,2,9) $chr(2) $+ Level: $+ $chr(2) $gettok(%temp,3,9) $chr(2) $+ Exp: $+ $chr(2) $gettok(%temp,4,9) %temppp | aline -h @RunescapeStats Back to all stats
}
elseif ($line(@RunescapeStats,$1) == Back to all stats) { dline @RunescapeStats 1- | aline -h @RunescapeStats Runescape Highscore Stats For $chr(31) $+ $chr(2) $+ $gettok($strip(%tempp),2,32) | aline -h @RunescapeStats - | hadd -m $+(Rs.,$ticks) user $remove($gettok($remove($strip(%tempp),$chr(58)),2,32),$chr(32)) | sockopen $+(Rs.,$ticks) hiscore.runescape.com 80 }
}
}
on *:input:@RunescapeStats:{ if ($2) { dline @RunescapeStats 1- aline -h @RunescapeStats Type your desired username in the window bar, and press enter | halt }
elseif (!$2) { dline @RunescapeStats 1- | aline -h @RunescapeStats Runescape Highscore Stats For $chr(31) $+ $chr(2) $+ $replace($1-,$chr(32),$chr(95)) $+ $chr(31) $+ $chr(2) $+ $chr(58) | aline -h @RunescapeStats - | hadd -m $+(Rs.,$ticks) user $replace($1-,$chr(32),$chr(95)) | sockopen $+(Rs.,$ticks) hiscore.runescape.com 80 }
}
alias rs { if (!$window(@RunescapeStats)) { window -ek0l +bst @RunescapeStats -1 -1 * * | aline -h @RunescapeStats Runescape Highscore Stats For $chr(31) $+ $chr(2) $+ $replace($1-,$chr(32),$chr(95)) $+ $chr(31) $+ $chr(2) $+ $chr(58) | aline -h @RunescapeStats - }
dline @RunescapeStats 1- | aline -h @RunescapeStats Runescape Highscore Stats For $chr(31) $+ $chr(2) $+ $replace($1-,$chr(32),$chr(95)) $+ $chr(31) $+ $chr(2) $+ $chr(58) | aline -h @RunescapeStats - | hadd -m $+(Rs.,$ticks) user $replace($1-,$chr(32),$chr(95)) | sockopen $+(Rs.,$ticks) hiscore.runescape.com 80
}
on *:SOCKOPEN:Rs.*: {
sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $hget($+(Rs.,$gettok($sockname,2,46)),user) HTTP/1.0
sockwrite -n $sockname Host: hiscore.runescape.com $+ $str($crlf,2)
}
on *:SOCKREAD:Rs.*: { if ($sockerr) { echo -a Error - $sockname - $sockerr | halt }
sockread &source | bwrite $sockname -1 -1 &source
if ($bfind(&source,1,does not feature in the hiscores).text) { dline @RunescapeStats 1- | aline -h @RunescapeStats $chr(31) $+ $chr(2) $+ $hget($+(Rs.,$gettok($sockname,2,46)),user) $+ $chr(31) $+ $chr(2) did not feature in highscores for any skill | remove $sockname | sockclose $sockname | halt }
if ($bfind(&source,1,No User Entered).text) { dline @RunescapeStats 1- | aline -h @RunescapeStats No user specified | remove $sockname | sockclose $sockname | halt }
bread $sockname 1 $file($sockname).size $+(&,$sockname)
var %stat, %x = 1
while (%x) { var %x = $bfind($+(&,$sockname),$calc(%x + 1),<a href="overall.ws?table=).text, %stat = $htmlfree($bvar($+(&,$sockname),%x,200).text)
tokenize 10 %stat | hadd -m $sockname $1 $2 $3 $4
}
if ($bfind($+(&,$sockname),1,<img class="mainscroll-bottom).text) { aline -h @RunescapeStats $chr(2) $+ Skill $chr(9) Rank $chr(9) level $chr(9) Exp
var %y = 0
while (%y <= 23) { tokenize 32 $hget($sockname,$setskill(%y))
if ($2) aline -h @RunescapeStats $setskill(%y) $chr(9) $1 $chr(9) $2 $chr(9) $3
inc %y
}
remove $sockname | sockclose $sockname
}
}
alias -l comma { Var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a) | Return %a }
alias -l htmlfree { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l xp2Next { var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1)) | return $calc(%nextxp - %xp) }
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 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 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
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 == 22) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
elseif ($1 == 23) || ($regex($1,/^(con)(struc?tion)?$/si)) return Construction
}