#Experiencia para Pokemon del pc
#Autor: Kyu. Recurso de https://newpokeliberty.blogspot.com/
for x in 0...$PokemonStorage.maxBoxes
    for y in 0...$PokemonStorage.maxPokemon(x)
        next if $PokemonStorage[x,y]==nil
        next if $PokemonStorage[x,y].isEgg?
        maxexp=PBExperience.pbGetMaxExperience($PokemonStorage[x,y].growthrate)
        if $PokemonStorage[x,y].exp<maxexp
            oldlevel=$PokemonStorage[x,y].level
            baseexp=@battlers[i].pokemon.baseExp
            exp=(@battlers[i].level*baseexp).floor
            leveladjust=(2*@battlers[i].level+10.0)/(@battlers[i].level+$PokemonStorage[x,y].level+10.0)
            leveladjust=leveladjust**5
            leveladjust=Math.sqrt(leveladjust)
            exp=(exp*leveladjust).floor
            $PokemonStorage[x,y].exp+=(exp*0.11).floor #cambiar número para modificar
            if $PokemonStorage[x,y].level!=oldlevel
                $PokemonStorage[x,y].calcStats
                movelist= $PokemonStorage[x,y].getMoveList
                for z in movelist
                    $PokemonStorage[x,y].pbLearnMove(z[1]) if z[0]==$PokemonStorage[x,y].level       # Learned a new move
                end
            end
        end
    end
end