Something

alias -l cleanup {
  unset % $+ $1 $+ *
  unset %name
  unset %s
  unset %remainder*
  unset %skill*
  unset %xp [ $+ [ $1 ] ]
  unset %v [ $+ [ $1 ] ]
  if ($sock($1)) { /sockclose $1 }
}

on $*:TEXT:/^[!](defname|defrsn|setrsn|setname) */Si:#:{ if (!$2) { notice $nick Please specify a name. | halt }
  if ($2) { set %defname [ $+ [ $address($nick,2) ] ] $2-
//notice $nick 12,0The name $2 has been registered to 4 $address($nick,2).  } }

on $*:TEXT:/^[@!](cmb|combat|att|def|str|range|mage|pray|overall|hunt|farm|farming|hunter|attack|defence|defense|strength|magic|prayer|con|construction|fish|fishing|thief|theif|thieving|rc|runecrafting|crafting|craft|mine|mining|agil|agility|hp|hitpoints|hits|herb|herblaw|herblore|slay|slayer|fletch|fletching|fm|firemaking|wc|woodcutting|smith|smithing|cook|cooking|stats|total|pc|pestcontrol|sum|summon|summoning|duel|dueling|bh|bountyhunter|bounty-hunter|bhr|rogue|bountyrogue|bounty-rogue) */Si:#: {
  if (%defname [ $+ [ $address($replace($2,&,$null),2) ] ] ) && ($right($2,1) == &) { set %rsn $replace($2,&,$null) | set %lookup %defname [ $+ [ $address(%rsn,2) ] ] | unset %rsn | goto lookup }
  if ($left($2,2) == #) || ($left($2,2) == $chr(116) $+ $chr(45) ) || ($left($2,1) == $chr(35) ) || ($left($2,1) == ~ ) { set %targetlv $replace($2,-t,$null,$+($chr(116) $+ $chr(45)),$null,$chr(35),$null,~,$null) | set %name $nick | goto lookup }
  if ($left($3,2) == #) || ($left($3,2) == -t ) || ($left($3,1) == $chr(35)) || ($left($3,1) == ~ ) { set %targetlv $replace($3,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($left($4,2) == #) || ($left($4,2) == -t) || ($left($4,1) == $chr(35)) || ($left($4,1) == ~) { set %targetlv $replace($4,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($left($5,2) == #) || ($left($5,2) == -t) || ($left($5,1) == $chr(35)) || ($left($5,1) == ~) { set %targetlv $replace($5,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($left($6,2) == #) || ($left($6,2) == -t) || ($left($6,1) == $chr(35)) || ($left($6,1) == ~) { set %targetlv $replace($6,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($left($7,2) == #) || ($left($7,2) == -t) || ($left($7,1) == $chr(35)) || ($left($7,1) == ~) { set %targetlv $replace($7,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($left($8,2) == #) || ($left($8,2) == -t) || ($left($8,1) == $chr(35)) || ($left($8,1) == ~) { set %targetlv $replace($8,-t,$null,t-,$null,$chr(35),$null,~,$null) 
    set %lookup $replace($2-,-t,$null,t-,$null,$chr(35),$null,~,$null,%targetlv,$null,$right($2-,1),$null) 
  goto lookup }
  if ($2) { set %lookup $2- | goto lookup }
  if (!$2) && (!%defname [ $+ [ $address($nick,2) ] ] ) { set %name $nick }
  if (!$2) && (%defname [ $+ [ $address($nick,2) ] ] ) { set %name %defname [ $+ [ $address($nick,2) ] ] }
  :lookup
  set %skill [ $+ [ %name ] ] $replace($1,!,$null,@,$null)
  if (%targetlv) && ($replace($2,-t,$null,t-,$null,$chr(35),$null,~,$null) == %targetlv) { goto lookup2 }
  if (!%targetlv) && ($2-) { goto lookup3 }
  if (!$2) {  :lookup2

    var %x 1

    while ($sock(rsstats. $+ %x)) {
      inc %x
    }

    if ($left($1,1) == @) { set % $+ rsstats. $+ %x $+ .return msg $chan }
    if ($left($1,1) == !) { set % $+ rsstats. $+ %x $+ .return .notice $nick }

    set % $+ rsstats. $+ %x $regsubex(%name,(Symptora \s)?[\.!@]stats,)
    sockopen rsstats. $+ %x hiscore.runescape.com 80 
  halt } 
  :lookup3
  var %x 1

  while ($sock(rsstats. $+ %x)) {
    inc %x
  }



  if ($left($1,1) == @) { set % $+ rsstats. $+ %x $+ .return msg $chan }
  if ($left($1,1) == !) { set % $+ rsstats. $+ %x $+ .return .notice $nick }

  set % $+ rsstats. $+ %x $regsubex(%lookup,(Symptora \s)?[\.!@]stats,)
  sockopen rsstats. $+ %x hiscore.runescape.com 80
}


on *:SOCKOPEN:rsstats.*: {
  sockwrite -nt $sockname GET /index_lite.ws?player= $+ $(% $+ $sockname,2) HTTP/1.1
  sockwrite -nt $sockname HOST: hiscore.runescape.com
  sockwrite -nt $sockname
}

on *:SOCKREAD:rsstats.*: {
  if ($sockerr) {
    $(% $+ $sockname $+ .return,2) Socket error while looking up4 $(% $+ $sockname,2) $+ 1: $sockerr
    /cleanup $sockname
    /return
  }
  var %read
  /sockread %read

  if (<html>* iswm %read) {
    $(% $+ $sockname $+ .return,2) 2 $(% $+ $sockname,2) 4isn't on the hiscores.
    /cleanup $sockname
    /return
  }

  inc % $+ $sockname $+ .inc
  set % $+ $sockname $+ .stat. $+ $(% $+ $sockname $+ .inc,2) %read
  if ($(% $+ $sockname $+ .inc,2) >= 39) { /results $sockname }
}

alias -l results {
  var %x - $+ $(% $+ $1,2) $+ -
  var %s $chr(124)
  var %i 1

  while (%i <= 28) {
    while (%i <= 28) {
      set %stats $null
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),2,44) != -1) { set %stats $chr(32) $+ 2Overall4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Attack4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Defense4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Strength4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2HP4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Range4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Prayer4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Magic4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Cooking4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Woodcutting4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Fletching4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Fishing4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Firemaking4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Crafting4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Smithing4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Mining4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Herblore4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Agility4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Theiving4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Slayer4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Farming4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Runecrafting4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Hunter4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Construction4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 25),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Summoning4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 25),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 26),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Dueling4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 26),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 27),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Bounty4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 27),2),2,44) $+ %s }
      if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 28),2),2,44) != -1) { set %stats %stats $+ $chr(32) $+ 2Bounty-Rogue4 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 28),2),2,44) $+ }
      inc %i 
    }
    if (%skill [ $+ [ %name ] ] == cmb) || {%skill [ $+ [ %name ] ] == combat) { 
      $(% $+ $1 $+ .return,2) 2Combat of:4 %x
      $(% $+ $1 $+ .return,2) 2Attack:4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44),-1,--,99,499) $+ %s 2Strength:4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44),-1,--,99,499) $+ %s 2Defense:4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44),-1,--,99,499) $+ %s 2HP4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44),-1,--,99,499) $+ %s 2Range4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44),-1,--,99,499) $+ %s 2Magic4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44),-1,--,99,499) $+ %s 2Prayer4 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44),-1,--,99,499) 
      unset %stats
      /cleanup $l
    }
    elseif (%skill [ $+ [ %name ] ] == stats) {  $(% $+ $1 $+ .return,2) 2Stats of:4 %x
      $(% $+ $1 $+ .return,2) 1,0 $+ $replace(%stats,99,499)
      unset %stats 
      /cleanup $1
    }
    elseif (%skill [ $+ [ %name ] ] == overall) || (%skill [ $+ [ %name ] ] == total) {
      $(% $+ $1 $+ .return,2) 2,0Overall ranks of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),1,44),db) $+ $chr(32) $+ 2Total Level:4 $bytes($replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),2,44),99,499,-1,N/A),db) $+ $chr(32) $+ 2Total Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),3),3,44),db)
      /cleanup $l      
      unset %stats
    }
    elseif (%skill [ $+ [ %name ] ] == att) || (%skill [ $+ [ %name ] ] == attack) { set %v [ $+ [ $1 ] ] 2
      $(% $+ $1 $+ .return,2) 2Attack of:4 %x 2,0 $+ 
      $(% $+ $1 $+ .return,2) 2Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),3),3,44),db) 
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == def) || (%skill [ $+ [ %name ] ] == defence) || (%skill [ $+ [ %name ] ] == defense) { set %v [ $+ [ $1 ] ] 3
      $(% $+ $1 $+ .return,2) 2,0Defence of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == str) || (%skill [ $+ [ %name ] ] == strength) { set %v [ $+ [ $1 ] ] 4
      $(% $+ $1 $+ .return,2) 2,0Strength of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == hp) || (%skill [ $+ [ %name ] ] == hits) || (%skill [ $+ [ %name ] ] == hitpoints) { set %v [ $+ [ $1 ] ] 5
      $(% $+ $1 $+ .return,2) 2,0Hitpoints of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == range) { set %v [ $+ [ $1 ] ] 6
      $(% $+ $1 $+ .return,2) 2,0Range of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == pray) || (%skill [ $+ [ %name ] ] == prayer) { set %v [ $+ [ $1 ] ] 7
      $(% $+ $1 $+ .return,2) 2,0Prayer of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == mage) || (%skill [ $+ [ %name ] ] == magic) { set %v [ $+ [ $1 ] ] 8
      $(% $+ $1 $+ .return,2) 2,0Magic of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == cook) || (%skill [ $+ [ %name ] ] == cooking) { set %v [ $+ [ $1 ] ] 9
      $(% $+ $1 $+ .return,2) 2,0Cooking of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == wc) || (%skill [ $+ [ %name ] ] == woodcutting) { set %v [ $+ [ $1 ] ] 10
      $(% $+ $1 $+ .return,2) 2,0Woodcutting of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == fletch) || (%skill [ $+ [ %name ] ] == fletching) { set %v [ $+ [ $1 ] ] 11
      $(% $+ $1 $+ .return,2) 2,0Fletching of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == fish) || (%skill [ $+ [ %name ] ] == fishing) { set %v [ $+ [ $1 ] ] 12
      $(% $+ $1 $+ .return,2) 2,0Fishing of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == fm) || (%skill [ $+ [ %name ] ] == firemaking) { set %v [ $+ [ $1 ] ] 13
      $(% $+ $1 $+ .return,2) 2,0Firemaking of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == craft) || (%skill [ $+ [ %name ] ] == crafting) { set %v [ $+ [ $1 ] ] 14
      $(% $+ $1 $+ .return,2) 2,0Crafting of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == smith) || (%skill [ $+ [ %name ] ] == smithing) { set %v [ $+ [ $1 ] ] 15
      $(% $+ $1 $+ .return,2) 2,0Smithing of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == mine) || (%skill [ $+ [ %name ] ] == mining) { set %v [ $+ [ $1 ] ] 16
      $(% $+ $1 $+ .return,2) 2,0Mining of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == herb) || (%skill [ $+ [ %name ] ] == herblaw) || (%skill [ $+ [ %name ] ] == herblore) { set %v [ $+ [ $1 ] ] 17
      $(% $+ $1 $+ .return,2) 2,0Herblore of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == agil) || (%skill [ $+ [ %name ] ] == agility) { set %v [ $+ [ $1 ] ] 18
      $(% $+ $1 $+ .return,2) 2,0Agility of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == thief) || (%skill [ $+ [ %name ] ] == theif) || (%skill [ $+ [ %name ] ] == thieving) || (%skill [ $+ [ %name ] ] == theiving) { set %v [ $+ [ $1 ] ] 19
      $(% $+ $1 $+ .return,2) 2,0Thieving of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == slay) || (%skill [ $+ [ %name ] ] == slayer) { set %v [ $+ [ $1 ] ] 20
      $(% $+ $1 $+ .return,2) 2,0Slayer of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),2,44),99,499,-1,N/A) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == farm) || (%skill [ $+ [ %name ] ] == farming) { set %v [ $+ [ $1 ] ] 21
      $(% $+ $1 $+ .return,2) 2,0Farming of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),2,44),99,499) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == rc) || (%skill [ $+ [ %name ] ] == runecrafting) { set %v [ $+ [ $1 ] ] 22
      $(% $+ $1 $+ .return,2) 2,0Runecrafting of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),2,44),99,499) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == hunt) || (%skill [ $+ [ %name ] ] == hunter) { set %v [ $+ [ $1 ] ] 23
      $(% $+ $1 $+ .return,2) 2,0Hunter of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),2,44),99,499) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == con) || (%skill [ $+ [ %name ] ] == construction) { set %v [ $+ [ $1 ] ] 24
      $(% $+ $1 $+ .return,2) 2,0Construction of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),2,44),99,499) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),3),3,44),db)
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == sum) || (%skill [ $+ [ %name ] ] == summon) || (%skill [ $+ [ %name ] ] == summoning) { set %v [ $+ [ $1 ] ] 24
      $(% $+ $1 $+ .return,2) 2,0Summoning of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 25),2),1,44),db) $+ $chr(32) $+ 2Level:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 25),2),2,44),99,499) $+ $chr(32) $+ 2Exp:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 25),3),3,44),db) 
      getlv $1
    }
    elseif (%skill [ $+ [ %name ] ] == duel) || (%skill [ $+ [ %name ] ] == dueling) { set %v [ $+ [ $1 ] ] 24
      $(% $+ $1 $+ .return,2) 2,0Dueling of:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 26),2),1,44),db) $+ $chr(32) $+ 2Score:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 26),2),2,44),99,499) 
      unset %stats
      /cleanup $l
    }
    elseif (%skill [ $+ [ %name ] ] == bh) || (%skill [ $+ [ %name ] ] == bountyhunter) || (%skill [ $+ [ %name ] ] == bounty-hunter) { set %v [ $+ [ $1 ] ] 24
      $(% $+ $1 $+ .return,2) 2,0Bounty Hunter:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 27),2),1,44),db) $+ $chr(32) $+ 2Score:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 27),2),2,44),99,499) 
      unset %stats
      /cleanup $l
    }
    elseif (%skill [ $+ [ %name ] ] == bhr) || (%skill [ $+ [ %name ] ] == rogue) || (%skill [ $+ [ %name ] ] == bountyrogue) || (%skill [ $+ [ %name ] ] == bounty-rogue) { set %v [ $+ [ $1 ] ] 24
      $(% $+ $1 $+ .return,2) 2,0Bounty-Rogue:4 %x 
      $(% $+ $1 $+ .return,2) 2,0 $+ Rank:4 $bytes($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 28),2),1,44),db) $+ $chr(32) $+ 2Score:4 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 28),2),2,44),99,499) 
      unset %stats
      /cleanup $l
    }
    elseif (%skill [ $+ [ %name ] ] == pc) || {%skill [ $+ [ %name ] ] == pestcontrol) { 
      $(% $+ $1 $+ .return,2) 7[Estimated Pest Control use of %x $+ ]12 $bytes($round($calc( ((($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),3,44) + $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),3,44) + $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),3,44) + $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),3,44)) /4 ) * 1.33 ) - $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),3,44)),0),db) experience.
      unset %xp
      unset %stats
      /cleanup $1
    }
  }
  alias getlv $1 { 
    if (%targetlv) { set %lv [ $+ [ $1 ] ] %targetlv }
    if (!%targetlv) { set %lv [ $+ [ $1 ] ] $calc($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + %v [ $+ [ $1 ] ] ),2),2,44) + 1) }
    if (%lv [ $+ [ $1 ] ] == 2 ) { set %xptonext [ $+ [ $1 ] ] 83 }
    if (%lv [ $+ [ $1 ] ] == 3 ) { set %xptonext [ $+ [ $1 ] ] 174 }
    if (%lv [ $+ [ $1 ] ] == 4 ) { set %xptonext [ $+ [ $1 ] ] 276 }
    if (%lv [ $+ [ $1 ] ] == 5 ) { set %xptonext [ $+ [ $1 ] ] 388 }
    if (%lv [ $+ [ $1 ] ] == 6 ) { set %xptonext [ $+ [ $1 ] ] 512 }
    if (%lv [ $+ [ $1 ] ] == 7 ) { set %xptonext [ $+ [ $1 ] ] 650 }
    if (%lv [ $+ [ $1 ] ] == 8 ) { set %xptonext [ $+ [ $1 ] ] 801 }
    if (%lv [ $+ [ $1 ] ] == 9 ) { set %xptonext [ $+ [ $1 ] ] 969 }
    if (%lv [ $+ [ $1 ] ] == 10 ) { set %xptonext [ $+ [ $1 ] ] 1154 }
    if (%lv [ $+ [ $1 ] ] == 11 ) { set %xptonext [ $+ [ $1 ] ] 1358 }
    if (%lv [ $+ [ $1 ] ] == 12 ) { set %xptonext [ $+ [ $1 ] ] 1584 }
    if (%lv [ $+ [ $1 ] ] == 13 ) { set %xptonext [ $+ [ $1 ] ] 1833 }
    if (%lv [ $+ [ $1 ] ] == 14 ) { set %xptonext [ $+ [ $1 ] ] 2107 }
    if (%lv [ $+ [ $1 ] ] == 15 ) { set %xptonext [ $+ [ $1 ] ] 2411 }
    if (%lv [ $+ [ $1 ] ] == 16 ) { set %xptonext [ $+ [ $1 ] ] 2746 }
    if (%lv [ $+ [ $1 ] ] == 17 ) { set %xptonext [ $+ [ $1 ] ] 3115 }
    if (%lv [ $+ [ $1 ] ] == 18 ) { set %xptonext [ $+ [ $1 ] ] 3523 }
    if (%lv [ $+ [ $1 ] ] == 19 ) { set %xptonext [ $+ [ $1 ] ] 3973 }
    if (%lv [ $+ [ $1 ] ] == 20 ) { set %xptonext [ $+ [ $1 ] ] 4470 }
    if (%lv [ $+ [ $1 ] ] == 21 ) { set %xptonext [ $+ [ $1 ] ] 5018 }
    if (%lv [ $+ [ $1 ] ] == 22 ) { set %xptonext [ $+ [ $1 ] ] 5624 }
    if (%lv [ $+ [ $1 ] ] == 23 ) { set %xptonext [ $+ [ $1 ] ] 6291 }
    if (%lv [ $+ [ $1 ] ] == 24 ) { set %xptonext [ $+ [ $1 ] ] 7028 }
    if (%lv [ $+ [ $1 ] ] == 25 ) { set %xptonext [ $+ [ $1 ] ] 7842 }
    if (%lv [ $+ [ $1 ] ] == 26 ) { set %xptonext [ $+ [ $1 ] ] 8740 }
    if (%lv [ $+ [ $1 ] ] == 27 ) { set %xptonext [ $+ [ $1 ] ] 9730 }
    if (%lv [ $+ [ $1 ] ] == 28 ) { set %xptonext [ $+ [ $1 ] ] 10824 }
    if (%lv [ $+ [ $1 ] ] == 29 ) { set %xptonext [ $+ [ $1 ] ] 12031 }
    if (%lv [ $+ [ $1 ] ] == 30 ) { set %xptonext [ $+ [ $1 ] ] 13363 }
    if (%lv [ $+ [ $1 ] ] == 31 ) { set %xptonext [ $+ [ $1 ] ] 14833 }
    if (%lv [ $+ [ $1 ] ] == 32 ) { set %xptonext [ $+ [ $1 ] ] 16456 }
    if (%lv [ $+ [ $1 ] ] == 33 ) { set %xptonext [ $+ [ $1 ] ] 18247 }
    if (%lv [ $+ [ $1 ] ] == 34 ) { set %xptonext [ $+ [ $1 ] ] 20224 }
    if (%lv [ $+ [ $1 ] ] == 35 ) { set %xptonext [ $+ [ $1 ] ] 22406 }
    if (%lv [ $+ [ $1 ] ] == 36 ) { set %xptonext [ $+ [ $1 ] ] 24815 }
    if (%lv [ $+ [ $1 ] ] == 37 ) { set %xptonext [ $+ [ $1 ] ] 27473 }
    if (%lv [ $+ [ $1 ] ] == 38 ) { set %xptonext [ $+ [ $1 ] ] 30408 }
    if (%lv [ $+ [ $1 ] ] == 39 ) { set %xptonext [ $+ [ $1 ] ] 33648 }
    if (%lv [ $+ [ $1 ] ] == 40 ) { set %xptonext [ $+ [ $1 ] ] 37224 }
    if (%lv [ $+ [ $1 ] ] == 41 ) { set %xptonext [ $+ [ $1 ] ] 41171 }
    if (%lv [ $+ [ $1 ] ] == 42 ) { set %xptonext [ $+ [ $1 ] ] 45529 }
    if (%lv [ $+ [ $1 ] ] == 43 ) { set %xptonext [ $+ [ $1 ] ] 50339 }
    if (%lv [ $+ [ $1 ] ] == 44 ) { set %xptonext [ $+ [ $1 ] ] 55649 }
    if (%lv [ $+ [ $1 ] ] == 45 ) { set %xptonext [ $+ [ $1 ] ] 61512 }
    if (%lv [ $+ [ $1 ] ] == 46 ) { set %xptonext [ $+ [ $1 ] ] 67983 }
    if (%lv [ $+ [ $1 ] ] == 47 ) { set %xptonext [ $+ [ $1 ] ] 75127 }
    if (%lv [ $+ [ $1 ] ] == 48 ) { set %xptonext [ $+ [ $1 ] ] 83014 }
    if (%lv [ $+ [ $1 ] ] == 49 ) { set %xptonext [ $+ [ $1 ] ] 91721 }
    if (%lv [ $+ [ $1 ] ] == 50 ) { set %xptonext [ $+ [ $1 ] ] 101333 }
    if (%lv [ $+ [ $1 ] ] == 51 ) { set %xptonext [ $+ [ $1 ] ] 111945 }
    if (%lv [ $+ [ $1 ] ] == 52 ) { set %xptonext [ $+ [ $1 ] ] 123660 }
    if (%lv [ $+ [ $1 ] ] == 53 ) { set %xptonext [ $+ [ $1 ] ] 136594 }
    if (%lv [ $+ [ $1 ] ] == 54 ) { set %xptonext [ $+ [ $1 ] ] 150872 }
    if (%lv [ $+ [ $1 ] ] == 55 ) { set %xptonext [ $+ [ $1 ] ] 166636 }
    if (%lv [ $+ [ $1 ] ] == 56 ) { set %xptonext [ $+ [ $1 ] ] 184040 }
    if (%lv [ $+ [ $1 ] ] == 57 ) { set %xptonext [ $+ [ $1 ] ] 203254 }
    if (%lv [ $+ [ $1 ] ] == 58 ) { set %xptonext [ $+ [ $1 ] ] 224466 }
    if (%lv [ $+ [ $1 ] ] == 59 ) { set %xptonext [ $+ [ $1 ] ] 247886 }
    if (%lv [ $+ [ $1 ] ] == 60 ) { set %xptonext [ $+ [ $1 ] ] 273742 }
    if (%lv [ $+ [ $1 ] ] == 61 ) { set %xptonext [ $+ [ $1 ] ] 302288 }
    if (%lv [ $+ [ $1 ] ] == 62 ) { set %xptonext [ $+ [ $1 ] ] 333804 }
    if (%lv [ $+ [ $1 ] ] == 63 ) { set %xptonext [ $+ [ $1 ] ] 368599 }
    if (%lv [ $+ [ $1 ] ] == 64 ) { set %xptonext [ $+ [ $1 ] ] 407015 }
    if (%lv [ $+ [ $1 ] ] == 65 ) { set %xptonext [ $+ [ $1 ] ] 449428 }
    if (%lv [ $+ [ $1 ] ] == 66 ) { set %xptonext [ $+ [ $1 ] ] 496254 }
    if (%lv [ $+ [ $1 ] ] == 67 ) { set %xptonext [ $+ [ $1 ] ] 547953 }
    if (%lv [ $+ [ $1 ] ] == 68 ) { set %xptonext [ $+ [ $1 ] ] 605032 }
    if (%lv [ $+ [ $1 ] ] == 69 ) { set %xptonext [ $+ [ $1 ] ] 668051 }
    if (%lv [ $+ [ $1 ] ] == 70 ) { set %xptonext [ $+ [ $1 ] ] 737627 }
    if (%lv [ $+ [ $1 ] ] == 71 ) { set %xptonext [ $+ [ $1 ] ] 814445 }
    if (%lv [ $+ [ $1 ] ] == 72 ) { set %xptonext [ $+ [ $1 ] ] 899257 }
    if (%lv [ $+ [ $1 ] ] == 73 ) { set %xptonext [ $+ [ $1 ] ] 992895 }
    if (%lv [ $+ [ $1 ] ] == 74 ) { set %xptonext [ $+ [ $1 ] ] 1096278 }
    if (%lv [ $+ [ $1 ] ] == 75 ) { set %xptonext [ $+ [ $1 ] ] 1210421 }
    if (%lv [ $+ [ $1 ] ] == 76 ) { set %xptonext [ $+ [ $1 ] ] 1336443 }
    if (%lv [ $+ [ $1 ] ] == 77 ) { set %xptonext [ $+ [ $1 ] ] 1475581 }
    if (%lv [ $+ [ $1 ] ] == 78 ) { set %xptonext [ $+ [ $1 ] ] 1629200 }
    if (%lv [ $+ [ $1 ] ] == 79 ) { set %xptonext [ $+ [ $1 ] ] 1798808 }
    if (%lv [ $+ [ $1 ] ] == 80 ) { set %xptonext [ $+ [ $1 ] ] 1986068 }
    if (%lv [ $+ [ $1 ] ] == 81 ) { set %xptonext [ $+ [ $1 ] ] 2192818 }
    if (%lv [ $+ [ $1 ] ] == 82 ) { set %xptonext [ $+ [ $1 ] ] 2421087 }
    if (%lv [ $+ [ $1 ] ] == 83 ) { set %xptonext [ $+ [ $1 ] ] 2673114 }
    if (%lv [ $+ [ $1 ] ] == 84 ) { set %xptonext [ $+ [ $1 ] ] 2951373 }
    if (%lv [ $+ [ $1 ] ] == 85 ) { set %xptonext [ $+ [ $1 ] ] 3258594 }
    if (%lv [ $+ [ $1 ] ] == 86 ) { set %xptonext [ $+ [ $1 ] ] 3597792 }
    if (%lv [ $+ [ $1 ] ] == 87 ) { set %xptonext [ $+ [ $1 ] ] 3972294 }
    if (%lv [ $+ [ $1 ] ] == 88 ) { set %xptonext [ $+ [ $1 ] ] 4385776 }
    if (%lv [ $+ [ $1 ] ] == 89 ) { set %xptonext [ $+ [ $1 ] ] 4842295 }
    if (%lv [ $+ [ $1 ] ] == 90 ) { set %xptonext [ $+ [ $1 ] ] 5346332 }
    if (%lv [ $+ [ $1 ] ] == 91 ) { set %xptonext [ $+ [ $1 ] ] 5902831 }
    if (%lv [ $+ [ $1 ] ] == 92 ) { set %xptonext [ $+ [ $1 ] ] 6517253 }
    if (%lv [ $+ [ $1 ] ] == 93 ) { set %xptonext [ $+ [ $1 ] ] 7195629 }
    if (%lv [ $+ [ $1 ] ] == 94 ) { set %xptonext [ $+ [ $1 ] ] 7944614 }
    if (%lv [ $+ [ $1 ] ] == 95 ) { set %xptonext [ $+ [ $1 ] ] 8771558 }
    if (%lv [ $+ [ $1 ] ] == 96 ) { set %xptonext [ $+ [ $1 ] ] 9684577 }
    if (%lv [ $+ [ $1 ] ] == 97 ) { set %xptonext [ $+ [ $1 ] ] 10692629 }
    if (%lv [ $+ [ $1 ] ] == 98 ) { set %xptonext [ $+ [ $1 ] ] 11805606 }
    if (%lv [ $+ [ $1 ] ] == 99 ) { set %xptonext [ $+ [ $1 ] ] 13034431 }
    if (%lv [ $+ [ $1 ] ] == 100 ) { set %xptonext [ $+ [ $1 ] ] 14391160 }
    set %xp [ $+ [ $1 ] ] $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + %v [ $+ [ $1 ] ] ),2),3,44)
    set %remainder [ $+ [ $1 ] ] $calc(%xptonext [ $+ [ $1 ] ] - %xp [ $+ [ $1 ] ] ) 
    if (%skill [ $+ [ $name ] ] == overall) || (%skill [ $+ [ $name ] ] == total) || (%skill [ $+ [ $name ] ] == duel) || (%skill [ $+ [ $name ] ] == bh) || (%skill [ $+ [ $name ] ] == bounty-rogue) { goto end }
    $(% $+ $1 $+ .return,2) 2,0Xp to level $+ $chr(32) $+ %lv [ $+ [ $1 ] ] $+ :4,0  $bytes( $chr(32) $+ %remainder [ $+ [ $1 ] ] ,db)
    :end
    unset % $+ $1 $+ *
    unset %name
    unset %s
    unset %remainder*
    unset %skill*
    unset %xp [ $+ [ $1 ] ]
    unset %v [ $+ [ $1 ] ]
    if ($sock($1)) { /sockclose $1 }
    unset %targetlv
    unset %getlv
  }
}