rendered paste bodyON $*:TEXT:/^[@!.]defname/Si:#: {
if ($2-) {
if ($len($2-) < 12) {
notice $nick Defname for $address($nick,3) set to: $2-
writeini defname.ini name $address($nick,3) $2-
}
else { notice $nick [Defname]: The runescape name can only be 12 letters long! }
}
}
ON $*:TEXT:/^[@!.]stats/Si:#: {
set %o $iif($left($1,1) == @, msg $chan, notice $nick)
set %r $iif(!$2,$iif($readini(defname.ini,name,$address($nick,3)),$v1,$nick),$regsubex($replace($2-,$chr(32),$chr(32)),/\b(\w)/g,$upper(\1))))
sockopen stats hiscore.runescape.com 80
}
ON *:SOCKOPEN:stats: {
sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
ON *:SOCKREAD:stats: {
var %stat | sockread %stat
if (*404 - Page not found* iswm %stat) { %o User Was not Found | sockclose $sockname }
if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44)
}
ON *:SOCKCLOSE:stats:{
tokenize 32 %stats
%o 12[07 STATS 12][07 %r 12] 14Overall07 $1 $b Att07 $2 $b Def07 $3 $b Str07 $4 $b Hp07 $5 $b Range07 $6 $b Prayer07 $7 $b Magic07 $8 $b Cooking 07 $9 $b Wc07 $10 $b Fletching07 $11 $b Fishing07 $12 $b Fm07 $13 $b Craft07 $14 $b Smith07 $15 $b
%o 14 Mining07 $16 $b Herb07 $17 $b Agility07 $18 $b Thieving07 $19 $b Slayer07 $20 $b Farm07 $21 $b Rc07 $22 $b hunt07 $23 $b Con07 $24 $b Summon 07 $25 $26 $27 $28 $29 $30
unset %stats
unset %o
unset %r
}
alias b return 12 $+ $chr(124) $+ 14
on $*:TEXT:/^[!@]/Si:#:{
if ($skill($remove($1,!,@))) {
set %o $iif($left($1,1) == @, msg $chan, notice $nick)
set %r $iif(!$3,$iif($readini(defname.ini,name,$address($nick,3)),$v1,$nick),$regsubex($replace($3-,$chr(32),$chr(32)),/\b(\w)/g,$upper(\1))))
set %skill $skill($remove($1,!,@)))
set %level $xp $2
sockopen stats1 hiscore.runescape.com 80
}
}
ON *:SOCKOPEN:stats1: {
sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
ON *:SOCKREAD:stats1: {
var %stat | sockread %stat
if (*404 - Page not found* iswm %stat) { %o 12[7 ERROR 12] User Was not Found | sockclose $sockname }
if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44)
if (*,*,* iswm %stat) set %rank %rank $gettok(%stat,1,44)
if (*,*,* iswm %stat) set %xp %xp $gettok(%stat,3,44)
}
ON *:SOCKCLOSE:stats1:{
$id
set %aaa N/a
set %bbb N/a
set %nlvl $calc(%lvl + 1)
$xp1
$xp
if (%level < %lvl) { set %aaa N/a }
if (%lvl == 99) && (%level <= 99) { set %nlvl N/a }
set %xp1 $+($bytes(%xp1,db))
%o 12 $chr(91) $+ 14 $+ %skill $+ 12 $chr(93) 7:12 $chr(91) $+ 14 $+ %r 12 $+ $chr(93) 07 %lvl 12[14 Exp12 ]07 %xp1 12[14 Rank12]07 %rank1 12[14 Exp Needed till Next Level07 %nlvl 12]07 %bbb 12[14 Exp Till Target Lvl07 %level 12]07 %aaa
unset %o %r %skill %level %stats %rank %xp %lvl %xp1 %rank1 %nlvl %bbb %aaa
}
alias skill {
if ($regex($1,/^(att|atk|attack)/Si)) { Return Attack }
if ($regex($1,/^(str|strenth|strength)/Si)) { Return Strength }
if ($regex($1,/^(def|defend|defence)/Si)) { Return Defence }
if ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) { Return Hitpoints }
if ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) { Return Range }
if ($regex($1,/^(pray|prayer|praying)/Si)) { Return Prayer $7 }
if ($regex($1,/^(mage|magic)/Si)) { Return Magic $8 }
if ($regex($1,/^(cook|cooking)/Si)) { Return Cooking $9 }
if ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) { Return Woodcutting $10 }
if ($regex($1,/^(fletch|fletching)/Si)) { Return Fletching $11 }
if ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) { Return Fishing $12 }
if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking $13 }
if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting $14 }
if ($regex($1,/^(smithing|metalmaking|smith)/Si)) { Return Smithing $15 }
if ($regex($1,/^(Mine|mining)/Si)) { Return Mining $16 }
if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore $17 }
if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility $18 }
if ($regex($1,/^(Theif|theiv|thiev|theiving|thieving)/Si)) { return Thieving $19 }
if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer $20 }
if ($regex($1,/^(farm|Farming|planting)/Si)) { Return Farming $21 }
if ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) { Return Runecrafting $22 }
if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter $23 }
if ($regex($1,/^(con|construct|construction|poh)/si)) { return Construction $24 }
if ($regex($1,/^(sum|summon|summoning)/si)) { return Summoning $25 }
}
alias id {
if (%skill == Attack || %skill == att) { tokenize 32 %stats | set %lvl $2 | tokenize 32 %xp | set %xp1 $2 | tokenize 32 %rank | set %rank1 $+($bytes($2,db)) }
if (%skill == def || %skill == defence || %skill == defense) { tokenize 32 %stats | set %lvl $3 | tokenize 32 %xp | set %xp1 $3 | tokenize 32 %rank | set %rank1 $+($bytes($3,db)) }
if (%skill == str || %skill == strength) { tokenize 32 %stats | set %lvl $4 | tokenize 32 %xp | set %xp1 $4 | tokenize 32 %rank | set %rank1 $+($bytes($4,db)) }
if (%skill == hp || %skill == hitpoits || %skill == hits) { tokenize 32 %stats | set %lvl $5 | tokenize 32 %xp | set %xp1 $5 | tokenize 32 %rank | set %rank1 $+($bytes($5,db)) }
if (%skill == range || %skill == ranged || %skill == ranging) { tokenize 32 %stats | set %lvl $6 | tokenize 32 %xp | set %xp1 $6 | tokenize 32 %rank | set %rank1 $+($bytes($6,db)) }
if (%skill == pray || %skill == prayer || %skill == praying) { tokenize 32 %stats | set %lvl $7 | tokenize 32 %xp | set %xp1 $7 | tokenize 32 %rank | set %rank1 $+($bytes($7,db)) }
if (%skill == mage || %skill == magic || %skill == magik) { tokenize 32 %stats | set %lvl $8 | tokenize 32 %xp | set %xp1 $8 | tokenize 32 %rank | set %rank1 $+($bytes($8,db)) }
if (%skill == cook || %skill == cooking) { tokenize 32 %stats | set %lvl $9 | tokenize 32 %xp | set %xp1 $9 | tokenize 32 %rank | set %rank1 $+($bytes($9,db)) }
if (%skill == wc || %skill == woodcut || %skill == woodcutting) { tokenize 32 %stats | set %lvl $10 | tokenize 32 %xp | set %xp1 $10 | tokenize 32 %rank | set %rank1 $+($bytes($10,db)) }
if (%skill == fletch || %skill == fletching) { tokenize 32 %stats | set %lvl $11 | tokenize 32 %xp | set %xp1 $11 | tokenize 32 %rank | set %rank1 $+($bytes($11,db)) }
if (%skill == fishing || %skill == fish) { tokenize 32 %stats | set %lvl $12 | tokenize 32 %xp | set %xp1 $12 | tokenize 32 %rank | set %rank1 $+($bytes($12,db)) }
if (%skill == fm || %skill == firemaking) { tokenize 32 %stats | set %lvl $13 | tokenize 32 %xp | set %xp1 $13 | tokenize 32 %rank | set %rank1 $+($bytes($13,db)) }
if (%skill == craft || %skill == crafting) { tokenize 32 %stats | set %lvl $14 | tokenize 32 %xp | set %xp1 $14 | tokenize 32 %rank | set %rank1 $+($bytes($14,db)) }
if (%skill == smith || %skill == smithing) { tokenize 32 %stats | set %lvl $15 | tokenize 32 %xp | set %xp1 $15 | tokenize 32 %rank | set %rank1 $+($bytes($15,db)) }
if (%skill == mining) { tokenize 32 %stats | set %lvl $16 | tokenize 32 %xp | set %xp1 $16 | tokenize 32 %rank | set %rank1 $+($bytes($16,db)) }
if (%skill == herb || %skill == herblore || %skill == harblaw) { tokenize 32 %stats | set %lvl $17 | tokenize 32 %xp | set %xp1 $17 | tokenize 32 %rank | set %rank1 $+($bytes($17,db)) }
if (%skill == agility || %skill == agil) { tokenize 32 %stats | set %lvl $18 | tokenize 32 %xp | set %xp1 $18 | tokenize 32 %rank | set %rank1 $+($bytes($18,db)) }
if (%skill == thiev || %skill == thieving) { tokenize 32 %stats | set %lvl $19 | tokenize 32 %xp | set %xp1 $19 | tokenize 32 %rank | set %rank1 $+($bytes($19,db)) }
if (%skill == slay || %skill == slaying || %skill == slayer) { tokenize 32 %stats | set %lvl $20 | tokenize 32 %xp | set %xp1 $20 | tokenize 32 %rank | set %rank1 $+($bytes($20,db)) }
if (%skill == farm || %skill == farming) { tokenize 32 %stats | set %lvl $21 | tokenize 32 %xp | set %xp1 $21 | tokenize 32 %rank | set %rank1 $+($bytes($21,db)) }
if (%skill == rc || %skill == runecraft || %skill == runecrafting) { tokenize 32 %stats | set %lvl $22 | tokenize 32 %xp | set %xp1 $22 | tokenize 32 %rank | set %rank1 $+($bytes($22,db)) }
if (%skill == poh || %skill == construct || %skill == con || %skill == construction) { tokenize 32 %stats | set %lvl $23 | tokenize 32 %xp | set %xp1 $23 | tokenize 32 %rank | set %rank1 $+($bytes($23,db)) }
if (%skill == hunt || %skill == hunter || %skill == hunting) { tokenize 32 %stats | set %lvl $24 | tokenize 32 %xp | set %xp1 $24 | tokenize 32 %rank | set %rank1 $+($bytes($24,db)) }
if (%skill == summ || %skill == sum || %skill == summo || %skill == summon || %skill == summoning) { tokenize 32 %stats | set %lvl $25 | tokenize 32 %xp | set %xp1 $25 | tokenize 32 %rank | set %rank1 $+($bytes($25,db)) }
}
alias xp {
if (%level == 30) { set %aaa $+($bytes($calc(13363 - %xp1),db)) }
if (%level == 31) { set %aaa $+($bytes($calc(14833 - %xp1),db)) }
if (%level == 32) { set %aaa $+($bytes($calc(16456 - %xp1),db)) }
if (%level == 33) { set %aaa $+($bytes($calc(18247 - %xp1),db)) }
if (%level == 34) { set %aaa $+($bytes($calc(20224 - %xp1),db)) }
if (%level == 35) { set %aaa $+($bytes($calc(22406 - %xp1),db)) }
if (%level == 36) { set %aaa $+($bytes($calc(24815 - %xp1),db)) }
if (%level == 37) { set %aaa $+($bytes($calc(27473 - %xp1),db)) }
if (%level == 38) { set %aaa $+($bytes($calc(30408 - %xp1),db)) }
if (%level == 39) { set %aaa $+($bytes($calc(33648 - %xp1),db)) }
if (%level == 40) { set %aaa $+($bytes($calc(37224 - %xp1),db)) }
if (%level == 41) { set %aaa $+($bytes($calc(41171 - %xp1),db)) }
if (%level == 42) { set %aaa $+($bytes($calc(45529 - %xp1),db)) }
if (%level == 43) { set %aaa $+($bytes($calc(50339 - %xp1),db)) }
if (%level == 44) { set %aaa $+($bytes($calc(55649 - %xp1),db)) }
if (%level == 45) { set %aaa $+($bytes($calc(61512 - %xp1),db)) }
if (%level == 46) { set %aaa $+($bytes($calc(67983 - %xp1),db)) }
if (%level == 47) { set %aaa $+($bytes($calc(75127 - %xp1),db)) }
if (%level == 48) { set %aaa $+($bytes($calc(83014 - %xp1),db)) }
if (%level == 49) { set %aaa $+($bytes($calc(91721 - %xp1),db)) }
if (%level == 50) { set %aaa $+($bytes($calc(101333 - %xp1),db)) }
if (%level == 51) { set %aaa $+($bytes($calc(111945 - %xp1),db)) }
if (%level == 52) { set %aaa $+($bytes($calc(123660 - %xp1),db)) }
if (%level == 53) { set %aaa $+($bytes($calc(136594 - %xp1),db)) }
if (%level == 54) { set %aaa $+($bytes($calc(150872 - %xp1),db)) }
if (%level == 55) { set %aaa $+($bytes($calc(166636 - %xp1),db)) }
if (%level == 56) { set %aaa $+($bytes($calc(184040 - %xp1),db)) }
if (%level == 57) { set %aaa $+($bytes($calc(203254 - %xp1),db)) }
if (%level == 58) { set %aaa $+($bytes($calc(224466 - %xp1),db)) }
if (%level == 59) { set %aaa $+($bytes($calc(247886 - %xp1),db)) }
if (%level == 60) { set %aaa $+($bytes($calc(273742 - %xp1),db)) }
if (%level == 61) { set %aaa $+($bytes($calc(302288 - %xp1),db)) }
if (%level == 62) { set %aaa $+($bytes($calc(333804 - %xp1),db)) }
if (%level == 63) { set %aaa $+($bytes($calc(368599 - %xp1),db)) }
if (%level == 64) { set %aaa $+($bytes($calc(407015 - %xp1),db)) }
if (%level == 65) { set %aaa $+($bytes($calc(449428 - %xp1),db)) }
if (%level == 66) { set %aaa $+($bytes($calc(496254 - %xp1),db)) }
if (%level == 67) { set %aaa $+($bytes($calc(547953 - %xp1),db)) }
if (%level == 68) { set %aaa $+($bytes($calc(605032 - %xp1),db)) }
if (%level == 69) { set %aaa $+($bytes($calc(668051 - %xp1),db)) }
if (%level == 70) { set %aaa $+($bytes($calc(737627 - %xp1),db)) }
if (%level == 71) { set %aaa $+($bytes($calc(814445 - %xp1),db)) }
if (%level == 72) { set %aaa $+($bytes($calc(899257 - %xp1),db)) }
if (%level == 73) { set %aaa $+($bytes($calc(992895 - %xp1),db)) }
if (%level == 74) { set %aaa $+($bytes($calc(1096278 - %xp1),db)) }
if (%level == 75) { set %aaa $+($bytes($calc(1210421 - %xp1),db)) }
if (%level == 76) { set %aaa $+($bytes($calc(1336443 - %xp1),db)) }
if (%level == 77) { set %aaa $+($bytes($calc(1475581 - %xp1),db)) }
if (%level == 78) { set %aaa $+($bytes($calc(1629200 - %xp1),db)) }
if (%level == 79) { set %aaa $+($bytes($calc(1798808 - %xp1),db)) }
if (%level == 80) { set %aaa $+($bytes($calc(1986068 - %xp1),db)) }
if (%level == 81) { set %aaa $+($bytes($calc(2192818 - %xp1),db)) }
if (%level == 82) { set %aaa $+($bytes($calc(2421087 - %xp1),db)) }
if (%level == 83) { set %aaa $+($bytes($calc(2673114 - %xp1),db)) }
if (%level == 84) { set %aaa $+($bytes($calc(2951373 - %xp1),db)) }
if (%level == 85) { set %aaa $+($bytes($calc(3258594 - %xp1),db)) }
if (%level == 86) { set %aaa $+($bytes($calc(3597792 - %xp1),db)) }
if (%level == 87) { set %aaa $+($bytes($calc(3972294 - %xp1),db)) }
if (%level == 88) { set %aaa $+($bytes($calc(4385776 - %xp1),db)) }
if (%level == 89) { set %aaa $+($bytes($calc(4842295 - %xp1),db)) }
if (%level == 90) { set %aaa $+($bytes($calc(5346332 - %xp1),db)) }
if (%level == 91) { set %aaa $+($bytes($calc(5902831 - %xp1),db)) }
if (%level == 92) { set %aaa $+($bytes($calc(6517253 - %xp1),db)) }
if (%level == 93) { set %aaa $+($bytes($calc(7195629 - %xp1),db)) }
if (%level == 94) { set %aaa $+($bytes($calc(7944614 - %xp1),db)) }
if (%level == 95) { set %aaa $+($bytes($calc(8771558 - %xp1),db)) }
if (%level == 96) { set %aaa $+($bytes($calc(9684577 - %xp1),db)) }
if (%level == 97) { set %aaa $+($bytes($calc(10692629 - %xp1),db)) }
if (%level == 98) { set %aaa $+($bytes($calc(11805606 - %xp1),db)) }
if (%level == 99) { set %aaa $+($bytes($calc(13034431 - %xp1),db)) }
}
alias xp1 {
if (%nlvl == 30) { set %bbb $+($bytes($calc(13363 - %xp1),db)) }
if (%nlvl == 31) { set %bbb $+($bytes($calc(14833 - %xp1),db)) }
if (%nlvl == 32) { set %bbb $+($bytes($calc(16456 - %xp1),db)) }
if (%nlvl == 33) { set %bbb $+($bytes($calc(18247 - %xp1),db)) }
if (%nlvl == 34) { set %bbb $+($bytes($calc(20224 - %xp1),db)) }
if (%nlvl == 35) { set %bbb $+($bytes($calc(22406 - %xp1),db)) }
if (%nlvl == 36) { set %bbb $+($bytes($calc(24815 - %xp1),db)) }
if (%nlvl == 37) { set %bbb $+($bytes($calc(27473 - %xp1),db)) }
if (%nlvl == 38) { set %bbb $+($bytes($calc(30408 - %xp1),db)) }
if (%nlvl == 39) { set %bbb $+($bytes($calc(33648 - %xp1),db)) }
if (%nlvl == 40) { set %bbb $+($bytes($calc(37224 - %xp1),db)) }
if (%nlvl == 41) { set %bbb $+($bytes($calc(41171 - %xp1),db)) }
if (%nlvl == 42) { set %bbb $+($bytes($calc(45529 - %xp1),db)) }
if (%nlvl == 43) { set %bbb $+($bytes($calc(50339 - %xp1),db)) }
if (%nlvl == 44) { set %bbb $+($bytes($calc(55649 - %xp1),db)) }
if (%nlvl == 45) { set %bbb $+($bytes($calc(61512 - %xp1),db)) }
if (%nlvl == 46) { set %bbb $+($bytes($calc(67983 - %xp1),db)) }
if (%nlvl == 47) { set %bbb $+($bytes($calc(75127 - %xp1),db)) }
if (%nlvl == 48) { set %bbb $+($bytes($calc(83014 - %xp1),db)) }
if (%nlvl == 49) { set %bbb $+($bytes($calc(91721 - %xp1),db)) }
if (%nlvl == 50) { set %bbb $+($bytes($calc(101333 - %xp1),db)) }
if (%nlvl == 51) { set %bbb $+($bytes($calc(111945 - %xp1),db)) }
if (%nlvl == 52) { set %bbb $+($bytes($calc(123660 - %xp1),db)) }
if (%nlvl == 53) { set %bbb $+($bytes($calc(136594 - %xp1),db)) }
if (%nlvl == 54) { set %bbb $+($bytes($calc(150872 - %xp1),db)) }
if (%nlvl == 55) { set %bbb $+($bytes($calc(166636 - %xp1),db)) }
if (%nlvl == 56) { set %bbb $+($bytes($calc(184040 - %xp1),db)) }
if (%nlvl == 57) { set %bbb $+($bytes($calc(203254 - %xp1),db)) }
if (%nlvl == 58) { set %bbb $+($bytes($calc(224466 - %xp1),db)) }
if (%nlvl == 59) { set %bbb $+($bytes($calc(247886 - %xp1),db)) }
if (%nlvl == 60) { set %bbb $+($bytes($calc(273742 - %xp1),db)) }
if (%nlvl == 61) { set %bbb $+($bytes($calc(302288 - %xp1),db)) }
if (%nlvl == 62) { set %bbb $+($bytes($calc(333804 - %xp1),db)) }
if (%nlvl == 63) { set %bbb $+($bytes($calc(368599 - %xp1),db)) }
if (%nlvl == 64) { set %bbb $+($bytes($calc(407015 - %xp1),db)) }
if (%nlvl == 65) { set %bbb $+($bytes($calc(449428 - %xp1),db)) }
if (%nlvl == 66) { set %bbb $+($bytes($calc(496254 - %xp1),db)) }
if (%nlvl == 67) { set %bbb $+($bytes($calc(547953 - %xp1),db)) }
if (%nlvl == 68) { set %bbb $+($bytes($calc(605032 - %xp1),db)) }
if (%nlvl == 69) { set %bbb $+($bytes($calc(668051 - %xp1),db)) }
if (%nlvl == 70) { set %bbb $+($bytes($calc(737627 - %xp1),db)) }
if (%nlvl == 71) { set %bbb $+($bytes($calc(814445 - %xp1),db)) }
if (%nlvl == 72) { set %bbb $+($bytes($calc(899257 - %xp1),db)) }
if (%nlvl == 73) { set %bbb $+($bytes($calc(992895 - %xp1),db)) }
if (%nlvl == 74) { set %bbb $+($bytes($calc(1096278 - %xp1),db)) }
if (%nlvl == 75) { set %bbb $+($bytes($calc(1210421 - %xp1),db)) }
if (%nlvl == 76) { set %bbb $+($bytes($calc(1336443 - %xp1),db)) }
if (%nlvl == 77) { set %bbb $+($bytes($calc(1475581 - %xp1),db)) }
if (%nlvl == 78) { set %bbb $+($bytes($calc(1629200 - %xp1),db)) }
if (%nlvl == 79) { set %bbb $+($bytes($calc(1798808 - %xp1),db)) }
if (%nlvl == 80) { set %bbb $+($bytes($calc(1986068 - %xp1),db)) }
if (%nlvl == 81) { set %bbb $+($bytes($calc(2192818 - %xp1),db)) }
if (%nlvl == 82) { set %bbb $+($bytes($calc(2421087 - %xp1),db)) }
if (%nlvl == 83) { set %bbb $+($bytes($calc(2673114 - %xp1),db)) }
if (%nlvl == 84) { set %bbb $+($bytes($calc(2951373 - %xp1),db)) }
if (%nlvl == 85) { set %bbb $+($bytes($calc(3258594 - %xp1),db)) }
if (%nlvl == 86) { set %bbb $+($bytes($calc(3597792 - %xp1),db)) }
if (%nlvl == 87) { set %bbb $+($bytes($calc(3972294 - %xp1),db)) }
if (%nlvl == 88) { set %bbb $+($bytes($calc(4385776 - %xp1),db)) }
if (%nlvl == 89) { set %bbb $+($bytes($calc(4842295 - %xp1),db)) }
if (%nlvl == 90) { set %bbb $+($bytes($calc(5346332 - %xp1),db)) }
if (%nlvl == 91) { set %bbb $+($bytes($calc(5902831 - %xp1),db)) }
if (%nlvl == 92) { set %bbb $+($bytes($calc(6517253 - %xp1),db)) }
if (%nlvl == 93) { set %bbb $+($bytes($calc(7195629 - %xp1),db)) }
if (%nlvl == 94) { set %bbb $+($bytes($calc(7944614 - %xp1),db)) }
if (%nlvl == 95) { set %bbb $+($bytes($calc(8771558 - %xp1),db)) }
if (%nlvl == 96) { set %bbb $+($bytes($calc(9684577 - %xp1),db)) }
if (%nlvl == 97) { set %bbb $+($bytes($calc(10692629 - %xp1),db)) }
if (%nlvl == 98) { set %bbb $+($bytes($calc(11805606 - %xp1),db)) }
if (%nlvl == 99) { set %bbb $+($bytes($calc(13034431 - %xp1),db)) }
}