PUT THIS IN ALIASES

getxp {
  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 $bytes($int(%xp),b)
}

PUT THIS IN REMOTE

on *:TEXT:!getxp *:#:{
  if (($2 == $null) | ($2 >= 100) | ($2 =< 1)) { notice $nick Correct usage: !getxp (1-99) }
  else {
    notice $nick To get a skill at level $2 $+ , you would need a total of $getxp($2) xp
  }
}