Something

Alias

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)
}

Remote

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