on $*:TEXT:/^[!@](xp|level|lvl)/Si:#: {
  var %level = $calc($2- - 1)
  if (%level >= 500) { 
    $iif($left($1,1) == @,msg $chan,notice $nick) 7[14Xp7] 14I dont go above lvl7 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
    }
    $iif($left($1,1) == @,msg $chan,notice $nick) 7[14Xp7] 14Level $calc(%level + 1) -7 %output xp
  } 
}