on *:text:!xp *:#:{
  var %level = $calc($2- - 1)
  if (%level >= 500) { msg $chan I dont go above lvl 500 | halt }
  else { 
    var %i = 1, %points = 0, %output = 0
    while (%level >= %i) {
      %points = $int($calc(%points + %i + 300 * (2 ^ (%i / 7))))
      %output = $int($calc(%points / 4))
      inc %i
    }
    msg $chan Level $calc(%level + 1) - %output xp
  } 
}