Experiencia PC

  #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.15 #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