alias xp2next {
  return $b($calc($xp($calc($lvl($1) +1)) - $1))
}

alias lvl {
  var %xp = $iif($1 >= 260319693761,$calc($1 +1),$1),%x = 1
  while (%xp >= 0) {
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    dec %xp %TempXp
    inc %x
  }
  return $calc(%x -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)
}