rendered paste bodyalias -l c1 { return $+($chr(3),10,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),01,$1-,$chr(3)) }
on *:TEXT:*:#:{
if ($1 == !pcw) {
if ($nick isreg $chan) { halt }
else { notice $nick $iif(%pcw, The world is $v1,No pcw is set!) | halt }
}
if ($1 == !setpcw) {
if (($nick isop $chan) || ($nick ishop $chan)) {
if ($2) { set %pcw $2 | msg $chan 13,1New PCW set! Type !pcw to view the world!! | halt }
else { notice $nick SYNTAX !setpcw <N> | halt }
}
}
if ($left($1,1) isin !@) {
if ($regex($1,/^[!@]setrsn/Si)) { writeini defrsn.ini defname $nick $2- | $iif($left($1,1) == !,notice $nick,msg $chan) $nick $+ : your default rsn is set | halt }
if ($skill($right($1,-1))) {
if ($sock($($+(stats,.,$nick),2))) { notice $nick Please wait for your first query to process | halt }
if ($skill($right($1,-1)) == overall) { halt }
if ($regex($left($1,1),/^(@|!)/Si)) { hadd -m $+(stats,.,$nick) disp $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick)) }
else { halt }
if ($regex($skill($right($1,-1)),/^(combat|stats|vk|pest|pc)/Si)) {
if ($skill($right($1,-1)) == combat) { hadd -m $+(stats,.,$nick) style cb }
else hadd -m $+(stats,.,$nick) style st
if ($skill($right($1,-1)) isin vk pest pc) { hadd -m $+(stats,.,$nick) style pc }
}
else {
hadd -m $+(stats,.,$nick) style ss
hadd -m $+(stats,.,$nick) skill $skill($right($1,-1))
}
if ($2) {
if ($len($replace($2-,$chr(32),+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is too long. | halt }
hadd -m $+(stats,.,$nick) name $replace($2-,$chr(32),+,_,+,-,+)
}
else {
if ($readini(defrsn.ini,defname,$nick)) { hadd -m $+(stats,.,$nick) name $replace($readini(defrsn.ini,defname,$nick),_,+) }
else {
if ($len($replace($nick,_,+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is too long. | halt }
hadd -m $+(stats,.,$nick) name $replace($nick,_,+)
}
}
sockopen $+(stats,.,$nick) vulcan.ueuo.com 80
}
else halt
}
}
on *:SOCKOPEN:stats.*:{
sockwrite -nt $sockname GET /geniestats.php?rsname= $+ $replace($hget($sockname,name),$chr(32),+) HTTP/1.1
sockwrite -nt $sockname Host: vulcan.ueuo.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*:{
sockread -f $+(%,$sockname,.,read)
tokenize 124 $remove($($+(%,$sockname,.,read),2),genie:)
if (*does not feature in the hiscores* iswm $($+(%,$sockname,.,read),2)) {
$hget($sockname,disp) $c1($hget($sockname,name)) $c2(isn't featured in the high scores.)
hfree $sockname
sockclose $sockname
halt
}
if ($hget($sockname,style) == pc) {
if ($istok($skill(13248624621354321574863),$1,58)) {
if (!$hget($sockname,pc)) { hadd -m $sockname pc 1 }
else { hinc $sockname pc 1 }
hadd -m $sockname $hget($sockname,pc) $c2($remove($1,Genie:) $+ :) $c1($ndp($calc($calc($xp($calc($3 + 1)) - $remove($4,$chr(44))) / $floor($calc(($3 * $3) / $iif($remove($1,Genie:) == prayer,12,6)))))) $c2(( $+ $floor($calc(($3 * $3) / $iif($remove($1,Genie:) == prayer,12,6))) xp/point))
}
}
if ($hget($sockname,style) == ss) {
if ($1 == $hget($sockname,skill)) {
hadd -m $sockname $1 $1 $2 $3 $4
}
}
if ($hget($sockname,style) == st) {
if (($skill($remove($1,Genie:))) && (*not ranked* !iswm $1-)) {
if ($hget($sockname,line)) { var %line = $hget($sockname,line) $c2($+($replace($1,Hitpoints,HP,ranged,Range,fishing,Fish,construction,Construct,prayer,Pray,herblore,Herb,fletching,Fletch,smithing,Smith,cooking,Cook,farming,Farm,magic,Mage,woodcutting,Woodcut),:) $c1($3)) | hdel $sockname line | hadd -m $sockname line %line }
else { hadd -m $sockname line $+($1,:) $c1($3) }
}
}
if ($hget($sockname,style) == cb) {
if ($istok($skill(13248624621354321574863),$remove($1,Genie:),58)) {
hadd -m $sockname $remove($1,Genie:) $3
}
}
}
on *:SOCKCLOSE:stats.*:{
if ($hget($sockname,style) == ss) {
if ($hget($sockname,$hget($sockname,skill))) {
tokenize 32 $v1
hadd -m $sockname exp $xp2next($3,$remove($4,$chr(44)))
set $+(%,$sockname,.,a) 0
while ($($+(%,$sockname,.,a),2) < $ini(monsters.ini,$hget($sockname,skill),0)) {
inc $+(%,$sockname,.,a) 1
set $+(%,$sockname,.,b) $c1($($+(%,$sockname,.,b),2)) $c2($replace($gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),1,32),_,$chr(32),-,$chr(32))) $c1($floor($calc($hget($sockname,exp) / $gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),2,32))))
}
$hget($sockname,disp) $c2($hget($sockname,skill)) $c1(stats for:) $c2($replace($hget($sockname,name),+,$chr(32)))
$hget($sockname,disp) $c2(Rank:) $c1($2) $c2(Level:) $c1($3) $c2(Exp:) $c1($4) $c2(Exp for) $c1($+($calc($3 + 1),:) $bytes($hget($sockname,exp),b))
$hget($sockname,disp) $c2(<For level $calc($3 + 1) $+ >) $($+(%,$sockname,.,b),2)
unset $+(%,$sockname,.,b)
unset $+(%,$sockname,.,a)
unset $+(%,$sockname,.,read)
}
else { $hget($sockname,disp) $c2($hget($sockname,name)) $c1(isn't featured in high scores for $c2($hget($sockname,skill)) $+ .) }
}
if ($hget($sockname,style) == pc) {
if ($hget($sockname,pc) < 1) {
$hget($sockname,disp) $hget($sockname,name) $c1(doesn't appear in highscores for any combat skill.)
}
else {
hadd -m $sockname b 0
while ($hget($sockname,b) < $hget($sockname,pc)) {
hinc $sockname b 1
set $+(%,$sockname,.,line) $($+(%,$sockname,.,line),2) $hget($sockname,$hget($sockname,b))
}
$hget($sockname,disp) $c2(Pest Control points for) $c1($replace($hget($sockname,name),+,$chr(32)))
$hget($sockname,disp) $($+(%,$sockname,.,line),2)
}
}
if ($hget($sockname,style) == st) {
if ($left($hget($sockname,line),1) isalpha) {
$hget($sockname,disp) $c2(Stats for:) $c1($replace($hget($sockname,name),+,$chr(32)))
$hget($sockname,disp) $replace($c2($hget($sockname,line)),firemaking:,Firemake:)
}
else { $hget($sockname,disp) $replace($hget($sockname,name),+,$chr(32)) Does NOT feature in high scores for any skill. }
}
if ($hget($sockname,style) == cb) {
if ($count($iif($hget($sockname,attack),$v1,NA) $iif($hget($sockname,strength),$v1,NA) $iif($hget($sockname,defence),$v1,NA) $iif($hget($sockname,hitpoints),$v1,NA) $iif($hget($sockname,prayer),$v1,NA) $iif($hget($sockname,ranged),$v1,NA) $iif($hget($sockname,magic),$v1,NA),NA) >= 7) {
$hget($sockname,disp) $hget($sockname,name) $c1(doesn't appear in highscores for any combat skill.)
}
else {
tokenize 32 $extcmbcalc($iif($hget($sockname,attack),$v1,NA) $iif($hget($sockname,strength),$v1,NA) $iif($hget($sockname,defence),$v1,NA) $iif($hget($sockname,hitpoints),$v1,NA) $iif($hget($sockname,prayer),$v1,NA) $iif($hget($sockname,ranged),$v1,NA) $iif($hget($sockname,magic),$v1,NA))
$hget($sockname,disp) $c2(Combat stats for) $c1($replace($hget($sockname,name),+,$chr(32))) $c2(Level:) $c1($floor($1) $2-)
$hget($sockname,disp) $c2(Att:) $c1($hget($sockname,attack)) $c2(Str:) $c1($hget($sockname,strength)) $c2(Def:) $c1($hget($sockname,defence)) $c2(Hits:) $c1($hget($sockname,hitpoints)) $c2(Pray:) $c1($hget($sockname,prayer)) $c2(Range:) $c1($hget($sockname,ranged)) $c2(Magic:) $c1($hget($sockname,magic))
hadd -m $sockname temp $iif(*.* iswm $1,$calc(1 - $+($chr(46),$gettok($1,2,46))),1)
if ($2- == (melee based)) {
$hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Att:) $c1($ndp($calc($hget($sockname,temp) / 0.32707))) $&
$c2(Str:) $c1($ndp($calc($hget($sockname,temp) / 0.324))) $&
$c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
$c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
$c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
}
if ($2- == (Range based)) {
$hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Range:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $&
$c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
$c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
$c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
}
if ($2- == (Magic based)) {
$hget($sockname,disp) $c2(Levels For) $c1($calc($floor($1) + 1)) $+ $c2(:) $c2(Magic:) $c1($ndp($calc($hget($sockname,temp) / 0.487))) $&
$c2(Def:) $c1($ndp($calc($hget($sockname,temp) / 0.249))) $&
$c2(Hits:) $c1($ndp($calc($hget($sockname,temp) / 0.25))) $&
$c2(Pray:) $c1($ndp($calc($hget($sockname,temp) / 0.124)))
}
}
}
unset $+(%,$sockname,.,line)
hfree $sockname
}
;<!---Combat Calculator---!>
alias -l extcmbcalc {
var %line = $replace($1 $2 $3 $4 $5 $6 $7,NA,1)
tokenize 32 %line
if (($calc($1 + $2) > $6) && ($calc($1 + $2) > $7)) { var %type = melee }
if (($calc($1 + $2) < $6) || ($calc($1 + $2) < $7)) {
if ($7 > $calc($1 + $2)) {
if ($7 > $6) { var %type = magic }
}
if ($6 > $calc($1 + $2)) {
if ($6 > $7) { var %type = range }
}
}
if (%type == range) { return $calc((0.487 * $6) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Range Based) }
if (%type == magic) { return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Magic Based) }
if (%type == melee) { return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5)) (Melee Based) }
}
;<!---Hash Increase---!>
alias hinc {
if ($hget($1,$2) isnum) {
set $+(%,$1,.,$2) $hget($1,$2)
inc $+(%,$1,.,$2) $3
hdel $1 $2
hadd -m $1 $2 $($+(%,$1,.,$2),2)
unset $+(%,$1,.,$2)
}
}
;<!---Skill Identifier---!>
alias skill {
if ($regex($1,/c(mb|ombat)/Si)) Return Combat
if ($1 == overall) return Overall
if ($1 == pest) return Pest
if ($1 == vk) return VK
if ($1 == pc) return pc
if ($regex($1,/^Stats/Si)) Return Stats
if ($regex($1,/^att(ack)?$/Si)) Return Attack
if ($regex($1,/^str(ength)?$/Si)) Return Strength
if ($regex($1,/^Def(ence)?$/Si)) Return Defence
if ($regex($1,/^h(p|its|itpoints)?$/Si)) Return Hitpoints
if ($regex($1,/^pray(er)?$/Si)) Return Prayer
if ($regex($1,/^mag(e|ic)?$/Si)) Return Magic
if ($regex($1,/^range(d)?$/Si)) Return Ranged
if ($regex($1,/^Cook(ing)?$/Si)) Return Coooking
if ($regex($1,/^wc|Woodcut|woodcutting/Si)) Return Woodcutting
if ($regex($1,/^fletch(ing)?$/Si)) Return Fletching
if ($regex($1,/^fish(ing)?$/Si)) Return Fishing
if ($regex($1,/^fm|Firemake|firemaking/Si)) Return Firemaking
if ($regex($1,/^craft(ing)?$/Si)) Return Crafting
if ($regex($1,/^smith(ing)?$/Si)) Return Smithing
if ($regex($1,/^min(e|ing)?$/Si)) Return Mining
if ($regex($1,/^Herb(lore|y)?$/Si)) Return Herblore
if ($regex($1,/^Agility/Si)) Return Agility
if ($regex($1,/^th(ie|ei)v(e|ing)/Si)) Return Thieving
if ($regex($1,/^Slay(er|ing)?$/Si)) Return Slayer
if ($regex($1,/^farm(ing)?$/Si)) Return Farming
if ($regex($1,/^hunt(er|ing)?$/Si)) Return Hunter
if ($regex($1,/^rc|runecraft|runecrafting/Si)) Return Runecraft
if ($regex($1,/^con(struction)?$/Si)) Return Construction
if ($1 == 13248624621354321574863) Return attack:strength:ranged:magic:hitpoints:prayer:defence
}
on $*:TEXT:/^[!@](cmb|combat) */Si:*:{
;; If there's a user ;;;
/inc %_lookups 1
/var %x = %_lookups
if (!$2) {
if ($readini(rsns.ini, RSNs, $nick)) { /var %rsn. $+ %x $readini(rsns.ini, RSNs, $nick) }
if ($readini(rsns.ini, RSNs, $address($nick,3))) { /var %rsn. $+ %x $readini(rsns.ini, RSNs, $address($nick,3)) }
if (!$readini(rsns.ini, RSNs, $address($nick,3))) && (!$readini(rsns.ini, RSNs, $nick)) { /notice $nick You don't have a DEFNAME. !Defname <RSN> | /halt }
}
if ($len($2-) > 12) { /notice $nick RSN Too Long! | /halt }
;;; Var Setting ;;;
/set %_lookupmsgcol 3
/set $+(%,lookup.,%_lookups) $iif(!%rsn. [ $+ [ %x ] ],$replace($2-,$chr(32),+),%rsn. [ $+ [ %x ] ]) $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
/sockopen $+(lookup.,%_lookups) www.o-ss.net 80
/halt
}
on *:SOCKOPEN:lookup.*:{
;;; Go to the file ;;;;
/sockwrite -nt $sockname GET /parsers/stats.php?mode=cmb&user= $+ $gettok($($+(%,lookup.,%_lookups),2),1,32) HTTP/1.0
/sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:SOCKREAD:lookup.*:{
;;; Set vars, tokenize them. ;;;;
/var %id = $right($sockname,-7)
/var %username = $gettok($($+(%,lookup.,%id),2),1,32)
/var %target = $gettok($($+(%,lookup.,%id),2),2-,32)
if ($sockerr) { %target Socket Error: $sockerr | /return }
else {
/var %read | /sockread %read
/tokenize 32 $remove(%read,close,connection:,(anti-spam-content-type:),text/html,X-Powered-By:,PHP/4.4.4)
;;; Use $() to combine lines, then output data ;;;
if ($0 == 2) { if ($1 != Class:) /set $+(%,lookupmsg.,%id) $replace($remove($($+(%,lookupmsg.,%id),2),class:,warrior,mager,ranger,str:,rng:,mage:,hp:,def:,pray:),att:,Next CMB Level in:) $chr(124) $1 $colors($2) }
elseif (Not Ranked isin $1-) { /return }
elseif ($($+(%,lookupmsg.,%id),2)) { %target Combat Stats for $replace($colors(%username),+,$chr(32)) $+ : | %target $remove($right($($+(%,lookupmsg.,%id),2),-2),pray:) | sockclose $sockname | unset %lookup* }
}
}
alias colors { return $+($chr(3),$iif(%_lookupmsgcol isnum 0-15,$iif($len(%_lookupmsgcol) == 2,%_lookupmsgcol,$+(0,%_lookupmsgcol)),07),$1-,$chr(3)) }
alias c1 { return $+($chr(3),14,$1-) }
alias c2 { return $+($chr(3),09,$1-) }
on *:text:*:#: {
tokenize 32 $strip($1-)
if ($left($1,1) !isin @!.) halt
if ($right($1,-1) == stats) var %style = astats
elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
elseif ($right($1,-1) == defname) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
.notice $nick You're default RSN for the host $mask($fulladdress,3) has been set to $2-
halt
}
else halt
inc %ID
if ($len($2-) > 12) {
$($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
cleanup %ID
halt
}
elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
else set $+(%,stats.rsn.,%ID) $nick
set $+(%,stats.style.,%ID) %style
set $+(%,stats.skill.,%ID) %skill
set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen $+(stats.,%ID) hiscore.runescape.com 80
}
on *:sockopen:stats.*: {
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:stats.*: {
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) {
$($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(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)
}
process %file
}
alias process {
var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
%display = $($+(%,stats.display.,%ID),2), $&
%rsn = $($+(%,stats.rsn.,%ID),2), $&
%skill = $($+(%,stats.skill.,%ID),2), $&
%style = $($+(%,stats.style.,%ID),2)
;shit;
if (%style == astats) {
while (%x <= 22) {
tokenize 32 $hget(%table,$setskill(%x))
if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
inc %x
}
%display $c1(Stats for) $c2(%rsn) $+ $c1(:)
%display %statline
}
elseif (%style == istat) {
if (!$hget(%table,%skill)) %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
else {
tokenize 32 $hget(%table,%skill)
%display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:)
%display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
$iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
}
}
elseif (%style == combat) {
var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
%s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
%d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
%display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
cleanup %id
halt
}
elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
else var %cmbstyle = melee, %combat = %MeleeCombat
var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
%a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
%d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
%r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))
if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
var %combat = $round(%combat,2), %next = $ceil(%combat)
%display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat)
%display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
$c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
%display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
$c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
}
cleanup %id
}
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 }
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))9 return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si))9 return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si))9 return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si))9 return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si))9 return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si))9 return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si))9 return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si))9 return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si))9 return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si))9 return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si))9 return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si))9 return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si))9 return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si))9 return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si))9 return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si))9 return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si))9 return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si))9 return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si))9 return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si))9 return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si))9 return Runecraft
elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si))9 return Construction
}