Evolucion

def pbEvolucionar
  if pbHasSpecies?(:MAGIKARP)
    if $Trainer.pokemonParty[0].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[0]
    elsif $Trainer.pokemonParty[1].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[1]
    elsif $Trainer.pokemonParty[2].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[2]
    elsif $Trainer.pokemonParty[3].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[3]
    elsif $Trainer.pokemonParty[4].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[4]
    elsif $Trainer.pokemonParty[5].species==PBSpecies::MAGIKARP
      pkmn = pkmn=$Trainer.party[5]
    end
      for form in pbGetEvolvedFormData(pkmn.species)
        pkmn.form = 2
    newspecies=form[2]
  end
  end
  return if !newspecies
  if newspecies>0
    e=PokemonEvolutionScene.new
    e.pbStartScreen(pkmn,newspecies)
    e.pbEvolution
    e.pbEndScreen
  end
end

def pbEvolucionarGlaceon
  if pbHasSpecies?(:EEVEE)
    if $Trainer.pokemonParty[0].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[0]
    elsif $Trainer.pokemonParty[1].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[1]
    elsif $Trainer.pokemonParty[2].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[2]
    elsif $Trainer.pokemonParty[3].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[3]
    elsif $Trainer.pokemonParty[4].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[4]
    elsif $Trainer.pokemonParty[5].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[5]
    end
         for form in pbGetEvolvedFormData(pkmn.species)
    newspecies=PBSpecies::GLACEON
  end
  end
  return if !newspecies
  if newspecies>0
    e=PokemonEvolutionScene.new
    e.pbStartScreen(pkmn,newspecies)
    e.pbEvolution
    e.pbEndScreen
  end
end

def pbEvolucionarLeafeon
  if pbHasSpecies?(:EEVEE)
    if $Trainer.pokemonParty[0].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[0]
    elsif $Trainer.pokemonParty[1].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[1]
    elsif $Trainer.pokemonParty[2].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[2]
    elsif $Trainer.pokemonParty[3].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[3]
    elsif $Trainer.pokemonParty[4].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[4]
    elsif $Trainer.pokemonParty[5].species==PBSpecies::EEVEE
      pkmn = pkmn=$Trainer.party[5]
    end
         for form in pbGetEvolvedFormData(pkmn.species)
    newspecies=PBSpecies::LEAFEON
  end
  end
  return if !newspecies
  if newspecies>0
    e=PokemonEvolutionScene.new
    e.pbStartScreen(pkmn,newspecies)
    e.pbEvolution
    e.pbEndScreen
  end
end