Anonymous

on *:TEXT:@stats Zezima:#: { /raw ignore + $+ $nick
  /userhost $nick
  /kick $chan $nick NO SPAMMING4 @STATS ZEZIMA 3NOOB
  /mode $chan +b $address($nick,2)
  /notice $nick Perm ignore for saying "@stats zezima"
halt }

alias -l cleanup {
  unset %lookup
  unset %targetlv
  unset % $+ $1 $+ *
  unset %temp1 [ $+ [ %name ] ]
  unset %skill [ $+ [ %name ] ]
  unset %s
  unset %name
  unset %stats
  if ($sock($1)) { /sockclose $1 }
}

on $*:TEXT:/^[!](defname|defrsn|setrsn|setname) */Si:#:{ if (!$2) { notice $nick Please specify a name. | halt }
  if ($2 == Zezima) { notice $nick You're not Zezima! | halt }
  if ($2 == off) { unset %defname [ $+ [ $address($nick,2) ] ]
  notice $nick Your default name has been removed. | halt }
  elseif ($2) { set %defname [ $+ [ $address($nick,2) ] ] $2-
    //notice $nick 5,0Default name for IP4 $address($nick,2) 5set to4 $2- $+ 5. 
/notice $nick 5,0If you wish to remove this default name, type 4!defname off5. } }


on $*:TEXT:/^[@!](cmb|att|def|str|range|mage|pray|overall|total|hunt|farm|farming|hunter|attack|defence|defense|strength|magic|prayer|con|construction|fish|fishing|thief|theif|thieving|theiving|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) */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) == -t) || ($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) == -t) || ($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) == -t) || ($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) == -t) || ($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) == -t) || ($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) == -t) || ($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) == -t) || ($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
    halt
  }
  var %read
  /sockread %read

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

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

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

  while (%i <= 24) {
    set %stats $null
    if ($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),2,44) != -1) { set %stats $chr(32) $+ 4,0Overall1 $+ $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) $+ 4Attack1 $+ $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) $+ 4Defense1 $+ $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) $+ 4Strength1 $+ $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) $+ 4HP1 $+ $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) $+ 4Range1 $+ $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) $+ 4Prayer1 $+ $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) $+ 4Magic1 $+ $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) $+ 4Cooking1 $+ $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) $+ 4Woodcutting1 $+ $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) $+ 4Fletching1 $+ $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) $+ 4Fishing1 $+ $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) $+ 4Firemaking1 $+ $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) $+ 4Crafting1 $+ $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) $+ 4Smithing1 $+ $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) $+ 4Mining1 $+ $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) $+ 4Herblore1 $+ $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) $+ 4Agility1 $+ $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) $+ 4Theiving1 $+ $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) $+ 4Slayer1 $+ $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) $+ 4Farming1 $+ $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) $+ 4Runecrafting1 $+ $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) $+ 4Hunter1 $+ $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) $+ 4Construction1 $+ $chr(32) $+ $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),2,44) }
    inc %i
  }
  if (%skill [ $+ [ %name ] ] == cmb) || {%skill [ $+ [ %name ] ] == combat) { 
    $(% $+ $1 $+ .return,2) 2,0Combat of:4 %x
  $(% $+ $1 $+ .return,2) 4,0Attack:1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44),-1,--,99,299) $+ %s 4,0Strength:1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44),-1,--,99,299) $+ %s 4,0Defense:1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44),-1,--,99,299) $+ %s 4HP1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44),-1,--,99,299) $+ %s 4Range1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44),-1,--,99,299) $+ %s 4Magic1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44),-1,--,99,299) $+ %s 4Prayer1 $+ $chr(32) $+ $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44),-1,--,99,299) }
  if (%skill [ $+ [ %name ] ] == stats) {  $(% $+ $1 $+ .return,2) 1,0Stats of:4 %x
    $(% $+ $1 $+ .return,2) 1,0 $+ $replace(%stats,99,299,2277,22277)
    unset %stats
  }
  elseif (%skill [ $+ [ %name ] ] == overall) || (%skill [ $+ [ %name ] ] == total) {
    $(% $+ $1 $+ .return,2) 2,0Skill Total1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 1),3),3,44)
  getlv $1 }
  elseif (%skill [ $+ [ %name ] ] == att) || (%skill [ $+ [ %name ] ] == attack) { set %v [ $+ [ $1 ] ] 2
    $(% $+ $1 $+ .return,2) 2,0Attack1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 2),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == def) || (%skill [ $+ [ %name ] ] == defence) || (%skill [ $+ [ %name ] ] == defense) { set %v [ $+ [ $1 ] ] 3
    $(% $+ $1 $+ .return,2) 2,0Defence1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 3),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == str) || (%skill [ $+ [ %name ] ] == strength) { set %v [ $+ [ $1 ] ] 4
    $(% $+ $1 $+ .return,2) 2,0Strength1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 4),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == hp) || (%skill [ $+ [ %name ] ] == hits) || (%skill [ $+ [ %name ] ] == hitpoints) { set %v [ $+ [ $1 ] ] 5
    $(% $+ $1 $+ .return,2) 2,0Hitpoints1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 5),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == range) { set %v [ $+ [ $1 ] ] 6
    $(% $+ $1 $+ .return,2) 2,0Range1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 6),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == pray) || (%skill [ $+ [ %name ] ] == prayer) { set %v [ $+ [ $1 ] ] 7
    $(% $+ $1 $+ .return,2) 2,0Prayer1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 7),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == mage) || (%skill [ $+ [ %name ] ] == magic) { set %v [ $+ [ $1 ] ] 8
    $(% $+ $1 $+ .return,2) 2,0Magic1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 8),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == cook) || (%skill [ $+ [ %name ] ] == cooking) { set %v [ $+ [ $1 ] ] 9
    $(% $+ $1 $+ .return,2) 2,0Cooking1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 9),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == wc) || (%skill [ $+ [ %name ] ] == woodcutting) { set %v [ $+ [ $1 ] ] 10
    $(% $+ $1 $+ .return,2) 2,0Woodcutting1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 10),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == fletch) || (%skill [ $+ [ %name ] ] == fletching) { set %v [ $+ [ $1 ] ] 11
    $(% $+ $1 $+ .return,2) 2,0Fletching1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 11),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == fish) || (%skill [ $+ [ %name ] ] == fishing) { set %v [ $+ [ $1 ] ] 12
    $(% $+ $1 $+ .return,2) 2,0Fishing1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 12),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == fm) || (%skill [ $+ [ %name ] ] == firemaking) { set %v [ $+ [ $1 ] ] 13
    $(% $+ $1 $+ .return,2) 2,0Firemaking1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 13),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == craft) || (%skill [ $+ [ %name ] ] == crafting) { set %v [ $+ [ $1 ] ] 14
    $(% $+ $1 $+ .return,2) 2,0Crafting1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 14),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == smith) || (%skill [ $+ [ %name ] ] == smithing) { set %v [ $+ [ $1 ] ] 15
    $(% $+ $1 $+ .return,2) 2,0Smithing1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 15),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == mine) || (%skill [ $+ [ %name ] ] == mining) { set %v [ $+ [ $1 ] ] 16
    $(% $+ $1 $+ .return,2) 2,0Mining1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 16),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == herb) || (%skill [ $+ [ %name ] ] == herblaw) || (%skill [ $+ [ %name ] ] == herblore) { set %v [ $+ [ $1 ] ] 17
    $(% $+ $1 $+ .return,2) 2,0Herblore1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 17),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == agil) || (%skill [ $+ [ %name ] ] == agility) { set %v [ $+ [ $1 ] ] 18
    $(% $+ $1 $+ .return,2) 2,0Agility1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 18),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == thief) || (%skill [ $+ [ %name ] ] == theif) || (%skill [ $+ [ %name ] ] == thieving) || (%skill [ $+ [ %name ] ] == theiving) { set %v [ $+ [ $1 ] ] 19
    $(% $+ $1 $+ .return,2) 2,0Thieving1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 19),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == slay) || (%skill [ $+ [ %name ] ] == slayer) { set %v [ $+ [ $1 ] ] 20
    $(% $+ $1 $+ .return,2) 2,0Slayer1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),2),2,44),99,299,-1,N/A) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 20),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == farm) || (%skill [ $+ [ %name ] ] == farming) { set %v [ $+ [ $1 ] ] 21
    $(% $+ $1 $+ .return,2) 2,0Farming1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),2),2,44),99,299) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 21),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == rc) || (%skill [ $+ [ %name ] ] == runecrafting) { set %v [ $+ [ $1 ] ] 22
    $(% $+ $1 $+ .return,2) 2,0Runecrafting1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),2),2,44),99,299) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 22),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == hunt) || (%skill [ $+ [ %name ] ] == hunter) { set %v [ $+ [ $1 ] ] 23
    $(% $+ $1 $+ .return,2) 2,0Hunter1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),2),2,44),99,299) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 23),3),3,44)
    getlv $1
  }
  elseif (%skill [ $+ [ %name ] ] == con) || (%skill [ $+ [ %name ] ] == construction) { set %v [ $+ [ $1 ] ] 24
    $(% $+ $1 $+ .return,2) 2,0Construction1 of:4 %x 
    $(% $+ $1 $+ .return,2) 4,0 $+ Rank:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),1,44) $+ $chr(32) $+ 4Level:1 $replace($gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),2),2,44),99,299) $+ $chr(32) $+ 4Exp:1 $gettok($(% $+ $1 $+ .stat. $+ $calc(11 + 24),3),3,44)
    getlv $1
  }
  unset %skill [ $+ [ %name ] ]
  cleanup $1
}

alias getlv { 
  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) { goto end }
  $(% $+ $1 $+ .return,2) 4,0Xp to level $+ $chr(32) $+ %lv [ $+ [ $1 ] ] $+ :1,0 $+ $chr(32) $+ %remainder [ $+ [ $1 ] ]

  :end
  unset %v [ $+ [ $1 ] ]
  unset %lv [ $+ [ $1 ] ]
  unset %xptonext [ $+ [ $1 ] ]
  unset %remainder [ $+ [ $1 ] ]
  unset %xp [ $+ [ $1 ] ]
  unset %skill [ $+ [ %name ] ]
  cleanup $1
}