alias xpval {
  var %i = 1
  while (%i <= 200) { write exps.txt elseif ($2 == %i $+ ) /set $chr(37) $+ xp $xp(%i)
    echo -ts Writen %i
    inc %i
  }
}
alias xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}