[Scripting Question] Aura Crystal Item

[HeroesFightingFear]

I want to make an item called the Aura Crystal that checks if a Pokemon can evolve, and whether it evolves once or not, fetches the stats and learnset from the final evolution of that Pokemon and assigns them to the Pokemon holding the item.
I have no clue how to go about this, but here is the item description.
A crystal radiating a powerful aura. Unevolved Pokemon can supposedly tap into it.

 

[Turn20Negate]

Hey there,
this should kinda work as you wished. I excluded the Hp stat because I think it would enable weird shenanigans.
In "def pbInitPokemon(pkmn,idxParty)" add this part right below "@speed = pkmn.speed":

if hasActiveItem?(:YOURITEM)
      stats = pkmn.calcEvolvedFormStats
      @attack = stats[PBStats::ATTACK]
      @defense = stats[PBStats::DEFENSE]
      @spatk = stats[PBStats::SPATK]
      @spdef = stats[PBStats::SPDEF]
      @speed = stats[PBStats::SPEED]
    end

Do the same in "def pbUpdate(fullChange=false)" with this code:

if hasActiveItem?(:YOURITEM)
        stats = @pokemon.calcEvolvedFormStats
        @attack = stats[PBStats::ATTACK]
        @defense = stats[PBStats::DEFENSE]
        @spatk = stats[PBStats::SPATK]
        @spdef = stats[PBStats::SPDEF]
        @speed = stats[PBStats::SPEED]
      end

Finally paste this method into the PokeBattle_Pokemon class, preferably above "def clone":

# Recalculates this Pokémon's evolved form's stats.
  def calcEvolvedFormStats
    pkmn = self.species
    evolution = pbGetEvolvedFormData(pkmn)
    loop do break if !evolution[0].is_a?(Array)
      pkmn = evolution[1]
    end
    pkmn = PokeBattle_Pokemon.new(pkmn,1,$Trainer,false)
    bs        = pkmn.baseStats
    usedLevel = self.level
    usedIV    = self.calcIV
    pValues   = PBNatures.getStatChanges(self.calcNature)
    stats = [0]
    PBStats.eachStat do |s|
      next if s==PBStats::HP
      stats[s] = calcStat(bs[s],usedLevel,usedIV[s],@ev[s],pValues[s])
    end
    return stats
  end

I haven't tested it myself, so be sure to come back on me if you encounter any problems. :)

 

[HeroesFightingFear]

It did work, sure, but it made any battle I tried lag out.

 

[Turn20Negate]

It did work, sure, but it made any battle I tried lag out.

Oops, I think the loop carries on forever.THis should fix it

# Recalculates this Pokémon's evolved form's stats.
  def calcEvolvedFormStats
    pkmn = self.species
    [B]loop do break if !pbGetEvolvedFormData(pkmn)[0].is_a?(Array)
      pkmn = pbGetEvolvedFormData(pkmn)[1][/B]
    end
    pkmn = PokeBattle_Pokemon.new(pkmn,1,$Trainer,false)
    bs        = pkmn.baseStats
    usedLevel = self.level
    usedIV    = self.calcIV
    pValues   = PBNatures.getStatChanges(self.calcNature)
    stats = [0]
    PBStats.eachStat do |s|
      next if s==PBStats::HP
      stats[s] = calcStat(bs[s],usedLevel,usedIV[s],@ev[s],pValues[s])
    end
    return stats
  end

 

[HeroesFightingFear]

This time it straight up throws an error when trying to initiate a battle. The error seems to be related with how the method is structured, as it is causing interference with the evolution scripts.

 

[Turn20Negate]

This time it straight up throws an error when trying to initiate a battle. The error seems to be related with how the method is structured, as it is causing interference with the evolution scripts.

Could you add the error message? It would help me a lot, fixing this problem. :)

 

[HeroesFightingFear]

 

[HeroesFightingFear]

To clarify, the trainer is one of my friends on Discord.

 

[Turn20Negate]

Figured it out and tested it, should function without errors now. Sorry for the hassle. :)

loop do break if !pbGetEvolvedFormData(pkmn)[0].is_a?(Array)
      pkmn = pbGetEvolvedFormData(pkmn)[0][2]
    end

 

[HeroesFightingFear]

It finally works, thanks man. I will be sure to credit you.