alias c1 return $+($chr(3),07,$1-,$chr(3))
alias c2 return $+($chr(3),14,$1-,$chr(3))  
alias colors return $+($chr(3),07,$chr(2),$chr(40),$chr(2),$chr(3),$chr(3),14,$upper($strip($1-)),$chr(3),$chr(3),07,$chr(2),$chr(41),$chr(2),$chr(3))) 
alias co return $+($chr(3),07,$chr(2),$chr(40),$chr(2),$chr(3),$chr(3),14,$strip($1-),$chr(3),$chr(3),07,$chr(2),$chr(41),$chr(2),$chr(3))
alias wrong return $count($1-,$chr(64),$chr(63),$chr(35),$chr(36),$chr(37)) 
alias nohtml return $regsubex($regsubex($regsubex($1-,/(^[^<]+|<.*>|<[^>]+$|&[^#].*;)/gU,),/\G $+ $chr(9) $+ /gE,),/&#(.*);/gU,$chr(\1)))
alias cleanupworlds {
  unset %wtext. [ $+ [ $1 ] ]
  unset %way. [ $+ [ $1 ] ]
  unset %world. [ $+ [ $1 ] ]
}
alias CleanSingleStats { 
  unset %rsname. [ $+ [ $1 ] ] 
  unset %rsgoal. [ $+ [ $1 ] ]  
  unset %TehStats. [ $+ [ $1 ] ]
  unset %TehRank. [ $+ [ $1 ] ]
  unset %TehXp. [ $+ [ $1 ] ]
} 
alias xp { 
  var %x = 1, %level = $calc($1 - 1), %xp = 0 
  while (%x <= %level) { 
    var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) 
    inc %xp %tempxp 
    inc %x 
  } 
  return $int(%xp) 
} 

alias skill { 
  if ($1 == overall || $1 == total) { return Overall } 
  if ($1 == attack || $1 == att || $1 == attk) { return Attack } 
  if ($1 == def || $1 == defence) { return Defence } 
  if ($1 == str || $1 == strength) { return Strength } 
  if ($1 == hp || $1 == hitpoints || $1 == hits) { return Hitpoints } 
  if ($1 == range || $1 == ranged || $1 == ranging) { return Ranged } 
  if ($1 == pray || $1 == prayer || $1 == praying) { return Prayer } 
  if ($1 == mage || $1 == magic) { return Magic } 
  if ($1 == cook || $1 == cooking) { return Cooking } 
  if ($1 == wc || $1 == wcing || $1 == woodcut || $1 == woodcutting) { return Woodcutting } 
  if ($1 == fletch || $1 == fletching) { return Fletching } 
  if ($1 == fishing || $1 == fish) { return Fishing } 
  if ($1 == fm || $1 == firemaking) { return Firemaking } 
  if ($1 == craft || $1 == crafting) { return Crafting } 
  if ($1 == smith || $1 == smithing) { return Smithing } 
  if ($1 == mining) { return Mining } 
  if ($1 == herb || $1 == herblore) { return Herblore } 
  if ($1 == agility || $1 == agil || $1 == agi) { return Agility } 
  if ($1 == thiev || $1 == thieving) { return Thieving } 
  if ($1 == slay || $1 == slaying || $1 == slayer) { return Slayer } 
  if ($1 == farm || $1 == farming) { return Farming } 
  if ($1 == rc || $1 == runecraft || $1 == runecrafting) { return Runecraft } 
  if ($1 == construct || $1 == con || $1 == cons || $1 == construction) { return Construction } 
  if ($1 == hunt || $1 == hunter || $1 == hunting) { return Hunter } 
  if ($1 == summ || $1 == sum || $1 == summo || $1 == summon || $1 == summoning) { return Summoning } 
} 
alias rank {
  var %r = $gettok($sockname,2,$asc(.))
  var %Skill $gettok($sock($sockname).mark,4,126)
  tokenize 32 %TehRank. [ $+ [ %r ] ]
  if (%Skill == total) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],1,32),db) }
  if (%Skill == overall) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],1,32),db) } 
  if (%Skill == attack) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],2,32),db) }
  if (%Skill == defence) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],3,32),db) }
  if (%Skill == strength) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],4,32),db) }
  if (%Skill == hitpoints) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],5,32),db) }
  if (%Skill == ranged) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],6,32),db) }
  if (%Skill == prayer) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],7,32),db) }
  if (%Skill == magic) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],8,32),db) }
  if (%Skill == cooking) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],9,32),db) }
  if (%Skill == woodcutting) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],10,32),db) }
  if (%Skill == fletching) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],11,32),db) }
  if (%Skill == fishing) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],12,32),db) }
  if (%Skill == firemaking) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],13,32),db) }
  if (%Skill == crafting) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],14,32),db) }
  if (%Skill == smithing) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],15,32),db) }
  if (%Skill == mining) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],16,32),db) }
  if (%Skill == herblore) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],17,32),db) }
  if (%Skill == agility) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],18,32),db) }
  if (%Skill == thieving) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],19,32),db) }
  if (%Skill == slayer) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],20,32),db) }
  if (%Skill == farming) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],21,32),db) }
  if (%Skill == runecraft) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],22,32),db) }
  if (%Skill == construction) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],23,32),db) }
  if (%Skill == hunter) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],24,32),db) }
  if (%Skill == slayer) { return $bytes($gettok(%TehRank. [ $+ [ %r ] ],25,32),db) }
}
alias level {
  var %r = $gettok($sockname,2,$asc(.))
  var %Skill $gettok($sock($sockname).mark,4,126)
  tokenize 32 %TehStats. [ $+ [ %r ] ]
  if (%Skill == total) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],1,32),db) }
  if (%Skill == overall) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],1,32),db) }
  if (%Skill == attack) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],2,32),db) }
  if (%Skill == defence) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],3,32),db) }
  if (%Skill == strength) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],4,32),db) }
  if (%Skill == hitpoints) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],5,32),db) }
  if (%Skill == ranged) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],6,32),db) }
  if (%Skill == prayer) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],7,32),db) }
  if (%Skill == magic) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],8,32),db) }
  if (%Skill == cooking) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],9,32),db) }
  if (%Skill == woodcutting) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],10,32),db) }
  if (%Skill == fletching) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],11,32),db) }
  if (%Skill == fishing) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],12,32),db) }
  if (%Skill == firemaking) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],13,32),db) }
  if (%Skill == crafting) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],14,32),db) }
  if (%Skill == smithing) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],15,32),db) }
  if (%Skill == mining) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],16,32),db) }
  if (%Skill == herblore) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],17,32),db) }
  if (%Skill == agility) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],18,32),db) }
  if (%Skill == thieving) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],19,32),db) }
  if (%Skill == slayer) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],20,32),db) }
  if (%Skill == farming) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],21,32),db) }
  if (%Skill == runecraft) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],22,32),db) }
  if (%Skill == construction) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],23,32),db) }
  if (%Skill == hunter) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],24,32),db) }
  if (%Skill == slayer) { return $bytes($gettok(%TehStats. [ $+ [ %r ] ],25,32),db) }
}
alias exp {
  var %r = $gettok($sockname,2,$asc(.))
  var %Skill $gettok($sock($sockname).mark,4,126)
  tokenize 32 %TehXp. [ $+ [ %r ] ]
  if (%Skill == total) { return $gettok(%TehXp. [ $+ [ %r ] ],1,32) }
  if (%Skill == overall) { return $gettok(%TehXp. [ $+ [ %r ] ],1,32) }
  if (%Skill == attack) { return $gettok(%TehXp. [ $+ [ %r ] ],2,32) }
  if (%Skill == defence) { return $gettok(%TehXp. [ $+ [ %r ] ],3,32) }
  if (%Skill == strength) { return $gettok(%TehXp. [ $+ [ %r ] ],4,32) }
  if (%Skill == hitpoints) { return $gettok(%TehXp. [ $+ [ %r ] ],5,32) }
  if (%Skill == ranged) { return $gettok(%TehXp. [ $+ [ %r ] ],6,32) }
  if (%Skill == prayer) { return $gettok(%TehXp. [ $+ [ %r ] ],7,32) }
  if (%Skill == magic) { return $gettok(%TehXp. [ $+ [ %r ] ],8,32) }
  if (%Skill == cooking) { return $gettok(%TehXp. [ $+ [ %r ] ],9,32) }
  if (%Skill == woodcutting) { return $gettok(%TehXp. [ $+ [ %r ] ],10,32) }
  if (%Skill == fletching) { return $gettok(%TehXp. [ $+ [ %r ] ],11,32) }
  if (%Skill == fishing) { return $gettok(%TehXp. [ $+ [ %r ] ],12,32) }
  if (%Skill == firemaking) { return $gettok(%TehXp. [ $+ [ %r ] ],13,32) }
  if (%Skill == crafting) { return $gettok(%TehXp. [ $+ [ %r ] ],14,32) }
  if (%Skill == smithing) { return $gettok(%TehXp. [ $+ [ %r ] ],15,32) }
  if (%Skill == mining) { return $gettok(%TehXp. [ $+ [ %r ] ],16,32) }
  if (%Skill == herblore) { return $gettok(%TehXp. [ $+ [ %r ] ],17,32) }
  if (%Skill == agility) { return $gettok(%TehXp. [ $+ [ %r ] ],18,32) }
  if (%Skill == thieving) { return $gettok(%TehXp. [ $+ [ %r ] ],19,32) }
  if (%Skill == slayer) { return $gettok(%TehXp. [ $+ [ %r ] ],20,32) }
  if (%Skill == farming) { return $gettok(%TehXp. [ $+ [ %r ] ],21,32) }
  if (%Skill == runecraft) { return $gettok(%TehXp. [ $+ [ %r ] ],22,32) }
  if (%Skill == construction) { return $gettok(%TehXp. [ $+ [ %r ] ],23,32) }
  if (%Skill == hunter) { return $gettok(%TehXp. [ $+ [ %r ] ],24,32) }
  if (%Skill == slayer) { return $gettok(%TehXp. [ $+ [ %r ] ],25,32) }
}

alias goal {
  var %r = $gettok($sockname,2,$asc(.))
  var %Goal $iif($gettok($sock($sockname).mark,3,126) == None,$calc($level + 1),$gettok($sock($sockname).mark,3,126))
  if (%Goal == 1) return 0
  elseif (%Goal == 2) return 83
  elseif (%Goal == 3) return 174
  elseif (%Goal == 4) return 276
  elseif (%Goal == 5) return 388
  elseif (%Goal == 6) return 512
  elseif (%Goal == 7) return 650
  elseif (%Goal == 8) return 801
  elseif (%Goal == 9) return 969
  elseif (%Goal == 10) return 1154
  elseif (%Goal == 11) return 1358
  elseif (%Goal == 12) return 1584
  elseif (%Goal == 13) return 1833
  elseif (%Goal == 14) return 2107
  elseif (%Goal == 15) return 2411
  elseif (%Goal == 16) return 2746
  elseif (%Goal == 17) return 3115
  elseif (%Goal == 18) return 3523
  elseif (%Goal == 19) return 3973
  elseif (%Goal == 20) return 4470
  elseif (%Goal == 21) return 5018
  elseif (%Goal == 22) return 5624
  elseif (%Goal == 23) return 6291
  elseif (%Goal == 24) return 7028
  elseif (%Goal == 25) return 7842
  elseif (%Goal == 26) return 8740
  elseif (%Goal == 27) return 9730
  elseif (%Goal == 28) return 10824
  elseif (%Goal == 29) return 12031
  elseif (%Goal == 30) return 13363
  elseif (%Goal == 31) return 14833
  elseif (%Goal == 32) return 16456
  elseif (%Goal == 33) return 18247
  elseif (%Goal == 34) return 20224
  elseif (%Goal == 35) return 22406
  elseif (%Goal == 36) return 24815
  elseif (%Goal == 37) return 27473
  elseif (%Goal == 38) return 30408
  elseif (%Goal == 39) return 33648
  elseif (%Goal == 40) return 37224
  elseif (%Goal == 41) return 41171
  elseif (%Goal == 42) return 45529
  elseif (%Goal == 43) return 50339
  elseif (%Goal == 44) return 55649
  elseif (%Goal == 45) return 61512
  elseif (%Goal == 46) return 67983
  elseif (%Goal == 47) return 75127
  elseif (%Goal == 48) return 83014
  elseif (%Goal == 49) return 91721
  elseif (%Goal == 50) return 101333
  elseif (%Goal == 51) return 111945
  elseif (%Goal == 52) return 123660
  elseif (%Goal == 53) return 136594
  elseif (%Goal == 54) return 150872
  elseif (%Goal == 55) return 166636
  elseif (%Goal == 56) return 184040
  elseif (%Goal == 57) return 203254
  elseif (%Goal == 58) return 224466
  elseif (%Goal == 59) return 247886
  elseif (%Goal == 60) return 273742
  elseif (%Goal == 61) return 302288
  elseif (%Goal == 62) return 333804
  elseif (%Goal == 63) return 368599
  elseif (%Goal == 64) return 407015
  elseif (%Goal == 65) return 449428
  elseif (%Goal == 66) return 496254
  elseif (%Goal == 67) return 547953
  elseif (%Goal == 68) return 605032
  elseif (%Goal == 69) return 668051
  elseif (%Goal == 70) return 737627
  elseif (%Goal == 71) return 814445
  elseif (%Goal == 72) return 899257
  elseif (%Goal == 73) return 992895
  elseif (%Goal == 74) return 1096278
  elseif (%Goal == 75) return 1210421
  elseif (%Goal == 76) return 1336443
  elseif (%Goal == 77) return 1475581
  elseif (%Goal == 78) return 1629200
  elseif (%Goal == 79) return 1798808
  elseif (%Goal == 80) return 1986068
  elseif (%Goal == 81) return 2192818
  elseif (%Goal == 82) return 2421087
  elseif (%Goal == 83) return 2673114
  elseif (%Goal == 84) return 2951373
  elseif (%Goal == 85) return 3258594
  elseif (%Goal == 86) return 3597792
  elseif (%Goal == 87) return 3972294
  elseif (%Goal == 88) return 4385776
  elseif (%Goal == 89) return 4842295
  elseif (%Goal == 90) return 5346332
  elseif (%Goal == 91) return 5902831
  elseif (%Goal == 92) return 6517253
  elseif (%Goal == 93) return 7195629
  elseif (%Goal == 94) return 7944614
  elseif (%Goal == 95) return 8771558
  elseif (%Goal == 96) return 9684577
  elseif (%Goal == 97) return 10692629
  elseif (%Goal == 98) return 11805606
  elseif (%Goal == 99) return 13034431
}